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