00001 IDENTIFICATION DIVISION. 02/26/08 00002 PROGRAM-ID. DTSBR128. DTSBR128 00003 AUTHOR. NORTHROP GRUMMAN. LV001 00004 DATE-WRITTEN. JULY 2005. DTSBR128 00005 DATE-COMPILED. DTSBR128 00006 SKIP3 DTSBR128 00007 ***** DTSBR128 00008 * DTSBR128 00009 * FUNCTION: WEB DETERMINATION REPORT. DTSBR128 00010 * DTSBR128 00011 * CALLING SEQUENCE: FROM THE WEB REGISTRATION PROCESS AND DTSBR128 00012 * THRU THE DAILY PRODUCTION RUN CREATED DTSBR128 00013 * THE DTSIR128 RECORDS. DTSBR128 00014 * DTSBD800 CALLS DTSBR128 USING DTSIR128 DTSBR128 00015 * WHICH PRODUCES THE REPORTS. DTSBR128 00016 * DTSBR128 00017 * MODIFICATION HISTORY: DTSBR128 00018 * DTSBR128 00019 * 05-19-04 INITIAL DEVELOPMENT DTSBR128 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RW1 DTSBR128 00021 * DTSBR128 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR128 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR128 00024 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR128 00025 * DTSBR128 00026 * DTSBR128 00027 * DESCRIPTION: DTSBR128 00028 * DTSBR128 00029 * THIS MODULE PRODUCES A REPORT FOR THE NEW EMPLOYER DTSBR128 00030 * DETERMINATIONS PRODUCED THROUGH THE WEB REGISTRITION DTSBR128 00031 * PROCESSES. DTSBR128 00032 * DTSBR128 00033 * RECORDS READ: DTSBR128 00034 * DTSBR128 00035 * NONE. DTSBR128 00036 * DTSBR128 00037 * DTSBR128 00038 * PRINTED OUTPUTS: DTSBR128 00039 * DTSBR128 00040 * 128R1 EMPLOYER DETERMINATION REPORT RECORD. DTSBR128 00041 * DTSBR128 00042 * DTSBR128 00043 * RECORDS WRITTEN: DTSBR128 00044 * DTSBR128 00045 * NONE. DTSBR128 00046 * DTSBR128 00047 * DTSBR128 00048 * MODULES CALLED: DTSBR128 00049 * DTSBR128 00050 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR128 00051 * DTSBU002 DATE ALPHA CONVERSION MODULE DTSBR128 00052 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR128 00053 * DTSBR128 00054 ***** DTSBR128 00055 DTSBR128 00056 ENVIRONMENT DIVISION. DTSBR128 00057 DTSBR128 00058 CONFIGURATION SECTION. DTSBR128 00059 DTSBR128 00060 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR128 00061 DTSBR128 00062 INPUT-OUTPUT SECTION. DTSBR128 00063 DTSBR128 00064 FILE-CONTROL. DTSBR128 00065 SELECT PRT-FILE1 ASSIGN TO RPT128R1. DTSBR128 00066 SELECT PRT-FILE2 ASSIGN TO RPT128R2. DTSBR128 00067 SELECT PRT-FILE3 ASSIGN TO RPT128R3. DTSBR128 00068 SELECT PRT-FILE4 ASSIGN TO RPT128R4. DTSBR128 00069 DTSBR128 00070 DATA DIVISION. DTSBR128 00071 DTSBR128 00072 FILE SECTION. DTSBR128 00073 DTSBR128 00074 FD PRT-FILE1 DTSBR128 00075 RECORDING MODE IS F DTSBR128 00076 BLOCK CONTAINS 0 RECORDS DTSBR128 00077 LABEL RECORDS ARE OMITTED. DTSBR128 00078 DTSBR128 00079 01 REPORT-LISTING1 PIC X(80). DTSBR128 00080 DTSBR128 00081 FD PRT-FILE2 DTSBR128 00082 RECORDING MODE IS F DTSBR128 00083 BLOCK CONTAINS 0 RECORDS DTSBR128 00084 LABEL RECORDS ARE OMITTED. DTSBR128 00085 DTSBR128 00086 01 REPORT-LISTING2 PIC X(80). DTSBR128 00087 DTSBR128 00088 FD PRT-FILE3 DTSBR128 00089 RECORDING MODE IS F DTSBR128 00090 BLOCK CONTAINS 0 RECORDS DTSBR128 00091 LABEL RECORDS ARE OMITTED. DTSBR128 00092 DTSBR128 00093 01 REPORT-LISTING3 PIC X(80). DTSBR128 00094 DTSBR128 00095 FD PRT-FILE4 DTSBR128 00096 RECORDING MODE IS F DTSBR128 00097 BLOCK CONTAINS 0 RECORDS DTSBR128 00098 LABEL RECORDS ARE OMITTED. DTSBR128 00099 DTSBR128 00100 01 REPORT-LISTING4 PIC X(80). DTSBR128 00101 DTSBR128 00102 WORKING-STORAGE SECTION. DTSBR128 001025 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR128 02/26/08'. DTSBR128 00103 DTSBR128 00104 01 WRK-AREA. DTSBR128 00105 DTSBR128 00106 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +128.DTSBR128 00107 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBR128 00108 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR128 00109 DTSBR128 00110 *** USED FOR RPT128R1 DTSBR128 00111 05 WS-SUM-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR128 00112 05 WS-LINE-CNT-I1 PIC S9(02) COMP-3 VALUE 60. DTSBR128 00113 05 WS-LINE-CNT-R1 PIC S9(02) COMP-3 VALUE +0. DTSBR128 00114 05 WS-PAGE-CNT-1 PIC S9(03) COMP-3 VALUE +0. DTSBR128 00115 DTSBR128 00116 *** USED FOR RPT128R2 DTSBR128 00117 05 WS-SUM-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR128 00118 05 WS-LINE-CNT-I2 PIC S9(02) COMP-3 VALUE 60. DTSBR128 00119 05 WS-LINE-CNT-R2 PIC S9(02) COMP-3 VALUE +0. DTSBR128 00120 05 WS-PAGE-CNT-2 PIC S9(03) COMP-3 VALUE +0. DTSBR128 00121 DTSBR128 00122 *** USED FOR RPT128R3 DTSBR128 00123 05 WS-SUM-NUMBER-THREE PIC S9(05) COMP-3 VALUE +0. DTSBR128 00124 05 WS-LINE-CNT-I3 PIC S9(02) COMP-3 VALUE 60. DTSBR128 00125 05 WS-LINE-CNT-R3 PIC S9(02) COMP-3 VALUE +0. DTSBR128 00126 05 WS-PAGE-CNT-3 PIC S9(03) COMP-3 VALUE +0. DTSBR128 00127 DTSBR128 00128 *** USED FOR RPT128R4 DTSBR128 00129 05 WS-SUM-NUMBER-FOUR PIC S9(05) COMP-3 VALUE +0. DTSBR128 00130 05 WS-LINE-CNT-I4 PIC S9(02) COMP-3 VALUE 60. DTSBR128 00131 05 WS-LINE-CNT-R4 PIC S9(02) COMP-3 VALUE +0. DTSBR128 00132 05 WS-PAGE-CNT-4 PIC S9(03) COMP-3 VALUE +0. DTSBR128 00133 *** USED FOR FOUR DIFFERENT REPORTS DTSBR128 00134 05 WS-REPORT-TYPE1 PIC X(05) VALUE '128R1'. DTSBR128 00135 05 WS-REPORT-TYPE2 PIC X(05) VALUE '128R2'. DTSBR128 00136 05 WS-REPORT-TYPE3 PIC X(05) VALUE '128R3'. DTSBR128 00137 05 WS-REPORT-TYPE4 PIC X(05) VALUE '128R4'. DTSBR128 00138 DTSBR128 00139 05 WS-HDR4-LIT-1 PIC X(22) DTSBR128 00140 VALUE 'PENDING DETERMINATIONS'. DTSBR128 00141 05 WS-HDR4-LIT-2 PIC X(22) DTSBR128 00142 VALUE ' LIABILITY UPDATES '. DTSBR128 00143 05 WS-HDR4-LIT-3 PIC X(22) DTSBR128 00144 VALUE 'NON-LIABILITY UPDATES '. DTSBR128 00145 05 WS-HDR4-LIT-4 PIC X(22) DTSBR128 00146 VALUE ' NEW DETERMINATIONS '. DTSBR128 00147 DTSBR128 00148 01 HEADER-1. DTSBR128 00149 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00150 05 WS-RPT-NO PIC X(05). DTSBR128 00151 05 FILLER PIC X(24) VALUE SPACES. DTSBR128 00152 05 FILLER PIC X(20) VALUE DTSBR128 00153 'DISTRICT OF COLUMBIA'. DTSBR128 00154 05 FILLER PIC X(16) VALUE SPACES. DTSBR128 00155 05 FILLER PIC X(05) DTSBR128 00156 VALUE 'DATE:'. DTSBR128 00157 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00158 05 WS-SYS-DATE PIC X(08) VALUE SPACE. DTSBR128 00159 DTSBR128 00160 01 HEADER-2. DTSBR128 00161 05 FILLER PIC X(34) VALUE SPACES. DTSBR128 00162 05 FILLER PIC X(12) VALUE DTSBR128 00163 'TAX DIVISION'. DTSBR128 00164 05 FILLER PIC X(20) VALUE SPACES. DTSBR128 00165 05 FILLER PIC X(05) DTSBR128 00166 VALUE 'TIME:'. DTSBR128 00167 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00168 05 WS-SYS-TIME PIC X(08) VALUE SPACE. DTSBR128 00169 DTSBR128 00170 01 HEADER-3. DTSBR128 00171 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00172 05 FILLER PIC X(25) DTSBR128 00173 VALUE 'ROUTE TO: STATUS '. DTSBR128 00174 05 FILLER PIC X(40) VALUE SPACES. DTSBR128 00175 05 FILLER PIC X(05) VALUE 'PAGE:'. DTSBR128 00176 05 FILLER PIC X(03) VALUE SPACES. DTSBR128 00177 05 HDR3-PAGE-CNT PIC ZZ,ZZ9. DTSBR128 00178 DTSBR128 00179 01 HEADER-4. DTSBR128 00180 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00181 05 FILLER PIC X(28) VALUE SPACE. DTSBR128 00182 05 HDR4-LIT PIC X(22) VALUE SPACE. DTSBR128 00183 05 FILLER PIC X(29) VALUE SPACE. DTSBR128 00184 DTSBR128 00185 01 HEADER-5 PIC X(80) VALUE SPACES. DTSBR128 00186 DTSBR128 00187 01 HEADER-6. DTSBR128 00188 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00189 05 FILLER PIC X(02) VALUE SPACES. DTSBR128 00190 05 FILLER PIC X(06) DTSBR128 00191 VALUE 'EMP NO'. DTSBR128 00192 05 FILLER PIC X(03) VALUE SPACES. DTSBR128 00193 05 FILLER PIC X(12) DTSBR128 00194 VALUE 'PRIMARY NAME'. DTSBR128 00195 05 FILLER PIC X(28) VALUE SPACES. DTSBR128 00196 05 FILLER PIC X(02) VALUE SPACES. DTSBR128 00197 05 FILLER PIC X(06) DTSBR128 00198 VALUE 'SOURCE'. DTSBR128 00199 05 FILLER PIC X(04) VALUE SPACES. DTSBR128 00200 05 FILLER PIC X(02) VALUE SPACES. DTSBR128 00201 05 FILLER PIC X(12) DTSBR128 00202 VALUE 'ENTERED DATE'. DTSBR128 00203 05 FILLER PIC X(03) VALUE SPACES. DTSBR128 00204 DTSBR128 00205 01 HEADER-7 PIC X(80) VALUE SPACES. DTSBR128 00206 DTSBR128 00207 01 DETAIL-LINE. DTSBR128 00208 05 FILLER PIC X(01) VALUE SPACE. DTSBR128 00209 05 FILLER PIC X(02) VALUE SPACES. DTSBR128 00210 05 WS-EMP-NO PIC 999B999 BLANK WHEN ZERO.DTSBR128 00211 05 FILLER PIC X(02) VALUE SPACE. DTSBR128 00212 05 WS-PRIMARY-NAME PIC X(40). DTSBR128 00213 05 FILLER PIC X(02) VALUE SPACE. DTSBR128 00214 05 WS-SOURCE PIC X(10). DTSBR128 00215 05 FILLER PIC X(02) VALUE SPACES. DTSBR128 00216 05 WS-ENTERED-DATE PIC X(10). DTSBR128 00217 05 FILLER PIC X(51) VALUE SPACES. DTSBR128 00218 DTSBR128 00219 *** CONTROL-FOOTING-1. DTSBR128 00220 01 FILLER. DTSBR128 00221 05 CF1-LINE. DTSBR128 00222 10 FILLER PIC X(01) VALUE SPACE. DTSBR128 00223 10 FILLER PIC X(15) VALUE SPACES. DTSBR128 00224 10 WS-FOOT-NUMBER-ONE PIC ZZ,ZZ9. DTSBR128 00225 10 FILLER PIC X(02) VALUE SPACES. DTSBR128 00226 10 FILLER PIC X(22) VALUE DTSBR128 00227 'PENDING DETERMINATIONS'. DTSBR128 00228 10 FILLER PIC X(34) VALUE SPACES. DTSBR128 00229 DTSBR128 00230 *** CONTROL-FOOTING-2. DTSBR128 00231 01 FILLER. DTSBR128 00232 05 CF2-LINE. DTSBR128 00233 10 FILLER PIC X(01) VALUE SPACE. DTSBR128 00234 10 FILLER PIC X(15) VALUE SPACES. DTSBR128 00235 10 WS-FOOT-NUMBER-TWO PIC ZZ,ZZ9. DTSBR128 00236 10 FILLER PIC X(02) VALUE SPACES. DTSBR128 00237 10 FILLER PIC X(22) VALUE DTSBR128 00238 ' LIABILITY UPDATES '. DTSBR128 00239 10 FILLER PIC X(34) VALUE SPACES. DTSBR128 00240 DTSBR128 00241 *** CONTROL-FOOTING-3. DTSBR128 00242 01 FILLER. DTSBR128 00243 05 CF3-LINE. DTSBR128 00244 10 FILLER PIC X(01) VALUE SPACE. DTSBR128 00245 10 FILLER PIC X(15) VALUE SPACES. DTSBR128 00246 10 WS-FOOT-NUMBER-THREE PIC ZZ,ZZ9. DTSBR128 00247 10 FILLER PIC X(02) VALUE SPACES. DTSBR128 00248 10 FILLER PIC X(22) VALUE DTSBR128 00249 'NON-LIABILITY UPDATES '. DTSBR128 00250 10 FILLER PIC X(34) VALUE SPACES. DTSBR128 00251 DTSBR128 00252 *** CONTROL-FOOTING-4. DTSBR128 00253 01 FILLER. DTSBR128 00254 05 CF4-LINE. DTSBR128 00255 10 FILLER PIC X(01) VALUE SPACE. DTSBR128 00256 10 FILLER PIC X(15) VALUE SPACES. DTSBR128 00257 10 WS-FOOT-NUMBER-FOUR PIC ZZ,ZZ9. DTSBR128 00258 10 FILLER PIC X(02) VALUE SPACES. DTSBR128 00259 10 FILLER PIC X(22) VALUE DTSBR128 00260 ' NEW DETERMINATIONS '. DTSBR128 00261 10 FILLER PIC X(34) VALUE SPACES. DTSBR128 00262 DTSBR128 00263 01 FILLER. DTSBR128 00264 05 ASTR-LINE. DTSBR128 00265 10 FILLER PIC X(24) VALUE SPACES. DTSBR128 00266 10 FILLER PIC X(26) DTSBR128 00267 VALUE ' *** END OF REPORT '. DTSBR128 00268 10 FILLER PIC X(83) VALUE SPACES. DTSBR128 00269 DTSBR128 00270 01 L001-LINK-AREA. DTSBR128 00271 ++INCLUDE DTSIL001 DTSBR128 00272 EJECT DTSBR128 00273 01 L002-LINK-AREA. DTSBR128 00274 ++INCLUDE DTSIL002 DTSBR128 00275 EJECT DTSBR128 00276 01 L004-LINK-AREA. DTSBR128 00277 ++INCLUDE DTSIL004 DTSBR128 00278 EJECT DTSBR128 00279 01 L031-LINK-AREA. DTSBR128 00280 ++INCLUDE DTSIL031 DTSBR128 00281 EJECT DTSBR128 00282 DTSBR128 00283 LINKAGE SECTION. DTSBR128 00284 DTSBR128 00285 01 LRCM-LINK-AREA. DTSBR128 00286 ++INCLUDE DTSILRCM DTSBR128 00287 DTSBR128 00288 01 R128-REC. DTSBR128 00289 ++INCLUDE DTSIR128 DTSBR128 00290 EJECT DTSBR128 00291 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR128 00292 R128-REC. DTSBR128 00293 DTSBR128 00294 IF FIRST-TIME-IND = 'Y' DTSBR128 00295 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR128 00296 MOVE 'N' TO FIRST-TIME-IND. DTSBR128 00297 DTSBR128 00298 IF LRCM-EOR-88 DTSBR128 00299 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR128 00300 ELSE DTSBR128 00301 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR128 00302 DTSBR128 00303 GOBACK. DTSBR128 00304 DTSBR128 00305 I1000-INITIATE. DTSBR128 00306 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4. DTSBR128 00307 MOVE LRCM-SYS-DATE TO WS-SYS-DATE. DTSBR128 00308 MOVE LRCM-SYS-TIME TO WS-SYS-TIME. DTSBR128 00309 MOVE SPACES TO REPORT-LISTING1 DTSBR128 00310 REPORT-LISTING2 DTSBR128 00311 REPORT-LISTING3 DTSBR128 00312 REPORT-LISTING4. DTSBR128 00313 I1000-EXIT. DTSBR128 00314 EXIT. DTSBR128 00315 DTSBR128 00316 P1000-PROCESS. DTSBR128 00317 DTSBR128 00318 EVALUATE TRUE DTSBR128 00319 WHEN R128-PENDING-DETERM-88 DTSBR128 00320 PERFORM P2000-WRITE-PEND-DETERM THRU P2000-EXIT DTSBR128 00321 WHEN R128-LIAB-UPDATE-88 DTSBR128 00322 PERFORM P3000-WRITE-LIAB-UPDATE THRU P3000-EXIT DTSBR128 00323 WHEN R128-EMP-UPDATE-88 DTSBR128 00324 PERFORM P4000-WRITE-EMP-UPDATE THRU P4000-EXIT DTSBR128 00325 WHEN R128-LIAB-ENTERED-NEW-88 DTSBR128 00326 PERFORM P5000-WRITE-LIAB-ENTER-NEW THRU P5000-EXIT DTSBR128 00327 END-EVALUATE. DTSBR128 00328 DTSBR128 00329 P1000-EXIT. DTSBR128 00330 EXIT. DTSBR128 00331 DTSBR128 00332 P2000-WRITE-PEND-DETERM. DTSBR128 00333 DTSBR128 00334 PERFORM P2100-PRINT-HEADER THRU P2100-EXIT. DTSBR128 00335 DTSBR128 00336 MOVE R128-EMP-NO TO WS-EMP-NO. DTSBR128 00337 MOVE R128-LIAB-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR128 00338 DTSBR128 00339 MOVE R128-SOURCE TO L031-CD-2. DTSBR128 00340 SET L031-MERA-SOURCE-CD TO TRUE DTSBR128 00341 PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT. DTSBR128 00342 MOVE L031-SHORT-DSCR TO WS-SOURCE. DTSBR128 00343 DTSBR128 00344 MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9. DTSBR128 00345 SET L001-FROM-FED-8 TO TRUE. DTSBR128 00346 PERFORM S001-DATE THRU S001-EXIT. DTSBR128 00347 IF L001-CAL-8-DATE-9 = ZEROS DTSBR128 00348 MOVE SPACES TO WS-ENTERED-DATE DTSBR128 00349 ELSE DTSBR128 00350 MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE. DTSBR128 00351 DTSBR128 00352 WRITE REPORT-LISTING1 FROM DETAIL-LINE AFTER 2. DTSBR128 00353 ADD +2 TO WS-LINE-CNT-R1. DTSBR128 00354 ADD +1 TO WS-SUM-NUMBER-ONE. DTSBR128 00355 DTSBR128 00356 P2000-EXIT. DTSBR128 00357 EXIT. DTSBR128 00358 DTSBR128 00359 P2100-PRINT-HEADER. DTSBR128 00360 IF WS-LINE-CNT-I1 GREATER 56 OR DTSBR128 00361 WS-LINE-CNT-R1 GREATER 56 DTSBR128 00362 MOVE +0 TO WS-LINE-CNT-I1 DTSBR128 00363 MOVE +0 TO WS-LINE-CNT-R1 DTSBR128 00364 ADD +1 TO WS-PAGE-CNT-1 DTSBR128 00365 MOVE WS-PAGE-CNT-1 TO HDR3-PAGE-CNT DTSBR128 00366 MOVE WS-HDR4-LIT-1 TO HDR4-LIT DTSBR128 00367 MOVE WS-REPORT-TYPE1 TO WS-RPT-NO DTSBR128 00368 WRITE REPORT-LISTING1 FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR128 00369 WRITE REPORT-LISTING1 FROM HEADER-2 AFTER 1 DTSBR128 00370 WRITE REPORT-LISTING1 FROM HEADER-3 AFTER 1 DTSBR128 00371 WRITE REPORT-LISTING1 FROM HEADER-4 AFTER 1 DTSBR128 00372 WRITE REPORT-LISTING1 FROM HEADER-5 AFTER 1 DTSBR128 00373 WRITE REPORT-LISTING1 FROM HEADER-6 AFTER 1 DTSBR128 00374 WRITE REPORT-LISTING1 FROM HEADER-7 AFTER 1 DTSBR128 00375 ADD +7 TO WS-LINE-CNT-R1. DTSBR128 00376 DTSBR128 00377 P2100-EXIT. DTSBR128 00378 EXIT. DTSBR128 00379 DTSBR128 00380 P3000-WRITE-LIAB-UPDATE. DTSBR128 00381 DTSBR128 00382 PERFORM P3100-PRINT-HEADER THRU P3100-EXIT. DTSBR128 00383 DTSBR128 00384 MOVE R128-EMP-NO TO WS-EMP-NO. DTSBR128 00385 MOVE R128-LIAB-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR128 00386 DTSBR128 00387 MOVE R128-SOURCE TO L031-CD-2. DTSBR128 00388 SET L031-MERA-SOURCE-CD TO TRUE DTSBR128 00389 PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT. DTSBR128 00390 MOVE L031-SHORT-DSCR TO WS-SOURCE. DTSBR128 00391 DTSBR128 00392 MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9. DTSBR128 00393 SET L001-FROM-FED-8 TO TRUE. DTSBR128 00394 PERFORM S001-DATE THRU S001-EXIT. DTSBR128 00395 IF L001-CAL-8-DATE-9 = ZEROS DTSBR128 00396 MOVE SPACES TO WS-ENTERED-DATE DTSBR128 00397 ELSE DTSBR128 00398 MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE. DTSBR128 00399 DTSBR128 00400 WRITE REPORT-LISTING2 FROM DETAIL-LINE AFTER 2. DTSBR128 00401 ADD +2 TO WS-LINE-CNT-R2. DTSBR128 00402 ADD +1 TO WS-SUM-NUMBER-TWO. DTSBR128 00403 DTSBR128 00404 P3000-EXIT. DTSBR128 00405 EXIT. DTSBR128 00406 DTSBR128 00407 P3100-PRINT-HEADER. DTSBR128 00408 IF WS-LINE-CNT-I2 GREATER 56 OR DTSBR128 00409 WS-LINE-CNT-R2 GREATER 56 DTSBR128 00410 MOVE +0 TO WS-LINE-CNT-I2 DTSBR128 00411 MOVE +0 TO WS-LINE-CNT-R2 DTSBR128 00412 ADD +1 TO WS-PAGE-CNT-2 DTSBR128 00413 MOVE WS-PAGE-CNT-2 TO HDR3-PAGE-CNT DTSBR128 00414 MOVE WS-REPORT-TYPE2 TO WS-RPT-NO DTSBR128 00415 MOVE WS-HDR4-LIT-2 TO HDR4-LIT DTSBR128 00416 WRITE REPORT-LISTING2 FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR128 00417 WRITE REPORT-LISTING2 FROM HEADER-2 AFTER 1 DTSBR128 00418 WRITE REPORT-LISTING2 FROM HEADER-3 AFTER 1 DTSBR128 00419 WRITE REPORT-LISTING2 FROM HEADER-4 AFTER 1 DTSBR128 00420 WRITE REPORT-LISTING2 FROM HEADER-5 AFTER 1 DTSBR128 00421 WRITE REPORT-LISTING2 FROM HEADER-6 AFTER 1 DTSBR128 00422 WRITE REPORT-LISTING2 FROM HEADER-7 AFTER 1 DTSBR128 00423 ADD +7 TO WS-LINE-CNT-R2. DTSBR128 00424 DTSBR128 00425 P3100-EXIT. DTSBR128 00426 EXIT. DTSBR128 00427 DTSBR128 00428 P4000-WRITE-EMP-UPDATE. DTSBR128 00429 DTSBR128 00430 PERFORM P4100-PRINT-HEADER THRU P4100-EXIT. DTSBR128 00431 DTSBR128 00432 MOVE R128-EMP-NO TO WS-EMP-NO. DTSBR128 00433 MOVE R128-LIAB-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR128 00434 DTSBR128 00435 MOVE R128-SOURCE TO L031-CD-2. DTSBR128 00436 SET L031-MERA-SOURCE-CD TO TRUE DTSBR128 00437 PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT. DTSBR128 00438 MOVE L031-SHORT-DSCR TO WS-SOURCE. DTSBR128 00439 DTSBR128 00440 MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9. DTSBR128 00441 SET L001-FROM-FED-8 TO TRUE. DTSBR128 00442 PERFORM S001-DATE THRU S001-EXIT. DTSBR128 00443 IF L001-CAL-8-DATE-9 = ZEROS DTSBR128 00444 MOVE SPACES TO WS-ENTERED-DATE DTSBR128 00445 ELSE DTSBR128 00446 MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE. DTSBR128 00447 DTSBR128 00448 WRITE REPORT-LISTING3 FROM DETAIL-LINE AFTER 2. DTSBR128 00449 ADD +2 TO WS-LINE-CNT-R3. DTSBR128 00450 ADD +1 TO WS-SUM-NUMBER-THREE. DTSBR128 00451 DTSBR128 00452 P4000-EXIT. DTSBR128 00453 EXIT. DTSBR128 00454 DTSBR128 00455 P4100-PRINT-HEADER. DTSBR128 00456 IF WS-LINE-CNT-I3 GREATER 56 OR DTSBR128 00457 WS-LINE-CNT-R3 GREATER 56 DTSBR128 00458 MOVE +0 TO WS-LINE-CNT-I3 DTSBR128 00459 MOVE +0 TO WS-LINE-CNT-R3 DTSBR128 00460 ADD +1 TO WS-PAGE-CNT-3 DTSBR128 00461 MOVE WS-PAGE-CNT-3 TO HDR3-PAGE-CNT DTSBR128 00462 MOVE WS-REPORT-TYPE3 TO WS-RPT-NO DTSBR128 00463 MOVE WS-HDR4-LIT-3 TO HDR4-LIT DTSBR128 00464 WRITE REPORT-LISTING3 FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR128 00465 WRITE REPORT-LISTING3 FROM HEADER-2 AFTER 1 DTSBR128 00466 WRITE REPORT-LISTING3 FROM HEADER-3 AFTER 1 DTSBR128 00467 WRITE REPORT-LISTING3 FROM HEADER-4 AFTER 1 DTSBR128 00468 WRITE REPORT-LISTING3 FROM HEADER-5 AFTER 1 DTSBR128 00469 WRITE REPORT-LISTING3 FROM HEADER-6 AFTER 1 DTSBR128 00470 WRITE REPORT-LISTING3 FROM HEADER-7 AFTER 1 DTSBR128 00471 ADD +7 TO WS-LINE-CNT-R3. DTSBR128 00472 DTSBR128 00473 P4100-EXIT. DTSBR128 00474 EXIT. DTSBR128 00475 DTSBR128 00476 P5000-WRITE-LIAB-ENTER-NEW. DTSBR128 00477 DTSBR128 00478 PERFORM P5100-PRINT-HEADER THRU P5100-EXIT. DTSBR128 00479 DTSBR128 00480 MOVE R128-EMP-NO TO WS-EMP-NO. DTSBR128 00481 MOVE R128-LIAB-PRIMARY-NAME TO WS-PRIMARY-NAME. DTSBR128 00482 DTSBR128 00483 MOVE R128-SOURCE TO L031-CD-2. DTSBR128 00484 SET L031-MERA-SOURCE-CD TO TRUE DTSBR128 00485 PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT. DTSBR128 00486 MOVE L031-SHORT-DSCR TO WS-SOURCE. DTSBR128 00487 DTSBR128 00488 MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9. DTSBR128 00489 SET L001-FROM-FED-8 TO TRUE. DTSBR128 00490 PERFORM S001-DATE THRU S001-EXIT. DTSBR128 00491 IF L001-CAL-8-DATE-9 = ZEROS DTSBR128 00492 MOVE SPACES TO WS-ENTERED-DATE DTSBR128 00493 ELSE DTSBR128 00494 MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE. DTSBR128 00495 DTSBR128 00496 WRITE REPORT-LISTING4 FROM DETAIL-LINE AFTER 2. DTSBR128 00497 ADD +2 TO WS-LINE-CNT-R4. DTSBR128 00498 ADD +1 TO WS-SUM-NUMBER-FOUR. DTSBR128 00499 DTSBR128 00500 P5000-EXIT. DTSBR128 00501 EXIT. DTSBR128 00502 DTSBR128 00503 P5100-PRINT-HEADER. DTSBR128 00504 IF WS-LINE-CNT-I4 GREATER 56 OR DTSBR128 00505 WS-LINE-CNT-R4 GREATER 56 DTSBR128 00506 MOVE +0 TO WS-LINE-CNT-I4 DTSBR128 00507 MOVE +0 TO WS-LINE-CNT-R4 DTSBR128 00508 ADD +1 TO WS-PAGE-CNT-4 DTSBR128 00509 MOVE WS-PAGE-CNT-4 TO HDR3-PAGE-CNT DTSBR128 00510 MOVE WS-REPORT-TYPE4 TO WS-RPT-NO DTSBR128 00511 MOVE WS-HDR4-LIT-4 TO HDR4-LIT DTSBR128 00512 WRITE REPORT-LISTING4 FROM HEADER-1 AFTER TOP-OF-PAGE DTSBR128 00513 WRITE REPORT-LISTING4 FROM HEADER-2 AFTER 1 DTSBR128 00514 WRITE REPORT-LISTING4 FROM HEADER-3 AFTER 1 DTSBR128 00515 WRITE REPORT-LISTING4 FROM HEADER-4 AFTER 1 DTSBR128 00516 WRITE REPORT-LISTING4 FROM HEADER-5 AFTER 1 DTSBR128 00517 WRITE REPORT-LISTING4 FROM HEADER-6 AFTER 1 DTSBR128 00518 WRITE REPORT-LISTING4 FROM HEADER-7 AFTER 1 DTSBR128 00519 ADD +7 TO WS-LINE-CNT-R4. DTSBR128 00520 DTSBR128 00521 P5100-EXIT. DTSBR128 00522 EXIT. DTSBR128 00523 DTSBR128 00524 T1000-TERMINATE. DTSBR128 00525 DTSBR128 00526 *** PENDING DETERMINATION FOOTER DTSBR128 00527 IF WS-SUM-NUMBER-ONE NOT = +0 DTSBR128 00528 IF WS-LINE-CNT-R1 > 54 DTSBR128 00529 PERFORM P2100-PRINT-HEADER THRU P2100-EXIT DTSBR128 00530 END-IF DTSBR128 00531 MOVE WS-SUM-NUMBER-ONE TO WS-FOOT-NUMBER-ONE DTSBR128 00532 WRITE REPORT-LISTING1 FROM CF1-LINE AFTER 3 DTSBR128 00533 WRITE REPORT-LISTING1 FROM ASTR-LINE AFTER 2 DTSBR128 00534 END-IF. DTSBR128 00535 DTSBR128 00536 *** LIABILITY UPDATE FOOTER DTSBR128 00537 IF WS-SUM-NUMBER-TWO NOT = +0 DTSBR128 00538 IF WS-LINE-CNT-R2 > 54 DTSBR128 00539 PERFORM P3100-PRINT-HEADER THRU P3100-EXIT DTSBR128 00540 END-IF DTSBR128 00541 MOVE WS-SUM-NUMBER-TWO TO WS-FOOT-NUMBER-TWO DTSBR128 00542 WRITE REPORT-LISTING2 FROM CF2-LINE AFTER 3 DTSBR128 00543 WRITE REPORT-LISTING2 FROM ASTR-LINE AFTER 2 DTSBR128 00544 END-IF. DTSBR128 00545 DTSBR128 00546 *** EMPLOYERS UPDATE FOOTER DTSBR128 00547 IF WS-SUM-NUMBER-THREE NOT = +0 DTSBR128 00548 IF WS-LINE-CNT-R3 > 54 DTSBR128 00549 PERFORM P4100-PRINT-HEADER THRU P4100-EXIT DTSBR128 00550 END-IF DTSBR128 00551 MOVE WS-SUM-NUMBER-THREE TO WS-FOOT-NUMBER-THREE DTSBR128 00552 WRITE REPORT-LISTING3 FROM CF3-LINE AFTER 3 DTSBR128 00553 WRITE REPORT-LISTING3 FROM ASTR-LINE AFTER 2 DTSBR128 00554 END-IF. DTSBR128 00555 DTSBR128 00556 *** LIABILITY ENTERED NEW FOOTER DTSBR128 00557 IF WS-SUM-NUMBER-FOUR NOT = +0 DTSBR128 00558 IF WS-LINE-CNT-R4 > 54 DTSBR128 00559 PERFORM P5100-PRINT-HEADER THRU P5100-EXIT DTSBR128 00560 END-IF DTSBR128 00561 MOVE WS-SUM-NUMBER-FOUR TO WS-FOOT-NUMBER-FOUR DTSBR128 00562 WRITE REPORT-LISTING4 FROM CF4-LINE AFTER 3 DTSBR128 00563 WRITE REPORT-LISTING4 FROM ASTR-LINE AFTER 2 DTSBR128 00564 END-IF. DTSBR128 00565 DTSBR128 00566 CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4. DTSBR128 00567 DTSBR128 00568 T1000-EXIT. DTSBR128 00569 EXIT. DTSBR128 00570 DTSBR128 00571 S001-DATE. DTSBR128 00572 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR128 00573 DTSBR128 00574 S001-EXIT. DTSBR128 00575 EXIT. DTSBR128 00576 DTSBR128 00577 S002-DATE-ALPHA. DTSBR128 00578 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR128 00579 DTSBR128 00580 S002-EXIT. DTSBR128 00581 EXIT. DTSBR128 00582 DTSBR128 00583 S004-FROM-DATE. DTSBR128 00584 SET L004-FROM-DATE TO TRUE. DTSBR128 00585 GO TO S004-YRQ. DTSBR128 00586 DTSBR128 00587 S004-FROM-3. DTSBR128 00588 SET L004-FROM-3 TO TRUE. DTSBR128 00589 GO TO S004-YRQ. DTSBR128 00590 DTSBR128 00591 S004-FROM-5. DTSBR128 00592 SET L004-FROM-5 TO TRUE. DTSBR128 00593 GO TO S004-YRQ. DTSBR128 00594 DTSBR128 00595 S004-FROM-ABS. DTSBR128 00596 SET L004-FROM-ABS TO TRUE. DTSBR128 00597 GO TO S004-YRQ. DTSBR128 00598 DTSBR128 00599 S004-YRQ. DTSBR128 00600 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR128 00601 DTSBR128 00602 S004-EXIT. DTSBR128 00603 EXIT. DTSBR128 00604 DTSBR128 00605 S031-CODES-DESCRIPTION. DTSBR128 00606 DTSBR128 00607 CALL 'DTSBU031' USING L031-LINK-AREA. DTSBR128 00608 DTSBR128 00609 S031-EXIT. DTSBR128 00610 EXIT. DTSBR128 00611 DTSBR128 00612 S999-ABEND. DTSBR128 00613 DISPLAY '*** DTSBR128 ABENDING. ' DTSBR128 00614 WRK-ABEND-MSG. DTSBR128 00615 DTSBR128 00616 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR128 00617 DTSBR128 00618 S999-EXIT. DTSBR128 00619 EXIT. DTSBR128 00620 DTSBR128