000100 IDENTIFICATION DIVISION.
000200     PROGRAM-ID. TEST1.
000300 
000400 ENVIRONMENT DIVISION.
000500     CONFIGURATION SECTION.
000600     SOURCE-COMPUTER. IBM-PC.
000700     OBJECT-COMPUTER. IBM-PC.
000800 
000900 INPUT-OUTPUT SECTION.
001000     FILE-CONTROL.
001100     SELECT INPFIL ASSIGN TO DISK.
001200     SELECT OUTFIL ASSIGN TO DISK.
001300 
001400 DATA DIVISION.
001500     FILE SECTION.
001600     FD INPFIL
001700     LABEL RECORDS ARE STANDARD
001800     VALUE OF FILE-ID IS "EMP.DAT"
001900     DATA RECORD IS INPREC.
002000 
002100 01 INPREC.
002200     02 I-RECNUM PIC 9(5).
002300     02 I-EMPNAM PIC X(15).
002400     02 I-EMPAGE PIC 99.
002500 
002600 FD OUTFIL
002700     LABEL RECORDS ARE STANDARD
002800     VALUE OF FILE-ID IS "EMP.NEW"
002900     DATA RECORD IS OUTREC.
003000 
003100 01 OUTREC.
003200     02 O-RECNUM PIC 9(5).
003300     02 O-EMPNAM PIC X(15).
003400     02 O-EMPAGE PIC 99.
003500 
003600 WORKING-STORAGE SECTION.
003700 
003800 01 OUTBUF.
003900 
004000 SCREEN SECTION.
004100     01 CLRSCR.
004200     02 BLANK SCREEN.
004300 
004400 PROCEDURE DIVISION.
004500 
004600* MAIN *
004700 
004800 0000-MAIN.
004900 
005000 OPEN INPUT  INPFIL
005100      OUTPUT OUTFIL.
005200     MOVE 0 TO EOF
005300     PERFORM 0100-CPYFIL UNTIL EOF = 1.
005400     CLOSE INPFIL
005500           OUTFIL.
005600     GO TO 9999-EOJ.
005700 
005800 0100-CPYFIL.
005900 
006000 READ INPFIL AT END MOVE 1 TO EOF.
006100 IF EOF = 0
006200     MOVE I-RECNUM TO O-RECNUM
006300     MOVE I-EMPNAM TO O-EMPNAM
006400     MOVE I-EMPAGE TO O-EMPAGE
006500     WRITE OUTREC.
006600 
006700**************
006800* END OF JOB *
006900**************
007000 
007100 9999-EOJ.
007200 
007300 STOP RUN.