IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE.
      ********************************************
      *  SAMPLE  - UPDATES A FILE WITH EMPLOYEE  *
      *             NAMES AND SALARIES           *
      ********************************************
      *  This program has no date procedures so it is Y2K compliant **
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. VAX-6410.
       OBJECT-COMPUTER. VAX-6410.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-EMPLOYEE-FILE ASSIGN TO 'DATA4E'.
           SELECT OUT-SALARY-FILE  ASSIGN TO 'DATA4S'.
      *
       DATA DIVISION.
       FILE SECTION.
       FD  IN-EMPLOYEE-FILE
           LABEL RECORDS ARE STANDARD.
       01  IN-EMPLOYEE-REC.
           05  IN-EMPLOYEE-NAME          PIC X(20).
           05  IN-SALARY                 PIC X(5).
           05  IN-NO-OF-DEPENDENTS       PIC X(1).
           05  IN-FICA                   PIC X(5).
           05  IN-STATE-TAX              PIC X(6).
           05  IN-FED-TAX                PIC X(6).
           05                            PIC X(37).
       FD  OUT-SALARY-FILE
           LABEL RECORDS ARE STANDARD.
       01  OUT-SALARY-REC.
           05  OUT-EMPLOYEE-NAME         PIC X(20).
           05  OUT-SALARY                PIC X(5).
       WORKING-STORAGE SECTION.
       01  WS-WORK-AREAS.
           05  ARE-THERE-MORE-RECORDS    PIC X(3)  VALUE 'YES'.
      *
       PROCEDURE DIVISION.
      **********************************************************
      *  100-MAIN-MODULE - CONTROLS OPENING AND CLOSING FILES  *
      *                    AND DIRECTION OF PROGRAM LOGIC;     *
      *                    RETURNS CONTROL TO OPERATING SYSTEM *
      **********************************************************
       100-MAIN-MODULE.
           OPEN INPUT  IN-EMPLOYEE-FILE
                OUTPUT OUT-SALARY-FILE
           MOVE SPACES TO OUT-SALARY-REC
           PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO '
               READ IN-EMPLOYEE-FILE
                   AT END
                      MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
                   NOT AT END
                      PERFORM 200-PROCESS-RTN
               END-READ
           END-PERFORM
           CLOSE IN-EMPLOYEE-FILE
                 OUT-SALARY-FILE
           STOP RUN.
      ***********************************************************
      *  200-PROCESS-RTN - PERFORMED FROM 100-MAIN-MODULE       *
      *                    MOVES EMPLOYEE INFORMATION TO OUTPUT *
      *                    AREAS, THEN WRITES THE RECORD        *
      ***********************************************************
       200-PROCESS-RTN.
           MOVE IN-EMPLOYEE-NAME TO OUT-EMPLOYEE-NAME
           MOVE IN-SALARY TO OUT-SALARY
           WRITE OUT-SALARY-REC.