value in the renamed field after move statment
What will be the out put of this 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