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