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