00001  IDENTIFICATION DIVISION.                                         05/28/14
00002  PROGRAM-ID.             DTSBR608.                                DTSBR608
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV014
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR608
00005  DATE-COMPILED.                                                   DTSBR608
00006      SKIP3                                                        DTSBR608
00007 *****                                                             DTSBR608
00008 *                                                                 DTSBR608
00009 *                                                                 DTSBR608
00010 *   CALLING SEQUENCE:  DTSBD300 CALLS                             DTSBR608
00011 *                      DTSDB330 WHICH UPDATES DTSIR608            DTSBR608
00012 *                      DTSBR608 READS DTSIR608 RECORDS.           DTSBR608
00013 *                                                                 DTSBR608
00014 *    FUNCTION:  AUDIT SURVEY CARD                                 DTSBR608
00015 *                                                                 DTSBR608
00016 *                                                                 DTSBR608
00017 *    MODIFICATION HISTORY:                                        DTSBR608
00018 *                                                                 DTSBR608
00019 * 10-30-94 INITIAL DEVELOPMENT                                    DTSBR608
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR608
00021 *                                                                 DTSBR608
00022 * 02-28-95 CHANGED PRINT LINES TO FIT FORM.                       DTSBR608
00023 *          REFERENCE RFP # RAP                   PROGRAMMER: MJA  DTSBR608
00024 *                                                                 DTSBR608
00025 * 10/16/1999  RECOMPILED TO PICK UP MODIFICATIONS TO DTSIR608.    DTSBR608
00026 *             REFERENCE: CLEANUP                 PROGRAMMER: EHH  DTSBR608
00027 *                                                                 DTSBR608
00028 * 04/15/2000  MODIFIED FOR DC REQUIREMENTS AND LAZER PRINTING.    DTSBR608
00029 *             REFERENCE:                         PROGRAMMER: ZL1  DTSBR608
00030 *                                                                 DTSBR608
00031 *                                                                 DTSBR608
00032 * 05/21/2014  MODIFIED - CHANGE COLLECTION CHIEF NAME FROM        DTSBR608
00033 *             LARRY TO ROSA,                                      DTSBR608
00034 *             REFERENCE:                         PROGRAMMER: ZL1  DTSBR608
00035 *                                                                 DTSBR608
00036 * MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR608
00037 *             XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR608
00038 *             REFERENCE: XXXXXXXXXXXXXXXX        PROGRAMMER: XXX  DTSBR608
00039 *                                                                 DTSBR608
00040 *                                                                 DTSBR608
00041 *    DESCRIPTION:                                                 DTSBR608
00042 *                                                                 DTSBR608
00043 *        THIS MODULE GENERATES AUDIT SURVEY CARDS TO RECENTLY     DTSBR608
00044 *        AUDITED EMPLOYERS TO GET THEIR FEEDBACK.                 DTSBR608
00045 *                                                                 DTSBR608
00046 *                                                                 DTSBR608
00047 *    RECORDS READ:                                                DTSBR608
00048 *                                                                 DTSBR608
00049 *        NONE.                                                    DTSBR608
00050 *                                                                 DTSBR608
00051 *                                                                 DTSBR608
00052 *    PRINTED OUTPUTS:                                             DTSBR608
00053 *                                                                 DTSBR608
00054 *        608R1  AUDIT SURVEY CARDS                                DTSBR608
00055 *                                                                 DTSBR608
00056 *                                                                 DTSBR608
00057 *    RECORDS WRITTEN:                                             DTSBR608
00058 *                                                                 DTSBR608
00059 *        NONE.                                                    DTSBR608
00060 *                                                                 DTSBR608
00061 *                                                                 DTSBR608
00062 *    MODULES CALLED:                                              DTSBR608
00063 *                                                                 DTSBR608
00064 *        DTSBU009 CONVERSION TO CAPS MODULE                       DTSBR608
00065 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR608
00066 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR608
00067 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR608
00068 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR608
00069 *                                                                 DTSBR608
00070 *****                                                             DTSBR608
00071      EJECT                                                        DTSBR608
00072  ENVIRONMENT DIVISION.                                            DTSBR608
00073                                                                   DTSBR608
00074  CONFIGURATION SECTION.                                           DTSBR608
00075  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR608
00076                                                                   DTSBR608
00077  INPUT-OUTPUT SECTION.                                            DTSBR608
00078                                                                   DTSBR608
00079  FILE-CONTROL.                                                    DTSBR608
00080      SELECT PRT-FILE ASSIGN TO RPT608R1.                          DTSBR608
00081                                                                   DTSBR608
00082  DATA DIVISION.                                                   DTSBR608
00083                                                                   DTSBR608
00084  FILE SECTION.                                                    DTSBR608
00085                                                                   DTSBR608
00086  FD  PRT-FILE                                                     DTSBR608
00087      RECORDING MODE IS F                                          DTSBR608
00088      BLOCK CONTAINS 0 RECORDS                                     DTSBR608
00089      LABEL RECORDS ARE OMITTED.                                   DTSBR608
00090  01  XEROX-REPORT.                                                DTSBR608
00091      05  FILLER                      PIC X(1).                    DTSBR608
00092      05  XEROX-RPT                   PIC X(132).                  DTSBR608
00093                                                                   DTSBR608
00094      EJECT                                                        DTSBR608
00095  WORKING-STORAGE SECTION.                                         DTSBR608
000955 77  PAN-VALET PICTURE X(24) VALUE '014DTSBR608  05/28/14'.       DTSBR608
00096  77  PAN-VALET PICTURE X(24) VALUE '004DTSBR608  05/22/14'.       DTSBR608
00097  77  PAN-VALET PICTURE X(24) VALUE '012DTSBR608  06/06/01'.       DTSBR608
00098                                                                   DTSBR608
00099  01  WRK-AREA.                                                    DTSBR608
00100      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +608.DTSBR608
00101      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR608
00102                                                                   DTSBR608
00103      05  WS-OP-ID-HOLD               PIC  X(08)  VALUE SPACE.     DTSBR608
00104      05  WS-FIELD-NAME-FIRST-MI      PIC  X(40)  VALUE SPACE.     DTSBR608
00105      05  WS-FIELD-NAME-LAST          PIC  X(40)  VALUE SPACE.     DTSBR608
00106      05  WS-ADDR-FMT-AREA            PIC  X(200) VALUE SPACE.     DTSBR608
00107      05  WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA.           DTSBR608
00108          10  ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40).              DTSBR608
00109                                                                   DTSBR608
00110  01  VSCA-LINE.                                                   DTSBR608
00111      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR608
00112                                                                   DTSBR608
00113      EJECT                                                        DTSBR608
00114  01  L009-LINK-AREA.                                              DTSBR608
00115  ++INCLUDE DTSIL009                                               DTSBR608
00116      EJECT                                                        DTSBR608
00117  01  L119-LINK-AREA.                                              DTSBR608
00118  ++INCLUDE DTSIL119                                               DTSBR608
00119      EJECT                                                        DTSBR608
00120  ++INCLUDE DTSXL608                                               DTSBR608
00121                                                                   DTSBR608
00122  01  SURVEY-CARD.                                                 DTSBR608
00123      05  DTL-LINE-35.                                             DTSBR608
00124          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR608
00125          10  DTL-EMP-NO              PIC  999B999.                DTSBR608
00126      05  DTL-LINE-43.                                             DTSBR608
00127          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR608
00128          10  WS-OPR-NAME             PIC  X(32).                  DTSBR608
00129      05  DTL-LINE-45.                                             DTSBR608
00130          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR608
00131          10  WS-OPR-UNIT-NAME        PIC  X(30).                  DTSBR608
00132      EJECT                                                        DTSBR608
00133  LINKAGE SECTION.                                                 DTSBR608
00134                                                                   DTSBR608
00135  01  LRCM-LINK-AREA.                                              DTSBR608
00136  ++INCLUDE DTSILRCM                                               DTSBR608
00137      EJECT                                                        DTSBR608
00138  01  R608-REC.                                                    DTSBR608
00139  ++INCLUDE DTSIR608                                               DTSBR608
00140      EJECT                                                        DTSBR608
00141  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR608
00142                           R608-REC.                               DTSBR608
00143      IF FIRST-TIME-IND = 'Y'                                      DTSBR608
00144          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR608
00145          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR608
00146                                                                   DTSBR608
00147      IF LRCM-EOR-88                                               DTSBR608
00148          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR608
00149      ELSE                                                         DTSBR608
00150          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR608
00151                                                                   DTSBR608
00152      GOBACK.                                                      DTSBR608
00153      EJECT                                                        DTSBR608
00154  I1000-INITIATE.                                                  DTSBR608
00155                                                                   DTSBR608
00156      OPEN OUTPUT PRT-FILE.                                        DTSBR608
00157      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR608
00158      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR608
00159      PERFORM S119-AGY-FACTS THRU S119-EXIT.                       DTSBR608
00160      MOVE L119-UNIT-CHIEF-NAME        TO WS-OPR-NAME              DTSBR608
00161      MOVE L119-UNIT-CHIEF-TITLE       TO WS-OPR-UNIT-NAME         DTSBR608
00162                                                                   DTSBR608
00163      MOVE SPACES TO XEROX-REPORT.                                 DTSBR608
00164 *    MOVE 'XXXXXXXX' TO REPORT-NUMBER.                            DTSBR608
00165                                                                   DTSBR608
00166      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR608
00167          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR608
00168      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 13.    DTSBR608
00169      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE15 AFTER 1.       DTSBR608
00170      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE16 AFTER 1.       DTSBR608
00171      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17 AFTER 1        DTSBR608
00172      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE18 AFTER 1.       DTSBR608
00173      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE19 AFTER 1.       DTSBR608
00174      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20 AFTER 1.       DTSBR608
00175      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE21 AFTER 1.       DTSBR608
00176      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE22 AFTER 1.       DTSBR608
00177      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE23 AFTER 1.       DTSBR608
00178                                                                   DTSBR608
00179  I1000-EXIT.                                                      DTSBR608
00180      EXIT.                                                        DTSBR608
00181                                                                   DTSBR608
00182  P1000-PROCESS.                                                   DTSBR608
00183                                                                   DTSBR608
00184      MOVE R608-EMP-NO          TO DTL-EMP-NO.                     DTSBR608
00185      PERFORM P2000-PRINT-DETAIL THRU P2000-EXIT.                  DTSBR608
00186      PERFORM P1500-SELF-MAILER-RTN THRU P1500-EXIT.               DTSBR608
00187                                                                   DTSBR608
00188  P1000-EXIT.                                                      DTSBR608
00189      EXIT.                                                        DTSBR608
00190                                                                   DTSBR608
00191  P1500-SELF-MAILER-RTN.                                           DTSBR608
00192                                                                   DTSBR608
00193      MOVE R608-FMT-LINE(1) TO WS-ADDR-FMT-LINE-1.                 DTSBR608
00194      MOVE R608-FMT-LINE(2) TO WS-ADDR-FMT-LINE-2.                 DTSBR608
00195      MOVE R608-FMT-LINE(3) TO WS-ADDR-FMT-LINE-3.                 DTSBR608
00196      MOVE R608-FMT-LINE(4) TO WS-ADDR-FMT-LINE-4.                 DTSBR608
00197      MOVE R608-FMT-LINE(5) TO WS-ADDR-FMT-LINE-5.                 DTSBR608
00198      PERFORM P3000-PRINT-VSCA-ADDR THRU P3000-EXIT.               DTSBR608
00199                                                                   DTSBR608
00200  P1500-EXIT.                                                      DTSBR608
00201      EXIT.                                                        DTSBR608
00202                                                                   DTSBR608
00203  P2000-PRINT-DETAIL.                                              DTSBR608
00204      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR608
00205      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 30 LINE.   DTSBR608
00206      WRITE XEROX-REPORT FROM DTL-LINE-35 AFTER ADVANCING 2 LINE.  DTSBR608
00207      WRITE XEROX-REPORT FROM DTL-LINE-43 AFTER ADVANCING 8  LINES.DTSBR608
00208      WRITE XEROX-REPORT FROM DTL-LINE-45 AFTER ADVANCING 1 LINES. DTSBR608
00209                                                                   DTSBR608
00210  P2000-EXIT.                                                      DTSBR608
00211      EXIT.                                                        DTSBR608
00212                                                                   DTSBR608
00213  P3000-PRINT-VSCA-ADDR.                                           DTSBR608
00214      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR608
00215          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR608
00216      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 14 LINES.  DTSBR608
00217      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19                    DTSBR608
00218              AFTER ADVANCING 1 LINE.                              DTSBR608
00219      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20                    DTSBR608
00220              AFTER ADVANCING 1 LINE.                              DTSBR608
00221      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21                    DTSBR608
00222              AFTER ADVANCING 1 LINE.                              DTSBR608
00223      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-22                    DTSBR608
00224              AFTER ADVANCING 1 LINE.                              DTSBR608
00225      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-23                    DTSBR608
00226              AFTER ADVANCING 1 LINE.                              DTSBR608
00227                                                                   DTSBR608
00228  P3000-EXIT.                                                      DTSBR608
00229      EXIT.                                                        DTSBR608
00230  T1000-TERMINATE.                                                 DTSBR608
00231                                                                   DTSBR608
00232      CLOSE PRT-FILE.                                              DTSBR608
00233                                                                   DTSBR608
00234  T1000-EXIT.                                                      DTSBR608
00235      EXIT.                                                        DTSBR608
00236                                                                   DTSBR608
00237  S119-AGY-FACTS.                                                  DTSBR608
00238                                                                   DTSBR608
00239      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR608
00240                                                                   DTSBR608
00241  S119-EXIT.                                                       DTSBR608
00242      EXIT.                                                        DTSBR608
00243                                                                   DTSBR608
00244 *S999-ABEND.                                                      DTSBR608
00245 *                                                                 DTSBR608
00246 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR608
00247 *                                                                 DTSBR608
00248 *S999-EXIT.                                                       DTSBR608
00249 *    EXIT.                                                        DTSBR608
00250                                                                   DTSBR608
