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