00001 IDENTIFICATION DIVISION. 02/12/04 00002 PROGRAM-ID. SAMPS011. SAMPS011 00003 AUTHOR. YU-SHING(ELSA) CHEN. LV001 00004 DATE-WRITTEN FEB, 1993. SAMPS011 00005 * SAMPS011 00006 *************************************************************** SAMPS011 00007 ** ----------------PROGRAM DESCRIPTION---------------------- ** SAMPS011 00008 *************************************************************** SAMPS011 00009 ** CODING FOR VS COBOL VSAM ** SAMPS011 00010 *************************************************************** SAMPS011 00011 ** ** SAMPS011 00012 ** THIS PROGRAM READS THREE FILES AS INPUT TO THE PROGRAM, ** SAMPS011 00013 ** TRANS-FILE, CNTRL-DATA, AND SELECT-FILE. THE TRANS-FILE ** SAMPS011 00014 ** UTILIZES A VSAM FILE STRUCTURE WITH (SEQ-NMBR) AS THE ** SAMPS011 00015 ** RECORD KEY. THE CNTRL-DATA CONTAINS SOME PROCESSING ** SAMPS011 00016 ** INFORMATION WHICH IS USED IN THE OUTPUT REPORTS ** SAMPS011 00017 ** HIT-FILE, HIT-LIST, AND CHECK-LIST. THE SELECT-FILE ** SAMPS011 00018 ** CONTAINS THE RECORD NUMBERS OF THE RECORDS TO BE SELECTED ** SAMPS011 00019 ** FOR THE SAMPLE. THESE NUMBERS ARE USED AS THE RECORD ** SAMPS011 00020 ** KEY (SEQ-NMBR) TO ACCESS THE TRANS-FILE. THE RECORDS ** SAMPS011 00021 ** THAT ARE READ FROM THE TRANS-FILE ARE OUTPUT TO THE THREE ** SAMPS011 00022 ** FILES, HIT-FILE, HIT-LIST, AND CHECK-LIST. EACH RECORD ** SAMPS011 00023 ** THAT IS READ IS ALSO UPDATED TO INDICATE THAT THE RECORD ** SAMPS011 00024 ** WAS SELECTED AS PART OF THE SAMPLE. THIS IS DONE BY ** SAMPS011 00025 ** CHANGING THE SELECT-FLAG FIELD FROM A '1' TO A '2'. ** SAMPS011 00026 ** ** SAMPS011 00027 *************************************************************** SAMPS011 00028 SAMPS011 00029 ENVIRONMENT DIVISION. SAMPS011 00030 CONFIGURATION SECTION. SAMPS011 00031 INPUT-OUTPUT SECTION. SAMPS011 00032 FILE-CONTROL. SAMPS011 00033 SELECT TRANS-FILE SAMPS011 00034 ASSIGN TO DISKUNIT SAMPS011 00035 ORGANIZATION IS INDEXED SAMPS011 00036 ACCESS MODE IS RANDOM SAMPS011 00037 RECORD KEY IS SEQ-NMBR SAMPS011 00038 FILE STATUS IS TRANS-FILE-ERROR-CODE. SAMPS011 00039 SELECT CNTRL-DATA SAMPS011 00040 ASSIGN TO UT-S-CNTRLDTA. SAMPS011 00041 SELECT SELECT-FILE SAMPS011 00042 ASSIGN TO UT-S-SLCTREC. SAMPS011 00043 SELECT HIT-FILE SAMPS011 00044 ASSIGN TO UT-S-HITFILE. SAMPS011 00045 SELECT HIT-LIST SAMPS011 00046 ASSIGN TO UT-S-PRINTER. SAMPS011 00047 SELECT CHECK-LIST SAMPS011 00048 ASSIGN TO UT-S-CHECK. SAMPS011 00049 SELECT JOB-STATUS SAMPS011 00050 ASSIGN TO UT-S-MSGOUT. SAMPS011 00051 SAMPS011 00052 DATA DIVISION. SAMPS011 00053 FILE SECTION. SAMPS011 00054 *************************************************************** SAMPS011 00055 ** TRANS-FILE IS THE VSAM FILE CREATED BY THE STATE ** SAMPS011 00056 ** EMPLOYMENT SECURITY AGENCIES (SESA) WITH THE RECORDS THAT ** SAMPS011 00057 ** MAKE UP THE SAMPLING UNIVERSE. THE KEY OF THE FILE IS ** SAMPS011 00058 ** (SEQ-NMBR). THIS FIELD CONTAINS THE SEQUENTIAL RECORD ** SAMPS011 00059 ** NUMBER. ** SAMPS011 00060 *************************************************************** SAMPS011 00061 FD TRANS-FILE SAMPS011 00062 LABEL RECORDS ARE STANDARD SAMPS011 00063 BLOCK CONTAINS 0 RECORDS. SAMPS011 00064 01 TRANS-REC. SAMPS011 00065 05 SEQ-NMBR PIC 9(8). SAMPS011 00066 05 REC-TYPE PIC X(5). SAMPS011 00067 05 TRANS-TYPE PIC X. SAMPS011 00068 05 SELECT-FLAG PIC X. SAMPS011 00069 05 EMP-ID PIC X(12). SAMPS011 00070 05 DATE-DETERMINE PIC X(8). SAMPS011 00071 05 DATE-LIABILITY PIC X(8). SAMPS011 00072 05 STATE-OPTION PIC X(25). SAMPS011 00073 SAMPS011 00074 *************************************************************** SAMPS011 00075 ** CNTRL-DATA CONTAINS SOME OF THE PROCESSING INFORMATION ** SAMPS011 00076 ** NEEDED FOR SAMPLING. IT CONTAINS THE RANDOM NUMBER ** SAMPS011 00077 ** (CNTRL-RANDOM), THE NUMBER OF RECORDS TO BE SELECTED FOR ** SAMPS011 00078 ** THE SAMPLE (SAMPLED-NMBR), AND THE RECORD COUNT OF THE ** SAMPS011 00079 ** NUMBER OF RECORDS (TRANS-REC-CNTR) CONTAINED ON THE ** SAMPS011 00080 ** TRANS-FILE. FOR THE PURPOSE OF THIS PROGRAM, ONLY ** SAMPS011 00081 ** THE SESA-ID FIELD, SAMPLE-TYPE, CNTRL-YEAR-QTR, AND ** SAMPS011 00082 ** SAMPLED-NMBR ARE NEEDED. ** SAMPS011 00083 *************************************************************** SAMPS011 00084 SAMPS011 00085 FD CNTRL-DATA SAMPS011 00086 RECORDING MODE IS F SAMPS011 00087 LABEL RECORD IS OMITTED SAMPS011 00088 BLOCK CONTAINS 1 RECORDS. SAMPS011 00089 01 CNTRL-DATA-REC. SAMPS011 00090 05 CNTRL-TYPE PIC X(5). SAMPS011 00091 05 CNTRL-TRANS-TYPE PIC X. SAMPS011 00092 05 SESA-ID PIC XX. SAMPS011 00093 05 CNTRL-RANDOM PIC V999. SAMPS011 00094 05 CNTRL-RANDOM-ALF REDEFINES CNTRL-RANDOM PIC X(3). SAMPS011 00095 05 SAMPLED-NMBR PIC 9(4). SAMPS011 00096 05 SAMPLED-NMBR-ALF REDEFINES SAMPLED-NMBR PIC X(4). SAMPS011 00097 05 TRANS-REC-CNTR PIC 9(8). SAMPS011 00098 05 TRANS-REC-CNTR-ALF REDEFINES TRANS-REC-CNTR PIC X(8). SAMPS011 00099 05 SAMPLE-TYPE PIC X(02). SAMPS011 00100 05 CNTRL-YEAR-QTR PIC X(04). SAMPS011 00101 05 DATE-FILLER PIC 9(04). SAMPS011 00102 SAMPS011 00103 *************************************************************** SAMPS011 00104 ** HIT-LIST CONTAINS THE PRINTED REPORT OF THE RECORDS ** SAMPS011 00105 ** SELECTED FOR SAMPLING. ** SAMPS011 00106 *************************************************************** SAMPS011 00107 SAMPS011 00108 FD HIT-LIST SAMPS011 00109 LABEL RECORD IS STANDARD. SAMPS011 00110 01 PRINT-HIT-REC PIC X(132). SAMPS011 00111 SAMPS011 00112 *************************************************************** SAMPS011 00113 ** THE CHECK-LIST CONTAINS THE INFORMATION NECCESSARY ** SAMPS011 00114 ** TO CARRY OUT THE REVENUE QUALITY CONTROL (RQC) STATUS ** SAMPS011 00115 ** DETERMINATION TAX FUNCTION. THIS CHECK LIST IS A ** SAMPS011 00116 ** DUPLICATE OF THE STATUS DETERMINATION SAMPLING CODING ** SAMPS011 00117 ** SHEET IN THE RQC HANDBOOK. ** SAMPS011 00118 *************************************************************** SAMPS011 00119 FD CHECK-LIST SAMPS011 00120 LABEL RECORD IS STANDARD. SAMPS011 00121 01 CHECK-LIST-REC PIC X(132). SAMPS011 00122 SAMPS011 00123 *************************************************************** SAMPS011 00124 ** HIT-FILE IS THE DATA FILE FOR STORING THE RECORDS THAT ** SAMPS011 00125 ** HAVE BEEN SELECTED FROM THE (TRANS-FILE) FOR THE SAMPLE. ** SAMPS011 00126 ** THESE RECORDS ARE WRITTEN TO A DISK FILE WITH DELIMITERS ** SAMPS011 00127 ** OF '|' BETWEEN EACH FIELD OF THE RECORD. THIS FILE ** SAMPS011 00128 ** (HIT-FILE), WILL BE PASSED TO THE INFORMIX SIDE OF THE ** SAMPS011 00129 ** RQC SYSTEM FOR FURTHER PROCESSING. ** SAMPS011 00130 *************************************************************** SAMPS011 00131 SAMPS011 00132 FD HIT-FILE SAMPS011 00133 LABEL RECORDS ARE STANDARD. SAMPS011 00134 01 TRANS-HIT-REC PIC X(41). SAMPS011 00135 SAMPS011 00136 *************************************************************** SAMPS011 00137 ** THE SELECT-FILE IS THE INPUT FILE THAT CONTAINS THE ** SAMPS011 00138 ** RECORD NUMBERS CREATED IN THE SAMPLE DETERMINATION ** SAMPS011 00139 ** PROGRAM (PICKNMBR). THESE NUMBERS ARE USED AS THE RECORD ** SAMPS011 00140 ** KEY TO SELECT THE RECORDS FROM THE VSAM FILE (TRANS-FILE) ** SAMPS011 00141 ** FOR SAMPLING. ** SAMPS011 00142 *************************************************************** SAMPS011 00143 FD SELECT-FILE SAMPS011 00144 LABEL RECORD IS OMITTED SAMPS011 00145 BLOCK CONTAINS 0 RECORDS. SAMPS011 00146 01 SL-REC-NUM PIC 9(08). SAMPS011 00147 SAMPS011 00148 *************************************************************** SAMPS011 00149 ** THE JOB-STATUS FILE IS A SEPERATE FILE CREATED TO OUTPUT ** SAMPS011 00150 ** THE END OF JOB MESSAGES: ** SAMPS011 00151 ** SAMPS011 - NORMAL END OF JOB, AND ** SAMPS011 00152 ** SAMPS011 - JOB TERMINATED ** SAMPS011 00153 *************************************************************** SAMPS011 00154 FD JOB-STATUS SAMPS011 00155 LABEL RECORD IS STANDARD. SAMPS011 00156 01 MESSAGE-RECORD PIC X(132). SAMPS011 00157 SAMPS011 00158 WORKING-STORAGE SECTION. SAMPS011 001585 77 PAN-VALET PICTURE X(24) VALUE '001SAMPS011 02/12/04'. SAMPS011 00159 SAMPS011 00160 01 WS-WORK-AREA. SAMPS011 00161 05 MATCH-CNTR PIC 9(08) VALUE 0. SAMPS011 00162 05 WS-SELECT-EOF PIC X(01) VALUE 'N'. SAMPS011 00163 05 CNTRL-FLAG PIC X(01) VALUE 'N'. SAMPS011 00164 05 CNTRL-FLAG-B PIC X(01) VALUE 'N'. SAMPS011 00165 05 SELECTED-FLAG PIC 9(01) VALUE 2. SAMPS011 00166 05 LIST-COUNTER PIC 9(02) VALUE 0. SAMPS011 00167 05 LIST-PAGE PIC 9(06) VALUE 0. SAMPS011 00168 SAMPS011 00169 *************************************************************** SAMPS011 00170 ** TRANS-FILE-ERROR-CODE: ** SAMPS011 00171 ** FILE STATUS FIELD WHICH STATUS THE VALUE OF AN ERROR CODE ** SAMPS011 00172 ** IF AN ERROR IS ENCOUNTERED DURING A READ OR WRITE TO THE ** SAMPS011 00173 ** VSAM(TRANS-FILE) FILE. ** SAMPS011 00174 *************************************************************** SAMPS011 00175 01 TRANS-FILE-ERROR-CODE PIC X(02). SAMPS011 00176 SAMPS011 00177 01 WS-REPORT-CONTROLS. SAMPS011 00178 05 WS-CHECKLIST-CNTR PIC 9(02) VALUE 0. SAMPS011 00179 05 WS-PAGE-CNTR PIC 9(04) VALUE 0. SAMPS011 00180 SAMPS011 00181 01 WS-HEADER-SWITCH-AREA. SAMPS011 00182 05 WS-CHECKLIST-SWITCH PIC X(01) VALUE '0'. SAMPS011 00183 05 WS-HIT-LIST-SWITCH PIC X(01) VALUE '0'. SAMPS011 00184 SAMPS011 00185 01 WS-CHECKLIST-HOLD-AREA. SAMPS011 00186 SAMPS011 00187 05 WS-EMPL-HOLD-AREA PIC X(12). SAMPS011 00188 05 WS-CASE-HOLD-AREA PIC 9(08). SAMPS011 00189 05 WS-PERIOD-AREA PIC X(04). SAMPS011 00190 05 WS-SESA-NAME-AREA PIC X(20). SAMPS011 00191 05 WS-SAMPLE-NAME-AREA PIC X(24). SAMPS011 00192 SAMPS011 00193 *************************************************************** SAMPS011 00194 ** (WS-MATCH-REC) STORES THE VALUE OF THE SELECTED RECORDS ** SAMPS011 00195 ** FROM THE VSAM FILE (TRANS-FILE). ** SAMPS011 00196 *************************************************************** SAMPS011 00197 SAMPS011 00198 01 WS-MATCH-RECORD. SAMPS011 00199 05 MATCH-SEQ-NMBR PIC 9(8). SAMPS011 00200 05 MATCH-REC-TYPE PIC X(5). SAMPS011 00201 05 MATCH-TRANS-TYPE PIC X(01). SAMPS011 00202 05 MATCH-SELECT-FLAG PIC X(01). SAMPS011 00203 05 MATCH-EMP-ID PIC X(12). SAMPS011 00204 05 MATCH-DATE-DETERMINE PIC X(8). SAMPS011 00205 05 MATCH-DATE-LIABILITY PIC X(8). SAMPS011 00206 05 MATCH-STATE-OPTION PIC X(25). SAMPS011 00207 SAMPS011 00208 01 WS-SAMPLE-TABLE-CONTROLS. SAMPS011 00209 05 WS-ENTRY-FOUND-SWITCH PIC X(03). SAMPS011 00210 88 WS-SAMPLE-FOUND VALUE 'YES'. SAMPS011 00211 88 WS-END-OF-SAMPLE-TABLE VALUE 'END'. SAMPS011 00212 SAMPS011 00213 *************************************************************** SAMPS011 00214 ** WS-SAMPLE-DATA: ** SAMPS011 00215 ** CONTAINS THE RQC - SAMPLE TYPES - ** SAMPS011 00216 ** A 2 CHARACTER CODE AND A 24 CHARACTER DEFINITION. ** SAMPS011 00217 *************************************************************** SAMPS011 00218 SAMPS011 00219 01 WS-SAMPLE-DATA. SAMPS011 00220 05 FILLER PIC X(26) SAMPS011 00221 VALUE 'A11ST ACCEPTANCE SAMPLE '. SAMPS011 00222 05 FILLER PIC X(26) SAMPS011 00223 VALUE 'A22ND ACCEPTANCE SAMPLE '. SAMPS011 00224 05 FILLER PIC X(26) SAMPS011 00225 VALUE 'E1EXPANDED SAMPLE '. SAMPS011 00226 05 FILLER PIC X(26) SAMPS011 00227 VALUE 'O11ST SESA OPTIONAL SAMPLE'. SAMPS011 00228 05 FILLER PIC X(26) SAMPS011 00229 VALUE 'O22ND SESA OPTIONAL SAMPLE'. SAMPS011 00230 01 WS-SAMPLE-TABLE REDEFINES WS-SAMPLE-DATA. SAMPS011 00231 05 WS-SAMPLE-ENTRY OCCURS 5 TIMES SAMPS011 00232 INDEXED BY WS-INDEX. SAMPS011 00233 10 WS-SAMPLE-ID PIC X(02). SAMPS011 00234 10 WS-SAMPLE-DESCRIPTION PIC X(24). SAMPS011 00235 01 HEADER-SWITCH PIC 9 VALUE 0. SAMPS011 00236 SAMPS011 00237 01 ST-TABLE-CONTROLS. SAMPS011 00238 05 ST-ENTRY-FOUND-SWITCH PIC X(03). SAMPS011 00239 88 ST-ENTRY-FOUND VALUE 'YES'. SAMPS011 00240 88 ST-END-OF-TABLE VALUE 'END'. SAMPS011 00241 SAMPS011 00242 *************************************************************** SAMPS011 00243 ** ST-STATE-DATA: ** SAMPS011 00244 ** CONTAINS THE FIPS CODE AND STATE NAME. ** SAMPS011 00245 *************************************************************** SAMPS011 00246 01 ST-STATE-DATA. SAMPS011 00247 05 FILLER PIC X(22) VALUE 'AKALASKA '. SAMPS011 00248 05 FILLER PIC X(22) VALUE 'ALALABAMA '. SAMPS011 00249 05 FILLER PIC X(22) VALUE 'ARARKANSAS '. SAMPS011 00250 05 FILLER PIC X(22) VALUE 'AZARIZONA '. SAMPS011 00251 05 FILLER PIC X(22) VALUE 'CACALIFORNIA '. SAMPS011 00252 05 FILLER PIC X(22) VALUE 'COCOLORADO '. SAMPS011 00253 05 FILLER PIC X(22) VALUE 'CTCONNECTICUT '. SAMPS011 00254 05 FILLER PIC X(22) VALUE 'DCDISTRICT OF COLUMBIA'. SAMPS011 00255 05 FILLER PIC X(22) VALUE 'DEDELAWARE '. SAMPS011 00256 05 FILLER PIC X(22) VALUE 'FLFLORIDA '. SAMPS011 00257 05 FILLER PIC X(22) VALUE 'GAGEORGIA '. SAMPS011 00258 05 FILLER PIC X(22) VALUE 'HIHAWAII '. SAMPS011 00259 05 FILLER PIC X(22) VALUE 'IAIOWA '. SAMPS011 00260 05 FILLER PIC X(22) VALUE 'IDIDAHO '. SAMPS011 00261 05 FILLER PIC X(22) VALUE 'ILILLINOIS '. SAMPS011 00262 05 FILLER PIC X(22) VALUE 'ININDIANA '. SAMPS011 00263 05 FILLER PIC X(22) VALUE 'KSKANSAS '. SAMPS011 00264 05 FILLER PIC X(22) VALUE 'KYKENTUCKY '. SAMPS011 00265 05 FILLER PIC X(22) VALUE 'LALOUISIANA '. SAMPS011 00266 05 FILLER PIC X(22) VALUE 'MAMASSACHUSETTS '. SAMPS011 00267 05 FILLER PIC X(22) VALUE 'MDMARYLAND '. SAMPS011 00268 05 FILLER PIC X(22) VALUE 'MEMAINE '. SAMPS011 00269 05 FILLER PIC X(22) VALUE 'MIMICHIGAN '. SAMPS011 00270 05 FILLER PIC X(22) VALUE 'MNMINNESOTA '. SAMPS011 00271 05 FILLER PIC X(22) VALUE 'MOMISSOURI '. SAMPS011 00272 05 FILLER PIC X(22) VALUE 'MSMISSISSIPPI '. SAMPS011 00273 05 FILLER PIC X(22) VALUE 'MTMONTANA '. SAMPS011 00274 05 FILLER PIC X(22) VALUE 'NENEBRASKA '. SAMPS011 00275 05 FILLER PIC X(22) VALUE 'NHNEW HAMSHIRE '. SAMPS011 00276 05 FILLER PIC X(22) VALUE 'NJNEW JERSEY '. SAMPS011 00277 05 FILLER PIC X(22) VALUE 'NMNEW MEXICO '. SAMPS011 00278 05 FILLER PIC X(22) VALUE 'NVNEVADA '. SAMPS011 00279 05 FILLER PIC X(22) VALUE 'NYNEW YORK '. SAMPS011 00280 05 FILLER PIC X(22) VALUE 'NCNORTH CAROLINA '. SAMPS011 00281 05 FILLER PIC X(22) VALUE 'NDNORTH DAKOTA '. SAMPS011 00282 05 FILLER PIC X(22) VALUE 'OHOHIO '. SAMPS011 00283 05 FILLER PIC X(22) VALUE 'OKOKLAHOMA '. SAMPS011 00284 05 FILLER PIC X(22) VALUE 'OROREGON '. SAMPS011 00285 05 FILLER PIC X(22) VALUE 'PAPENNSYLVANIA '. SAMPS011 00286 05 FILLER PIC X(22) VALUE 'PRPUERTO RICO '. SAMPS011 00287 05 FILLER PIC X(22) VALUE 'RIRHODE ISLAND '. SAMPS011 00288 05 FILLER PIC X(22) VALUE 'SCSOUTH CAROLINA '. SAMPS011 00289 05 FILLER PIC X(22) VALUE 'SDSOUTH DAKOTA '. SAMPS011 00290 05 FILLER PIC X(22) VALUE 'TNTENNESSEE '. SAMPS011 00291 05 FILLER PIC X(22) VALUE 'TXTEXAS '. SAMPS011 00292 05 FILLER PIC X(22) VALUE 'UTUTAH '. SAMPS011 00293 05 FILLER PIC X(22) VALUE 'VAVIRGINIA '. SAMPS011 00294 05 FILLER PIC X(22) VALUE 'VIVIRGIN ISLAND '. SAMPS011 00295 05 FILLER PIC X(22) VALUE 'VTVERMONT '. SAMPS011 00296 05 FILLER PIC X(22) VALUE 'WAWASHINGTON '. SAMPS011 00297 05 FILLER PIC X(22) VALUE 'WVWEST VIRGINIA '. SAMPS011 00298 05 FILLER PIC X(22) VALUE 'WIWISCONSIN '. SAMPS011 00299 05 FILLER PIC X(22) VALUE 'WYWYOMING '. SAMPS011 00300 01 ST-STATE-TABLE REDEFINES ST-STATE-DATA. SAMPS011 00301 05 ST-STATE-ENTRY OCCURS 53 TIMES SAMPS011 00302 INDEXED BY ST-INDEX. SAMPS011 00303 10 ST-STATE-ID PIC X(02). SAMPS011 00304 10 ST-STATE-NAME PIC X(20). SAMPS011 00305 SAMPS011 00306 01 TRANS-TYPE-DESCR. SAMPS011 00307 05 NEW PIC X(9) VALUE ' NEW '. SAMPS011 00308 05 SUCCESSOR PIC X(9) VALUE 'SUCCESSOR'. SAMPS011 00309 05 INACTIVE PIC X(9) VALUE 'INACTIVE '. SAMPS011 00310 SAMPS011 00311 01 WS-NEW-A PIC X(32) VALUE SAMPS011 00312 'NEW EMPLOYER CHECKLIST #1A '. SAMPS011 00313 01 WS-NEWDESC-A PIC X(49) VALUE SAMPS011 00314 'STATUS DETERMINATION AND TAX RATE #1A '. SAMPS011 00315 01 WS-NEW-B PIC X(32) VALUE SAMPS011 00316 'NEW EMPLOYER CHECKLIST #1B '. SAMPS011 00317 01 WS-NEWDESC-B PIC X(49) VALUE SAMPS011 00318 'ACCOUNT MAINTENANCE #1B '. SAMPS011 00319 01 WS-SUCCESSOR-A PIC X(32) VALUE SAMPS011 00320 'SUCCESSOR EMPLOYER CHECKLIST #2A'. SAMPS011 00321 01 WS-SUCCDESC-A PIC X(49) VALUE SAMPS011 00322 'SUCCESSOR DETERMINATION AND TAX RATE #2A '. SAMPS011 00323 01 WS-SUCCESSOR-B PIC X(32) VALUE SAMPS011 00324 'SUCCESSOR EMPLOYER CHECKLIST #2B'. SAMPS011 00325 01 WS-SUCCDESC-B PIC X(49) VALUE SAMPS011 00326 'ACCOUNT MAINTENANCE #2B '. SAMPS011 00327 01 WS-INACTIVE-A PIC X(32) VALUE SAMPS011 00328 'INACTIVE EMPLOYER CHECKLIST #3A '. SAMPS011 00329 01 WS-INACTDESC-A PIC X(49) VALUE SAMPS011 00330 'ACCURACY OF INACTIVATED/TERMINATED DETERMINATIONS'. SAMPS011 00331 01 WS-INACTIVE-B PIC X(32) VALUE SAMPS011 00332 'INACTIVE EMPLOYER CHECKLIST #3B '. SAMPS011 00333 01 WS-INACTDESC-B PIC X(49) VALUE SAMPS011 00334 'ACCOUNT MAINTENANCE #3B '. SAMPS011 00335 SAMPS011 00336 *************************************************************** SAMPS011 00337 ** WS-END-OF-JOB-MESSAGES: ** SAMPS011 00338 ** END OF JOB STATUS MESSAGES: MESSAGE-1 AND MESSAGE-2 ** SAMPS011 00339 *************************************************************** SAMPS011 00340 SAMPS011 00341 01 WS-END-OF-JOB-MESSAGES. SAMPS011 00342 05 MESSAGE-1 PIC X(28) SAMPS011 00343 VALUE 'SAMPS011 - NORMAL END OF JOB'. SAMPS011 00344 05 MESSAGE-2 PIC X(28) SAMPS011 00345 VALUE 'SAMPS011 - JOB TERMINATED '. SAMPS011 00346 SAMPS011 00347 01 WS-EOJ-DETAIL-LINE. SAMPS011 00348 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00349 05 WS-MESSAGE-FILE PIC X(28). SAMPS011 00350 05 FILLER PIC X(102) VALUE SPACES. SAMPS011 00351 SAMPS011 00352 01 DTL-DATE-REFORMAT-AREA. SAMPS011 00353 05 DTL-DATE-DETERMINE PIC X(08). SAMPS011 00354 05 FILLER REDEFINES DTL-DATE-DETERMINE. SAMPS011 00355 *************************************************************** SAMPS011 00356 * FOLLOWING LINE OF CODE WAS MOVED UP TO MATCH THE FORMAT SAMPS011 00357 * IN RQC DOCUMENTATION FOR DATE FIELDS - SFW (MONTANA) 11/08/93 SAMPS011 00358 *************************************************************** SAMPS011 00359 10 DTL-DETERMINE-YR PIC X(04). SAMPS011 00360 *************************************************************** SAMPS011 00361 10 DTL-DETERMINE-MO PIC X(02). SAMPS011 00362 10 DTL-DETERMINE-DA PIC X(02). SAMPS011 00363 SAMPS011 00364 01 HITFILE-BUF. SAMPS011 00365 05 GROUP-B OCCURS 100 TIMES. SAMPS011 00366 10 B-CASE-NO PIC 9(08). SAMPS011 00367 10 B-EMP-ID PIC X(12). SAMPS011 00368 01 SUB PIC 9(03). SAMPS011 00369 SAMPS011 00370 *************************************************************** SAMPS011 00371 ** (OUTPUT-HIT-REC) IS THE RECORD LAYOUT FOR THE RECORDS ** SAMPS011 00372 ** THAT ARE WRITTEN TO THE FILE (HIT-FILE). THIS FILE CAN BE ** SAMPS011 00373 ** DOWNLOADED TO SUN MICROCOMPUTER INTO THE CORE RQC SAMPLING** SAMPS011 00374 ** SUBSYSTEM. ** SAMPS011 00375 *************************************************************** SAMPS011 00376 01 OUTPUT-HIT-REC. SAMPS011 00377 SAMPS011 00378 05 HIT-REC-TYPE PIC X(05) VALUE SPACES. SAMPS011 00379 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00380 05 HIT-STATE PIC X(02) VALUE SPACES. SAMPS011 00381 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00382 05 HIT-SAMPLE-YEAR PIC X(04) VALUE SPACES. SAMPS011 00383 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00384 05 HIT-TRANS-TYPE PIC X(01) VALUE ZEROS. SAMPS011 00385 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00386 05 HIT-SAMPLE-TYPE PIC X(02) VALUE ZEROS. SAMPS011 00387 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00388 05 HIT-CASE-NUMBER PIC 9(08) VALUE ZEROS. SAMPS011 00389 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00390 05 HIT-EMPLOYER-ID PIC X(12) VALUE SPACES. SAMPS011 00391 05 FILLER PIC X(01) VALUE '|'. SAMPS011 00392 SAMPS011 00393 *************************************************************** SAMPS011 00394 ** (OUTPUT-TITLES) DESCRIBES THE LINES FOR EACH LINE OF THE ** SAMPS011 00395 ** REPORT TITLE. ** SAMPS011 00396 *************************************************************** SAMPS011 00397 SAMPS011 00398 01 LIST-HEADING-1. SAMPS011 00399 10 FILLER PIC X(1) VALUE SPACES. SAMPS011 00400 10 FILLER PIC X(9) VALUE 'RUN DATE:'. SAMPS011 00401 10 FILLER PIC X(1) VALUE SPACES. SAMPS011 00402 10 O-RUN-DATE PIC X(8) VALUE SPACES. SAMPS011 00403 10 FILLER PIC X(11) VALUE SPACES. SAMPS011 00404 10 FILLER PIC X(23) SAMPS011 00405 VALUE 'STATUS DETERMINATION - '. SAMPS011 00406 10 FILLER PIC X(1) VALUE SPACES. SAMPS011 00407 10 DTL-OUTPUT-TRANS-TYPE PIC X(9). SAMPS011 00408 10 FILLER PIC X(38) VALUE SPACES. SAMPS011 00409 10 FILLER PIC X(5) VALUE 'PAGE:'. SAMPS011 00410 10 FILLER PIC X(1) VALUE SPACES. SAMPS011 00411 10 O-LIST-PAGE PIC ZZZZZ9. SAMPS011 00412 10 FILLER PIC X(17) VALUE SPACES. SAMPS011 00413 SAMPS011 00414 01 LIST-HEADING-2. SAMPS011 00415 10 FILLER PIC X(36) VALUE SPACES. SAMPS011 00416 10 FILLER PIC X(25) SAMPS011 00417 VALUE 'SAMPLING HIT FILE LISTING'. SAMPS011 00418 10 FILLER PIC X(71) VALUE SPACES. SAMPS011 00419 SAMPS011 00420 01 LIST-HEADING-3. SAMPS011 00421 10 FILLER PIC X(36) VALUE SPACES. SAMPS011 00422 10 FILLER PIC X(9) VALUE 'STATE OF '. SAMPS011 00423 10 O-CNTRL-SESA-NAME PIC X(20) VALUE SPACES. SAMPS011 00424 10 FILLER PIC X(67) VALUE SPACES. SAMPS011 00425 SAMPS011 00426 01 LIST-HEADING-4. SAMPS011 00427 10 FILLER PIC X(22) VALUE SPACES. SAMPS011 00428 10 FILLER PIC X(4) VALUE 'CASE'. SAMPS011 00429 10 FILLER PIC X(8) VALUE SPACES. SAMPS011 00430 10 FILLER PIC X(8) VALUE 'EMPLOYER'. SAMPS011 00431 10 FILLER PIC X(09) VALUE SPACES. SAMPS011 00432 10 FILLER PIC X(4) VALUE 'DATE'. SAMPS011 00433 10 FILLER PIC X(7) VALUE SPACES. SAMPS011 00434 10 FILLER PIC X(8) VALUE 'SEQUENCE'. SAMPS011 00435 10 FILLER PIC X(67) VALUE SPACES. SAMPS011 00436 SAMPS011 00437 01 LIST-HEADING-5. SAMPS011 00438 10 FILLER PIC X(22) VALUE SPACES. SAMPS011 00439 10 FILLER PIC X(6) VALUE 'NUMBER'. SAMPS011 00440 10 FILLER PIC X(6) VALUE SPACES. SAMPS011 00441 10 FILLER PIC X(9) VALUE 'ID NUMBER'. SAMPS011 00442 10 FILLER PIC X(06) VALUE SPACES. SAMPS011 00443 10 FILLER PIC X(9) SAMPS011 00444 VALUE 'COMPLETED'. SAMPS011 00445 10 FILLER PIC X(5) VALUE SPACES. SAMPS011 00446 10 FILLER PIC X(7) VALUE 'NUMBER'. SAMPS011 00447 10 FILLER PIC X(63) VALUE SPACES. SAMPS011 00448 SAMPS011 00449 *************************************************************** SAMPS011 00450 ** (OUTPUT-DTL-LINE) DESCRIBES THE OUTPUT FOR THE DETAIL ** SAMPS011 00451 ** LINES OF THE REPORT. ** SAMPS011 00452 *************************************************************** SAMPS011 00453 SAMPS011 00454 01 HIT-LIST-REC. SAMPS011 00455 10 FILLER PIC X(19) VALUE SPACES. SAMPS011 00456 10 DTL-CASE-NO PIC ZZZZZZZ9 VALUE ZEROS. SAMPS011 00457 10 FILLER PIC X(6) VALUE SPACES. SAMPS011 00458 *************************************************************** SAMPS011 00459 * FOLLOWING LINE OF CODE WAS ALTERED TO REMOVE UNNECESSARY SAMPS011 00460 * ZEROES FOR READABILITY - SFW (MONTANA) 11/08/93 SAMPS011 00461 * 10 DTL-EMP-ID PIC X(12) VALUE SPACES. SAMPS011 00462 *************************************************************** SAMPS011 00463 10 DTL-EMP-ID PIC ZZZZZZ999999. SAMPS011 00464 10 FILLER PIC X(05) VALUE SPACES. SAMPS011 00465 10 O-DETERMINE-MO PIC XX VALUE ZEROS. SAMPS011 00466 10 FILLER PIC X SAMPS011 00467 VALUE '/'. SAMPS011 00468 10 O-DETERMINE-DA PIC XX VALUE ZEROS. SAMPS011 00469 10 FILLER PIC X SAMPS011 00470 VALUE '/'. SAMPS011 00471 10 O-DETERMINE-YR PIC X(4) VALUE ZEROS. SAMPS011 00472 10 FILLER PIC X(3) VALUE SPACES. SAMPS011 00473 10 DTL-SEQ-NMBR PIC ZZZZZZZ9 VALUE ZEROS. SAMPS011 00474 10 FILLER PIC X(64) VALUE SPACES. SAMPS011 00475 SAMPS011 00476 *************************************************************** SAMPS011 00477 ** ADDITIONAL COBOL CODE TO CREATE A CODING SHEET FOR THE ** SAMPS011 00478 ** REVENUE QUALITY CONTROL(RQC) REVIEWER. IT IS A DUPLICATE ** SAMPS011 00479 ** THE CODING SHEET IN THE RQC OPERATIONS HANDBOOK. ** SAMPS011 00480 *************************************************************** SAMPS011 00481 01 FL-BANNER-LINE PIC X(132) VALUE ALL '-'. SAMPS011 00482 SAMPS011 00483 01 HD-NEW-EMP-CHECKLIST. SAMPS011 00484 SAMPS011 00485 05 FILLER PIC X(53) VALUE SPACES. SAMPS011 00486 05 FILLER PIC X(23) VALUE SAMPS011 00487 'REVENUE QUALITY CONTROL'. SAMPS011 00488 05 FILLER PIC X(34) VALUE SPACES. SAMPS011 00489 05 FILLER PIC X(06) VALUE SAMPS011 00490 'PAGE: '. SAMPS011 00491 05 HD-PAGE-NUMBER PIC ZZZZZ9. SAMPS011 00492 05 FILLER PIC X(10) VALUE SPACES. SAMPS011 00493 SAMPS011 00494 01 HT-TAX-FUNCTION-HEADER. SAMPS011 00495 SAMPS011 00496 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 00497 05 FILLER PIC X(26) VALUE SAMPS011 00498 'STATUS SAMPLE CODING SHEET'. SAMPS011 00499 05 FILLER PIC X(83) VALUE SPACES. SAMPS011 00500 05 FILLER PIC X(10) VALUE SAMPS011 00501 'RUN DATE: '. SAMPS011 00502 05 HD-RUN-DATE PIC X(08). SAMPS011 00503 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00504 SAMPS011 00505 01 WS-FUNCTION-DATE. SAMPS011 00506 SAMPS011 00507 05 WS-DATE PIC 9(06) VALUE ZEROES. SAMPS011 00508 05 WS-DATE-R REDEFINES WS-DATE. SAMPS011 00509 10 WS-YY PIC 9(02). SAMPS011 00510 10 WS-MM PIC 9(02). SAMPS011 00511 10 WS-DD PIC 9(02). SAMPS011 00512 SAMPS011 00513 05 WRK-DATE-AREA. SAMPS011 00514 10 WRK-MM PIC X(02). SAMPS011 00515 10 FILLER PIC X(01) VALUE '/'. SAMPS011 00516 10 WRK-DD PIC X(02). SAMPS011 00517 10 FILLER PIC X(01) VALUE '/'. SAMPS011 00518 10 WRK-YY PIC X(02). SAMPS011 00519 SAMPS011 00520 01 HA-TAX-FUNCTION-HEADER. SAMPS011 00521 SAMPS011 00522 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 00523 05 CHECKLIST-TYPEA PIC X(32). SAMPS011 00524 05 FILLER PIC X(5) VALUE SPACES. SAMPS011 00525 05 CHECKLIST-DESCA PIC X(49). SAMPS011 00526 05 FILLER PIC X(45) VALUE SPACES. SAMPS011 00527 SAMPS011 00528 SAMPS011 00529 01 HB-TAX-FUNCTION-HEADER. SAMPS011 00530 SAMPS011 00531 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 00532 05 CHECKLIST-TYPEB PIC X(32). SAMPS011 00533 05 FILLER PIC X(5) VALUE SPACES. SAMPS011 00534 05 CHECKLIST-DESCB PIC X(49). SAMPS011 00535 05 FILLER PIC X(45) VALUE SPACES. SAMPS011 00536 SAMPS011 00537 01 FL-FIRST-LINE-COLUMN-HEADER. SAMPS011 00538 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00539 05 FILLER PIC X(11) VALUE SAMPS011 00540 'SESA NAME: '. SAMPS011 00541 05 FL-SESA-NAME PIC X(20). SAMPS011 00542 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00543 05 FILLER PIC X(08) VALUE SAMPS011 00544 'PERIOD: '. SAMPS011 00545 05 FL-PERIOD PIC X(04). SAMPS011 00546 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00547 05 FILLER PIC X(13) VALUE SAMPS011 00548 'SAMPLE TYPE: '. SAMPS011 00549 05 FL-SAMPLE-TYPE PIC X(24). SAMPS011 00550 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00551 05 FILLER PIC X(25) VALUE SAMPS011 00552 'REVIEWER: _______________'. SAMPS011 00553 05 FILLER PIC X(12) VALUE SPACES. SAMPS011 00554 SAMPS011 00555 01 TT-TRANSACTION-TYPE-FIELD. SAMPS011 00556 SAMPS011 00557 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 00558 05 FILLER PIC X(18) SAMPS011 00559 VALUE 'TRANSACTION TYPE: '. SAMPS011 00560 05 TT-TRANS-TYPE PIC X(09). SAMPS011 00561 05 FILLER PIC X(56) VALUE SPACES. SAMPS011 00562 *1A FORM SAMPS011 00563 01 SL-SECOND-LINE-1A-HEADER. SAMPS011 00564 SAMPS011 00565 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00566 05 FILLER PIC X(04) VALUE SAMPS011 00567 'CASE'. SAMPS011 00568 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00569 05 FILLER PIC X(08) VALUE SAMPS011 00570 'EMPLOYER'. SAMPS011 00571 05 FILLER PIC X(69) VALUE SPACES. SAMPS011 00572 05 FILLER PIC X(9) VALUE 'PASS/FAIL'. SAMPS011 00573 05 FILLER PIC X(35) VALUE SPACES. SAMPS011 00574 SAMPS011 00575 01 TL-THIRD-COL-1A-HEADER. SAMPS011 00576 SAMPS011 00577 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00578 05 FILLER PIC X(06) VALUE SAMPS011 00579 'NUMBER'. SAMPS011 00580 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00581 05 FILLER PIC X(09) VALUE SAMPS011 00582 'ID NUMBER'. SAMPS011 00583 05 FILLER PIC X(06) VALUE SPACES. SAMPS011 00584 05 FILLER PIC X(01) VALUE '1'. SAMPS011 00585 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00586 05 FILLER PIC X(01) VALUE '2'. SAMPS011 00587 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00588 05 FILLER PIC X(02) VALUE '2A'. SAMPS011 00589 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00590 05 FILLER PIC X(01) VALUE '3'. SAMPS011 00591 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00592 05 FILLER PIC X(01) VALUE '4'. SAMPS011 00593 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00594 05 FILLER PIC X(01) VALUE '5'. SAMPS011 00595 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00596 05 FILLER PIC X(01) VALUE '6'. SAMPS011 00597 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00598 05 FILLER PIC X(01) VALUE '7'. SAMPS011 00599 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00600 05 FILLER PIC X(01) VALUE '8'. SAMPS011 00601 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00602 05 FILLER PIC X(01) VALUE '9'. SAMPS011 00603 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00604 05 FILLER PIC X(02) VALUE '10'. SAMPS011 00605 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00606 05 FILLER PIC X(02) VALUE '11'. SAMPS011 00607 05 FILLER PIC X(09) VALUE SPACES. SAMPS011 00608 05 FILLER PIC X(03) VALUE 'Y/N'. SAMPS011 00609 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 00610 SAMPS011 00611 01 CL-COL-1A-UNDERLINE. SAMPS011 00612 SAMPS011 00613 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00614 05 FILLER PIC X(06) VALUE SAMPS011 00615 '------'. SAMPS011 00616 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00617 05 FILLER PIC X(09) VALUE SAMPS011 00618 '---------'. SAMPS011 00619 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00620 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00621 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00622 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00623 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00624 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00625 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00626 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00627 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00628 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00629 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00630 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00631 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00632 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00633 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00634 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00635 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00636 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00637 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00638 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00639 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00640 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00641 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00642 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00643 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00644 05 FILLER PIC X(09) VALUE '---------'. SAMPS011 00645 05 FILLER PIC X(34) VALUE SPACES. SAMPS011 00646 SAMPS011 00647 01 DL-BANNER-1A. SAMPS011 00648 05 FILLER PIC X(102) VALUE ALL '-'. SAMPS011 00649 05 FILLER PIC X(30) VALUE SPACES. SAMPS011 00650 * SAMPS011 00651 01 DL-CHKLST-DETAIL-1A. SAMPS011 00652 05 DL-1A-CASE-NO PIC ZZZZZZZ9. SAMPS011 00653 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00654 *************************************************************** SAMPS011 00655 * FOLLOWING LINE OF CODE WAS ALTERED TO REMOVE UNNECESSARY SAMPS011 00656 * ZEROES FOR READABILITY - SFW (MONTANA) 11/08/93 SAMPS011 00657 * 05 DL-1A-EMP-ID PIC X(12). SAMPS011 00658 *************************************************************** SAMPS011 00659 05 DL-1A-EMP-ID PIC ZZZZZZ999999. SAMPS011 00660 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00661 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00662 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00663 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00664 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00665 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00666 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00667 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00668 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00669 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00670 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00671 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00672 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00673 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00674 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00675 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00676 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00677 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00678 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00679 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00680 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00681 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00682 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00683 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00684 05 FILLER PIC X(08) VALUE SPACES. SAMPS011 00685 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00686 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 00687 *1A FORM END SAMPS011 00688 01 FOOTNOTE-1A. SAMPS011 00689 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 00690 05 FILLER PIC X(48) SAMPS011 00691 VALUE 'QUESTIONS 2A, 3, 5, 6, 10 AND 11 ARE EVALUATIVE.'. SAMPS011 00692 05 FILLER PIC X(83) VALUE SPACES. SAMPS011 00693 SAMPS011 00694 *1B FORM SAMPS011 00695 01 SL-SECOND-LINE-1B-HEADER. SAMPS011 00696 SAMPS011 00697 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00698 05 FILLER PIC X(04) VALUE SAMPS011 00699 'CASE'. SAMPS011 00700 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00701 05 FILLER PIC X(08) VALUE SAMPS011 00702 'EMPLOYER'. SAMPS011 00703 05 FILLER PIC X(84) VALUE SPACES. SAMPS011 00704 05 FILLER PIC X(09) VALUE 'PASS/FAIL'. SAMPS011 00705 05 FILLER PIC X(20) VALUE SPACES. SAMPS011 00706 SAMPS011 00707 01 TL-THIRD-COL-1B-HEADER. SAMPS011 00708 SAMPS011 00709 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00710 05 FILLER PIC X(06) VALUE SAMPS011 00711 'NUMBER'. SAMPS011 00712 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00713 05 FILLER PIC X(09) VALUE SAMPS011 00714 'ID NUMBER'. SAMPS011 00715 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00716 05 FILLER PIC X(03) VALUE '12A'. SAMPS011 00717 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00718 05 FILLER PIC X(03) VALUE '12B'. SAMPS011 00719 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00720 05 FILLER PIC X(03) VALUE '12C'. SAMPS011 00721 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00722 05 FILLER PIC X(03) VALUE '12D'. SAMPS011 00723 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00724 05 FILLER PIC X(03) VALUE '12E'. SAMPS011 00725 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00726 05 FILLER PIC X(03) VALUE '12F'. SAMPS011 00727 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00728 05 FILLER PIC X(03) VALUE '12G'. SAMPS011 00729 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00730 05 FILLER PIC X(03) VALUE '12H'. SAMPS011 00731 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00732 05 FILLER PIC X(03) VALUE '12I'. SAMPS011 00733 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00734 05 FILLER PIC X(03) VALUE '12J'. SAMPS011 00735 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00736 05 FILLER PIC X(03) VALUE '12K'. SAMPS011 00737 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00738 05 FILLER PIC X(03) VALUE '12L'. SAMPS011 00739 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00740 05 FILLER PIC X(03) VALUE '12M'. SAMPS011 00741 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00742 05 FILLER PIC X(03) VALUE '12N'. SAMPS011 00743 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00744 05 FILLER PIC X(03) VALUE '13 '. SAMPS011 00745 05 FILLER PIC X(08) VALUE SPACES. SAMPS011 00746 05 FILLER PIC X(03) VALUE 'Y/N'. SAMPS011 00747 05 FILLER PIC X(22) VALUE SPACES. SAMPS011 00748 SAMPS011 00749 01 CL-COL-1B-UNDERLINE. SAMPS011 00750 SAMPS011 00751 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00752 05 FILLER PIC X(06) VALUE SAMPS011 00753 '------'. SAMPS011 00754 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00755 05 FILLER PIC X(09) VALUE SAMPS011 00756 '---------'. SAMPS011 00757 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00758 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00759 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00760 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00761 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00762 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00763 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00764 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00765 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00766 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00767 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00768 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00769 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00770 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00771 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00772 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00773 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00774 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00775 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00776 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00777 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00778 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00779 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00780 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00781 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00782 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00783 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00784 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00785 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00786 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00787 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00788 05 FILLER PIC X(09) VALUE '---------'. SAMPS011 00789 05 FILLER PIC X(19) VALUE SPACES. SAMPS011 00790 SAMPS011 00791 01 DL-BANNER-1B. SAMPS011 00792 05 FILLER PIC X(117) VALUE ALL '-'. SAMPS011 00793 05 FILLER PIC X(15) VALUE SPACES. SAMPS011 00794 * SAMPS011 00795 01 DL-CHKLST-DETAIL-1B. SAMPS011 00796 05 DL-1B-CASE-NO PIC ZZZZZZZ9. SAMPS011 00797 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00798 05 DL-1B-EMP-ID PIC X(12). SAMPS011 00799 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00800 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00801 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00802 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00803 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00804 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00805 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00806 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00807 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00808 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00809 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00810 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00811 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00812 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00813 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00814 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00815 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00816 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00817 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00818 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00819 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00820 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00821 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00822 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00823 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00824 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00825 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00826 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00827 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00828 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00829 05 FILLER PIC X(08) VALUE SPACES. SAMPS011 00830 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00831 05 FILLER PIC X(23) VALUE SPACES. SAMPS011 00832 *1B FORM END SAMPS011 00833 01 FOOTNOTE-1B. SAMPS011 00834 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 00835 05 FILLER PIC X(26) SAMPS011 00836 VALUE 'QUESTION 13 IS EVALUATIVE.'. SAMPS011 00837 05 FILLER PIC X(105) VALUE SPACES. SAMPS011 00838 SAMPS011 00839 *2A FORM SAMPS011 00840 01 SL-SECOND-LINE-2A-HEADER. SAMPS011 00841 SAMPS011 00842 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00843 05 FILLER PIC X(04) VALUE SAMPS011 00844 'CASE'. SAMPS011 00845 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00846 05 FILLER PIC X(08) VALUE SAMPS011 00847 'EMPLOYER'. SAMPS011 00848 05 FILLER PIC X(59) VALUE SPACES. SAMPS011 00849 05 FILLER PIC X(09) VALUE 'PASS/FAIL'. SAMPS011 00850 05 FILLER PIC X(45) VALUE SPACES. SAMPS011 00851 SAMPS011 00852 01 TL-THIRD-COL-2A-HEADER. SAMPS011 00853 SAMPS011 00854 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00855 05 FILLER PIC X(06) VALUE SAMPS011 00856 'NUMBER'. SAMPS011 00857 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00858 05 FILLER PIC X(09) VALUE SAMPS011 00859 'ID NUMBER'. SAMPS011 00860 05 FILLER PIC X(06) VALUE SPACES. SAMPS011 00861 05 FILLER PIC X(01) VALUE '1'. SAMPS011 00862 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00863 05 FILLER PIC X(01) VALUE '2'. SAMPS011 00864 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00865 05 FILLER PIC X(02) VALUE '2A'. SAMPS011 00866 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00867 05 FILLER PIC X(01) VALUE '3'. SAMPS011 00868 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00869 05 FILLER PIC X(01) VALUE '4'. SAMPS011 00870 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00871 05 FILLER PIC X(01) VALUE '5'. SAMPS011 00872 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00873 05 FILLER PIC X(01) VALUE '6'. SAMPS011 00874 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00875 05 FILLER PIC X(01) VALUE '7'. SAMPS011 00876 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00877 05 FILLER PIC X(01) VALUE '8'. SAMPS011 00878 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00879 05 FILLER PIC X(01) VALUE '9'. SAMPS011 00880 05 FILLER PIC X(09) VALUE SPACES. SAMPS011 00881 05 FILLER PIC X(03) VALUE 'Y/N'. SAMPS011 00882 05 FILLER PIC X(46) VALUE SPACES. SAMPS011 00883 SAMPS011 00884 01 CL-COL-2A-UNDERLINE. SAMPS011 00885 SAMPS011 00886 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00887 05 FILLER PIC X(06) VALUE SAMPS011 00888 '------'. SAMPS011 00889 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00890 05 FILLER PIC X(09) VALUE SAMPS011 00891 '---------'. SAMPS011 00892 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00893 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00894 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00895 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00896 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00897 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00898 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00899 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00900 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00901 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00902 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00903 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00904 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00905 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00906 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00907 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00908 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00909 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00910 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00911 05 FILLER PIC X(03) VALUE '---'. SAMPS011 00912 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00913 05 FILLER PIC X(09) VALUE '---------'. SAMPS011 00914 05 FILLER PIC X(45) VALUE SPACES. SAMPS011 00915 SAMPS011 00916 01 DL-BANNER-2A. SAMPS011 00917 05 FILLER PIC X(94) VALUE ALL '-'. SAMPS011 00918 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 00919 * SAMPS011 00920 01 DL-CHKLST-DETAIL-2A. SAMPS011 00921 05 DL-2A-CASE-NO PIC ZZZZZZZ9. SAMPS011 00922 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00923 05 DL-2A-EMP-ID PIC X(12). SAMPS011 00924 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00925 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00926 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00927 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00928 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00929 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00930 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00931 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00932 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00933 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00934 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00935 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00936 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00937 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00938 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00939 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00940 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00941 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00942 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00943 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00944 05 FILLER PIC X(08) VALUE SPACES. SAMPS011 00945 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 00946 05 FILLER PIC X(48) VALUE SPACES. SAMPS011 00947 *2A FORM END SAMPS011 00948 01 FOOTNOTE-2A. SAMPS011 00949 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 00950 05 FILLER PIC X(43) SAMPS011 00951 VALUE 'QUESTIONS 2A, 3, 5, 7 AND 9 ARE EVALUATIVE.'. SAMPS011 00952 05 FILLER PIC X(88) VALUE SPACES. SAMPS011 00953 SAMPS011 00954 *2B FORM SAMPS011 00955 01 SL-SECOND-LINE-2B-HEADER. SAMPS011 00956 SAMPS011 00957 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 00958 05 FILLER PIC X(04) VALUE SAMPS011 00959 'CASE'. SAMPS011 00960 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00961 05 FILLER PIC X(08) VALUE SAMPS011 00962 'EMPLOYER'. SAMPS011 00963 05 FILLER PIC X(84) VALUE SPACES. SAMPS011 00964 05 FILLER PIC X(09) VALUE 'PASS/FAIL'. SAMPS011 00965 05 FILLER PIC X(20) VALUE SPACES. SAMPS011 00966 SAMPS011 00967 01 TL-THIRD-COL-2B-HEADER. SAMPS011 00968 SAMPS011 00969 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 00970 05 FILLER PIC X(06) VALUE SAMPS011 00971 'NUMBER'. SAMPS011 00972 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00973 05 FILLER PIC X(09) VALUE SAMPS011 00974 'ID NUMBER'. SAMPS011 00975 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 00976 05 FILLER PIC X(03) VALUE '10A'. SAMPS011 00977 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00978 05 FILLER PIC X(03) VALUE '10B'. SAMPS011 00979 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00980 05 FILLER PIC X(03) VALUE '10C'. SAMPS011 00981 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00982 05 FILLER PIC X(03) VALUE '10D'. SAMPS011 00983 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00984 05 FILLER PIC X(03) VALUE '10E'. SAMPS011 00985 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00986 05 FILLER PIC X(03) VALUE '10F'. SAMPS011 00987 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00988 05 FILLER PIC X(03) VALUE '10G'. SAMPS011 00989 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00990 05 FILLER PIC X(03) VALUE '10H'. SAMPS011 00991 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00992 05 FILLER PIC X(03) VALUE '10I'. SAMPS011 00993 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00994 05 FILLER PIC X(03) VALUE '10J'. SAMPS011 00995 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00996 05 FILLER PIC X(03) VALUE '10K'. SAMPS011 00997 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 00998 05 FILLER PIC X(03) VALUE '10L'. SAMPS011 00999 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01000 05 FILLER PIC X(03) VALUE '10M'. SAMPS011 01001 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01002 05 FILLER PIC X(03) VALUE '10N'. SAMPS011 01003 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01004 05 FILLER PIC X(03) VALUE '11 '. SAMPS011 01005 05 FILLER PIC X(08) VALUE SPACES. SAMPS011 01006 05 FILLER PIC X(03) VALUE 'Y/N'. SAMPS011 01007 05 FILLER PIC X(22) VALUE SPACES. SAMPS011 01008 SAMPS011 01009 01 CL-COL-2B-UNDERLINE. SAMPS011 01010 SAMPS011 01011 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01012 05 FILLER PIC X(06) VALUE SAMPS011 01013 '------'. SAMPS011 01014 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01015 05 FILLER PIC X(09) VALUE SAMPS011 01016 '---------'. SAMPS011 01017 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 01018 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01019 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01020 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01021 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01022 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01023 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01024 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01025 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01026 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01027 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01028 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01029 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01030 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01031 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01032 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01033 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01034 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01035 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01036 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01037 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01038 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01039 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01040 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01041 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01042 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01043 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01044 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01045 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01046 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01047 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 01048 05 FILLER PIC X(09) VALUE '---------'. SAMPS011 01049 05 FILLER PIC X(19) VALUE SPACES. SAMPS011 01050 SAMPS011 01051 01 DL-BANNER-2B. SAMPS011 01052 05 FILLER PIC X(117) VALUE ALL '-'. SAMPS011 01053 05 FILLER PIC X(15) VALUE SPACES. SAMPS011 01054 * SAMPS011 01055 01 DL-CHKLST-DETAIL-2B. SAMPS011 01056 05 DL-2B-CASE-NO PIC ZZZZZZZ9. SAMPS011 01057 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01058 05 DL-2B-EMP-ID PIC X(12). SAMPS011 01059 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01060 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01061 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01062 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01063 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01064 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01065 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01066 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01067 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01068 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01069 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01070 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01071 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01072 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01073 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01074 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01075 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01076 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01077 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01078 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01079 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01080 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01081 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01082 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01083 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01084 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01085 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01086 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01087 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01088 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01089 05 FILLER PIC X(08) VALUE SPACES. SAMPS011 01090 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01091 05 FILLER PIC X(23) VALUE SPACES. SAMPS011 01092 *2B FORM END SAMPS011 01093 01 FOOTNOTE-2B. SAMPS011 01094 05 FILLER PIC X(01) VALUE SPACES. SAMPS011 01095 05 FILLER PIC X(26) SAMPS011 01096 VALUE 'QUESTION 11 IS EVALUATIVE.'. SAMPS011 01097 05 FILLER PIC X(105) VALUE SPACES. SAMPS011 01098 SAMPS011 01099 *3A FORM SAMPS011 01100 01 SL-SECOND-LINE-3A-HEADER. SAMPS011 01101 SAMPS011 01102 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01103 05 FILLER PIC X(04) VALUE SAMPS011 01104 'CASE'. SAMPS011 01105 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 01106 05 FILLER PIC X(08) VALUE SAMPS011 01107 'EMPLOYER'. SAMPS011 01108 05 FILLER PIC X(27) VALUE SPACES. SAMPS011 01109 05 FILLER PIC X(09) VALUE 'PASS/FAIL'. SAMPS011 01110 05 FILLER PIC X(41) VALUE SPACES. SAMPS011 01111 SAMPS011 01112 01 TL-THIRD-COL-3A-HEADER. SAMPS011 01113 SAMPS011 01114 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01115 05 FILLER PIC X(06) VALUE SAMPS011 01116 'NUMBER'. SAMPS011 01117 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01118 05 FILLER PIC X(09) VALUE SAMPS011 01119 'ID NUMBER'. SAMPS011 01120 05 FILLER PIC X(07) VALUE SPACES. SAMPS011 01121 05 FILLER PIC X(01) VALUE '1'. SAMPS011 01122 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 01123 05 FILLER PIC X(01) VALUE '2'. SAMPS011 01124 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 01125 05 FILLER PIC X(01) VALUE '3'. SAMPS011 01126 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 01127 05 FILLER PIC X(01) VALUE '4'. SAMPS011 01128 05 FILLER PIC X(06) VALUE SPACES. SAMPS011 01129 05 FILLER PIC X(03) VALUE 'Y/N'. SAMPS011 01130 05 FILLER PIC X(45) VALUE SPACES. SAMPS011 01131 SAMPS011 01132 01 CL-COL-3A-UNDERLINE. SAMPS011 01133 SAMPS011 01134 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01135 05 FILLER PIC X(06) VALUE SAMPS011 01136 '------'. SAMPS011 01137 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01138 05 FILLER PIC X(09) VALUE SAMPS011 01139 '---------'. SAMPS011 01140 05 FILLER PIC X(06) VALUE SPACES. SAMPS011 01141 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01142 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01143 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01144 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01145 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01146 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01147 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01148 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01149 05 FILLER PIC X(09) VALUE '---------'. SAMPS011 01150 05 FILLER PIC X(44) VALUE SPACES. SAMPS011 01151 SAMPS011 01152 01 DL-BANNER-3A. SAMPS011 01153 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01154 05 FILLER PIC X(52) VALUE ALL '-'. SAMPS011 01155 05 FILLER PIC X(42) VALUE SPACES. SAMPS011 01156 * SAMPS011 01157 01 DL-CHKLST-DETAIL-3A. SAMPS011 01158 05 FILLER PIC X(36) VALUE SPACES. SAMPS011 01159 05 DL-3A-CASE-NO PIC ZZZZZZZ9. SAMPS011 01160 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01161 05 DL-3A-EMP-ID PIC X(12). SAMPS011 01162 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01163 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01164 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01165 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01166 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01167 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01168 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01169 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01170 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 01171 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01172 05 FILLER PIC X(50) VALUE SPACES. SAMPS011 01173 *3A FORM END SAMPS011 01174 01 FOOTNOTE-3A. SAMPS011 01175 05 FILLER PIC X(40) VALUE SPACES. SAMPS011 01176 05 FILLER PIC X(33) SAMPS011 01177 VALUE 'QUESTIONS 3 AND 4 ARE EVALUATIVE.'. SAMPS011 01178 05 FILLER PIC X(57) VALUE SPACES. SAMPS011 01179 SAMPS011 01180 *3B FORM SAMPS011 01181 01 SL-SECOND-LINE-3B-HEADER. SAMPS011 01182 SAMPS011 01183 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01184 05 FILLER PIC X(04) VALUE SAMPS011 01185 'CASE'. SAMPS011 01186 05 FILLER PIC X(04) VALUE SPACES. SAMPS011 01187 05 FILLER PIC X(08) VALUE SAMPS011 01188 'EMPLOYER'. SAMPS011 01189 05 FILLER PIC X(37) VALUE SPACES. SAMPS011 01190 05 FILLER PIC X(09) VALUE 'PASS/FAIL'. SAMPS011 01191 05 FILLER PIC X(31) VALUE SPACES. SAMPS011 01192 SAMPS011 01193 01 TL-THIRD-COL-3B-HEADER. SAMPS011 01194 SAMPS011 01195 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01196 05 FILLER PIC X(06) VALUE SAMPS011 01197 'NUMBER'. SAMPS011 01198 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01199 05 FILLER PIC X(09) VALUE SAMPS011 01200 'ID NUMBER'. SAMPS011 01201 05 FILLER PIC X(06) VALUE SPACES. SAMPS011 01202 05 FILLER PIC X(02) VALUE '5A'. SAMPS011 01203 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01204 05 FILLER PIC X(02) VALUE '5B'. SAMPS011 01205 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01206 05 FILLER PIC X(02) VALUE '5C'. SAMPS011 01207 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01208 05 FILLER PIC X(02) VALUE '5D'. SAMPS011 01209 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01210 05 FILLER PIC X(02) VALUE '5E'. SAMPS011 01211 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01212 05 FILLER PIC X(01) VALUE '6'. SAMPS011 01213 05 FILLER PIC X(07) VALUE SPACES. SAMPS011 01214 05 FILLER PIC X(03) VALUE 'Y/N'. SAMPS011 01215 05 FILLER PIC X(36) VALUE SPACES. SAMPS011 01216 SAMPS011 01217 01 CL-COL-3B-UNDERLINE. SAMPS011 01218 SAMPS011 01219 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01220 05 FILLER PIC X(06) VALUE SAMPS011 01221 '------'. SAMPS011 01222 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01223 05 FILLER PIC X(09) VALUE SAMPS011 01224 '---------'. SAMPS011 01225 05 FILLER PIC X(06) VALUE SPACES. SAMPS011 01226 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01227 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01228 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01229 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01230 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01231 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01232 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01233 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01234 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01235 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01236 05 FILLER PIC X(03) VALUE '---'. SAMPS011 01237 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01238 05 FILLER PIC X(09) VALUE '---------'. SAMPS011 01239 05 FILLER PIC X(34) VALUE SPACES. SAMPS011 01240 SAMPS011 01241 01 DL-BANNER-3B. SAMPS011 01242 05 FILLER PIC X(38) VALUE SPACES. SAMPS011 01243 05 FILLER PIC X(62) VALUE ALL '-'. SAMPS011 01244 05 FILLER PIC X(32) VALUE SPACES. SAMPS011 01245 * SAMPS011 01246 01 DL-CHKLST-DETAIL-3B. SAMPS011 01247 05 FILLER PIC X(36) VALUE SPACES. SAMPS011 01248 05 DL-3B-CASE-NO PIC ZZZZZZZ9. SAMPS011 01249 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01250 05 DL-3B-EMP-ID PIC X(12). SAMPS011 01251 05 FILLER PIC X(03) VALUE SPACES. SAMPS011 01252 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01253 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01254 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01255 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01256 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01257 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01258 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01259 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01260 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01261 05 FILLER PIC X(02) VALUE SPACES. SAMPS011 01262 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01263 05 FILLER PIC X(05) VALUE SPACES. SAMPS011 01264 05 FILLER PIC X(03) VALUE '( )'. SAMPS011 01265 05 FILLER PIC X(40) VALUE SPACES. SAMPS011 01266 *3B FORM END SAMPS011 01267 01 FOOTNOTE-3B. SAMPS011 01268 05 FILLER PIC X(40) VALUE SPACES. SAMPS011 01269 05 FILLER PIC X(26) SAMPS011 01270 VALUE 'QUESTION 6 IS EVALUATIVE.'. SAMPS011 01271 05 FILLER PIC X(64) VALUE SPACES. SAMPS011 01272 SAMPS011 01273 PROCEDURE DIVISION. SAMPS011 01274 *************************************************************** SAMPS011 01275 ** THE DECLARATIVES SECTION THAT FOLLOWS IS PERFORMED IF AN ** SAMPS011 01276 ** INPUT/OUTPUT ERROR OCCURS TO THE VSAM FILE DURING ** SAMPS011 01277 ** PROCESSING. ** SAMPS011 01278 *************************************************************** SAMPS011 01279 DECLARATIVES. SAMPS011 01280 A000-EXCEPTION-HANDLING SECTION. SAMPS011 01281 USE AFTER ERROR PROCEDURE SAMPS011 01282 ON TRANS-FILE. SAMPS011 01283 *************************************************************** SAMPS011 01284 ** THIS SECTION WILL DISPLAY THAT AN INPUT/OUTPUT ERROR HAS ** SAMPS011 01285 ** OCCURRED, DISPLAY A FILE STATUS ERROR CODE ** SAMPS011 01286 ** (TRANS-FILE-ERROR-CODE), CLOSES ALL INPUT/OUTPUT FILE AND ** SAMPS011 01287 ** STOPS THE EXECUTION OF THE PROGRAM. ** SAMPS011 01288 *************************************************************** SAMPS011 01289 A100-CHECK-ERROR-ROUTINE. SAMPS011 01290 SAMPS011 01291 DISPLAY 'INPUT/OUTPUT ERROR HAS OCCURRED.' SAMPS011 01292 DISPLAY 'THE FILE STATUS CODE ERROR IS : ' SAMPS011 01293 DISPLAY TRANS-FILE-ERROR-CODE SAMPS011 01294 DISPLAY ' - SAMPS011 - JOB TERMINATED ' SAMPS011 01295 CLOSE SELECT-FILE SAMPS011 01296 CLOSE CNTRL-DATA SAMPS011 01297 CLOSE TRANS-FILE SAMPS011 01298 CLOSE JOB-STATUS SAMPS011 01299 CLOSE HIT-FILE SAMPS011 01300 CLOSE HIT-LIST SAMPS011 01301 CLOSE CHECK-LIST SAMPS011 01302 STOP RUN. SAMPS011 01303 SAMPS011 01304 END DECLARATIVES. SAMPS011 01305 *************************************************************** SAMPS011 01306 ** 0000-DRIVER-ROUTINE. ** SAMPS011 01307 ** THIS SECTION PERFORMS THE MAIN PROCESSING OF THE PROGRAM. ** SAMPS011 01308 *************************************************************** SAMPS011 01309 B000-REGULAR-PROCESSING SECTION. SAMPS011 01310 0000-DRIVER-ROUTINE. SAMPS011 01311 SAMPS011 01312 PERFORM 0100-OPEN-ROUTINE SAMPS011 01313 THRU 0100-OPEN-ROUTINE-EXIT. SAMPS011 01314 PERFORM 0200-A-TRANSACTION-TYPE SAMPS011 01315 THRU 0200-A-VALIDATION-EXIT. SAMPS011 01316 PERFORM 0300-STATE-TABLE-ROUTINE SAMPS011 01317 THRU 0300-STATE-TABLE-EXIT. SAMPS011 01318 PERFORM 0305-SAMPLE-TABLE-ROUTINE SAMPS011 01319 THRU 0305-SAMPLE-TABLE-EXIT. SAMPS011 01320 PERFORM 0500-SELECT-RECORDS SAMPS011 01321 THRU 0500-SELECT-RECS-EXIT SAMPS011 01322 UNTIL WS-SELECT-EOF = 'Y'. SAMPS011 01323 PERFORM 0406-FOOTNOTE-A SAMPS011 01324 THRU 0406-FOOTNOTE-A-EXIT. SAMPS011 01325 MOVE 'Y' TO CNTRL-FLAG-B. SAMPS011 01326 PERFORM 0800-CHECKLIST-B-DRIVER SAMPS011 01327 THRU 0800-CHECKLIST-B-DRIVER-EXIT. SAMPS011 01328 PERFORM 0406-FOOTNOTE-B SAMPS011 01329 THRU 0406-FOOTNOTE-B-EXIT. SAMPS011 01330 IF CNTRL-FLAG-B = 'Y' SAMPS011 01331 PERFORM 9999-CLOSE-FILES. SAMPS011 01332 SAMPS011 01333 *************************************************************** SAMPS011 01334 ** 0100-OPEN-ROUTINE: ** SAMPS011 01335 ** THIS SECTION OPENS INPUT FILES CNTRL-DATA, AND ** SAMPS011 01336 ** SELECT-FILE. THE FOLLOWING OUTPUT FILES ARE OPENED: ** SAMPS011 01337 ** HIT-FILE, HIT-LIST, CHECK-LIST, AND JOB-STATUS. ** SAMPS011 01338 ** THIS SECTION ALSO OPENS THE VSAM FILE TRANS-FILE AS ** SAMPS011 01339 ** INPUT/OUTPUT, MOVES THE CURRENT DATE TO THE OUTPUT FILE ** SAMPS011 01340 ** HIT-LIST AND CHECK-LIST FOR PRINTING, AND READS THE RECORD** SAMPS011 01341 ** IN THE CNTRL-DATA FILE. ** SAMPS011 01342 *************************************************************** SAMPS011 01343 0100-OPEN-ROUTINE. SAMPS011 01344 SAMPS011 01345 OPEN INPUT CNTRL-DATA. SAMPS011 01346 OPEN INPUT SELECT-FILE. SAMPS011 01347 OPEN I-O TRANS-FILE. SAMPS011 01348 OPEN OUTPUT HIT-FILE. SAMPS011 01349 OPEN OUTPUT HIT-LIST. SAMPS011 01350 OPEN OUTPUT CHECK-LIST. SAMPS011 01351 OPEN OUTPUT JOB-STATUS. SAMPS011 01352 ACCEPT WS-DATE FROM DATE. SAMPS011 01353 MOVE WS-YY TO WRK-YY. SAMPS011 01354 MOVE WS-MM TO WRK-MM. SAMPS011 01355 MOVE WS-DD TO WRK-DD. SAMPS011 01356 MOVE WRK-DATE-AREA TO O-RUN-DATE HD-RUN-DATE. SAMPS011 01357 READ CNTRL-DATA AT END MOVE 'Y' TO CNTRL-FLAG. SAMPS011 01358 SAMPS011 01359 0100-OPEN-ROUTINE-EXIT. SAMPS011 01360 EXIT. SAMPS011 01361 SAMPS011 01362 *************************************************************** SAMPS011 01363 ** 0200-A-TRANSACTION-TYPE: ** SAMPS011 01364 ** UTILIZING THE CNTRL-TRANS-TYPE FIELD FROM THE INPUT FILE ** SAMPS011 01365 ** CNTRL-DATA, THIS PROCEDURE VALIDATES WHETHER THE REPORT IS** SAMPS011 01366 ** A NEW OR A SUCCESSOR, OR A INACTIVE REPORT. IF THE ** SAMPS011 01367 ** CNTRL-TRANS-TYPE IS NOT ANY OF THE THREE CONTROL TYPES ** SAMPS011 01368 ** (1,2 OR 3), A MESSAGE IS DISPLAYED AND THE PROGRAM RUN IS ** SAMPS011 01369 ** TERMINATED. ** SAMPS011 01370 *************************************************************** SAMPS011 01371 SAMPS011 01372 0200-A-TRANSACTION-TYPE. SAMPS011 01373 SAMPS011 01374 IF CNTRL-TRANS-TYPE = '1' SAMPS011 01375 MOVE NEW TO DTL-OUTPUT-TRANS-TYPE SAMPS011 01376 MOVE NEW TO TT-TRANS-TYPE SAMPS011 01377 MOVE WS-NEW-A TO CHECKLIST-TYPEA SAMPS011 01378 MOVE WS-NEWDESC-A TO CHECKLIST-DESCA SAMPS011 01379 MOVE WS-NEW-B TO CHECKLIST-TYPEB SAMPS011 01380 MOVE WS-NEWDESC-B TO CHECKLIST-DESCB SAMPS011 01381 ELSE SAMPS011 01382 IF CNTRL-TRANS-TYPE = '2' SAMPS011 01383 MOVE SUCCESSOR TO DTL-OUTPUT-TRANS-TYPE SAMPS011 01384 MOVE SUCCESSOR TO TT-TRANS-TYPE SAMPS011 01385 MOVE WS-SUCCESSOR-A TO CHECKLIST-TYPEA SAMPS011 01386 MOVE WS-SUCCDESC-A TO CHECKLIST-DESCA SAMPS011 01387 MOVE WS-SUCCESSOR-B TO CHECKLIST-TYPEB SAMPS011 01388 MOVE WS-SUCCDESC-B TO CHECKLIST-DESCB SAMPS011 01389 ELSE SAMPS011 01390 IF CNTRL-TRANS-TYPE = '3' SAMPS011 01391 MOVE INACTIVE TO DTL-OUTPUT-TRANS-TYPE SAMPS011 01392 MOVE INACTIVE TO TT-TRANS-TYPE SAMPS011 01393 MOVE WS-INACTIVE-A TO CHECKLIST-TYPEA SAMPS011 01394 MOVE WS-INACTDESC-A TO CHECKLIST-DESCA SAMPS011 01395 MOVE WS-INACTIVE-B TO CHECKLIST-TYPEB SAMPS011 01396 MOVE WS-INACTDESC-B TO CHECKLIST-DESCB SAMPS011 01397 ELSE SAMPS011 01398 DISPLAY 'INVALID TRANSACTION TYPE' SAMPS011 01399 DISPLAY 'TRANSACTION TYPE IN ERROR IS: ' SAMPS011 01400 DISPLAY CNTRL-TRANS-TYPE SAMPS011 01401 MOVE MESSAGE-2 TO WS-MESSAGE-FILE SAMPS011 01402 PERFORM 9999-CLOSE-FILES. SAMPS011 01403 SAMPS011 01404 0200-A-VALIDATION-EXIT. SAMPS011 01405 EXIT. SAMPS011 01406 SAMPS011 01407 0200-B-TRANSACTION-TYPE. SAMPS011 01408 SAMPS011 01409 IF CNTRL-TRANS-TYPE = '1' SAMPS011 01410 MOVE WS-NEW-B TO CHECKLIST-TYPEB SAMPS011 01411 MOVE WS-NEWDESC-B TO CHECKLIST-DESCB SAMPS011 01412 ELSE SAMPS011 01413 IF CNTRL-TRANS-TYPE = '2' SAMPS011 01414 MOVE WS-SUCCESSOR-B TO CHECKLIST-TYPEB SAMPS011 01415 MOVE WS-SUCCDESC-B TO CHECKLIST-DESCB SAMPS011 01416 ELSE SAMPS011 01417 IF CNTRL-TRANS-TYPE = '3' SAMPS011 01418 MOVE WS-INACTIVE-B TO CHECKLIST-TYPEB SAMPS011 01419 MOVE WS-INACTDESC-B TO CHECKLIST-DESCB. SAMPS011 01420 SAMPS011 01421 0200-B-VALIDATION-EXIT. SAMPS011 01422 EXIT. SAMPS011 01423 SAMPS011 01424 *************************************************************** SAMPS011 01425 ** 0300-STATE-TABLE-ROUTINE: ** SAMPS011 01426 ** THIS ROUTINE SEARCHES THE ST-STATE-DATA TABLE, FOUND IN ** SAMPS011 01427 ** THE WORKING STROAGE SECTION, FOR A MATCHING CONDITION OF ** SAMPS011 01428 ** THE SESA-ID FIELD OF THE CNTRL-DATA FILE. IF MATCH OCCURS** SAMPS011 01429 ** THE STATE ABBREVIATION (SESA-ID) IS REPLACED WITH THE ** SAMPS011 01430 ** ACTUAL STATE NAME DESCRIPTION. IF A MATCH IS NOT FOUND, ** SAMPS011 01431 ** A MESSAGE IS DISPLAY AND THE PROGRAM IS TERMINATED. ** SAMPS011 01432 *************************************************************** SAMPS011 01433 0300-STATE-TABLE-ROUTINE. SAMPS011 01434 SAMPS011 01435 SET ST-INDEX TO 1. SAMPS011 01436 SEARCH ST-STATE-ENTRY SAMPS011 01437 AT END MOVE 'END' TO ST-ENTRY-FOUND-SWITCH SAMPS011 01438 WHEN SESA-ID SAMPS011 01439 IS EQUAL TO ST-STATE-ID (ST-INDEX) SAMPS011 01440 MOVE 'YES' TO ST-ENTRY-FOUND-SWITCH. SAMPS011 01441 IF ST-ENTRY-FOUND SAMPS011 01442 MOVE ST-STATE-NAME (ST-INDEX) SAMPS011 01443 TO WS-SESA-NAME-AREA SAMPS011 01444 ELSE SAMPS011 01445 DISPLAY SESA-ID, ' - NOT FOUND ON STATE TABLE' SAMPS011 01446 MOVE MESSAGE-2 TO WS-MESSAGE-FILE SAMPS011 01447 PERFORM 9999-CLOSE-FILES. SAMPS011 01448 SAMPS011 01449 0300-STATE-TABLE-EXIT. SAMPS011 01450 EXIT. SAMPS011 01451 SAMPS011 01452 *************************************************************** SAMPS011 01453 ** 0305-SAMPLE-TABLE-ROUTINE: ** SAMPS011 01454 ** THIS ROUTINE SEARCHES THE WS-SAMPLE-DATA TABLE, FOUND IN ** SAMPS011 01455 ** THE WORKING STORAGE SECTIAGE SECTION, FOR A MATCHING ** SAMPS011 01456 ** CONDITION OF THE SAMPLE-TYPE FIELD OF THE CNTRL-DATA FILE.** SAMPS011 01457 ** IF A MATCH OCCURS, THE SAMPLE-TYPE ABBREVIATION IS ** SAMPS011 01458 ** REPLACED WITH THE SAMPLE-TYPE DESCRIPTION. IF A MATCH IS ** SAMPS011 01459 ** NOT FOUND, A MESSAGE IS DISPLAYED AND THE PROGRAM RUN IS ** SAMPS011 01460 ** TERMINATED. ** SAMPS011 01461 *************************************************************** SAMPS011 01462 0305-SAMPLE-TABLE-ROUTINE. SAMPS011 01463 SAMPS011 01464 SET WS-INDEX TO 1. SAMPS011 01465 SEARCH WS-SAMPLE-ENTRY SAMPS011 01466 AT END MOVE 'END' TO WS-ENTRY-FOUND-SWITCH SAMPS011 01467 WHEN SAMPLE-TYPE SAMPS011 01468 IS EQUAL TO WS-SAMPLE-ID (WS-INDEX) SAMPS011 01469 MOVE 'YES' TO WS-ENTRY-FOUND-SWITCH. SAMPS011 01470 IF WS-SAMPLE-FOUND SAMPS011 01471 MOVE WS-SAMPLE-DESCRIPTION (WS-INDEX) SAMPS011 01472 TO WS-SAMPLE-NAME-AREA SAMPS011 01473 ELSE SAMPS011 01474 DISPLAY SAMPLE-TYPE, '- NOT ON SAMPLE TABLE' SAMPS011 01475 MOVE MESSAGE-2 TO WS-MESSAGE-FILE SAMPS011 01476 PERFORM 9999-CLOSE-FILES. SAMPS011 01477 SAMPS011 01478 0305-SAMPLE-TABLE-EXIT. SAMPS011 01479 EXIT. SAMPS011 01480 SAMPS011 01481 *************************************************************** SAMPS011 01482 ** HEADING OF THE LIST: ** SAMPS011 01483 ** THIS SECTION GENERATES THE PAGE AND COLUMN HEADERS FOR THE** SAMPS011 01484 ** HIT-LIST OUTPUT REPORT. ** SAMPS011 01485 *************************************************************** SAMPS011 01486 SAMPS011 01487 0400-HIT-LIST-HEADING. SAMPS011 01488 SAMPS011 01489 ADD 1 TO LIST-PAGE. SAMPS011 01490 MOVE SPACES TO PRINT-HIT-REC. SAMPS011 01491 MOVE LIST-PAGE TO O-LIST-PAGE. SAMPS011 01492 MOVE WS-SESA-NAME-AREA TO O-CNTRL-SESA-NAME. SAMPS011 01493 WRITE PRINT-HIT-REC FROM LIST-HEADING-1 SAMPS011 01494 AFTER ADVANCING PAGE. SAMPS011 01495 WRITE PRINT-HIT-REC FROM LIST-HEADING-2 SAMPS011 01496 AFTER ADVANCING 1 LINE. SAMPS011 01497 WRITE PRINT-HIT-REC FROM LIST-HEADING-3 SAMPS011 01498 AFTER ADVANCING 1 LINE. SAMPS011 01499 WRITE PRINT-HIT-REC FROM LIST-HEADING-4 SAMPS011 01500 AFTER ADVANCING 3 LINES. SAMPS011 01501 WRITE PRINT-HIT-REC FROM LIST-HEADING-5 SAMPS011 01502 AFTER ADVANCING 1 LINE. SAMPS011 01503 MOVE SPACES TO PRINT-HIT-REC. SAMPS011 01504 WRITE PRINT-HIT-REC AFTER ADVANCING 1 LINE. SAMPS011 01505 SAMPS011 01506 0400-HIT-LIST-EXIT. SAMPS011 01507 EXIT. SAMPS011 01508 SAMPS011 01509 SAMPS011 01510 *************************************************************** SAMPS011 01511 ** 0405-CHECKLIST-HEADER-RTN: ** SAMPS011 01512 ** THIS SECTION CREATES THE PAGE, AND COLUMN HEADERS FOR ** SAMPS011 01513 ** CHECK-LIST OUTPUT REPORT. ** SAMPS011 01514 *************************************************************** SAMPS011 01515 0405-CHECKLIST-HEADER-RTN. SAMPS011 01516 SAMPS011 01517 ADD 1 TO WS-PAGE-CNTR. SAMPS011 01518 MOVE SPACES TO CHECK-LIST-REC. SAMPS011 01519 MOVE WS-PAGE-CNTR TO HD-PAGE-NUMBER. SAMPS011 01520 WRITE CHECK-LIST-REC FROM FL-BANNER-LINE SAMPS011 01521 AFTER ADVANCING PAGE. SAMPS011 01522 WRITE CHECK-LIST-REC FROM HD-NEW-EMP-CHECKLIST SAMPS011 01523 AFTER ADVANCING 1 LINE. SAMPS011 01524 WRITE CHECK-LIST-REC FROM HT-TAX-FUNCTION-HEADER SAMPS011 01525 AFTER ADVANCING 1 LINE. SAMPS011 01526 IF (HEADER-SWITCH = 0) AND (CNTRL-FLAG-B = 'N') SAMPS011 01527 WRITE CHECK-LIST-REC FROM HA-TAX-FUNCTION-HEADER SAMPS011 01528 AFTER ADVANCING 1 LINE. SAMPS011 01529 IF CNTRL-FLAG-B = 'Y' SAMPS011 01530 WRITE CHECK-LIST-REC FROM HB-TAX-FUNCTION-HEADER SAMPS011 01531 AFTER ADVANCING 1 LINE. SAMPS011 01532 WRITE CHECK-LIST-REC FROM FL-BANNER-LINE SAMPS011 01533 AFTER ADVANCING 1 LINE. SAMPS011 01534 MOVE WS-SESA-NAME-AREA TO FL-SESA-NAME. SAMPS011 01535 MOVE CNTRL-YEAR-QTR TO WS-PERIOD-AREA. SAMPS011 01536 MOVE WS-PERIOD-AREA TO FL-PERIOD. SAMPS011 01537 MOVE WS-SAMPLE-NAME-AREA TO FL-SAMPLE-TYPE. SAMPS011 01538 WRITE CHECK-LIST-REC FROM FL-FIRST-LINE-COLUMN-HEADER SAMPS011 01539 AFTER ADVANCING 2 LINES. SAMPS011 01540 WRITE CHECK-LIST-REC FROM TT-TRANSACTION-TYPE-FIELD SAMPS011 01541 AFTER ADVANCING 1 LINE. SAMPS011 01542 0405-CHECKLIST-HEADER-EXIT. SAMPS011 01543 EXIT. SAMPS011 01544 SAMPS011 01545 0405-A. SAMPS011 01546 IF CNTRL-TRANS-TYPE = 1 SAMPS011 01547 WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-1A-HEADER SAMPS011 01548 AFTER ADVANCING 3 LINES SAMPS011 01549 WRITE CHECK-LIST-REC FROM TL-THIRD-COL-1A-HEADER SAMPS011 01550 AFTER ADVANCING 1 LINE SAMPS011 01551 WRITE CHECK-LIST-REC FROM CL-COL-1A-UNDERLINE SAMPS011 01552 AFTER ADVANCING 1 LINE SAMPS011 01553 ELSE SAMPS011 01554 IF CNTRL-TRANS-TYPE = 2 SAMPS011 01555 WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-2A-HEADER SAMPS011 01556 AFTER ADVANCING 3 LINES SAMPS011 01557 WRITE CHECK-LIST-REC FROM TL-THIRD-COL-2A-HEADER SAMPS011 01558 AFTER ADVANCING 1 LINE SAMPS011 01559 WRITE CHECK-LIST-REC FROM CL-COL-2A-UNDERLINE SAMPS011 01560 AFTER ADVANCING 1 LINE SAMPS011 01561 ELSE SAMPS011 01562 IF CNTRL-TRANS-TYPE = 3 SAMPS011 01563 WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-3A-HEADER SAMPS011 01564 AFTER ADVANCING 3 LINES SAMPS011 01565 WRITE CHECK-LIST-REC FROM TL-THIRD-COL-3A-HEADER SAMPS011 01566 AFTER ADVANCING 1 LINE SAMPS011 01567 WRITE CHECK-LIST-REC FROM CL-COL-3A-UNDERLINE SAMPS011 01568 AFTER ADVANCING 1 LINE. SAMPS011 01569 MOVE SPACES TO CHECK-LIST-REC. SAMPS011 01570 WRITE CHECK-LIST-REC AFTER ADVANCING 1 LINES. SAMPS011 01571 0405-A-EXIT. SAMPS011 01572 EXIT. SAMPS011 01573 SAMPS011 01574 SAMPS011 01575 0405-B. SAMPS011 01576 IF CNTRL-TRANS-TYPE = 1 SAMPS011 01577 WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-1B-HEADER SAMPS011 01578 AFTER ADVANCING 3 LINES SAMPS011 01579 WRITE CHECK-LIST-REC FROM TL-THIRD-COL-1B-HEADER SAMPS011 01580 AFTER ADVANCING 1 LINE SAMPS011 01581 WRITE CHECK-LIST-REC FROM CL-COL-1B-UNDERLINE SAMPS011 01582 AFTER ADVANCING 1 LINE SAMPS011 01583 ELSE SAMPS011 01584 IF CNTRL-TRANS-TYPE = 2 SAMPS011 01585 WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-2B-HEADER SAMPS011 01586 AFTER ADVANCING 3 LINES SAMPS011 01587 WRITE CHECK-LIST-REC FROM TL-THIRD-COL-2B-HEADER SAMPS011 01588 AFTER ADVANCING 1 LINE SAMPS011 01589 WRITE CHECK-LIST-REC FROM CL-COL-2B-UNDERLINE SAMPS011 01590 AFTER ADVANCING 1 LINE SAMPS011 01591 ELSE SAMPS011 01592 IF CNTRL-TRANS-TYPE = 3 SAMPS011 01593 WRITE CHECK-LIST-REC FROM SL-SECOND-LINE-3B-HEADER SAMPS011 01594 AFTER ADVANCING 3 LINES SAMPS011 01595 WRITE CHECK-LIST-REC FROM TL-THIRD-COL-3B-HEADER SAMPS011 01596 AFTER ADVANCING 1 LINE SAMPS011 01597 WRITE CHECK-LIST-REC FROM CL-COL-3B-UNDERLINE SAMPS011 01598 AFTER ADVANCING 1 LINE. SAMPS011 01599 MOVE SPACES TO CHECK-LIST-REC. SAMPS011 01600 WRITE CHECK-LIST-REC AFTER ADVANCING 1 LINES. SAMPS011 01601 0405-B-EXIT. SAMPS011 01602 EXIT. SAMPS011 01603 SAMPS011 01604 0406-FOOTNOTE-A. SAMPS011 01605 IF CNTRL-TRANS-TYPE = 1 SAMPS011 01606 WRITE CHECK-LIST-REC FROM FOOTNOTE-1A SAMPS011 01607 AFTER ADVANCING 1 LINE SAMPS011 01608 ELSE IF CNTRL-TRANS-TYPE = 2 SAMPS011 01609 WRITE CHECK-LIST-REC FROM FOOTNOTE-2A SAMPS011 01610 AFTER ADVANCING 1 LINE SAMPS011 01611 ELSE IF CNTRL-TRANS-TYPE = 3 SAMPS011 01612 WRITE CHECK-LIST-REC FROM FOOTNOTE-3A SAMPS011 01613 AFTER ADVANCING 1 LINE. SAMPS011 01614 SAMPS011 01615 0406-FOOTNOTE-A-EXIT. SAMPS011 01616 EXIT. SAMPS011 01617 SAMPS011 01618 0406-FOOTNOTE-B. SAMPS011 01619 IF CNTRL-TRANS-TYPE = 1 SAMPS011 01620 WRITE CHECK-LIST-REC FROM FOOTNOTE-1B SAMPS011 01621 AFTER ADVANCING 1 LINE SAMPS011 01622 ELSE IF CNTRL-TRANS-TYPE = 2 SAMPS011 01623 WRITE CHECK-LIST-REC FROM FOOTNOTE-2B SAMPS011 01624 AFTER ADVANCING 1 LINE SAMPS011 01625 ELSE IF CNTRL-TRANS-TYPE = 3 SAMPS011 01626 WRITE CHECK-LIST-REC FROM FOOTNOTE-3B SAMPS011 01627 AFTER ADVANCING 1 LINE. SAMPS011 01628 SAMPS011 01629 SAMPS011 01630 0406-FOOTNOTE-B-EXIT. SAMPS011 01631 EXIT. SAMPS011 01632 SAMPS011 01633 *************************************************************** SAMPS011 01634 ** 0500-SELECT-RECORDS: ** SAMPS011 01635 ** THE SELECT-FILE IS READ THE SELECT-FILE WHICH CONTAINS THE** SAMPS011 01636 ** SELECTED NUMBERS FOR THE SAMPLE. EACH SELECT RECORD WILL ** SAMPS011 01637 ** ALSO BE USED AS THE RECORD KEY TO READ THE SAMPLING ** SAMPS011 01638 ** TRANSACTION(VSAM) FILE(TRANS-FILE). THE TRANSACTION FILE ** SAMPS011 01639 ** IS INDEXED BY A FIELD(SEQ-NMBR) WHICH IS THE KEY USED ** SAMPS011 01640 ** DURING THE READ OF THE VSAM FILE. THE VALUE OF THE SELECT** SAMPS011 01641 ** RECORD NUMBER (SL-REC-NUM) IS MOVED TO (SEQ-NMBR) AND THE ** SAMPS011 01642 ** RECORD ON THE TRANSACTION FILE FOR THAT RECORD NUMBER IS ** SAMPS011 01643 ** AND PROCESSED. FOR THE RECORDS THAT HAVE BEEN SELECTED ** SAMPS011 01644 ** FROM THE TRANSACTION FILE. THE SELECTED FLAG FIELD ** SAMPS011 01645 ** (SELECT-FLAG) IS CHANGED TO A 2. AND THE RECORD IS WRITTEN** SAMPS011 01646 ** TO A THE DISK FILE (HIT-FILE). THIS SAME RECORD IS ** SAMPS011 01647 ** WRITTEN TO HITFILE LISTING (HIT-LIST) AND A CODING SHEET ** SAMPS011 01648 ** OUTPUT REPORT(CHECK-LIST). THIS PROCESSING IS CONTINUED ** SAMPS011 01649 ** UNTIL EACH RECORD FROM THE SELECT-FILE HAS BEEN READ. ** SAMPS011 01650 *************************************************************** SAMPS011 01651 0500-SELECT-RECORDS. SAMPS011 01652 SAMPS011 01653 READ SELECT-FILE SAMPS011 01654 AT END MOVE 'Y' TO WS-SELECT-EOF. SAMPS011 01655 IF WS-SELECT-EOF = 'Y' SAMPS011 01656 AND MATCH-CNTR NOT EQUAL TO SAMPLED-NMBR SAMPS011 01657 DISPLAY 'RECORDS SELECTED NE TO RECORDS DESIRED' SAMPS011 01658 MOVE MESSAGE-1 TO WS-MESSAGE-FILE SAMPS011 01659 PERFORM 9999-CLOSE-FILES. SAMPS011 01660 IF WS-SELECT-EOF = 'Y' SAMPS011 01661 AND MATCH-CNTR EQUAL TO SAMPLED-NMBR SAMPS011 01662 MOVE MESSAGE-1 TO WS-MESSAGE-FILE. SAMPS011 01663 IF WS-HIT-LIST-SWITCH = '0' SAMPS011 01664 PERFORM 0400-HIT-LIST-HEADING SAMPS011 01665 THRU 0400-HIT-LIST-EXIT. SAMPS011 01666 IF WS-CHECKLIST-SWITCH = '0' SAMPS011 01667 PERFORM 0405-CHECKLIST-HEADER-RTN SAMPS011 01668 THRU 0405-CHECKLIST-HEADER-EXIT SAMPS011 01669 PERFORM 0405-A SAMPS011 01670 THRU 0405-A-EXIT. SAMPS011 01671 IF WS-SELECT-EOF NOT EQUAL 'Y' SAMPS011 01672 ADD 1 TO MATCH-CNTR SAMPS011 01673 MOVE SL-REC-NUM TO SEQ-NMBR SAMPS011 01674 READ TRANS-FILE RECORD INTO WS-MATCH-RECORD SAMPS011 01675 PERFORM 0600-PRINT-HIT-RECS SAMPS011 01676 THRU 0600-PRINT-EXIT SAMPS011 01677 MOVE SELECTED-FLAG TO SELECT-FLAG SAMPS011 01678 MOVE SELECTED-FLAG TO MATCH-SELECT-FLAG SAMPS011 01679 REWRITE TRANS-REC. SAMPS011 01680 SAMPS011 01681 0500-SELECT-RECS-EXIT. SAMPS011 01682 EXIT. SAMPS011 01683 SAMPS011 01684 SAMPS011 01685 *************************************************************** SAMPS011 01686 ** 0600-PRINT-HIT-RECS. ** SAMPS011 01687 ** THE ROUTINE MOVES THE INFORMATION REQUIRED TO EACH OF THE ** SAMPS011 01688 ** FOLLOWING OUTPUT FILES: (HIT-LIST), (HIT-FILE) AND ** SAMPS011 01689 ** (CHECK-LIST). THE ROUTINE ALSO CONTROLS LINE COUNT AND ** SAMPS011 01690 ** HEADER GENERATION FOR THE HIT-LIST AND CHECK-LIST. ** SAMPS011 01691 *************************************************************** SAMPS011 01692 0600-PRINT-HIT-RECS. SAMPS011 01693 SAMPS011 01694 MOVE '1' TO WS-CHECKLIST-SWITCH. SAMPS011 01695 MOVE '1' TO WS-HIT-LIST-SWITCH. SAMPS011 01696 MOVE MATCH-CNTR TO DTL-CASE-NO. SAMPS011 01697 MOVE MATCH-SEQ-NMBR TO DTL-SEQ-NMBR. SAMPS011 01698 MOVE MATCH-EMP-ID TO DTL-EMP-ID. SAMPS011 01699 MOVE MATCH-DATE-DETERMINE TO DTL-DATE-DETERMINE. SAMPS011 01700 MOVE DTL-DETERMINE-MO TO O-DETERMINE-MO. SAMPS011 01701 MOVE DTL-DETERMINE-YR TO O-DETERMINE-YR. SAMPS011 01702 MOVE DTL-DETERMINE-DA TO O-DETERMINE-DA. SAMPS011 01703 MOVE MATCH-REC-TYPE TO HIT-REC-TYPE. SAMPS011 01704 MOVE SESA-ID TO HIT-STATE. SAMPS011 01705 MOVE MATCH-CNTR TO HIT-CASE-NUMBER. SAMPS011 01706 MOVE MATCH-TRANS-TYPE TO HIT-TRANS-TYPE. SAMPS011 01707 MOVE MATCH-EMP-ID TO HIT-EMPLOYER-ID. SAMPS011 01708 MOVE CNTRL-YEAR-QTR TO HIT-SAMPLE-YEAR. SAMPS011 01709 MOVE SAMPLE-TYPE TO HIT-SAMPLE-TYPE. SAMPS011 01710 MOVE MATCH-CNTR TO WS-CASE-HOLD-AREA. SAMPS011 01711 MOVE MATCH-EMP-ID TO WS-EMPL-HOLD-AREA. SAMPS011 01712 ADD 1 TO LIST-COUNTER. SAMPS011 01713 MOVE MATCH-CNTR TO SUB. SAMPS011 01714 MOVE MATCH-CNTR TO B-CASE-NO(SUB). SAMPS011 01715 MOVE MATCH-EMP-ID TO B-EMP-ID(SUB). SAMPS011 01716 IF LIST-COUNTER > 50 SAMPS011 01717 MOVE 1 TO LIST-COUNTER SAMPS011 01718 PERFORM 0400-HIT-LIST-HEADING SAMPS011 01719 THRU 0400-HIT-LIST-EXIT. SAMPS011 01720 WRITE PRINT-HIT-REC FROM HIT-LIST-REC. SAMPS011 01721 PERFORM 0700-CHECKLIST-ROUTINE SAMPS011 01722 THRU 0700-CHECKLIST-EXIT. SAMPS011 01723 WRITE TRANS-HIT-REC FROM OUTPUT-HIT-REC. SAMPS011 01724 SAMPS011 01725 0600-PRINT-EXIT. SAMPS011 01726 EXIT. SAMPS011 01727 SAMPS011 01728 SAMPS011 01729 *************************************************************** SAMPS011 01730 ** 0700-CHECKLIST-ROUTINE: ** SAMPS011 01731 ** THIS SECTION CONTROLS THE PROCESSING OF THE CHECK-LIST ** SAMPS011 01732 ** REPORT. ** SAMPS011 01733 *************************************************************** SAMPS011 01734 0700-CHECKLIST-ROUTINE. SAMPS011 01735 SAMPS011 01736 ADD 1 TO WS-CHECKLIST-CNTR. SAMPS011 01737 IF WS-CHECKLIST-CNTR > 20 SAMPS011 01738 MOVE 1 TO WS-CHECKLIST-CNTR SAMPS011 01739 PERFORM 0406-FOOTNOTE-A THRU 0406-FOOTNOTE-A-EXIT SAMPS011 01740 PERFORM 0405-CHECKLIST-HEADER-RTN SAMPS011 01741 THRU 0405-CHECKLIST-HEADER-EXIT SAMPS011 01742 PERFORM 0405-A SAMPS011 01743 THRU 0405-A-EXIT SAMPS011 01744 ELSE SAMPS011 01745 NEXT SENTENCE. SAMPS011 01746 IF CNTRL-TRANS-TYPE = 1 SAMPS011 01747 MOVE WS-CASE-HOLD-AREA TO DL-1A-CASE-NO SAMPS011 01748 MOVE WS-EMPL-HOLD-AREA TO DL-1A-EMP-ID SAMPS011 01749 WRITE CHECK-LIST-REC FROM DL-CHKLST-DETAIL-1A SAMPS011 01750 AFTER ADVANCING 1 LINE SAMPS011 01751 WRITE CHECK-LIST-REC FROM DL-BANNER-1A SAMPS011 01752 AFTER ADVANCING 1 LINE SAMPS011 01753 ELSE SAMPS011 01754 IF CNTRL-TRANS-TYPE = 2 SAMPS011 01755 MOVE WS-CASE-HOLD-AREA TO DL-2A-CASE-NO SAMPS011 01756 MOVE WS-EMPL-HOLD-AREA TO DL-2A-EMP-ID SAMPS011 01757 WRITE CHECK-LIST-REC FROM DL-CHKLST-DETAIL-2A SAMPS011 01758 AFTER ADVANCING 1 LINE SAMPS011 01759 WRITE CHECK-LIST-REC FROM DL-BANNER-2A SAMPS011 01760 AFTER ADVANCING 1 LINE SAMPS011 01761 ELSE SAMPS011 01762 IF CNTRL-TRANS-TYPE = 3 SAMPS011 01763 MOVE WS-CASE-HOLD-AREA TO DL-3A-CASE-NO SAMPS011 01764 MOVE WS-EMPL-HOLD-AREA TO DL-3A-EMP-ID SAMPS011 01765 WRITE CHECK-LIST-REC FROM DL-CHKLST-DETAIL-3A SAMPS011 01766 AFTER ADVANCING 1 LINE SAMPS011 01767 WRITE CHECK-LIST-REC FROM DL-BANNER-3A SAMPS011 01768 AFTER ADVANCING 1 LINE. SAMPS011 01769 SAMPS011 01770 0700-CHECKLIST-EXIT. SAMPS011 01771 EXIT. SAMPS011 01772 SAMPS011 01773 *************************************************************** SAMPS011 01774 ** 0800-CHECKLIST-B. ** SAMPS011 01775 ** THIS SECTION WRITES AN LIST FILE FOR CHECKLIST FORMATE B ** SAMPS011 01776 ** OF STATUS SAMPLE CODING SHEET. ** SAMPS011 01777 *************************************************************** SAMPS011 01778 0800-CHECKLIST-B-DRIVER. SAMPS011 01779 SAMPS011 01780 MOVE 1 TO HEADER-SWITCH. SAMPS011 01781 MOVE 0 TO WS-CHECKLIST-CNTR. SAMPS011 01782 PERFORM 0405-CHECKLIST-HEADER-RTN SAMPS011 01783 THRU 0405-CHECKLIST-HEADER-EXIT. SAMPS011 01784 PERFORM 0405-B SAMPS011 01785 THRU 0405-B-EXIT. SAMPS011 01786 SAMPS011 01787 PERFORM 0800-CHECKLIST-B THRU 0800-CHECKLIST-B-EXIT SAMPS011 01788 VARYING SUB FROM 1 BY 1 UNTIL SUB > SAMPLED-NMBR. SAMPS011 01789 0800-CHECKLIST-B-DRIVER-EXIT. SAMPS011 01790 EXIT. SAMPS011 01791 0800-CHECKLIST-B. SAMPS011 01792 ADD 1 TO WS-CHECKLIST-CNTR. SAMPS011 01793 IF WS-CHECKLIST-CNTR > 20 SAMPS011 01794 MOVE 1 TO WS-CHECKLIST-CNTR SAMPS011 01795 PERFORM 0406-FOOTNOTE-B THRU 0406-FOOTNOTE-B-EXIT SAMPS011 01796 PERFORM 0405-CHECKLIST-HEADER-RTN SAMPS011 01797 THRU 0405-CHECKLIST-HEADER-EXIT SAMPS011 01798 PERFORM 0405-B SAMPS011 01799 THRU 0405-B-EXIT SAMPS011 01800 ELSE SAMPS011 01801 NEXT SENTENCE. SAMPS011 01802 IF CNTRL-TRANS-TYPE = 1 SAMPS011 01803 MOVE B-CASE-NO(SUB) TO DL-1B-CASE-NO SAMPS011 01804 MOVE B-EMP-ID(SUB) TO DL-1B-EMP-ID SAMPS011 01805 WRITE CHECK-LIST-REC FROM DL-CHKLST-DETAIL-1B SAMPS011 01806 AFTER ADVANCING 1 LINE SAMPS011 01807 WRITE CHECK-LIST-REC FROM DL-BANNER-1B SAMPS011 01808 AFTER ADVANCING 1 LINE SAMPS011 01809 ELSE SAMPS011 01810 IF CNTRL-TRANS-TYPE = 2 SAMPS011 01811 MOVE B-CASE-NO(SUB) TO DL-2B-CASE-NO SAMPS011 01812 MOVE B-EMP-ID(SUB) TO DL-2B-EMP-ID SAMPS011 01813 WRITE CHECK-LIST-REC FROM DL-CHKLST-DETAIL-2B SAMPS011 01814 AFTER ADVANCING 1 LINE SAMPS011 01815 WRITE CHECK-LIST-REC FROM DL-BANNER-2B SAMPS011 01816 AFTER ADVANCING 1 LINE SAMPS011 01817 ELSE SAMPS011 01818 IF CNTRL-TRANS-TYPE = 3 SAMPS011 01819 MOVE B-CASE-NO(SUB) TO DL-3B-CASE-NO SAMPS011 01820 MOVE B-EMP-ID(SUB) TO DL-3B-EMP-ID SAMPS011 01821 WRITE CHECK-LIST-REC FROM DL-CHKLST-DETAIL-3B SAMPS011 01822 AFTER ADVANCING 1 LINE SAMPS011 01823 WRITE CHECK-LIST-REC FROM DL-BANNER-3B SAMPS011 01824 AFTER ADVANCING 1 LINE. SAMPS011 01825 SAMPS011 01826 0800-CHECKLIST-B-EXIT. SAMPS011 01827 EXIT. SAMPS011 01828 SAMPS011 01829 *************************************************************** SAMPS011 01830 ** 9999-CLOSE-FILES. ** SAMPS011 01831 ** THIS SECTION WRITES AN END OF JOB MESSAGE AND CLOSES ALL ** SAMPS011 01832 ** OF THE INPUT FILES (SELECT-FILE, CNTRL-DATA), AND INPUT/ ** SAMPS011 01833 ** OUTPUT FILE (TRANS-FILE). THE FOLLOWING OUTPUT FILES ARE ** SAMPS011 01834 ** ALSO CLOSED: (HIT-FILE, JOB-STATUS, HIT-LIST, AND ** SAMPS011 01835 ** CHECK-LIST). ** SAMPS011 01836 *************************************************************** SAMPS011 01837 9999-CLOSE-FILES. SAMPS011 01838 SAMPS011 01839 WRITE MESSAGE-RECORD FROM WS-EOJ-DETAIL-LINE. SAMPS011 01840 CLOSE SELECT-FILE SAMPS011 01841 CLOSE CNTRL-DATA SAMPS011 01842 CLOSE TRANS-FILE SAMPS011 01843 CLOSE JOB-STATUS SAMPS011 01844 CLOSE HIT-FILE SAMPS011 01845 CLOSE HIT-LIST SAMPS011 01846 CLOSE CHECK-LIST SAMPS011 01847 STOP RUN. SAMPS011