cobol with posistions

(1)//MYJOB JOB 1,'ANU'
(1)//STEP1 EXEC IGYWCLG
(8) IDENTIFICATION DIVISION.
(8)PROGRAM-ID. LAB1.
(8)ENVIRONMENT DIVISION.
(8) CONFIGURATION SECTION.
(8)INPUT-OUTPUT SECTION.
(8)FILE-CONTROL.
(12) SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
(12)SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
(12)EJECT
(8)DATA DIVISION.
(8)FILE SECTION.
(10) FD INPUT-FILE
(12)LABEL RECORDS ARE STANDARD.
(8)01 INPUT-REC PIC X(80).
(10)FD PRNT-FILE
(12)LABEL RECORDS ARE OMITTED.
(8)01 PRNT-REC PIC X(125).
(8)WORKING-STORAGE SECTION.
(8)01 INPUT-DATA.
(10)03 I-NAME PIC X(20).
(8)01 PRNT-DATA1.
(12)03 O-NAME PIC X(20).
(8)01 MISC.
(10)03 EOF-I PIC 9 VALUE 0.
(8)PROCEDURE DIVISION.
(8)PARA1.
(12)OPEN INPUT INPUT-FILE
(12) OUTPUT PRNT-FILE.
(12)PERFORM READ-INPUT.
(12)PERFORM LOOP1
(12)UNTIL EOF-I = 1.
(12)CLOSE INPUT-FILE
(12)PRNT-FILE.
(12)STOP RUN.
(8)LOOP1.
(12)PERFORM PRINT-NAMES.
(12)PERFORM READ-INPUT.
(8)PRINT-NAMES.
(12)MOVE I-NAME TO O-NAME.
(12)WRITE PRNT-REC FROM PRNT-DATA1
(12)AFTER ADVANCING 1 LINE.
(8)READ-INPUT.
(12)READ INPUT-FILE INTO INPUT-DATA
(12)AT END MOVE 1 TO EOF-I.
(1) //GO.SYSOUT DD SYSOUT=*
(1)//GO.SYSPRINT DD SYSOUT=*
(1)//GO.INPUT DD *
NAME
CEMA
ANU
(1)//GO.PRNT DD SYSOUT=*