move-7

move-7

IDENTIFICATION DIVISION.
PROGRAM-ID.  MoveCorresponding.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  OLD-RECORD.
    05 EMPLOYEE-NAME      PIC X(25).
    05 EMPLOYEE-ADDRESS   PIC X(30).
    05 EMPLOYEE-CITY      PIC X(20).
    05 EMPLOYEE-STATE     PIC XX.
    05 EMPLOYEE-ZIP       PIC X(10).
    05 DEPT-NO            PIC X(4).
    05 EMPLOYEE-NO        PIC X(5).
    05 EMPLOYEE-HIRE-DATE  PIC 9(8).
    05 EMPLOYEE-BIRTH-DATE PIC 9(8).
01  NEW-RECORD.
    05 DEPT-NO            PIC X(4).
    05 EMPLOYEE-NO        PIC X(5).
    05 EMPLOYEE-HIRE-DATE  PIC 9(8).
    05 EMPLOYEE-BIRTH-DATE PIC 9(8).
    05 EMPLOYEE-NAME      PIC X(25).
    05 EMPLOYEE-ADDRESS   PIC X(30).
    05 EMPLOYEE-CITY      PIC X(20).
    05 EMPLOYEE-STATE     PIC XX.
    05 EMPLOYEE-ZIP       PIC X(10).
   
PROCEDURE DIVISION.
START-ROUTINE.
    MOVE CORRESPONDING OLD-RECORD TO NEW-RECORD.
    STOP RUN.