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