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
