ID DIVISION.
PROGRAM-ID. CRIO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
SELECT OUTFILE ASSIGN TO DD2.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 IN-REC PIC X(80).
FD OUTFILE.
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
01 EOF PIC X(10) VALUE 'N'.
PROCEDURE DIVISION.
OPEN INPUT INFILE
OPEN OUTPUT OUTFILE
PERFORM UNTIL EOF ='Y'
READ INFILE
AT END
MOVE 'Y' TO EOF
NOT AT END
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
END-READ
END-PERFORM.
CLOSE INFILE
CLOSE OUTFILE
STOP RUN.
PROGRAM-ID. CRIO.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
SELECT OUTFILE ASSIGN TO DD2.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 IN-REC PIC X(80).
FD OUTFILE.
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
01 EOF PIC X(10) VALUE 'N'.
PROCEDURE DIVISION.
OPEN INPUT INFILE
OPEN OUTPUT OUTFILE
PERFORM UNTIL EOF ='Y'
READ INFILE
AT END
MOVE 'Y' TO EOF
NOT AT END
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
END-READ
END-PERFORM.
CLOSE INFILE
CLOSE OUTFILE
STOP RUN.
No comments:
Post a Comment