00001  IDENTIFICATION DIVISION.                                         02/12/04
00002  PROGRAM-ID.  SAMPS031.                                           SAMPS031
00003  AUTHOR. JOHN VIENNAS.                                               LV001
00004  DATE-WRITTEN. NOVEMBER, 1992.                                    SAMPS031
00005                                                                   SAMPS031
00006 ***************************************************************   SAMPS031
00007 ** --------------------PROGRAM DESCRIPTION------------------ **   SAMPS031
00008 ***************************************************************   SAMPS031
00009 **                     CODING FOR VS COBOL VSAM              **   SAMPS031
00010 ***************************************************************   SAMPS031
00011 **                                                           **   SAMPS031
00012 **                                                           **   SAMPS031
00013 ** THIS PROGRAM READS THREE FILES AS INPUT TO THE PROGRAM,   **   SAMPS031
00014 ** TRANS-FILE, CNTRL-DATA, AND SELECT-FILE.  THE TRANS-FILE  **   SAMPS031
00015 ** UTILIZES A VSAM FILE STRUCTURE WITH (SEQ-NMBR) AS THE     **   SAMPS031
00016 ** RECORD KEY.  THE CNTRL-DATA FILE CONTAINS SOME PROCESSING **   SAMPS031
00017 ** INFORMATION WHICH IS USED IN THE OUTPUT REPORTS           **   SAMPS031
00018 ** HIT-FILE, HIT-LIST, AND CHECK-LIST.  THE SELECT-FILE      **   SAMPS031
00019 ** CONTAINS THE RECORD NUMBERS OF THE RECORDS TO BE SELECTED **   SAMPS031
00020 ** FOR THE SAMPLE.  THESE NUMBERS ARE USED AS THE RECORD     **   SAMPS031
00021 ** KEY (SEQ-NMBR) TO ACCESS THE TRANS-FILE.  THE RECORDS     **   SAMPS031
00022 ** THAT ARE READ FROM THE TRANS-FILE ARE OUTPUT TO THE THREE **   SAMPS031
00023 ** FILES, HIT-FILE, HIT-LIST, AND CHECK-LIST.  EACH RECORD   **   SAMPS031
00024 ** THAT IS READ IS ALSO UPDATED TO INDICATE THAT THE RECORD  **   SAMPS031
00025 ** WAS SELECTED AS PART OF THE SAMPLE.  THIS IS DONE BY      **   SAMPS031
00026 ** CHANGING THE SELECTED-FLAG FIELD FROM A '1' TO A '2'.     **   SAMPS031
00027 **                                                           **   SAMPS031
00028 ***************************************************************   SAMPS031
00029                                                                   SAMPS031
00030  ENVIRONMENT DIVISION.                                            SAMPS031
00031  CONFIGURATION SECTION.                                           SAMPS031
00032  INPUT-OUTPUT SECTION.                                            SAMPS031
00033  FILE-CONTROL.                                                    SAMPS031
00034      SELECT TRANS-FILE                                            SAMPS031
00035          ASSIGN TO SYS003-DISKUNIT                                SAMPS031
00036          ORGANIZATION IS INDEXED                                  SAMPS031
00037          ACCESS MODE IS RANDOM                                    SAMPS031
00038          RECORD KEY IS SEQ-NMBR                                   SAMPS031
00039          FILE STATUS IS TRANS-FILE-ERROR-CODE.                    SAMPS031
00040      SELECT CNTRL-DATA                                            SAMPS031
00041          ASSIGN TO UT-S-CNTRLDTA.                                 SAMPS031
00042      SELECT SELECT-FILE                                           SAMPS031
00043          ASSIGN TO UT-S-SLCTREC.                                  SAMPS031
00044      SELECT HIT-FILE                                              SAMPS031
00045          ASSIGN TO UT-S-HITFILE.                                  SAMPS031
00046      SELECT HIT-LIST                                              SAMPS031
00047          ASSIGN TO UT-S-PRINTER.                                  SAMPS031
00048      SELECT CHECK-LIST                                            SAMPS031
00049          ASSIGN TO UT-S-CHECK.                                    SAMPS031
00050      SELECT JOB-STATUS                                            SAMPS031
00051          ASSIGN TO UT-S-MSGOUT.                                   SAMPS031
00052                                                                   SAMPS031
00053  DATA DIVISION.                                                   SAMPS031
00054  FILE SECTION.                                                    SAMPS031
00055                                                                   SAMPS031
00056 ***************************************************************   SAMPS031
00057 ** TRANS-FILE IS THE VSAM FILE CREATED BY THE STATE          **   SAMPS031
00058 ** EMPLOYMENT SECURITY AGENCIES (SESA) WITH THE RECORDS THAT **   SAMPS031
00059 ** MAKE UP THE SAMPLING UNIVERSE.  THE KEY OF THE FILE IS    **   SAMPS031
00060 ** (SEQ-NMBR).  THIS FIELD CONTAINS THE SEQUENTIAL RECORD    **   SAMPS031
00061 ** NUMBER.                                                   **   SAMPS031
00062 ***************************************************************   SAMPS031
00063  FD  TRANS-FILE                                                   SAMPS031
00064      LABEL RECORDS ARE STANDARD                                   SAMPS031
00065      BLOCK CONTAINS 0 RECORDS.                                    SAMPS031
00066  01  TRANS-REC.                                                   SAMPS031
00067      05  SEQ-NMBR                           PIC 9(8).             SAMPS031
00068      05  REC-TYPE                           PIC X(5).             SAMPS031
00069      05  TRANS-TYPE                         PIC X.                SAMPS031
00070      05  SELECT-FLAG                        PIC X.                SAMPS031
00071      05  EMP-ID                             PIC X(12).            SAMPS031
00072      05  DATE-COMPLETED                     PIC X(8).             SAMPS031
00073      05  STATE-OPTION                       PIC X(25).            SAMPS031
00074                                                                   SAMPS031
00075 ***************************************************************   SAMPS031
00076 ** CNTRL-DATA CONTAINS SOME OF THE PROCESSING INFORMATION    **   SAMPS031
00077 ** NEEDED FOR SAMPLING.  IT CONTAINS THE RANDOM NUMBER       **   SAMPS031
00078 ** (CNTRL-RANDOM), THE NUMBER OF RECORDS TO BE SELECTED FOR  **   SAMPS031
00079 ** THE SAMPLE (SAMPLED-NMBR), AND THE RECORD COUNT OF THE    **   SAMPS031
00080 ** NUMBER OF RECORDS (TRANS-REC-CNTR) CONTAINED ON THE       **   SAMPS031
00081 ** TRANS-FILE.  FOR THE PURPOSE OF THIS PROGRAM, ONLY        **   SAMPS031
00082 ** THE SESA-ID, SAMPLE-TYPE, AND SAMPLED-NMBR FIELDS ARE     **   SAMPS031
00083 ** NEEDED.                                                   **   SAMPS031
00084 ***************************************************************   SAMPS031
00085                                                                   SAMPS031
00086  FD  CNTRL-DATA                                                   SAMPS031
00087      RECORDING MODE IS F                                          SAMPS031
00088      LABEL RECORD IS OMITTED                                      SAMPS031
00089      BLOCK CONTAINS 1 RECORDS.                                    SAMPS031
00090  01  CNTRL-DATA-REC.                                              SAMPS031
00091      05  CNTRL-TYPE                         PIC X(5).             SAMPS031
00092      05  CNTRL-TRANS-TYPE                   PIC X.                SAMPS031
00093      05  SESA-ID                            PIC XX.               SAMPS031
00094      05  CNTRL-RANDOM                       PIC V999.             SAMPS031
00095      05  CNTRL-RANDOM-ALF REDEFINES CNTRL-RANDOM  PIC X(3).       SAMPS031
00096      05  SAMPLED-NMBR                       PIC 9(4).             SAMPS031
00097      05  SAMPLED-NMBR-ALF REDEFINES SAMPLED-NMBR  PIC X(4).       SAMPS031
00098      05  TRANS-REC-CNTR                     PIC 9(8).             SAMPS031
00099      05  TRANS-REC-CNTR-ALF REDEFINES TRANS-REC-CNTR PIC X(8).    SAMPS031
00100      05  SAMPLE-TYPE                        PIC X(02).            SAMPS031
00101      05  CNTRL-YEAR-SELECTED                PIC X(04).            SAMPS031
00102      05  DATE-FILLER                        PIC 9(04).            SAMPS031
00103                                                                   SAMPS031
00104 ***************************************************************   SAMPS031
00105 ** HIT-LIST CONTAINS THE PRINTED REPORT OF THE RECORDS       **   SAMPS031
00106 ** SELECTED FOR SAMPLING.                                    **   SAMPS031
00107 ***************************************************************   SAMPS031
00108                                                                   SAMPS031
00109  FD  HIT-LIST                                                     SAMPS031
00110      LABEL RECORD IS STANDARD.                                    SAMPS031
00111  01  PRINT-HIT-REC            PIC X(132).                         SAMPS031
00112                                                                   SAMPS031
00113 *************************************************************     SAMPS031
00114 ***                                                       ***     SAMPS031
00115 ** THE CHECK-LIST CONTAINS THE INFORMATION NECCESSARY      **     SAMPS031
00116 ** TO CARRY OUT THE REVENUE QUALITY CONTROL (RQC) FIELD    **     SAMPS031
00117 ** AUDIT SAMPLING TASK.  THIS CHECK LIST IS A DUPLICATE    **     SAMPS031
00118 ** OF THE FIELD AUDIT CODING SHEET IN THE RQC HANDBOOK.    **     SAMPS031
00119 ***                                                       ***     SAMPS031
00120 *************************************************************     SAMPS031
00121  FD  CHECK-LIST                                                   SAMPS031
00122      LABEL RECORD IS STANDARD.                                    SAMPS031
00123  01  CHECK-LIST-REC           PIC X(132).                         SAMPS031
00124                                                                   SAMPS031
00125 ***************************************************************   SAMPS031
00126 ** (HIT-FILE) IS THE DATA FILE FOR STORING THE RECORDS THAT  **   SAMPS031
00127 ** HAVE BEEN SELECTED FROM THE (TRANS-FILE) FOR THE SAMPLE.  **   SAMPS031
00128 ** THESE RECORDS ARE WRITTEN TO A DISK FILE WITH DELIMITERS  **   SAMPS031
00129 ** OF '|' BETWEEN EACH FIELD OF THE RECORD.  THIS FILE       **   SAMPS031
00130 ** (HIT-FILE), WILL BE PASSED TO THE INFORMIX SIDE OF THE    **   SAMPS031
00131 ** RQC SYSTEM FOR FURTHER PROCESSING.                        **   SAMPS031
00132 ***************************************************************   SAMPS031
00133                                                                   SAMPS031
00134  FD  HIT-FILE                                                     SAMPS031
00135      LABEL RECORDS ARE STANDARD.                                  SAMPS031
00136  01  TRANS-HIT-REC                PIC X(41).                      SAMPS031
00137                                                                   SAMPS031
00138 *********************************************************         SAMPS031
00139 ***                                                   ***         SAMPS031
00140 ** THE SELECT-FILE IS THE INPUT FILE THAT CONTAINS THE **         SAMPS031
00141 ** RECORD NUMBERS CREATED IN THE SAMPLE DETERMINATION  **         SAMPS031
00142 ** PROGRAM (PICKNMBR).  THESE NUMBERS ARE USED AS THE  **         SAMPS031
00143 ** RECORD KEY TO SELECT THE RECORDS FROM THE VSAM      **         SAMPS031
00144 ** FILE (TRANS-FILE) FOR SAMPLING.                     **         SAMPS031
00145 ***                                                   ***         SAMPS031
00146 *********************************************************         SAMPS031
00147  FD  SELECT-FILE                                                  SAMPS031
00148      LABEL RECORD IS OMITTED                                      SAMPS031
00149      BLOCK CONTAINS 0 RECORDS.                                    SAMPS031
00150  01  SL-REC-NUM                   PIC 9(08).                      SAMPS031
00151                                                                   SAMPS031
00152 **********************************************                    SAMPS031
00153 ***                                        ***                    SAMPS031
00154 ** THE JOB-STATUS FILE IS A SEPERATE FILE   **                    SAMPS031
00155 ** CREATED TO OUTPUT THE END OF JOB MESSAGES**                    SAMPS031
00156 ** SAMPS031 - NORMAL END OF JOB, AND        **                    SAMPS031
00157 ** SAMPS031 - JOB TERMINATED.               **                    SAMPS031
00158 ***                                        ***                    SAMPS031
00159 **********************************************                    SAMPS031
00160  FD  JOB-STATUS                                                   SAMPS031
00161      LABEL RECORD IS STANDARD.                                    SAMPS031
00162  01  MESSAGE-RECORD           PIC X(132).                         SAMPS031
00163                                                                   SAMPS031
00164  WORKING-STORAGE SECTION.                                         SAMPS031
001645 77  PAN-VALET PICTURE X(24) VALUE '001SAMPS031  02/12/04'.       SAMPS031
00165                                                                   SAMPS031
00166  01  WS-WORK-AREA.                                                SAMPS031
00167      05  MATCH-CNTR              PIC 9(08) VALUE 0.               SAMPS031
00168      05  WS-SELECT-EOF           PIC X(01) VALUE 'N'.             SAMPS031
00169      05  CNTRL-FLAG              PIC X(01) VALUE 'N'.             SAMPS031
00170      05  SELECTED-FLAG           PIC 9(01) VALUE 2.               SAMPS031
00171      05  LIST-COUNTER            PIC 9(02) VALUE 0.               SAMPS031
00172      05  LIST-PAGE               PIC 9(06) VALUE 0.               SAMPS031
00173                                                                   SAMPS031
00174      05  WS-DATE             PIC 9(06) VALUE ZEROES.              SAMPS031
00175      05  WS-DATE-R REDEFINES WS-DATE.                             SAMPS031
00176          10  WS-YY               PIC 9(02).                       SAMPS031
00177          10  WS-MM               PIC 9(02).                       SAMPS031
00178          10  WS-DD               PIC 9(02).                       SAMPS031
00179                                                                   SAMPS031
00180      05  WRK-DATE-AREA.                                           SAMPS031
00181          10  WRK-MM              PIC X(02).                       SAMPS031
00182          10  FILLER              PIC X(01) VALUE '/'.             SAMPS031
00183          10  WRK-DD              PIC X(02).                       SAMPS031
00184          10  FILLER              PIC X(01) VALUE '/'.             SAMPS031
00185          10  WRK-YY              PIC X(02).                       SAMPS031
00186 ***************************************************               SAMPS031
00187 ***                                             ***               SAMPS031
00188 ** TRANS-FILE-ERROR-CODE:                        **               SAMPS031
00189 ** FILE STATUS FIELD WHICH STORES THE VALUE OF   **               SAMPS031
00190 ** AN ERROR CODE IF AN ERROR IS ENCOUNTERED      **               SAMPS031
00191 ** DURING A READ OR WRITE TO THE VSAM            **               SAMPS031
00192 ** (TRANS-FILE) FILE.                            **               SAMPS031
00193 ***                                             ***               SAMPS031
00194 ***************************************************               SAMPS031
00195  01  TRANS-FILE-ERROR-CODE      PIC X(02).                        SAMPS031
00196                                                                   SAMPS031
00197  01  WS-REPORT-CONTROLS.                                          SAMPS031
00198      05  WS-CHECKLIST-CNTR       PIC 9(02) VALUE 0.               SAMPS031
00199      05  WS-PAGE-CNTR            PIC 9(04) VALUE 0.               SAMPS031
00200                                                                   SAMPS031
00201  01  WS-HEADER-SWITCH-AREA.                                       SAMPS031
00202      05  WS-CHECKLIST-SWITCH     PIC X(01) VALUE '0'.             SAMPS031
00203      05  WS-HIT-LIST-SWITCH      PIC X(01) VALUE '0'.             SAMPS031
00204                                                                   SAMPS031
00205  01  WS-CHECKLIST-HOLD-AREA.                                      SAMPS031
00206                                                                   SAMPS031
00207      05  WS-EMPL-HOLD-AREA       PIC X(12).                       SAMPS031
00208      05  WS-CASE-HOLD-AREA       PIC 9(08).                       SAMPS031
00209      05  WS-PERIOD-AREA          PIC X(04).                       SAMPS031
00210      05  WS-SESA-NAME-AREA       PIC X(20).                       SAMPS031
00211      05  WS-SAMPLE-NAME-AREA     PIC X(24).                       SAMPS031
00212                                                                   SAMPS031
00213 ***************************************************************   SAMPS031
00214 ** (WS-MATCH-RECORD) STORES THE VALUE OF THE SELECTED RECORDS**   SAMPS031
00215 ** FROM THE VSAM FILE (TRANS-FILE).                          **   SAMPS031
00216 ***************************************************************   SAMPS031
00217                                                                   SAMPS031
00218  01  WS-MATCH-RECORD.                                             SAMPS031
00219      05  MATCH-SEQ-NMBR                     PIC 9(8).             SAMPS031
00220      05  MATCH-REC-TYPE                     PIC X(5).             SAMPS031
00221      05  MATCH-TRANS-TYPE                   PIC X(01).            SAMPS031
00222      05  MATCH-SELECT-FLAG                  PIC X(01).            SAMPS031
00223      05  MATCH-EMP-ID                       PIC X(12).            SAMPS031
00224      05  MATCH-DATE-COMPLETED               PIC X(8).             SAMPS031
00225      05  MATCH-STATE-OPTION                 PIC X(25).            SAMPS031
00226                                                                   SAMPS031
00227  01  WS-SAMPLE-TABLE-CONTROLS.                                    SAMPS031
00228      05  WS-ENTRY-FOUND-SWITCH     PIC X(03).                     SAMPS031
00229          88  WS-SAMPLE-FOUND               VALUE 'YES'.           SAMPS031
00230          88  WS-END-OF-SAMPLE-TABLE        VALUE 'END'.           SAMPS031
00231                                                                   SAMPS031
00232 *********************************************                     SAMPS031
00233 ***                                       ***                     SAMPS031
00234 ** WS-SAMPLE-DATA.                         **                     SAMPS031
00235 ** CONTAINS THE RQC - SAMPLE TYPES;        **                     SAMPS031
00236 ** A 2 CHARACTER CODE AND A 24 CHARACTER   **                     SAMPS031
00237 ** DEFINITION.                             **                     SAMPS031
00238 ***                                       ***                     SAMPS031
00239 *********************************************                     SAMPS031
00240                                                                   SAMPS031
00241  01  WS-SAMPLE-DATA.                                              SAMPS031
00242      05  FILLER       PIC X(26)                                   SAMPS031
00243         VALUE 'A11ST ACCEPTANCE SAMPLE   '.                       SAMPS031
00244      05  FILLER       PIC X(26)                                   SAMPS031
00245         VALUE 'A22ND ACCEPTANCE SAMPLE   '.                       SAMPS031
00246      05  FILLER       PIC X(26)                                   SAMPS031
00247         VALUE 'E1EXPANDED SAMPLE         '.                       SAMPS031
00248      05  FILLER       PIC X(26)                                   SAMPS031
00249         VALUE 'O11ST SESA OPTIONAL SAMPLE'.                       SAMPS031
00250      05  FILLER       PIC X(26)                                   SAMPS031
00251         VALUE 'O22ND SESA OPTIONAL SAMPLE'.                       SAMPS031
00252  01  WS-SAMPLE-TABLE REDEFINES WS-SAMPLE-DATA.                    SAMPS031
00253      05  WS-SAMPLE-ENTRY             OCCURS 5 TIMES               SAMPS031
00254                                      INDEXED BY WS-INDEX.         SAMPS031
00255          10  WS-SAMPLE-ID                PIC X(02).               SAMPS031
00256          10  WS-SAMPLE-DESCRIPTION       PIC X(24).               SAMPS031
00257                                                                   SAMPS031
00258  01  ST-TABLE-CONTROLS.                                           SAMPS031
00259      05  ST-ENTRY-FOUND-SWITCH     PIC X(03).                     SAMPS031
00260          88  ST-ENTRY-FOUND                VALUE 'YES'.           SAMPS031
00261          88  ST-END-OF-TABLE               VALUE 'END'.           SAMPS031
00262                                                                   SAMPS031
00263 **************************************************                SAMPS031
00264 ***                                            ***                SAMPS031
00265 ** ST-STATE-DATA:                               **                SAMPS031
00266 ** CONTAINS THE FIPS CODE AND STATE NAME.       **                SAMPS031
00267 ***                                            ***                SAMPS031
00268 **************************************************                SAMPS031
00269  01  ST-STATE-DATA.                                               SAMPS031
00270      05  FILLER  PIC X(22) VALUE 'AKALASKA              '.        SAMPS031
00271      05  FILLER  PIC X(22) VALUE 'ALALABAMA             '.        SAMPS031
00272      05  FILLER  PIC X(22) VALUE 'ARARKANSAS            '.        SAMPS031
00273      05  FILLER  PIC X(22) VALUE 'AZARIZONA             '.        SAMPS031
00274      05  FILLER  PIC X(22) VALUE 'CACALIFORNIA          '.        SAMPS031
00275      05  FILLER  PIC X(22) VALUE 'COCOLORADO            '.        SAMPS031
00276      05  FILLER  PIC X(22) VALUE 'CTCONNECTICUT         '.        SAMPS031
00277      05  FILLER  PIC X(22) VALUE 'DCDISTRICT OF COLUMBIA'.        SAMPS031
00278      05  FILLER  PIC X(22) VALUE 'DEDELAWARE            '.        SAMPS031
00279      05  FILLER  PIC X(22) VALUE 'FLFLORIDA             '.        SAMPS031
00280      05  FILLER  PIC X(22) VALUE 'GAGEORGIA             '.        SAMPS031
00281      05  FILLER  PIC X(22) VALUE 'HIHAWAII              '.        SAMPS031
00282      05  FILLER  PIC X(22) VALUE 'IAIOWA                '.        SAMPS031
00283      05  FILLER  PIC X(22) VALUE 'IDIDAHO               '.        SAMPS031
00284      05  FILLER  PIC X(22) VALUE 'ILILLINOIS            '.        SAMPS031
00285      05  FILLER  PIC X(22) VALUE 'ININDIANA             '.        SAMPS031
00286      05  FILLER  PIC X(22) VALUE 'KSKANSAS              '.        SAMPS031
00287      05  FILLER  PIC X(22) VALUE 'KYKENTUCKY            '.        SAMPS031
00288      05  FILLER  PIC X(22) VALUE 'LALOUISIANA           '.        SAMPS031
00289      05  FILLER  PIC X(22) VALUE 'MAMASSACHUSETTS       '.        SAMPS031
00290      05  FILLER  PIC X(22) VALUE 'MDMARYLAND            '.        SAMPS031
00291      05  FILLER  PIC X(22) VALUE 'MEMAINE               '.        SAMPS031
00292      05  FILLER  PIC X(22) VALUE 'MIMICHIGAN            '.        SAMPS031
00293      05  FILLER  PIC X(22) VALUE 'MNMINNESOTA           '.        SAMPS031
00294      05  FILLER  PIC X(22) VALUE 'MOMISSOURI            '.        SAMPS031
00295      05  FILLER  PIC X(22) VALUE 'MSMISSISSIPPI         '.        SAMPS031
00296      05  FILLER  PIC X(22) VALUE 'MTMONTANA             '.        SAMPS031
00297      05  FILLER  PIC X(22) VALUE 'NENEBRASKA            '.        SAMPS031
00298      05  FILLER  PIC X(22) VALUE 'NHNEW HAMSHIRE        '.        SAMPS031
00299      05  FILLER  PIC X(22) VALUE 'NJNEW JERSEY          '.        SAMPS031
00300      05  FILLER  PIC X(22) VALUE 'NMNEW MEXICO          '.        SAMPS031
00301      05  FILLER  PIC X(22) VALUE 'NVNEVADA              '.        SAMPS031
00302      05  FILLER  PIC X(22) VALUE 'NYNEW YORK            '.        SAMPS031
00303      05  FILLER  PIC X(22) VALUE 'NCNORTH CAROLINA      '.        SAMPS031
00304      05  FILLER  PIC X(22) VALUE 'NDNORTH DAKOTA        '.        SAMPS031
00305      05  FILLER  PIC X(22) VALUE 'OHOHIO                '.        SAMPS031
00306      05  FILLER  PIC X(22) VALUE 'OKOKLAHOMA            '.        SAMPS031
00307      05  FILLER  PIC X(22) VALUE 'OROREGON              '.        SAMPS031
00308      05  FILLER  PIC X(22) VALUE 'PAPENNSYLVANIA        '.        SAMPS031
00309      05  FILLER  PIC X(22) VALUE 'PRPUERTO RICO         '.        SAMPS031
00310      05  FILLER  PIC X(22) VALUE 'RIRHODE ISLAND        '.        SAMPS031
00311      05  FILLER  PIC X(22) VALUE 'SCSOUTH CAROLINA      '.        SAMPS031
00312      05  FILLER  PIC X(22) VALUE 'SDSOUTH DAKOTA        '.        SAMPS031
00313      05  FILLER  PIC X(22) VALUE 'TNTENNESSEE           '.        SAMPS031
00314      05  FILLER  PIC X(22) VALUE 'TXTEXAS               '.        SAMPS031
00315      05  FILLER  PIC X(22) VALUE 'UTUTAH                '.        SAMPS031
00316      05  FILLER  PIC X(22) VALUE 'VAVIRGINIA            '.        SAMPS031
00317      05  FILLER  PIC X(22) VALUE 'VIVIRGIN ISLAND       '.        SAMPS031
00318      05  FILLER  PIC X(22) VALUE 'VTVERMONT             '.        SAMPS031
00319      05  FILLER  PIC X(22) VALUE 'WAWASHINGTON          '.        SAMPS031
00320      05  FILLER  PIC X(22) VALUE 'WVWEST VIRGINIA       '.        SAMPS031
00321      05  FILLER  PIC X(22) VALUE 'WIWISCONSIN           '.        SAMPS031
00322      05  FILLER  PIC X(22) VALUE 'WYWYOMING             '.        SAMPS031
00323  01  ST-STATE-TABLE REDEFINES ST-STATE-DATA.                      SAMPS031
00324      05  ST-STATE-ENTRY              OCCURS 53 TIMES              SAMPS031
00325                                      INDEXED BY ST-INDEX.         SAMPS031
00326          10  ST-STATE-ID                 PIC X(02).               SAMPS031
00327          10  ST-STATE-NAME               PIC X(20).               SAMPS031
00328                                                                   SAMPS031
00329  01  TRANS-TYPE-DESCR.                                            SAMPS031
00330      05  OTHER-1                 PIC X(6)  VALUE 'OTHER '.        SAMPS031
00331      05  RANDOMM                 PIC X(6)  VALUE 'RANDOM'.        SAMPS031
00332                                                                   SAMPS031
00333 ************************************************                  SAMPS031
00334 ***                                          ***                  SAMPS031
00335 ** WS-END-OF-JOB-MESSAGES:                    **                  SAMPS031
00336 ** END OF JOB STATUS MESSAGES: MESSAGE-1      **                  SAMPS031
00337 ** AND MESSAGE-2.                             **                  SAMPS031
00338 ***                                          ***                  SAMPS031
00339 ************************************************                  SAMPS031
00340                                                                   SAMPS031
00341  01  WS-END-OF-JOB-MESSAGES.                                      SAMPS031
00342      05  MESSAGE-1               PIC X(28)                        SAMPS031
00343        VALUE 'SAMPS031 - NORMAL END OF JOB'.                      SAMPS031
00344      05  MESSAGE-2               PIC X(28)                        SAMPS031
00345        VALUE 'SAMPS031 - JOB TERMINATED   '.                      SAMPS031
00346                                                                   SAMPS031
00347  01  WS-EOJ-DETAIL-LINE.                                          SAMPS031
00348      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00349      05  WS-MESSAGE-FILE         PIC X(28).                       SAMPS031
00350      05  FILLER                  PIC X(102) VALUE SPACES.         SAMPS031
00351                                                                   SAMPS031
00352  01  DTL-DATE-REFORMAT-AREA.                                      SAMPS031
00353      05  DTL-DATE-COMPLETED          PIC X(08).                   SAMPS031
00354      05  FILLER REDEFINES DTL-DATE-COMPLETED.                     SAMPS031
00355          10  DTL-COMPLETED-YR        PIC X(04).                   SAMPS031
00356          10  DTL-COMPLETED-MO        PIC X(02).                   SAMPS031
00357          10  DTL-COMPLETED-DA        PIC X(02).                   SAMPS031
00358                                                                   SAMPS031
00359 ***************************************************************   SAMPS031
00360 ** (OUTPUT-HIT-REC) IS THE RECORD LAYOUT FOR THE RECORDS     **   SAMPS031
00361 ** THAT ARE WRITTEN TO THE FILE (HIT-FILE).  THIS FILE CAN   **   SAMPS031
00362 ** BE DOWNLOADED TO THE SUN MICROCOMPUTER INTO THE CORE      **   SAMPS031
00363 ** RQC SAMPLING SUBSYSTEM.                                   **   SAMPS031
00364 ***************************************************************   SAMPS031
00365  01  OUTPUT-HIT-REC.                                              SAMPS031
00366                                                                   SAMPS031
00367      05  HIT-RECORD-TYPE          PIC X(05) VALUE SPACES.         SAMPS031
00368      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00369      05  HIT-STATE                PIC X(02) VALUE SPACES.         SAMPS031
00370      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00371      05  HIT-SAMPLE-YEAR          PIC X(04) VALUE SPACES.         SAMPS031
00372      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00373      05  HIT-TRANS-TYPE           PIC X(01) VALUE ZEROS.          SAMPS031
00374      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00375      05  HIT-SAMPLE-TYPE          PIC X(02) VALUE ZEROS.          SAMPS031
00376      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00377      05  HIT-CASE-NUMBER          PIC 9(08) VALUE ZEROS.          SAMPS031
00378      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00379      05  HIT-EMPLOYER-ID          PIC X(12) VALUE SPACES.         SAMPS031
00380      05  FILLER                   PIC X(01) VALUE '|'.            SAMPS031
00381                                                                   SAMPS031
00382 ***************************************************************   SAMPS031
00383 ** (OUTPUT-TITLES) DESCRIBES THE LINES FOR EACH LINE OF THE  **   SAMPS031
00384 ** REPORT TITLE.                                             **   SAMPS031
00385 ***************************************************************   SAMPS031
00386                                                                   SAMPS031
00387  01  LIST-HEADING-1.                                              SAMPS031
00388      10  FILLER      PIC X(1)  VALUE SPACES.                      SAMPS031
00389      10  FILLER      PIC X(9)  VALUE 'RUN DATE:'.                 SAMPS031
00390      10  FILLER      PIC X(1)  VALUE SPACES.                      SAMPS031
00391      10  O-RUN-DATE  PIC X(08) VALUE SPACES.                      SAMPS031
00392      10  FILLER      PIC X(17) VALUE SPACES.                      SAMPS031
00393      10  FILLER      PIC X(14)                                    SAMPS031
00394          VALUE 'FIELD AUDIT - '.                                  SAMPS031
00395      10  FILLER      PIC X(1)  VALUE SPACES.                      SAMPS031
00396      10  DTL-OUTPUT-TRANS-TYPE  PIC X(6).                         SAMPS031
00397      10  FILLER      PIC X(41) VALUE SPACES.                      SAMPS031
00398      10  FILLER      PIC X(5) VALUE 'PAGE:'.                      SAMPS031
00399      10  FILLER      PIC X(1) VALUE SPACES.                       SAMPS031
00400      10  O-LIST-PAGE     PIC ZZZZZ9.                              SAMPS031
00401      10  FILLER      PIC X(17) VALUE SPACES.                      SAMPS031
00402                                                                   SAMPS031
00403  01  LIST-HEADING-2.                                              SAMPS031
00404      10  FILLER      PIC X(36) VALUE SPACES.                      SAMPS031
00405      10  FILLER      PIC X(25)                                    SAMPS031
00406               VALUE 'SAMPLING HIT FILE LISTING'.                  SAMPS031
00407      10  FILLER      PIC X(71) VALUE SPACES.                      SAMPS031
00408                                                                   SAMPS031
00409  01  LIST-HEADING-3.                                              SAMPS031
00410      10  FILLER            PIC X(36) VALUE SPACES.                SAMPS031
00411      10  FILLER            PIC X(9) VALUE 'STATE OF '.            SAMPS031
00412      10  O-CNTRL-SESA-NAME PIC X(20) VALUE SPACES.                SAMPS031
00413      10  FILLER            PIC X(67) VALUE SPACES.                SAMPS031
00414                                                                   SAMPS031
00415  01  LIST-HEADING-4.                                              SAMPS031
00416      10 FILLER       PIC X(22) VALUE SPACES.                      SAMPS031
00417      10 FILLER       PIC X(4)  VALUE 'CASE'.                      SAMPS031
00418      10 FILLER       PIC X(8)  VALUE SPACES.                      SAMPS031
00419      10 FILLER       PIC X(8)  VALUE 'EMPLOYER'.                  SAMPS031
00420      10 FILLER       PIC X(09) VALUE SPACES.                      SAMPS031
00421      10 FILLER       PIC X(4)  VALUE 'DATE'.                      SAMPS031
00422      10 FILLER       PIC X(7)  VALUE SPACES.                      SAMPS031
00423      10 FILLER       PIC X(8)  VALUE 'SEQUENCE'.                  SAMPS031
00424      10 FILLER       PIC X(67) VALUE SPACES.                      SAMPS031
00425                                                                   SAMPS031
00426  01  LIST-HEADING-5.                                              SAMPS031
00427      10 FILLER       PIC X(22) VALUE SPACES.                      SAMPS031
00428      10 FILLER       PIC X(6)  VALUE 'NUMBER'.                    SAMPS031
00429      10 FILLER       PIC X(6)  VALUE SPACES.                      SAMPS031
00430      10 FILLER       PIC X(9)  VALUE 'ID NUMBER'.                 SAMPS031
00431      10 FILLER       PIC X(06) VALUE SPACES.                      SAMPS031
00432      10 FILLER       PIC X(9)                                     SAMPS031
00433              VALUE 'COMPLETED'.                                   SAMPS031
00434      10 FILLER       PIC X(5)  VALUE SPACES.                      SAMPS031
00435      10 FILLER       PIC X(7)  VALUE 'NUMBER'.                    SAMPS031
00436      10 FILLER       PIC X(63) VALUE SPACES.                      SAMPS031
00437                                                                   SAMPS031
00438 ***************************************************************   SAMPS031
00439 ** (OUTPUT-DTL-LINE) DESCRIBES THE OUTPUT FOR THE DETAIL     **   SAMPS031
00440 ** LINES OF THE REPORT.                                      **   SAMPS031
00441 ***************************************************************   SAMPS031
00442                                                                   SAMPS031
00443  01  HIT-LIST-REC.                                                SAMPS031
00444      10  FILLER               PIC X(19) VALUE SPACES.             SAMPS031
00445      10  DTL-CASE-NO          PIC ZZZZZZZ9 VALUE ZEROS.           SAMPS031
00446      10  FILLER               PIC X(6)  VALUE SPACES.             SAMPS031
00447      10  DTL-EMP-ID           PIC X(12) VALUE SPACES.             SAMPS031
00448      10  FILLER               PIC X(03) VALUE SPACES.             SAMPS031
00449      10  O-COMPLETED-MO       PIC XX  VALUE ZEROS.                SAMPS031
00450      10  FILLER               PIC X                               SAMPS031
00451          VALUE '/'.                                               SAMPS031
00452      10  O-COMPLETED-DA       PIC XX  VALUE ZEROS.                SAMPS031
00453      10  FILLER               PIC X                               SAMPS031
00454          VALUE '/'.                                               SAMPS031
00455      10  O-COMPLETED-YR       PIC X(04) VALUE ZEROS.              SAMPS031
00456      10  FILLER               PIC X(3)  VALUE SPACES.             SAMPS031
00457      10  DTL-SEQ-NMBR         PIC ZZZZZZZ9 VALUE ZEROS.           SAMPS031
00458      10  FILLER               PIC X(64) VALUE SPACES.             SAMPS031
00459                                                                   SAMPS031
00460 **********************************************                    SAMPS031
00461 ***                                        ***                    SAMPS031
00462 ** ADDITIONAL COBOL CODE TO CREATE A CODING **                    SAMPS031
00463 ** SHEET FOR THE REVENUE QUALITY CONTROL    **                    SAMPS031
00464 ** (RQC) REVIEWER.  IT IS A DUPLICATE OF    **                    SAMPS031
00465 ** THE CODING SHEET IN THE RQC OPERATIONS   **                    SAMPS031
00466 ** HANDBOOK.                                **                    SAMPS031
00467 ***                                        ***                    SAMPS031
00468 **********************************************                    SAMPS031
00469  01  FL-BANNER-LINE         PIC X(132) VALUE ALL '-'.             SAMPS031
00470                                                                   SAMPS031
00471  01  HD-NEW-EMP-CHECKLIST.                                        SAMPS031
00472                                                                   SAMPS031
00473      05  FILLER              PIC X(53) VALUE SPACES.              SAMPS031
00474      05  FILLER              PIC X(23) VALUE                      SAMPS031
00475         'REVENUE QUALITY CONTROL'.                                SAMPS031
00476      05  FILLER              PIC X(34) VALUE SPACES.              SAMPS031
00477      05  FILLER              PIC X(06) VALUE                      SAMPS031
00478         'PAGE: '.                                                 SAMPS031
00479      05  HD-PAGE-NUMBER      PIC ZZZZZ9.                          SAMPS031
00480      05  FILLER              PIC X(10) VALUE SPACES.              SAMPS031
00481                                                                   SAMPS031
00482  01  HT-TAX-FUNCTION-HEADER.                                      SAMPS031
00483                                                                   SAMPS031
00484      05  FILLER              PIC X(01) VALUE SPACES.              SAMPS031
00485      05  FILLER              PIC X(31) VALUE                      SAMPS031
00486        'FIELD AUDIT SAMPLE CODING SHEET'.                         SAMPS031
00487      05  FILLER              PIC X(78) VALUE SPACES.              SAMPS031
00488      05  FILLER              PIC X(10) VALUE                      SAMPS031
00489         'RUN DATE: '.                                             SAMPS031
00490      05  HD-RUN-DATE         PIC X(08).                           SAMPS031
00491      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00492                                                                   SAMPS031
00493  01  FL-FIRST-LINE-COLUMN-HEADER.                                 SAMPS031
00494                                                                   SAMPS031
00495      05  FILLER              PIC X(02) VALUE SPACES.              SAMPS031
00496      05  FILLER              PIC X(11) VALUE                      SAMPS031
00497         'SESA NAME: '.                                            SAMPS031
00498      05  FL-SESA-NAME        PIC X(20).                           SAMPS031
00499      05  FILLER              PIC X(05) VALUE SPACES.              SAMPS031
00500      05  FILLER              PIC X(08) VALUE                      SAMPS031
00501         'PERIOD: '.                                               SAMPS031
00502      05  FL-PERIOD           PIC X(04).                           SAMPS031
00503      05  FILLER              PIC X(05) VALUE SPACES.              SAMPS031
00504      05  FILLER              PIC X(13) VALUE                      SAMPS031
00505         'SAMPLE TYPE: '.                                          SAMPS031
00506      05  FL-SAMPLE-TYPE      PIC X(24).                           SAMPS031
00507      05  FILLER              PIC X(03) VALUE SPACES.              SAMPS031
00508      05  FILLER              PIC X(25) VALUE                      SAMPS031
00509         'REVIEWER: _______________'.                              SAMPS031
00510      05  FILLER              PIC X(12) VALUE SPACES.              SAMPS031
00511                                                                   SAMPS031
00512  01  TT-TRANSACTION-TYPE-FIELD.                                   SAMPS031
00513                                                                   SAMPS031
00514      05  FILLER              PIC X(38) VALUE SPACES.              SAMPS031
00515      05  FILLER              PIC X(18)                            SAMPS031
00516         VALUE 'TRANSACTION TYPE: '.                               SAMPS031
00517      05  TT-TRANS-TYPE       PIC X(06).                           SAMPS031
00518      05  FILLER              PIC X(56) VALUE SPACES.              SAMPS031
00519                                                                   SAMPS031
00520  01  SL-SECOND-LINE-COL-HEADER.                                   SAMPS031
00521                                                                   SAMPS031
00522      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00523      05  FILLER              PIC X(04) VALUE                      SAMPS031
00524         'CASE'.                                                   SAMPS031
00525      05  FILLER              PIC X(03) VALUE SPACES.              SAMPS031
00526      05  FILLER              PIC X(08) VALUE                      SAMPS031
00527         'EMPLOYER'.                                               SAMPS031
00528      05  FILLER              PIC X(06) VALUE SPACES.              SAMPS031
00529      05  FILLER              PIC X(01) VALUE '1'.                 SAMPS031
00530      05  FILLER              PIC X(05) VALUE SPACES.              SAMPS031
00531      05  FILLER              PIC X(01) VALUE '2'.                 SAMPS031
00532      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00533      05  FILLER              PIC X(01) VALUE '3'.                 SAMPS031
00534      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00535      05  FILLER              PIC X(01) VALUE '4'.                 SAMPS031
00536      05  FILLER              PIC X(05) VALUE SPACES.              SAMPS031
00537      05  FILLER              PIC X(01) VALUE '5'.                 SAMPS031
00538      05  FILLER              PIC X(05) VALUE SPACES.              SAMPS031
00539      05  FILLER              PIC X(01) VALUE '6'.                 SAMPS031
00540      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00541      05  FILLER              PIC X(01) VALUE '7'.                 SAMPS031
00542      05  FILLER              PIC X(05) VALUE SPACES.              SAMPS031
00543      05  FILLER              PIC X(01) VALUE '8'.                 SAMPS031
00544      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00545      05  FILLER              PIC X(01) VALUE '9'.                 SAMPS031
00546      05  FILLER              PIC X(04) VALUE SPACES.              SAMPS031
00547      05  FILLER              PIC X(06)                            SAMPS031
00548         VALUE 'TOTAL'.                                            SAMPS031
00549      05  FILLER              PIC X(03) VALUE SPACES.              SAMPS031
00550      05  FILLER              PIC X(09)                            SAMPS031
00551       VALUE 'PASS/FAIL'.                                          SAMPS031
00552      05  FILLER              PIC X(33) VALUE SPACES.              SAMPS031
00553                                                                   SAMPS031
00554  01  TL-THIRD-COLUMN-HEADER.                                      SAMPS031
00555                                                                   SAMPS031
00556      05  FILLER              PIC X(03) VALUE SPACES.              SAMPS031
00557      05  FILLER              PIC X(06) VALUE                      SAMPS031
00558         'NUMBER'.                                                 SAMPS031
00559      05  FILLER              PIC X(02) VALUE SPACES.              SAMPS031
00560      05  FILLER              PIC X(09) VALUE                      SAMPS031
00561         'ID NUMBER'.                                              SAMPS031
00562      05  FILLER                  PIC X(04) VALUE SPACES.          SAMPS031
00563      05  FILLER                  PIC X(04) VALUE '(10)'.          SAMPS031
00564      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00565      05  FILLER                  PIC X(03) VALUE '(5)'.           SAMPS031
00566      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00567      05  FILLER                  PIC X(03) VALUE '(5)'.           SAMPS031
00568      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00569      05  FILLER                  PIC X(04) VALUE '(25)'.          SAMPS031
00570      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00571      05  FILLER                  PIC X(04) VALUE '(25)'.          SAMPS031
00572      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00573      05  FILLER                  PIC X(03) VALUE '(5)'.           SAMPS031
00574      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00575      05  FILLER                  PIC X(04) VALUE '(10)'.          SAMPS031
00576      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00577      05  FILLER                  PIC X(03) VALUE '(5)'.           SAMPS031
00578      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00579      05  FILLER                  PIC X(04) VALUE '(10)'.          SAMPS031
00580      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00581      05  FILLER                  PIC X(06) VALUE 'POINTS'.        SAMPS031
00582      05  FILLER                  PIC X(05) VALUE SPACES.          SAMPS031
00583      05  FILLER                  PIC X(05) VALUE '(Y/N)'.         SAMPS031
00584      05  FILLER                  PIC X(45) VALUE SPACES.          SAMPS031
00585                                                                   SAMPS031
00586  01  CL-COLUMN-UNDERLINE.                                         SAMPS031
00587                                                                   SAMPS031
00588      05  FILLER              PIC X(03) VALUE SPACES.              SAMPS031
00589      05  FILLER              PIC X(06) VALUE                      SAMPS031
00590         '------'.                                                 SAMPS031
00591      05  FILLER              PIC X(02) VALUE SPACES.              SAMPS031
00592      05  FILLER              PIC X(09) VALUE                      SAMPS031
00593         '---------'.                                              SAMPS031
00594      05  FILLER                  PIC X(04) VALUE SPACES.          SAMPS031
00595      05  FILLER                  PIC X(04) VALUE '----'.          SAMPS031
00596      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00597      05  FILLER                  PIC X(03) VALUE '---'.           SAMPS031
00598      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00599      05  FILLER                  PIC X(03) VALUE '---'.           SAMPS031
00600      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00601      05  FILLER                  PIC X(04) VALUE '----'.          SAMPS031
00602      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00603      05  FILLER                  PIC X(04) VALUE '----'.          SAMPS031
00604      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00605      05  FILLER                  PIC X(03) VALUE '---'.           SAMPS031
00606      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00607      05  FILLER                  PIC X(04) VALUE '----'.          SAMPS031
00608      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00609      05  FILLER                  PIC X(03) VALUE '---'.           SAMPS031
00610      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00611      05  FILLER                  PIC X(04) VALUE '----'.          SAMPS031
00612      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00613      05  FILLER                  PIC X(06) VALUE '------'.        SAMPS031
00614      05  FILLER                  PIC X(03) VALUE SPACES.          SAMPS031
00615      05  FILLER              PIC X(09) VALUE '---------'.         SAMPS031
00616      05  FILLER                  PIC X(42) VALUE SPACES.          SAMPS031
00617                                                                   SAMPS031
00618  01  DL-BANNER-LINE         PIC X(92) VALUE ALL '-'.              SAMPS031
00619                                                                   SAMPS031
00620  01  DL-CHECKLIST-DETAIL.                                         SAMPS031
00621      05  DL-CHECKLIST-CASE-NO    PIC ZZZZZZZ9.                    SAMPS031
00622      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00623      05  DL-CHECKLIST-EMP-ID     PIC X(12).                       SAMPS031
00624      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00625      05  FILLER                  PIC X(04) VALUE '(  )'.          SAMPS031
00626      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00627      05  FILLER                  PIC X(03) VALUE '( )'.           SAMPS031
00628      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00629      05  FILLER                  PIC X(03) VALUE '( )'.           SAMPS031
00630      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00631      05  FILLER                  PIC X(04) VALUE '(  )'.          SAMPS031
00632      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00633      05  FILLER                  PIC X(04) VALUE '(  )'.          SAMPS031
00634      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00635      05  FILLER                  PIC X(03) VALUE '( )'.           SAMPS031
00636      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00637      05  FILLER                  PIC X(04) VALUE '(  )'.          SAMPS031
00638      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00639      05  FILLER                  PIC X(03) VALUE '( )'.           SAMPS031
00640      05  FILLER                  PIC X(02) VALUE SPACES.          SAMPS031
00641      05  FILLER                  PIC X(04) VALUE '(  )'.          SAMPS031
00642      05  FILLER                  PIC X(03) VALUE SPACES.          SAMPS031
00643      05  FILLER                  PIC X(05) VALUE '(   )'.         SAMPS031
00644      05  FILLER                  PIC X(05) VALUE SPACES.          SAMPS031
00645      05  FILLER                  PIC X(05) VALUE '(   )'.         SAMPS031
00646      05  FILLER                  PIC X(42) VALUE SPACES.          SAMPS031
00647                                                                   SAMPS031
00648  01  WS-FOOTNOTE1-AREA.                                           SAMPS031
00649      05  FILLER                  PIC X(01) VALUE SPACES.          SAMPS031
00650      05  FILLER                  PIC X(16)                        SAMPS031
00651         VALUE 'SCORING ANALYSIS'.                                 SAMPS031
00652      05  FILLER                  PIC X(116) VALUE SPACES.         SAMPS031
00653                                                                   SAMPS031
00654  01  WS-FOOTNOTE2-AREA.                                           SAMPS031
00655      05  FILLER                  PIC X(01) VALUE SPACES.          SAMPS031
00656      05  FILLER                  PIC X(49)                        SAMPS031
00657         VALUE '* AUDITS SCORING 80 OR MORE POINTS ARE ACCEPTABLE'.SAMPS031
00658      05  FILLER                  PIC X(82) VALUE SPACES.          SAMPS031
00659                                                                   SAMPS031
00660  PROCEDURE DIVISION.                                              SAMPS031
00661 ********************************************                      SAMPS031
00662 ***                                      ***                      SAMPS031
00663 ** THE DECLARATIVES SECTION THAT FOLLOWS  **                      SAMPS031
00664 ** IS PERFORMED IF AN INPUT/OUTPUT ERROR  **                      SAMPS031
00665 ** OCCURS TO THE VSAM FILE TRANS-FILE     **                      SAMPS031
00666 ** DURING PROCESSING.                     **                      SAMPS031
00667 ***                                      ***                      SAMPS031
00668 ********************************************                      SAMPS031
00669  DECLARATIVES.                                                    SAMPS031
00670  A000-EXCEPTION-HANDLING SECTION.                                 SAMPS031
00671      USE AFTER ERROR PROCEDURE                                    SAMPS031
00672          ON TRANS-FILE.                                           SAMPS031
00673                                                                   SAMPS031
00674 *******************************************                       SAMPS031
00675 ***                                     ***                       SAMPS031
00676 ** A100-CHECK-ERROR-ROUTINE.             **                       SAMPS031
00677 ** THIS SECTION WILL DISPLAY THAT AN     **                       SAMPS031
00678 ** INPUT/OUTPUT ERROR HAS OCCURRED,      **                       SAMPS031
00679 ** DISPLAY A FILE STATUS ERROR CODE      **                       SAMPS031
00680 ** (TRANS-FILE-ERROR-CODE), CLOSES ALL   **                       SAMPS031
00681 ** INPUT/OUTPUT FILES AND STOPS THE      **                       SAMPS031
00682 ** EXECUTION OF THE PROGRAM.             **                       SAMPS031
00683 ***                                     ***                       SAMPS031
00684 *******************************************                       SAMPS031
00685  A100-CHECK-ERROR-ROUTINE.                                        SAMPS031
00686                                                                   SAMPS031
00687      DISPLAY 'INPUT/OUTPUT ERROR HAS OCCURRED.'                   SAMPS031
00688      DISPLAY 'THE FILE STATUS CODE ERROR IS : '                   SAMPS031
00689      DISPLAY TRANS-FILE-ERROR-CODE                                SAMPS031
00690      DISPLAY ' - SAMPS031 - JOB TERMINATED '                      SAMPS031
00691      CLOSE SELECT-FILE                                            SAMPS031
00692      CLOSE CNTRL-DATA                                             SAMPS031
00693      CLOSE TRANS-FILE                                             SAMPS031
00694      CLOSE JOB-STATUS                                             SAMPS031
00695      CLOSE HIT-FILE                                               SAMPS031
00696      CLOSE HIT-LIST                                               SAMPS031
00697      CLOSE CHECK-LIST                                             SAMPS031
00698      STOP RUN.                                                    SAMPS031
00699                                                                   SAMPS031
00700  END DECLARATIVES.                                                SAMPS031
00701 ***************************************************************   SAMPS031
00702 ** 0000-DRIVER-ROUTINE.                                      **   SAMPS031
00703 ** THIS SECTION PERFORMS THE MAIN PROCESSING OF THE PROGRAM. **   SAMPS031
00704 ***************************************************************   SAMPS031
00705  B000-REGULAR-PROCESSING SECTION.                                 SAMPS031
00706  0000-DRIVER-ROUTINE.                                             SAMPS031
00707                                                                   SAMPS031
00708      PERFORM 0100-OPEN-ROUTINE                                    SAMPS031
00709          THRU 0100-OPEN-ROUTINE-EXIT.                             SAMPS031
00710      PERFORM 0200-VALIDATE-TRANSACTION-TYPE                       SAMPS031
00711          THRU 0200-VALIDATION-EXIT.                               SAMPS031
00712      PERFORM 0300-STATE-TABLE-ROUTINE                             SAMPS031
00713          THRU 0300-STATE-TABLE-EXIT.                              SAMPS031
00714      PERFORM 0305-SAMPLE-TABLE-ROUTINE                            SAMPS031
00715          THRU 0305-SAMPLE-TABLE-EXIT.                             SAMPS031
00716      PERFORM 0500-SELECT-RECORDS                                  SAMPS031
00717          THRU 0500-SELECT-RECS-EXIT                               SAMPS031
00718              UNTIL WS-SELECT-EOF = 'Y'.                           SAMPS031
00719                                                                   SAMPS031
00720 ************************************************************      SAMPS031
00721 ** 0100-OPEN-ROUTINE.                                     **      SAMPS031
00722 ** THIS SECTION OPENS INPUT FILES CNTRL-DATA, AND         **      SAMPS031
00723 ** SELECT-FILE.  THE FOLLOWING OUTPUT FILES ARE OPENED:   **      SAMPS031
00724 ** HIT-FILE, HIT-LIST, CHECK-LIST, AND JOB-STATUS.        **      SAMPS031
00725 ** THIS SECTION ALSO OPENS THE VSAM FILE TRANS-FILE AS    **      SAMPS031
00726 ** INPUT/OUTPUT, MOVES THE CURRENT DATE TO THE OUTPUT     **      SAMPS031
00727 ** FILE HIT-LIST AND CHECK-LIST FOR PRINTING, AND READS   **      SAMPS031
00728 ** THE RECORD IN THE CNTRL-DATA FILE.                     **      SAMPS031
00729 ************************************************************      SAMPS031
00730  0100-OPEN-ROUTINE.                                               SAMPS031
00731                                                                   SAMPS031
00732      OPEN INPUT CNTRL-DATA.                                       SAMPS031
00733      OPEN INPUT SELECT-FILE.                                      SAMPS031
00734      OPEN I-O TRANS-FILE.                                         SAMPS031
00735      OPEN OUTPUT HIT-FILE.                                        SAMPS031
00736      OPEN OUTPUT HIT-LIST.                                        SAMPS031
00737      OPEN OUTPUT CHECK-LIST.                                      SAMPS031
00738      OPEN OUTPUT JOB-STATUS.                                      SAMPS031
00739      ACCEPT WS-DATE     FROM DATE.                                SAMPS031
00740      MOVE WS-YY         TO WRK-YY.                                SAMPS031
00741      MOVE WS-MM         TO WRK-MM.                                SAMPS031
00742      MOVE WS-DD         TO WRK-DD.                                SAMPS031
00743      MOVE WRK-DATE-AREA TO O-RUN-DATE HD-RUN-DATE.                SAMPS031
00744      READ CNTRL-DATA AT END MOVE 'Y' TO CNTRL-FLAG.               SAMPS031
00745                                                                   SAMPS031
00746  0100-OPEN-ROUTINE-EXIT.                                          SAMPS031
00747      EXIT.                                                        SAMPS031
00748                                                                   SAMPS031
00749 *******************************************************           SAMPS031
00750 ***                                                 ***           SAMPS031
00751 ** 0200-VALIDATE-TRANSACTION-TYPE.                   **           SAMPS031
00752 ** UTILIZING THE CNTRL-TRANS-TYPE FIELD FROM THE     **           SAMPS031
00753 ** INPUT FILE CNTRL-DATA, THIS PROCEDURE VALIDATES   **           SAMPS031
00754 ** WHETHER THE REPORT IS A RANDOM-AUDIT OR AN OTHER- **           SAMPS031
00755 ** AUDIT REPORT. IF THE CNTRL-TRANS-TYPE IS          **           SAMPS031
00756 ** NOT ANY OF THE TWO CONTROL TYPES (1 OR 2), AN     **           SAMPS031
00757 ** ERROR MESSAGE IS DISPLAYED AND THE PROGRAM RUN IS **           SAMPS031
00758 ** TERMINATED.                                       **           SAMPS031
00759 ***                                                 ***           SAMPS031
00760 *******************************************************           SAMPS031
00761                                                                   SAMPS031
00762  0200-VALIDATE-TRANSACTION-TYPE.                                  SAMPS031
00763                                                                   SAMPS031
00764      IF CNTRL-TRANS-TYPE = '1'                                    SAMPS031
00765          MOVE RANDOMM TO DTL-OUTPUT-TRANS-TYPE                    SAMPS031
00766          MOVE RANDOMM TO TT-TRANS-TYPE                            SAMPS031
00767      ELSE                                                         SAMPS031
00768          IF CNTRL-TRANS-TYPE = '2'                                SAMPS031
00769              MOVE OTHER-1 TO DTL-OUTPUT-TRANS-TYPE                SAMPS031
00770              MOVE OTHER-1 TO TT-TRANS-TYPE                        SAMPS031
00771          ELSE                                                     SAMPS031
00772              DISPLAY 'INVALID TRANSACTION TYPE'                   SAMPS031
00773              DISPLAY 'TRANSACTION TYPE IN ERROR IS: '             SAMPS031
00774              DISPLAY CNTRL-TRANS-TYPE                             SAMPS031
00775              MOVE MESSAGE-2 TO WS-MESSAGE-FILE                    SAMPS031
00776              PERFORM 9999-CLOSE-FILES.                            SAMPS031
00777                                                                   SAMPS031
00778  0200-VALIDATION-EXIT.                                            SAMPS031
00779      EXIT.                                                        SAMPS031
00780                                                                   SAMPS031
00781 *************************************************                 SAMPS031
00782 ***                                           ***                 SAMPS031
00783 ** 0300-STATE-TABLE-ROUTINE.                   **                 SAMPS031
00784 ** THIS ROUTINE SEARCHES THE ST-STATE-DATA     **                 SAMPS031
00785 ** TABLE, FOUND IN THE WORKING STORAGE SECTION,**                 SAMPS031
00786 ** FOR A MATCHING CONDITION OF THE SESA-ID     **                 SAMPS031
00787 ** FIELD OF THE CNTRL-DATA FILE.  IF A MATCH   **                 SAMPS031
00788 ** OCCURS, THE STATE ABBREVIATION (SESA-ID) IS **                 SAMPS031
00789 ** REPLACED WITH THE STATE NAME DESCRIPTION.   **                 SAMPS031
00790 ** IF A MATCH IS NOT FOUND, AN ERROR MESSAGE IS**                 SAMPS031
00791 ** DISPLAYED AND THE PROGRAM RUN IS TERMINATED.**                 SAMPS031
00792 ***                                           ***                 SAMPS031
00793 *************************************************                 SAMPS031
00794  0300-STATE-TABLE-ROUTINE.                                        SAMPS031
00795                                                                   SAMPS031
00796      SET ST-INDEX TO 1.                                           SAMPS031
00797      SEARCH ST-STATE-ENTRY                                        SAMPS031
00798            AT END MOVE 'END' TO ST-ENTRY-FOUND-SWITCH             SAMPS031
00799            WHEN SESA-ID                                           SAMPS031
00800                IS EQUAL TO ST-STATE-ID (ST-INDEX)                 SAMPS031
00801                MOVE 'YES' TO ST-ENTRY-FOUND-SWITCH.               SAMPS031
00802      IF ST-ENTRY-FOUND                                            SAMPS031
00803         MOVE ST-STATE-NAME (ST-INDEX)                             SAMPS031
00804             TO WS-SESA-NAME-AREA                                  SAMPS031
00805      ELSE                                                         SAMPS031
00806          DISPLAY  SESA-ID, ' - NOT FOUND ON STATE TABLE'          SAMPS031
00807          MOVE MESSAGE-2 TO WS-MESSAGE-FILE                        SAMPS031
00808          PERFORM 9999-CLOSE-FILES.                                SAMPS031
00809                                                                   SAMPS031
00810  0300-STATE-TABLE-EXIT.                                           SAMPS031
00811      EXIT.                                                        SAMPS031
00812                                                                   SAMPS031
00813 *************************************************                 SAMPS031
00814 ***                                           ***                 SAMPS031
00815 ** 0305-SAMPLE-TABLE-ROUTINE.                  **                 SAMPS031
00816 ** THIS SECTION SEARCHES THE WS-SAMPLE-DATA    **                 SAMPS031
00817 ** TABLE FOUND IN THE WORKING-STORAGE SECTION  **                 SAMPS031
00818 ** FOR A MATCHING CONDITION OF THE SAMPLE-TYPE **                 SAMPS031
00819 ** FIELD OF THE CNTRL-DATA FILE.  IF A MATCH   **                 SAMPS031
00820 ** OCCURS, THE SAMPLE TYPE ABBREVIATION IS     **                 SAMPS031
00821 ** REPLACED WITH THE SAMPLE-TYPE DESCRIPTION.  **                 SAMPS031
00822 ** IF A MATCH IS NOT FOUND, AN ERROR MESSAGE IS**                 SAMPS031
00823 ** DISPLAYED AND THE PROGRAM RUN IS TERMINATED.**                 SAMPS031
00824 ***                                           ***                 SAMPS031
00825 *************************************************                 SAMPS031
00826  0305-SAMPLE-TABLE-ROUTINE.                                       SAMPS031
00827                                                                   SAMPS031
00828      SET WS-INDEX TO 1.                                           SAMPS031
00829      SEARCH WS-SAMPLE-ENTRY                                       SAMPS031
00830            AT END MOVE 'END' TO WS-ENTRY-FOUND-SWITCH             SAMPS031
00831            WHEN SAMPLE-TYPE                                       SAMPS031
00832                IS EQUAL TO WS-SAMPLE-ID (WS-INDEX)                SAMPS031
00833                MOVE 'YES' TO WS-ENTRY-FOUND-SWITCH.               SAMPS031
00834      IF WS-SAMPLE-FOUND                                           SAMPS031
00835         MOVE WS-SAMPLE-DESCRIPTION (WS-INDEX)                     SAMPS031
00836             TO WS-SAMPLE-NAME-AREA                                SAMPS031
00837      ELSE                                                         SAMPS031
00838          DISPLAY SAMPLE-TYPE, '- NOT ON SAMPLE TABLE'             SAMPS031
00839          MOVE MESSAGE-2 TO WS-MESSAGE-FILE                        SAMPS031
00840          PERFORM 9999-CLOSE-FILES.                                SAMPS031
00841                                                                   SAMPS031
00842  0305-SAMPLE-TABLE-EXIT.                                          SAMPS031
00843      EXIT.                                                        SAMPS031
00844                                                                   SAMPS031
00845 *********************************************************         SAMPS031
00846 ***                                                   ***         SAMPS031
00847 ** 0400-HIT-LIST-HEADING.                              **         SAMPS031
00848 ** THIS SECTION GENERATES THE PAGE AND COLUMN          **         SAMPS031
00849 ** HEADERS FOR THE HIT-LIST OUTPUT REPORT.             **         SAMPS031
00850 ***                                                   ***         SAMPS031
00851 *********************************************************         SAMPS031
00852                                                                   SAMPS031
00853  0400-HIT-LIST-HEADING.                                           SAMPS031
00854                                                                   SAMPS031
00855      ADD 1                TO LIST-PAGE.                           SAMPS031
00856      MOVE SPACES          TO PRINT-HIT-REC.                       SAMPS031
00857      MOVE LIST-PAGE       TO O-LIST-PAGE.                         SAMPS031
00858      MOVE WS-SESA-NAME-AREA TO O-CNTRL-SESA-NAME.                 SAMPS031
00859      WRITE PRINT-HIT-REC FROM LIST-HEADING-1                      SAMPS031
00860          AFTER ADVANCING PAGE.                                    SAMPS031
00861      WRITE PRINT-HIT-REC FROM LIST-HEADING-2                      SAMPS031
00862          AFTER ADVANCING 1 LINE.                                  SAMPS031
00863      WRITE PRINT-HIT-REC FROM LIST-HEADING-3                      SAMPS031
00864          AFTER ADVANCING 1 LINE.                                  SAMPS031
00865      WRITE PRINT-HIT-REC FROM LIST-HEADING-4                      SAMPS031
00866          AFTER ADVANCING 3 LINES.                                 SAMPS031
00867      WRITE PRINT-HIT-REC FROM LIST-HEADING-5                      SAMPS031
00868          AFTER ADVANCING 1 LINE.                                  SAMPS031
00869      MOVE SPACES TO PRINT-HIT-REC.                                SAMPS031
00870      WRITE PRINT-HIT-REC AFTER ADVANCING 1 LINE.                  SAMPS031
00871                                                                   SAMPS031
00872  0400-HIT-LIST-EXIT.                                              SAMPS031
00873      EXIT.                                                        SAMPS031
00874                                                                   SAMPS031
00875 *********************************************                     SAMPS031
00876 ***                                       ***                     SAMPS031
00877 ** 0405-CHECKLIST-HEADER-RTN.              **                     SAMPS031
00878 ** THIS SECTION CREATES THE PAGE, AND      **                     SAMPS031
00879 ** COLUMN HEADERS FOR THE CHECK-LIST       **                     SAMPS031
00880 ** OUTPUT REPORT.                          **                     SAMPS031
00881 ***                                       ***                     SAMPS031
00882 *********************************************                     SAMPS031
00883  0405-CHECKLIST-HEADER-RTN.                                       SAMPS031
00884                                                                   SAMPS031
00885      ADD 1             TO WS-PAGE-CNTR.                           SAMPS031
00886      MOVE SPACES       TO CHECK-LIST-REC.                         SAMPS031
00887      MOVE WS-PAGE-CNTR TO HD-PAGE-NUMBER.                         SAMPS031
00888      WRITE CHECK-LIST-REC FROM FL-BANNER-LINE                     SAMPS031
00889          AFTER ADVANCING PAGE.                                    SAMPS031
00890      WRITE CHECK-LIST-REC FROM HD-NEW-EMP-CHECKLIST               SAMPS031
00891          AFTER ADVANCING 1 LINE.                                  SAMPS031
00892      WRITE CHECK-LIST-REC FROM HT-TAX-FUNCTION-HEADER             SAMPS031
00893          AFTER ADVANCING 1 LINE.                                  SAMPS031
00894      WRITE CHECK-LIST-REC FROM FL-BANNER-LINE                     SAMPS031
00895          AFTER ADVANCING 1 LINE.                                  SAMPS031
00896      MOVE WS-SESA-NAME-AREA   TO FL-SESA-NAME.                    SAMPS031
00897      MOVE CNTRL-YEAR-SELECTED TO FL-PERIOD.                       SAMPS031
00898      MOVE WS-SAMPLE-NAME-AREA TO FL-SAMPLE-TYPE.                  SAMPS031
00899      WRITE CHECK-LIST-REC FROM FL-FIRST-LINE-COLUMN-HEADER        SAMPS031
00900          AFTER ADVANCING 2 LINES.                                 SAMPS031
00901      WRITE CHECK-LIST-REC FROM TT-TRANSACTION-TYPE-FIELD          SAMPS031
00902          AFTER ADVANCING 1 LINE.                                  SAMPS031
00903      WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-COL-HEADER          SAMPS031
00904          AFTER ADVANCING 2 LINES.                                 SAMPS031
00905      WRITE CHECK-LIST-REC FROM TL-THIRD-COLUMN-HEADER             SAMPS031
00906          AFTER ADVANCING 1 LINE.                                  SAMPS031
00907      WRITE CHECK-LIST-REC FROM CL-COLUMN-UNDERLINE                SAMPS031
00908          AFTER ADVANCING 1 LINE.                                  SAMPS031
00909      MOVE SPACES     TO CHECK-LIST-REC.                           SAMPS031
00910      WRITE CHECK-LIST-REC AFTER ADVANCING 1 LINES.                SAMPS031
00911                                                                   SAMPS031
00912  0405-CHECKLIST-HEADER-EXIT.                                      SAMPS031
00913      EXIT.                                                        SAMPS031
00914                                                                   SAMPS031
00915                                                                   SAMPS031
00916 ***************************************************************   SAMPS031
00917 ** 0500-SELECT-RECORDS.                                      **   SAMPS031
00918 ** THIS SECTION WILL READ THE SELECT-FILE WHICH CONTAINS     **   SAMPS031
00919 ** THE SELECTED NUMBERS FOR THE SAMPLE.  EACH SELECT RECORD  **   SAMPS031
00920 ** WILL ALSO BE USED AS THE RECORD KEY TO READ THE SAMPLING  **   SAMPS031
00921 ** TRANSACTION VSAM FILE, (TRANS-FILE).  THE TRANSACTION     **   SAMPS031
00922 ** FILE IS INDEXED BY A FIELD (SEQ-NMBR) WHICH IS THE KEY    **   SAMPS031
00923 ** USED DURING THE READ OF THE VSAM FILE.  THE VALUE OF THE  **   SAMPS031
00924 ** SELECT RECORD NUMBER (SL-REC-NUM) IS MOVED TO (SEQ-NMBR)  **   SAMPS031
00925 ** AND THE RECORD ON THE TRANSACTION FILE FOR THAT RECORD    **   SAMPS031
00926 ** NUMBER IS READ AND PROCESSED.  FOR THE RECORDS THAT HAVE  **   SAMPS031
00927 ** BEEN SELECTED FROM THE TRANSACTION FILE, A SELECTED-FLAG  **   SAMPS031
00928 ** FIELD IS CHANGED TO A 2, AND A RECORD IS WRITTEN TO A DISK**   SAMPS031
00929 ** FILE (HIT-FILE).  THIS SAME RECORD IS WRITTEN TO A HIT    **   SAMPS031
00930 ** FILE LISTING (HIT-LIST), AND A CODING SHEET OUTPUT REPORT **   SAMPS031
00931 ** (CHECK-LIST).  THIS PROCESSING IS CONTINUED UNTIL EACH    **   SAMPS031
00932 ** RECORD FROM THE SELECT-FILE HAS BEEN READ.                **   SAMPS031
00933 ***************************************************************   SAMPS031
00934  0500-SELECT-RECORDS.                                             SAMPS031
00935                                                                   SAMPS031
00936      READ SELECT-FILE                                             SAMPS031
00937         AT END MOVE 'Y' TO WS-SELECT-EOF.                         SAMPS031
00938      IF WS-SELECT-EOF = 'Y'                                       SAMPS031
00939           AND MATCH-CNTR NOT EQUAL TO SAMPLED-NMBR                SAMPS031
00940         DISPLAY 'RECORDS SELECTED NE TO RECORDS DESIRED'          SAMPS031
00941         MOVE MESSAGE-1   TO WS-MESSAGE-FILE                       SAMPS031
00942         PERFORM 9999-CLOSE-FILES.                                 SAMPS031
00943      IF WS-SELECT-EOF = 'Y'                                       SAMPS031
00944           AND MATCH-CNTR EQUAL TO SAMPLED-NMBR                    SAMPS031
00945         WRITE CHECK-LIST-REC FROM WS-FOOTNOTE1-AREA               SAMPS031
00946             AFTER ADVANCING 1 LINE                                SAMPS031
00947         WRITE CHECK-LIST-REC FROM WS-FOOTNOTE2-AREA               SAMPS031
00948             AFTER ADVANCING 1 LINE                                SAMPS031
00949         MOVE MESSAGE-1   TO WS-MESSAGE-FILE                       SAMPS031
00950         PERFORM 9999-CLOSE-FILES.                                 SAMPS031
00951      IF WS-SELECT-EOF NOT EQUAL 'Y'                               SAMPS031
00952         ADD 1           TO MATCH-CNTR                             SAMPS031
00953         MOVE SL-REC-NUM TO SEQ-NMBR                               SAMPS031
00954         READ TRANS-FILE RECORD INTO WS-MATCH-RECORD.              SAMPS031
00955             IF WS-HIT-LIST-SWITCH = '0'                           SAMPS031
00956                 PERFORM 0400-HIT-LIST-HEADING                     SAMPS031
00957                        THRU 0400-HIT-LIST-EXIT.                   SAMPS031
00958             IF WS-CHECKLIST-SWITCH = '0'                          SAMPS031
00959                 PERFORM 0405-CHECKLIST-HEADER-RTN                 SAMPS031
00960                        THRU 0405-CHECKLIST-HEADER-EXIT.           SAMPS031
00961                 PERFORM 0600-PRINT-HIT-RECS                       SAMPS031
00962                        THRU 0600-PRINT-EXIT.                      SAMPS031
00963                 MOVE SELECTED-FLAG  TO SELECT-FLAG.               SAMPS031
00964                 MOVE SELECTED-FLAG  TO MATCH-SELECT-FLAG.         SAMPS031
00965                 REWRITE TRANS-REC.                                SAMPS031
00966                                                                   SAMPS031
00967  0500-SELECT-RECS-EXIT.                                           SAMPS031
00968      EXIT.                                                        SAMPS031
00969                                                                   SAMPS031
00970                                                                   SAMPS031
00971 ***************************************************************   SAMPS031
00972 ** 0600-PRINT-HIT-RECS.                                      **   SAMPS031
00973 ** THIS ROUTINE MOVES THE INFORMATION REQUIRED TO EACH OF    **   SAMPS031
00974 ** OUTPUT FILES; HIT-FILE, HIT-LIST, AND CHECK-LIST.  THE    **   SAMPS031
00975 ** ROUTINE ALSO CONTROLS LINE COUNT, AND HEADER GENERATION   **   SAMPS031
00976 ** FOR THE HIT-LIST, AND CHECK-LIST REPORT.                  **   SAMPS031
00977 ***************************************************************   SAMPS031
00978  0600-PRINT-HIT-RECS.                                             SAMPS031
00979                                                                   SAMPS031
00980      MOVE '1'                  TO WS-CHECKLIST-SWITCH.            SAMPS031
00981      MOVE '1'                  TO WS-HIT-LIST-SWITCH.             SAMPS031
00982      MOVE MATCH-CNTR           TO DTL-CASE-NO.                    SAMPS031
00983      MOVE MATCH-SEQ-NMBR       TO DTL-SEQ-NMBR.                   SAMPS031
00984      MOVE MATCH-EMP-ID         TO DTL-EMP-ID.                     SAMPS031
00985      MOVE MATCH-DATE-COMPLETED TO DTL-DATE-COMPLETED.             SAMPS031
00986      MOVE DTL-COMPLETED-YR     TO O-COMPLETED-YR.                 SAMPS031
00987      MOVE DTL-COMPLETED-MO     TO O-COMPLETED-MO.                 SAMPS031
00988      MOVE DTL-COMPLETED-DA     TO O-COMPLETED-DA.                 SAMPS031
00989      MOVE CNTRL-TYPE           TO HIT-RECORD-TYPE.                SAMPS031
00990      MOVE SESA-ID              TO HIT-STATE.                      SAMPS031
00991      MOVE MATCH-CNTR           TO HIT-CASE-NUMBER.                SAMPS031
00992      MOVE MATCH-TRANS-TYPE     TO HIT-TRANS-TYPE.                 SAMPS031
00993      MOVE MATCH-EMP-ID         TO HIT-EMPLOYER-ID.                SAMPS031
00994      MOVE CNTRL-YEAR-SELECTED  TO HIT-SAMPLE-YEAR.                SAMPS031
00995      MOVE SAMPLE-TYPE          TO HIT-SAMPLE-TYPE.                SAMPS031
00996      MOVE MATCH-CNTR           TO WS-CASE-HOLD-AREA.              SAMPS031
00997      MOVE WS-CASE-HOLD-AREA    TO DL-CHECKLIST-CASE-NO.           SAMPS031
00998      MOVE MATCH-EMP-ID         TO WS-EMPL-HOLD-AREA.              SAMPS031
00999      MOVE WS-EMPL-HOLD-AREA    TO DL-CHECKLIST-EMP-ID.            SAMPS031
01000      ADD 1                     TO LIST-COUNTER.                   SAMPS031
01001      IF LIST-COUNTER > 50                                         SAMPS031
01002          MOVE 1    TO LIST-COUNTER                                SAMPS031
01003          PERFORM 0400-HIT-LIST-HEADING                            SAMPS031
01004                THRU 0400-HIT-LIST-EXIT.                           SAMPS031
01005      WRITE PRINT-HIT-REC FROM HIT-LIST-REC.                       SAMPS031
01006      PERFORM 0700-CHECKLIST-ROUTINE                               SAMPS031
01007            THRU 0700-CHECKLIST-EXIT.                              SAMPS031
01008      WRITE TRANS-HIT-REC FROM OUTPUT-HIT-REC.                     SAMPS031
01009                                                                   SAMPS031
01010  0600-PRINT-EXIT.                                                 SAMPS031
01011      EXIT.                                                        SAMPS031
01012                                                                   SAMPS031
01013 *******************************************************           SAMPS031
01014 ***                                                 ***           SAMPS031
01015 ** 0700-CHECKLIST-ROUTINE.                           **           SAMPS031
01016 ** THIS SECTION CONTROLS THE PROCESSING OF THE       **           SAMPS031
01017 ** CHECK-LIST REPORT.                                **           SAMPS031
01018 ***                                                 ***           SAMPS031
01019 *******************************************************           SAMPS031
01020  0700-CHECKLIST-ROUTINE.                                          SAMPS031
01021                                                                   SAMPS031
01022      ADD 1    TO WS-CHECKLIST-CNTR.                               SAMPS031
01023      IF WS-CHECKLIST-CNTR > 20                                    SAMPS031
01024         WRITE CHECK-LIST-REC FROM WS-FOOTNOTE1-AREA               SAMPS031
01025             AFTER ADVANCING 1 LINE                                SAMPS031
01026         WRITE CHECK-LIST-REC FROM WS-FOOTNOTE2-AREA               SAMPS031
01027             AFTER ADVANCING 1 LINE                                SAMPS031
01028         MOVE 1    TO WS-CHECKLIST-CNTR                            SAMPS031
01029         PERFORM 0405-CHECKLIST-HEADER-RTN                         SAMPS031
01030               THRU 0405-CHECKLIST-HEADER-EXIT                     SAMPS031
01031      ELSE                                                         SAMPS031
01032          NEXT SENTENCE.                                           SAMPS031
01033      WRITE CHECK-LIST-REC FROM DL-CHECKLIST-DETAIL                SAMPS031
01034          AFTER ADVANCING 1 LINE.                                  SAMPS031
01035      WRITE CHECK-LIST-REC FROM DL-BANNER-LINE                     SAMPS031
01036          AFTER ADVANCING 1 LINE.                                  SAMPS031
01037                                                                   SAMPS031
01038  0700-CHECKLIST-EXIT.                                             SAMPS031
01039      EXIT.                                                        SAMPS031
01040                                                                   SAMPS031
01041                                                                   SAMPS031
01042 ***************************************************************   SAMPS031
01043 ***                                                         ***   SAMPS031
01044 ** 9999-CLOSE-FILES.                                         **   SAMPS031
01045 ** THIS SECTION WRITES AN END OF JOB MESSAGE, AND CLOSES THE **   SAMPS031
01046 ** INPUT FILES: SELECT-FILE, CNTRL-DATA, AND INPUT/OUTPUT    **   SAMPS031
01047 ** FILE TRANS-FILE.  THE FOLLOWING OUTPUT FILES ARE ALSO     **   SAMPS031
01048 ** CLOSED: JOB-STATUS, HIT-FILE, HIT-LIST, CHECK-LIST.       **   SAMPS031
01049 ***                                                         ***   SAMPS031
01050 ***************************************************************   SAMPS031
01051  9999-CLOSE-FILES.                                                SAMPS031
01052                                                                   SAMPS031
01053      WRITE MESSAGE-RECORD FROM WS-EOJ-DETAIL-LINE.                SAMPS031
01054      CLOSE SELECT-FILE                                            SAMPS031
01055      CLOSE CNTRL-DATA                                             SAMPS031
01056      CLOSE TRANS-FILE                                             SAMPS031
01057      CLOSE JOB-STATUS                                             SAMPS031
01058      CLOSE HIT-FILE                                               SAMPS031
01059      CLOSE HIT-LIST                                               SAMPS031
01060      CLOSE CHECK-LIST                                             SAMPS031
01061      STOP RUN.                                                    SAMPS031
