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