ID DIVISION.
PROGRAM-ID. FODD1.
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'.
01 CNT PIC 9(1) VALUE 0.
PROCEDURE DIVISION.
OPEN INPUT INFILE
OPEN OUTPUT OUTFILE
PERFORM UNTIL EOF ='Y'
READ INFILE
AT END
MOVE 'Y' TO EOF
NOT AT END
ADD+1 TO CNT
IF CNT=3
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
ELSE IF CNT=4
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
MOVE 0 TO CNT
END-IF
END-IF
END-READ
END-PERFORM.
CLOSE INFILE
CLOSE OUTFILE
STOP RUN.
PROGRAM-ID. FODD1.
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'.
01 CNT PIC 9(1) VALUE 0.
PROCEDURE DIVISION.
OPEN INPUT INFILE
OPEN OUTPUT OUTFILE
PERFORM UNTIL EOF ='Y'
READ INFILE
AT END
MOVE 'Y' TO EOF
NOT AT END
ADD+1 TO CNT
IF CNT=3
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
ELSE IF CNT=4
MOVE IN-REC TO OUT-REC
WRITE OUT-REC
MOVE 0 TO CNT
END-IF
END-IF
END-READ
END-PERFORM.
CLOSE INFILE
CLOSE OUTFILE
STOP RUN.
No comments:
Post a Comment