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