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