rename clause

2 posts / 0 new
Last post
Offline
Joined: 04/10/2013 - 07:38
rename clause

what will be the out put
000100 ID DIVISION. 00010000
000200 PROGRAM-ID. RENAM. 00020000
000300 DATA DIVISION. 00030000
000400 WORKING-STORAGE SECTION. 00040000
000500 01 WS-EMPLOYEE. 00050008
000600 05 WS-EMP-DETAILS. 00060007
000700 10 WS-ID PIC X(5) VALUE '10000'. 00070009
000800 10 WS-NAME PIC X(8) VALUE 'COBOL'. 00080009
00090 05 WS-IBU-DETAILS. 00090007
001000 10 WS-IBU PIC X(5) VALUE 'E&R'. 00100007
001100 10 WS-PRJCT-CODE PIC X(5) VALUE 'BERCD'. 00110007
001200 05 WS-PLACE PIC X(6) VALUE 'MYSORE'. 00120007
001300 66 WS-REN RENAMES WS-NAME THRU WS-PRJCT-CODE. 00130007
001400 PROCEDURE DIVISION. 00140000
001500 DISPLAY WS-REN. 00150000
001501 DISPLAY WS-EMPLOYEE 00150105
001502 MOVE 'RAMYA BCMX BCBCH' TO WS-REN 00150208
001510 DISPLAY WS-REN. 00151001
001520 DISPLAY WS-NAME 00152005
001530 DISPLAY WS-IBU 00153005
001540 DISPLAY WS-PRJCT-CODE 00154005
001600 STOP RUN. 00160000

Offline
Joined: 12/26/2011 - 06:34
It is not proper to post the

It is not proper to post the same topic multiple times . . .

As i replied to the other topic, w2hat happened when you tried the code?

Log in or register to post comments
Sponsored Listing