IDENTIFICATION DIVISION
PROGRAM-ID. PROGRAM1.
AUTHOR. JACK KIM.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT INPUT-FILE ASSIGN TO INFILE.
    SELECT PRINT-FILE ASSIGN TO SYSPRINT.

DATA DIVISION.
FILE SECTION.
FD INPUT-FILE
    RECORDING MODE V
01 INPUT-REC          PIC X(129).

FD PRINT-FILE
    RECORDING MODE F
    LABEL RECORDS ARE OMITTED.
01 PRINT-REC         PIC X(129).

WORKING-STORAGE SECTION.

01 HEAD1.
          03          PIC X(29) VALUE SPACES.
          03          PIC X(23) VALUE 'IBM ACADEMIC INITIATIVE'.
01 HEAD2.
          03          PIC X(30) VALUE SPACES.
          03          PIC X(21) VALUE 'INTRODUCTION TO COBOL'.
01 HEAD3.
          03          PIC X(6) VALUE SPACES.
          03          PIC X(3) VALUE 'SSN'.
          03          PIC X(5) VALUE SPACES.
          03          PIC X(7) VALUE 'EMP ID'.
          03          PIC X(6) VALUE SPACES.
          03          PIC X(4) VALUE 'LAST'.
          03          PIC X(10) VALUE SPACES.
          03          PIC X(5) VALUE 'FIRST'.
          03          PIC X(7) VALUE SPACES.
          03          PIC X(5) VALUE 'TITLE'.
          03          PIC X(5) VALUE SPACES.
          03          PIC X(4) VALUE 'TYPE'.
          03          PIC X(5) VALUE SPACES.
          03          PIC X(4) VALUE 'DATE'.
01 DETAIL1.
          03          PIC X(2) VALUE SPACES.
          03 D1-SSN1  PIC 9(3).
          03          PIC X(1) VALUE '-'.
          03 D1-SSN2  PIC 9(2).
          03          PIC X(1) VALUE '-'.
          03 D1-SSN3  PIC 9(4).
          03          PIC X(3) VALUE SPACES.
          03 D1-ID    PIC 9(3).
          03          PIC X(3) VALUE SPACES.         
          03 D1-LAST  PIC X(15).
          03          PIC X(2) VALUE SPACES.
          03 D1-FIRST PIC X(10).
          03          PIC X(2) VALUE SPACES.
          03 D1-TITLE PIC X(12).
          03          PIC X(2) VALUE SPACES.
          03 D1-TYPE  PIC X(2).
          03          PIC X(3) VALUE SPACES.
          03 D1-MON   PIC 9(2).
          03          PIC X(1) VALUE '/'.
          03 D1-DAY   PIC 9(2).
          03          PIC X(1) VALUE '/'.
          03 D1-YEAR  PIC 9(4).
01 INPUT-DATA.
          03 I-ID     PIC 9(3).
          03 I-LAST   PIC X(15).
          03 I-FIRST  PIC X(10).
          03 I-TYPE   PIC 9(2).
          03 I-TITLE  PIC X(12).
          03 I-SSN.
                 05 I-SSN1    PIC 9(3).
                 05 I-SSN2    PIC 9(2).
                 05 I-SSN3    PIC 9(4).
          03          PIC X(19).
          03 I-DATE.
                 05 I-MON     PIC 9(2).
                 05 I-DAY     PIC 9(2).
                 05 I-YEAR    PIC 9(4).
01 MISC-DATA.
          03 EOF-I            PIC X VALUE SPACES.
          
PROCEDURE DIVISION.
 000-MAINLINE.
         OPEN INPUT INPUT-FILE
              OUTPUT PRINT-FILE.
         PERFORM 9000-READ-INPUT.
         PERFORM 5000-PRINT-HEAD.
         PERFORM 1000-LOOP
              UNTIL EOF-I = 1.
         CLOSE INPUT-FILE
               PRINT-FILE.
         STOP RUN.
 1000-LOOP.
         PERFORM 5500-PRINT-NAMES.
         PERFORM 9000-READ-INPUT.
 5000-PRINT-HEAD.
         WRITE PRINT-REC FROM HEAD1.
         WRITE PRINT-REC FROM HEAD2.
         WRITE PRINT-REC FROM HEAD3.
         MOVE SPACES TO PRINT-REC.
         WRITE PRINT-REC
                AFTER ADVANCING 1 LINE.
 5500-PRINT-NAMES.
         MOVE I-ID TO D1-ID.
         MOVE I-LAST TO D1-LAST.
         MOVE I-FIRST TO D1-FIRST.
         MOVE I-TYPE TO D1-TYPE.
         MOVE I-TITLE TO D1-TITLE.
         MOVE I-SSN1 TO D1-SSN1.
         MOVE I-SSN2 TO D1-SSN2.
         MOVE I-SSN3 TO D1-SSN3.
         MOVE I-DAY TO D1-DAY.
         MOVE I-MON TO D1-MON.
         MOVE I-YEAR TO D1-YEAR.
         WRITE PRINT-REC FROM DETAIL1.
 9000-READ-INPUT.
         READ INPUT-FILE INTO INPUT-DATA
                 AT END MOVE 1 TO EOF-I.