move-5

move-5

IDENTIFICATION DIVISION.
PROGRAM-ID.  ClearRecord.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
        SELECT INPUT-FILE
        ASSIGN TO DISC
        ORGANIZATION IS LINE SEQUENTIAL
        ACCESS MODE IS SEQUENTIAL.
            
        SELECT OUTPUT-FILE
        ASSIGN TO DISC
        ORGANIZATION IS LINE SEQUENTIAL
        ACCESS MODE IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD  INPUT-FILE           RECORD CONTAINS 50 CHARACTERS.
01  INPUT-RECORD         PIC X(50).
        
FD  OUTPUT-FILE          RECORD CONTAINS 50 CHARACTERS.
01  OUTPUT-RECORD        PIC X(50).
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
START-ROUTINE.
    OPEN INPUT INPUT-FILE.
    OUTPUT OUTPUT OUTPUT-FILE.
READ-ROUTINE.
    MOVE SPACES TO INPUT-RECORD.
    READ INPUT-FILE AT END GO TO END-ROUTINE.
    MOVE SPACES TO OUTPUT-RECORD.
    MOVE INPUT-RECORD TO OUTPUT-RECORD.
    WRITE OUTPUT-RECORD.
    GO TO READ-ROUTINE.
END-ROUTINE.
    CLOSE INPUT-FILE.
    CLOSE OUTPUT-FILE.
    STOP RUN.