IDENTIFICATION DIVISION.
       PROGRAM-ID. PRRPT.
       AUTHOR. JONAS WIK.
       DATE-WRITTEN. 2000/02/06.
       DATE-COMPILED.



       ENVIRONMENT DIVISION.
      *
       CONFIGURATION SECTION.
      *
       INPUT-OUTPUT SECTION.
      *
       FILE-CONTROL.
           SELECT PR-EMPL-LIST ASSIGN TO 'J:PRLIST.TXT'.
      *
       DATA DIVISION.
      *
       FILE SECTION.
      *
      *
       FD  PR-EMPL-LIST
           LABEL RECORDS ARE OMITTED
           RECORDING MODE IS F
           RECORD CONTAINS 118 CHARACTERS.
      *
       01  PR-EMPL-LIST-REC        PIC X(118).
      *
       WORKING-STORAGE SECTION.
      *
       01  PR-EMPL-LIST-HEADER1.
           05                      PIC X(44) VALUE SPACES.
           05                      PIC X(29)
                       VALUE 'P A Y R O L L   R E C O R D S'.
           05                      PIC X(45) VALUE SPACES.
      *
       01  PR-EMPL-LIST-HEADER2.
           05                      PIC X(40) VALUE SPACES.
           05                      PIC X(37)
                       VALUE 'INTERNATIONAL CHERRY MACHINE COMPANY.'.
           05                      PIC X(41) VALUE SPACES.
      *
       01  PR-EMPL-LIST-HEADER3.
           05                      PIC X     VALUE SPACE.
           05                      PIC X(21)
                       VALUE 'PROGRAMMER: JONAS WIK'.
           05                      PIC X(96) VALUE SPACES.
      *
       01  PR-EMPL-LIST-HEADER4.
           05                      PIC X     VALUE SPACE.
           05                      PIC X(8)  VALUE 'EMPLOYEE'.
           05                      PIC X(5)  VALUE SPACES.
           05                      PIC X(13)  VALUE 'EMPLOYEE NAME'.
           05                      PIC X(5)  VALUE SPACES.
           05                      PIC X(13) VALUE 'LOCATION CODE'.
           05                      PIC X(3)  VALUE SPACES.
           05                      PIC X(13) VALUE 'LOCATION CODE'.
           05                      PIC X(3)  VALUE SPACES.
           05                      PIC X(6)  VALUE 'ANNUAL'.
           05                      PIC X(6)  VALUE SPACES.
           05                      PIC X(6)  VALUE 'SOCIAL'.
           05                      PIC X(7)  VALUE SPACES.
           05                      PIC X(6)  VALUE 'NO. OF'.
           05                      PIC X(5)  VALUE SPACES.
           05                      PIC X(18) VALUE 'JOB CLASSIFICATION'.
      *
       01  PR-EMPL-LIST-HEADER5.
           05                      PIC X(3)  VALUE SPACES.
           05                      PIC X(3)  VALUE 'NO.'.
           05                      PIC X(26) VALUE SPACES.
           05                      PIC X(13) VALUE 'TERRITORY NO.'.
           05                      PIC X(4)  VALUE SPACES.
           05                      PIC X(10) VALUE 'OFFICE NO.'.
           05                      PIC X(5)  VALUE SPACES.
           05                      PIC X(6)  VALUE 'SALARY'.
           05                      PIC X(3)  VALUE SPACES.
           05                      PIC X(12) VALUE 'SECURITY NO.'.
           05                      PIC X(2)  VALUE SPACES.
           05                      PIC X(10) VALUE 'DEPENDENTS'.
           05                      PIC X(10) VALUE SPACES.
           05                      PIC X(4)  VALUE 'CODE'.
           05                      PIC X(7)  VALUE SPACES.
      *
       PROCEDURE DIVISION.
      *****************************************************************
      *                                                               *
      *  This is the main module of the program which executes all    *
      *  paragraphs of the program.                                   *
      *                                                               *
      *****************************************************************

       100-MAIN.
      *
           OPEN OUTPUT PR-EMPL-LIST.
           PERFORM 800-WRITE-HEADERS THRU 800-EXIT.
           STOP RUN.

       800-WRITE-HEADERS.
      *
           MOVE SPACES TO PR-EMPL-LIST-REC
           WRITE PR-EMPL-LIST-REC
                 AFTER ADVANCING PAGE.
           WRITE PR-EMPL-LIST-REC FROM PR-EMPL-LIST-HEADER1
                 AFTER ADVANCING 1 LINE.
           WRITE PR-EMPL-LIST-REC FROM PR-EMPL-LIST-HEADER2
                 AFTER ADVANCING 1 LINE.
           WRITE PR-EMPL-LIST-REC FROM PR-EMPL-LIST-HEADER3
                 AFTER ADVANCING 1 LINE.
           WRITE PR-EMPL-LIST-REC FROM PR-EMPL-LIST-HEADER4
                 AFTER ADVANCING 2 LINES.
           WRITE PR-EMPL-LIST-REC FROM PR-EMPL-LIST-HEADER5
                 AFTER ADVANCING 1 LINE.
           MOVE SPACES TO PR-EMPL-LIST-REC
           WRITE PR-EMPL-LIST-REC
                 AFTER ADVANCING 1 LINE.
      *
       800-EXIT.
           EXIT.