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