IDENTIFICATION DIVISION.
       PROGRAM-ID. YOURSRCH.
       AUTHOR. GROCER
      *This program currently does not print out the job title on the
      *printline.  You need to fix this program which includes fixing
      *the table and doing whatever is necessary in the procedure
      *division to find the appropriate title and print it on the line.
      *Notice that there are a couple of invalid codes - some kind of
      *invalid message should be printed on the line.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE ASSIGN TO "C:\PCOBWIN\CIS12FST\INS.DAT".
           SELECT PRINT-FILE ASSIGN TO PRINTER.
       DATA DIVISION.
       FILE SECTION.
       FD INPUT-FILE
          DATA RECORD IS INPUT-REC.
       01  INPUT-REC.
           05  IDNO         PIC X(5).
           05  NAM          PIC X(20).
           05  JOB-CODE     PIC 99.
       FD  PRINT-FILE
           DATA RECORD IS PRINTZ.
       01  PRINTZ.
           05  FILLER       PIC X.
           05  IDNO-PR      PIC X(5).
           05  FILLER       PIC X(5).
           05  NAM-PR       PIC X(20).
           05  FILLER       PIC X(5).
           05  JOB-CODE-PR  PIC 99.
           05  FILLER       PIC X(5).
           05  JOB-TITLE-PR PIC X(17).
           05  FILLER       PIC X(20).
       WORKING-STORAGE SECTION.
       01  INDICATORS.
           05  MORE-RECS    PIC XXX       VALUE "YES".
           05  MATCH-IND    PIC XXX       VALUE "NO ".
       01  SUBSCRIPTS.
           05  SUBZ         PIC 99        VALUE 0.
       01  JOB-TITLE-TABLE.
           05  FILLER       PIC X(19)     VALUE "11CLERK            ".
           05  FILLER       PIC X(19)     VALUE "12PROGRAMMER       ".
           05  FILLER       PIC X(19)     VALUE "22COMPUTER OPERATOR".
           05  FILLER       PIC X(19)     VALUE "23SYSTEMS ANALYST  ".
           05  FILLER       PIC X(19)     VALUE "24NETWORK ADMIN    ".
           05  FILLER       PIC X(19)     VALUE "33WEB MASTER       ".
           05  FILLER       PIC X(19)     VALUE "34CIS MANAGER      ".
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM A-100-INITIALIZE.
           PERFORM B-100-PROCESS.
           PERFORM C-100-WRAPUP.
           STOP RUN.
       A-100-INITIALIZE.
           OPEN INPUT INPUT-FILE
                OUTPUT PRINT-FILE.
       B-100-PROCESS.
           READ INPUT-FILE
              AT END
                 MOVE "NO " TO MORE-RECS.
           PERFORM B-200-LOOP
              UNTIL MORE-RECS = "NO ".
       B-200-LOOP.
           MOVE SPACES TO PRINTZ.
           MOVE IDNO TO IDNO-PR.
           MOVE NAM TO NAM-PR.
           MOVE JOB-CODE TO JOB-CODE-PR.
           WRITE PRINTZ
              AFTER ADVANCING 1 LINES.
           READ INPUT-FILE
              AT END
                 MOVE "NO " TO MORE-RECS.
       C-100-WRAPUP.
           CLOSE INPUT-FILE
                 PRINT-FILE.