giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
DUTAS/Batch/SAMPS011.cob
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

1849 lines
146 KiB
COBOL
Raw Permalink Blame History

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
Reference in New Issue View Git Blame Copy Permalink