COBOL program to display the input data by using file.

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