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