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