00001  IDENTIFICATION DIVISION.                                         05/28/13
00002  PROGRAM-ID.             DTSBE615.                                DTSBE616
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004  DATE-WRITTEN.           MARCH 2013.                              DTSBE616
00005  DATE-COMPILED.                                                   DTSBE616
00006      SKIP3                                                        DTSBE616
00007 *****                                                             DTSBE616
00008 *                                                                 DTSBE616
00009 *    FUNCTION:  FIELD ASSIGNMENTS FOR DELINQUENCY (ANNUAL)        DTSBE616
00010 *                                                                 DTSBE616
00011 *                                                                 DTSBE616
00012 *    MODIFICATION LOG:                                            DTSBE616
00013 *                                                                 DTSBE616
00014 *    03/15/2013  INITIAL DEVELOPMENT                              DTSBE616
00015 *                WORK ORDER: SPEC 061           PROGRAMMER: ZL1   DTSBE616
00016 *                                                                 DTSBE616
00017 *                                                                 DTSBE616
00018 *    04/05/2013  MODIFY PROGRAM TO PERFORM FIELD ASSIGNMENT ON    DTSBE616
00019 *                EMPLOYERS WHO OWE MORE THAN 100.00 DOLLARS       DTSBE616
00020 *                WORK ORDER: SPEC 061           PROGRAMMER: ZL1   DTSBE616
00021 *                                                                 DTSBE616
00022 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE616
00023 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE616
00024 *                WORK ORDER: XXXXXXXXXXXXXXX    PROGRAMMER: XXX   DTSBE616
00025 *                                                                 DTSBE616
00026 *                                                                 DTSBE616
00027 *  DESCRIPTION:                                                   DTSBE616
00028 *                                                                 DTSBE616
00029 *    THIS PROGRAM IS INCLUDED IN THE MONTH-END PROCESS, BUT ONLY  DTSBE616
00030 *    PRODUCES A LISTING IN MARCH, JUNE, SEPTEMBER AND DECEMBER.   DTSBE616
00031 *    THE MONTH-END PROCESSING RUNS AFTER THE DAILY UPDATE ON THE  DTSBE616
00032 *                                                                 DTSBE616
00033 *    INITIATION:                                                  DTSBE616
00034 *                                                                 DTSBE616
00035 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE616
00036 *                                                                 DTSBE616
00037 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE616
00038 *                                                                 DTSBE616
00039 *      CHECK AND DEFAULT PARAMETERS.                              DTSBE616
00040 *                                                                 DTSBE616
00041 *                                                                 DTSBE616
00042 *    PROCESSING:                                                  DTSBE616
00043 *                                                                 DTSBE616
00044 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (616R1).       DTSBE616
00045 *                                                                 DTSBE616
00046 *                                                                 DTSBE616
00047 *    TERMINATION:                                                 DTSBE616
00048 *                                                                 DTSBE616
00049 *                                                                 DTSBE616
00050 *                                                                 DTSBE616
00051 *    RECORDS READ:                                                DTSBE616
00052 *                                                                 DTSBE616
00053 *      MASTER:                                                    DTSBE616
00054 *                                                                 DTSBE616
00055 *        MHDR                                                     DTSBE616
00056 *        MQTR                                                     DTSBE616
00057 *        MFAS                                                     DTSBE616
00058 *                                                                 DTSBE616
00059 *      ALTERNATE INDEX:                                           DTSBE616
00060 *                                                                 DTSBE616
00061 *        NONE.                                                    DTSBE616
00062 *                                                                 DTSBE616
00063 *                                                                 DTSBE616
00064 *      REFERENCE:                                                 DTSBE616
00065 *                                                                 DTSBE616
00066 *        FFAT.                                                    DTSBE616
00067 *                                                                 DTSBE616
00068 *                                                                 DTSBE616
00069 *    RECORDS UPDATED:                                             DTSBE616
00070 *                                                                 DTSBE616
00071 *        MHDR.                                                    DTSBE616
00072 *                                                                 DTSBE616
00073 *                                                                 DTSBE616
00074 *    REPORT RECORDS WRITTEN:                                      DTSBE616
00075 *                                                                 DTSBE616
00076 *        R602  ASSIGNMENTS FOR DELINQUENCY                        DTSBE616
00077 *                                                                 DTSBE616
00078 *                                                                 DTSBE616
00079 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE616
00080 *                                                                 DTSBE616
00081 *        NONE.                                                    DTSBE616
00082 *                                                                 DTSBE616
00083 *                                                                 DTSBE616
00084 *    MODULES CALLED:                                              DTSBE616
00085 *                                                                 DTSBE616
00086 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE616
00087 *        DTSBU910  MASTER FILE I/O.                               DTSBE616
00088 *        DTSBU931  REFERENCE FILE I/O.                            DTSBE616
00089 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE616
00090 *                                                                 DTSBE616
00091 *****                                                             DTSBE616
00092      SKIP3                                                        DTSBE616
00093  ENVIRONMENT DIVISION.                                            DTSBE616
00094      SKIP3                                                        DTSBE616
00095  DATA DIVISION.                                                   DTSBE616
00096      SKIP3                                                        DTSBE616
00097  WORKING-STORAGE SECTION.                                         DTSBE616
000975 77  PAN-VALET PICTURE X(24) VALUE '003DTSBE616  05/28/13'.       DTSBE616
00098  77  PAN-VALET PICTURE X(24) VALUE '002DTSBE616  05/28/13'.       DTSBE616
00099  77  PAN-VALET PICTURE X(24) VALUE '001DTSBE616  05/28/13'.       DTSBE616
00100  77  PAN-VALET PICTURE X(24) VALUE '036DTSBE616  05/20/13'.       DTSBE616
00101  77  PAN-VALET PICTURE X(24) VALUE '019DTSBE615  03/28/05'.       DTSBE616
00102      SKIP3                                                        DTSBE616
00103  01  WRK-AREA.                                                    DTSBE616
00104      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +616.DTSBE616
00105                                                                   DTSBE616
00106      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE616'.DTSBE616
00107                                                                   DTSBE616
00108                                                                   DTSBE616
00109      05  GENERATE-ASSIGNMENTS-IND    PIC  X(01).                  DTSBE616
00110          88  GENERATE-ASSIGNMENTS-YES-88    VALUE 'Y'.            DTSBE616
00111          88  GENERATE-ASSIGNMENTS-NO-88     VALUE 'N'.            DTSBE616
00112                                                                   DTSBE616
00113      05  ABEND-MSG                       PIC  X(60).              DTSBE616
00114                                                                   DTSBE616
00115                                                                   DTSBE616
00116      05  FIRST-TIME-IND                  PIC  X(01)  VALUE 'Y'.   DTSBE616
00117                                                                   DTSBE616
00118                                                                   DTSBE616
00119      05  WRK-PARM-SUBJECT-YRQ            PIC S9(05)  COMP-3.      DTSBE616
00120      05  WRK-PARM-SUBJECT-YR             PIC S9(05)  COMP-3.      DTSBE616
00121                                                                   DTSBE616
00122      05  WRK-ASSIGN-NO                   PIC S9(09)    COMP-3.    DTSBE616
00123      05  WRK-EMP-CNT                     PIC S9(07)    COMP-3.    DTSBE616
00124                                                                   DTSBE616
00125      05  WRK-CHARGED-AMT                 PIC S9(09)V9(02) COMP-3. DTSBE616
00126      05  WRK-FINAL-ACTION-DATE           PIC S9(09)    COMP-3.    DTSBE616
00127      05  WRK-EVENT-TXT                   PIC  X(50) VALUE         DTSBE616
00128          'FIELD ASSIGNMENT CREATED FOR DELINQUENCY  '.            DTSBE616
00129      EJECT                                                        DTSBE616
00130  01  R615-REC.                                                    DTSBE616
00131  ++INCLUDE DTSIR615                                               DTSBE616
00132      EJECT                                                        DTSBE616
00133  01  L001-LINK-AREA.                                              DTSBE616
00134  ++INCLUDE DTSIL001                                               DTSBE616
00135      EJECT                                                        DTSBE616
00136  01  L004-LINK-AREA.                                              DTSBE616
00137  ++INCLUDE DTSIL004                                               DTSBE616
00138      EJECT                                                        DTSBE616
00139  01  L005-LINK-AREA.                                              DTSBE616
00140  ++INCLUDE DTSIL005                                               DTSBE616
00141      EJECT                                                        DTSBE616
00142  01  L061-LINK-AREA.                                              DTSBE616
00143  ++INCLUDE DTSIL061                                               DTSBE616
00144      EJECT                                                        DTSBE616
00145  01  L410-LINK-AREA.                                              DTSBE616
00146  ++INCLUDE DTSIL410                                               DTSBE616
00147      SKIP3                                                        DTSBE616
00148  01  L415-LINK-AREA.                                              DTSBE616
00149  ++INCLUDE DTSIL415                                               DTSBE616
00150      SKIP3                                                        DTSBE616
00151  01  L910-LINK-AREA.                                              DTSBE616
00152  ++INCLUDE DTSIL910                                               DTSBE616
00153      SKIP3                                                        DTSBE616
00154  01  MSKL-REC.                                                    DTSBE616
00155  ++INCLUDE DTSIMSKL                                               DTSBE616
00156      SKIP3                                                        DTSBE616
00157  01  MHDR-REC.                                                    DTSBE616
00158  ++INCLUDE DTSIMHDR                                               DTSBE616
00159      SKIP3                                                        DTSBE616
00160  01  MQTR-REC.                                                    DTSBE616
00161  ++INCLUDE DTSIMQTR                                               DTSBE616
00162      SKIP3                                                        DTSBE616
00163  01  MFAS-REC.                                                    DTSBE616
00164  ++INCLUDE DTSIMFAS                                               DTSBE616
00165      SKIP3                                                        DTSBE616
00166  01  MEVL-REC.                                                    DTSBE616
00167  ++INCLUDE DTSIMEVL                                               DTSBE616
00168      SKIP3                                                        DTSBE616
00169      EJECT                                                        DTSBE616
00170  01  L931-LINK-AREA.                                              DTSBE616
00171  ++INCLUDE DTSIL931                                               DTSBE616
00172      SKIP3                                                        DTSBE616
00173  01  FSKL-REC.                                                    DTSBE616
00174  ++INCLUDE DTSIFSKL                                               DTSBE616
00175      SKIP3                                                        DTSBE616
00176  01  FFAT-REC.                                                    DTSBE616
00177  ++INCLUDE DTSIFFAT                                               DTSBE616
00178      SKIP3                                                        DTSBE616
00179  01  FAFD-REC.                                                    DTSBE616
00180  ++INCLUDE DTSIFAFD                                               DTSBE616
00181      SKIP3                                                        DTSBE616
00182  LINKAGE SECTION.                                                 DTSBE616
00183      SKIP3                                                        DTSBE616
00184  01  LECM-LINK-AREA.                                              DTSBE616
00185  ++INCLUDE DTSILECM                                               DTSBE616
00186          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE616
00187              15  LECM-PARM-SUBJECT-YRQ       PIC  X(03).          DTSBE616
00188              15  FILLER                      PIC  X(77).          DTSBE616
00189      EJECT                                                        DTSBE616
00190      EJECT                                                        DTSBE616
00191  01  MPRF-LINK-REC.                                               DTSBE616
00192  ++INCLUDE DTSIMPRF                                               DTSBE616
00193      EJECT                                                        DTSBE616
00194  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE616
00195                           MPRF-LINK-REC.                          DTSBE616
00196                                                                   DTSBE616
00197                                                                   DTSBE616
00198      IF LECM-PROCESS-88                                           DTSBE616
00199          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE616
00200      ELSE                                                         DTSBE616
00201      IF LECM-INITIALIZE-88                                        DTSBE616
00202          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE616
00203      ELSE                                                         DTSBE616
00204      IF LECM-TERMINATE-88                                         DTSBE616
00205          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE616
00206      ELSE                                                         DTSBE616
00207          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE616
00208            TO ABEND-MSG                                           DTSBE616
00209          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE616
00210                                                                   DTSBE616
00211                                                                   DTSBE616
00212      GOBACK.                                                      DTSBE616
00213      EJECT                                                        DTSBE616
00214  I0000-INITIALIZE.                                                DTSBE616
00215                                                                   DTSBE616
00216      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE616
00217                             L931-TRACE-IND.                       DTSBE616
00218                                                                   DTSBE616
00219      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE616
00220                           L931-MOD-NAME.                          DTSBE616
00221                                                                   DTSBE616
00222                                                                   DTSBE616
00223      MOVE LENGTH OF R615-REC TO R615-LENGTH.                      DTSBE616
00224                                                                   DTSBE616
00225      MOVE '615' TO R615-REC-TYPE.                                 DTSBE616
00226      MOVE +0    TO WRK-EMP-CNT.                                   DTSBE616
00227                                                                   DTSBE616
00228       SET L415-MODE-MOST-RECENT-88 TO TRUE.                       DTSBE616
00229       PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT.                DTSBE616
00230       MOVE L415-UC30H-FIRST-DEL-STRT-YRQ  TO L004-QTR-5-9.        DTSBE616
00231       DISPLAY ' L415 1ST DELQ ' L415-UC30H-FIRST-DEL-STRT-YRQ.    DTSBE616
00232                                                                   DTSBE616
00233      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE616
00234                                                                   DTSBE616
00235                                                                   DTSBE616
00236      DISPLAY 'BE616 SUBJECT QTR ' WRK-PARM-SUBJECT-YRQ.           DTSBE616
00237      SET LECM-MST-OPEN-UPDATE-88 TO TRUE.                         DTSBE616
00238                                                                   DTSBE616
00239      SET LECM-REF-OPEN-UPDATE-88 TO TRUE.                         DTSBE616
00240                                                                   DTSBE616
00241  I0000-EXIT.                                                      DTSBE616
00242      EXIT.                                                        DTSBE616
00243      SKIP3                                                        DTSBE616
00244  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE616
00245                                                                   DTSBE616
00246      IF LECM-PARM-SUBJECT-YRQ = SPACES                            DTSBE616
00247         PERFORM I1110-DEFAULT-YRQ     THRU I1110-EXIT             DTSBE616
00248      ELSE                                                         DTSBE616
00249         PERFORM I1120-EDIT-PARM-YRQ   THRU I1120-EXIT.            DTSBE616
00250                                                                   DTSBE616
00251                                                                   DTSBE616
00252      PERFORM I1200-FAFD-YRQ      THRU I1200-EXIT.                 DTSBE616
00253      PERFORM I3000-LAST-ASSIGN-NUM THRU I3000-EXIT.               DTSBE616
00254                                                                   DTSBE616
00255  I1000-EXIT.                                                      DTSBE616
00256      EXIT.                                                        DTSBE616
00257                                                                   DTSBE616
00258  I1110-DEFAULT-YRQ.                                               DTSBE616
00259       IF L415-UC30H-FIRST-DEL-STRT-YRQ = ZEROS                    DTSBE616
00260          MOVE 'PARM-SUBJECT-YRQ REQUIRED   ' TO ABEND-MSG         DTSBE616
00261          PERFORM S999-ABEND THRU S999-EXIT                        DTSBE616
00262       END-IF.                                                     DTSBE616
00263                                                                   DTSBE616
00264       MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO L004-QTR-5-9.         DTSBE616
00265 *     ADD +1 TO L004-QTR-5-YR.                                    DTSBE616
00266       PERFORM S004-FROM-5 THRU S004-EXIT.                         DTSBE616
00267       MOVE L004-QTR-5-9  TO WRK-PARM-SUBJECT-YRQ.                 DTSBE616
00268       MOVE L004-QTR-5-YR TO WRK-PARM-SUBJECT-YR.                  DTSBE616
00269                                                                   DTSBE616
00270       DISPLAY 'PARM-SUBJECT-YRQ  ' WRK-PARM-SUBJECT-YRQ           DTSBE616
00271       DISPLAY 'PARM-SUBJECT-YR   ' WRK-PARM-SUBJECT-YR.           DTSBE616
00272  I1110-EXIT.                                                      DTSBE616
00273       EXIT.                                                       DTSBE616
00274  I1120-EDIT-PARM-YRQ.                                             DTSBE616
00275       MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X.                 DTSBE616
00276       MOVE 1                    TO L004-QTR-3-Q.                  DTSBE616
00277       PERFORM S004-FROM-3 THRU S004-EXIT.                         DTSBE616
00278       IF L004-VALID-QTR                                           DTSBE616
00279          MOVE L004-QTR-5-YR TO WRK-PARM-SUBJECT-YR                DTSBE616
00280          MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ                DTSBE616
00281       ELSE                                                        DTSBE616
00282           MOVE 'PARM-SUBJECT-YRQ NOT VALID' TO ABEND-MSG          DTSBE616
00283           PERFORM S999-ABEND THRU S999-EXIT                       DTSBE616
00284       END-IF.                                                     DTSBE616
00285                                                                   DTSBE616
00286                                                                   DTSBE616
00287       IF L415-UC30H-FIRST-DEL-STRT-YRQ = ZEROS                    DTSBE616
00288          NEXT SENTENCE                                            DTSBE616
00289       ELSE                                                        DTSBE616
00290         MOVE L415-UC30H-FIRST-DEL-STRT-YRQ  TO L004-QTR-5-9       DTSBE616
00291 *       ADD 1 TO L004-QTR-5-YR                                    DTSBE616
00292         IF L004-QTR-5-YR  = WRK-PARM-SUBJECT-YR                   DTSBE616
00293            NEXT SENTENCE                                          DTSBE616
00294         ELSE                                                      DTSBE616
00295            MOVE                                                   DTSBE616
00296         'PARM YRQ NOT COMPATIBLE WITH PREVIOUS DELINQUENT YEAR'   DTSBE616
00297               TO ABEND-MSG                                        DTSBE616
00298           PERFORM S999-ABEND THRU S999-EXIT.                      DTSBE616
00299                                                                   DTSBE616
00300  I1120-EXIT.                                                      DTSBE616
00301      EXIT.                                                        DTSBE616
00302                                                                   DTSBE616
00303  I1200-FAFD-YRQ.                                                  DTSBE616
00304            MOVE LOW-VALUES TO FAFD-KEY-AREA.                      DTSBE616
00305                                                                   DTSBE616
00306            SET FAFD-AFD-88 TO TRUE.                               DTSBE616
00307                                                                   DTSBE616
00308            MOVE WRK-PARM-SUBJECT-YR TO FAFD-YR.                   DTSBE616
00309                                                                   DTSBE616
00310            MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA.                   DTSBE616
00311                                                                   DTSBE616
00312            PERFORM S931-READ THRU S931-EXIT.                      DTSBE616
00313                                                                   DTSBE616
00314            IF L931-NO-REC-88                                      DTSBE616
00315                MOVE 'FAFD RECORD FOR SUBJECT YR  NOT FOUND'       DTSBE616
00316                  TO ABEND-MSG                                     DTSBE616
00317                PERFORM S999-ABEND THRU S999-EXIT.                 DTSBE616
00318                                                                   DTSBE616
00319                                                                   DTSBE616
00320            MOVE FSKL-REC TO FAFD-REC.                             DTSBE616
00321                                                                   DTSBE616
00322                                                                   DTSBE616
00323         IF FAFD-UC30H-FIRST-DEL-DATE = +0                         DTSBE616
00324          MOVE '1ST DELINQUENCY MUST RUN BEFORE THIS JOB CAN RUN'  DTSBE616
00325               TO ABEND-MSG                                        DTSBE616
00326             PERFORM S999-ABEND THRU S999-EXIT.                    DTSBE616
00327                                                                   DTSBE616
00328         MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9              DTSBE616
00329         PERFORM S001-FROM-FED-8 THRU S001-EXIT                    DTSBE616
00330         SUBTRACT +11 FROM L001-JUL-ABS-DAY                        DTSBE616
00331         PERFORM S001-FROM-ABS-DAY THRU S001-EXIT                  DTSBE616
00332         MOVE L001-FED-8-DATE-9                                    DTSBE616
00333           TO WRK-FINAL-ACTION-DATE                                DTSBE616
00334                                                                   DTSBE616
00335         IF WRK-FINAL-ACTION-DATE >                                DTSBE616
00336            FAFD-UC30H-FIRST-DEL-DATE                              DTSBE616
00337             NEXT SENTENCE                                         DTSBE616
00338         ELSE                                                      DTSBE616
00339          MOVE '11 DAYS HAS NOT PASSED SINCE 1ST DELQ CANNOT RUN'  DTSBE616
00340               TO ABEND-MSG                                        DTSBE616
00341             PERFORM S999-ABEND THRU S999-EXIT.                    DTSBE616
00342                                                                   DTSBE616
00343  I1200-EXIT.                                                      DTSBE616
00344      EXIT.                                                        DTSBE616
00345                                                                   DTSBE616
00346  I3000-LAST-ASSIGN-NUM.                                           DTSBE616
00347      MOVE LOW-VALUES TO MHDR-KEY-AREA.                            DTSBE616
00348      MOVE +0 TO MHDR-EMP-NO.                                      DTSBE616
00349      SET MHDR-HDR-88 TO TRUE.                                     DTSBE616
00350      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE616
00351                                                                   DTSBE616
00352      PERFORM S910-READ THRU S910-EXIT.                            DTSBE616
00353                                                                   DTSBE616
00354      IF L910-NO-REC-88                                            DTSBE616
00355          MOVE 'MHDR RECORD NOT FOUND (I0000)'                     DTSBE616
00356            TO ABEND-MSG                                           DTSBE616
00357          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE616
00358                                                                   DTSBE616
00359      MOVE MSKL-REC TO MHDR-REC.                                   DTSBE616
00360                                                                   DTSBE616
00361      MOVE MHDR-LAST-USED-ASSIGN-NO  TO WRK-ASSIGN-NO.             DTSBE616
00362      DISPLAY ' LAST USED ASSIGN NO '   WRK-ASSIGN-NO.             DTSBE616
00363                                                                   DTSBE616
00364  I3000-EXIT.                                                      DTSBE616
00365      EXIT.                                                        DTSBE616
00366                                                                   DTSBE616
00367  P0000-PROCESS.                                                   DTSBE616
00368         SET GENERATE-ASSIGNMENTS-NO-88 TO TRUE.                   DTSBE616
00369                                                                   DTSBE616
00370         IF MPRF-CLASS-SUB-88                                      DTSBE616
00371            SET L410-MODE-INPUT-YRQ-88 TO TRUE                     DTSBE616
00372            MOVE MPRF-EMP-NO           TO L410-EMP-NO              DTSBE616
00373            MOVE WRK-PARM-SUBJECT-YRQ  TO L410-YRQ                 DTSBE616
00374            PERFORM S410-FILE-SCHED    THRU S410-EXIT.             DTSBE616
00375                                                                   DTSBE616
00376            IF NOT L410-ANN-SCHED-88                               DTSBE616
00377               GO TO P0000-EXIT.                                   DTSBE616
00378                                                                   DTSBE616
00379             IF MPRF-RETURN-MAIL-YES-88                            DTSBE616
00380                 GO TO P0000-EXIT.                                 DTSBE616
00381                                                                   DTSBE616
00382      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE616
00383                                                                   DTSBE616
00384      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE616
00385                                                                   DTSBE616
00386      SET MQTR-QTR-88 TO TRUE.                                     DTSBE616
00387                                                                   DTSBE616
00388      MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ.                       DTSBE616
00389                                                                   DTSBE616
00390      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE616
00391                                                                   DTSBE616
00392      PERFORM S910-READ THRU S910-EXIT.                            DTSBE616
00393                                                                   DTSBE616
00394      IF L910-NO-REC-88                                            DTSBE616
00395          GO TO P0000-EXIT.                                        DTSBE616
00396                                                                   DTSBE616
00397       MOVE MSKL-REC TO MQTR-REC.                                  DTSBE616
00398                                                                   DTSBE616
00399       IF MQTR-RPT-IS-PURSUED-88                                   DTSBE616
00400         SET GENERATE-ASSIGNMENTS-YES-88 TO TRUE.                  DTSBE616
00401                                                                   DTSBE616
00402       IF MQTR-MISS-LETTER-SENT-88                                 DTSBE616
00403         SET GENERATE-ASSIGNMENTS-YES-88 TO TRUE.                  DTSBE616
00404                                                                   DTSBE616
00405       IF GENERATE-ASSIGNMENTS-YES-88                              DTSBE616
00406          PERFORM P3000-FIELD-ASSIGN       THRU P3000-EXIT         DTSBE616
00407          PERFORM P4000-GENERATE-R615      THRU P4000-EXIT         DTSBE616
00408       END-IF.                                                     DTSBE616
00409  P0000-EXIT.                                                      DTSBE616
00410      EXIT.                                                        DTSBE616
00411      EJECT                                                        DTSBE616
00412                                                                   DTSBE616
00413                                                                   DTSBE616
00414  P3000-FIELD-ASSIGN.                                              DTSBE616
00415      MOVE LOW-VALUES TO MFAS-REC.                                 DTSBE616
00416                                                                   DTSBE616
00417      MOVE MPRF-EMP-NO TO MFAS-EMP-NO.                             DTSBE616
00418                                                                   DTSBE616
00419      SET MFAS-FAS-88 TO TRUE.                                     DTSBE616
00420                                                                   DTSBE616
00421      ADD +1 TO WRK-ASSIGN-NO.                                     DTSBE616
00422                                                                   DTSBE616
00423      ADD +1 TO WRK-EMP-CNT.                                       DTSBE616
00424                                                                   DTSBE616
00425      MOVE WRK-ASSIGN-NO TO MFAS-ASSIGN-NO.                        DTSBE616
00426                                                                   DTSBE616
00427      MOVE +0 TO MFAS-PURGE-DATE.                                  DTSBE616
00428                                                                   DTSBE616
00429      SET MFAS-STATUS-ACTIVE-88 TO TRUE.                           DTSBE616
00430                                                                   DTSBE616
00431      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE616
00432                                                                   DTSBE616
00433      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE616
00434                                                                   DTSBE616
00435      PERFORM S061-DETERMINE-FLD-REP  THRU S061-EXIT.              DTSBE616
00436      MOVE L061-FLD-REP-ID TO MFAS-FLD-REP-ID.                     DTSBE616
00437                                                                   DTSBE616
00438      MOVE  WRK-PARM-SUBJECT-YRQ TO MFAS-START-YRQ MFAS-END-YRQ.   DTSBE616
00439                                                                   DTSBE616
00440      MOVE '14'      TO MFAS-ASSIGN-TYPE.                          DTSBE616
00441                                                                   DTSBE616
00442      SET MFAS-ATTACHMENTS-NO-88  TO TRUE.                         DTSBE616
00443                                                                   DTSBE616
00444      SET MFAS-NON-AUDIT-88       TO TRUE.                         DTSBE616
00445                                                                   DTSBE616
00446      SET MFAS-ACCOUNTING-DESK-NO-88 TO TRUE.                      DTSBE616
00447                                                                   DTSBE616
00448      MOVE LECM-CURR-MAIL-DATE  TO MFAS-START-DATE.                DTSBE616
00449                                                                   DTSBE616
00450      MOVE +0 TO MFAS-DUE-DATE                                     DTSBE616
00451                 MFAS-COMPLETED-DATE                               DTSBE616
00452                 MFAS-PROCESSED-DATE                               DTSBE616
00453                 MFAS-TAX-DOWNLOAD-DATE                            DTSBE616
00454                 MFAS-WAGE-DOWNLOAD-DATE.                          DTSBE616
00455                                                                   DTSBE616
00456      MOVE 'SYSTEM'   TO MFAS-SOURCE-OP-ID.                        DTSBE616
00457                                                                   DTSBE616
00458      MOVE ZERO              TO MFAS-CLAIMANT-SSN.                 DTSBE616
00459                                                                   DTSBE616
00460      MOVE SPACES             TO MFAS-CLAIMANT-NAME.               DTSBE616
00461                                                                   DTSBE616
00462      MOVE ZERO               TO MFAS-RELATED-EMP-NO.              DTSBE616
00463                                                                   DTSBE616
00464      MOVE MPRF-SIC-CD TO MFAS-SIC-CD.                             DTSBE616
00465                                                                   DTSBE616
00466      MOVE MPRF-NAICS-CD TO MFAS-NAICS-CD.                         DTSBE616
00467                                                                   DTSBE616
00468      MOVE MPRF-OWN-CD TO MFAS-OWN-CD.                             DTSBE616
00469                                                                   DTSBE616
00470      SET MFAS-EMP-NON-AUDIT-88 TO TRUE.                           DTSBE616
00471                                                                   DTSBE616
00472      MOVE +0 TO MFAS-SEL-CNT.                                     DTSBE616
00473                                                                   DTSBE616
00474      SET MFAS-NOT-CONVERTED-88 TO TRUE.                           DTSBE616
00475                                                                   DTSBE616
00476      MOVE LECM-CURR-RUN-DATE TO MFAS-ESTB-DATE                    DTSBE616
00477                                 MFAS-CHNG-DATE.                   DTSBE616
00478                                                                   DTSBE616
00479      MOVE +1 TO MFAS-TEXT-CNT.                                    DTSBE616
00480                                                                   DTSBE616
00481      MOVE                                                         DTSBE616
00482       'FIELD ASSIGNMENT CREATED: FOR DELINQUENCY '                DTSBE616
00483        TO MFAS-TEXT (1).                                          DTSBE616
00484                                                                   DTSBE616
00485      MOVE MFAS-REC TO MSKL-REC.                                   DTSBE616
00486                                                                   DTSBE616
00487      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE616
00488                                                                   DTSBE616
00489 *    DISPLAY ' ASSIGN # ' WRK-ASSIGN-NO                           DTSBE616
00490      SET MPRF-MFAS-EXISTS-88 TO TRUE.                             DTSBE616
00491                                                                   DTSBE616
00492      PERFORM P3100-WRITE-MEVL THRU P3100-EXIT.                    DTSBE616
00493                                                                   DTSBE616
00494  P3000-EXIT.                                                      DTSBE616
00495      EXIT.                                                        DTSBE616
00496                                                                   DTSBE616
00497  P3100-WRITE-MEVL.                                                DTSBE616
00498      MOVE LOW-VALUE TO MEVL-REC.                                  DTSBE616
00499                                                                   DTSBE616
00500      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBE616
00501                                                                   DTSBE616
00502      SET MEVL-EVL-88 TO TRUE.                                     DTSBE616
00503                                                                   DTSBE616
00504      ADD +1000 TO LECM-EMP-ABSTIME.                               DTSBE616
00505                                                                   DTSBE616
00506      MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBE616
00507                                                                   DTSBE616
00508      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE616
00509                                                                   DTSBE616
00510      PERFORM S005-CONVERT-TIME THRU S005-EXIT.                    DTSBE616
00511                                                                   DTSBE616
00512      MOVE L005-DATE TO MEVL-DATE.                                 DTSBE616
00513                                                                   DTSBE616
00514      MOVE L005-TIME TO MEVL-TIME.                                 DTSBE616
00515                                                                   DTSBE616
00516      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBE616
00517                                                                   DTSBE616
00518      MOVE WRK-EVENT-TXT TO MEVL-TEXT.                             DTSBE616
00519                                                                   DTSBE616
00520      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBE616
00521                                                                   DTSBE616
00522      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBE616
00523                                                                   DTSBE616
00524      MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBE616
00525                                 MEVL-CHNG-DATE.                   DTSBE616
00526                                                                   DTSBE616
00527      MOVE MEVL-REC TO MSKL-REC.                                   DTSBE616
00528                                                                   DTSBE616
00529      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE616
00530                                                                   DTSBE616
00531  P3100-EXIT.                                                      DTSBE616
00532      EXIT.                                                        DTSBE616
00533                                                                   DTSBE616
00534  P4000-GENERATE-R615.                                             DTSBE616
00535      PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT.               DTSBE616
00536                                                                   DTSBE616
00537      MOVE L061-FLD-REP-ID TO R615-FIELD-REP-ID.                   DTSBE616
00538                                                                   DTSBE616
00539      MOVE MPRF-FLD-ZIP-ST TO R615-FLD-ZIP.                        DTSBE616
00540                                                                   DTSBE616
00541      MOVE MPRF-EMP-NO TO R615-EMP-NO.                             DTSBE616
00542                                                                   DTSBE616
00543      MOVE WRK-ASSIGN-NO TO R615-ASSIGN-NO.                        DTSBE616
00544                                                                   DTSBE616
00545      MOVE MPRF-PRIMARY-NAME TO R615-PRIMARY-NAME.                 DTSBE616
00546      MOVE MPRF-SIC-CD TO R615-SIC-CD.                             DTSBE616
00547                                                                   DTSBE616
00548      MOVE MPRF-NAICS-CD TO R615-NAICS-CD.                         DTSBE616
00549                                                                   DTSBE616
00550      MOVE MPRF-OWN-CD TO R615-OWN-CD.                             DTSBE616
00551                                                                   DTSBE616
00552      MOVE WRK-PARM-SUBJECT-YRQ TO R615-ASSIGN-YRQ                 DTSBE616
00553                                                                   DTSBE616
00554      PERFORM S946-WRITE-R615 THRU S946-EXIT.                      DTSBE616
00555  P4000-EXIT.                                                      DTSBE616
00556      EXIT.                                                        DTSBE616
00557  T0000-TERMINATE.                                                 DTSBE616
00558         DISPLAY 'FIELD ASSIGNMENTS GENERATED ' WRK-EMP-CNT        DTSBE616
00559         DISPLAY 'LAST ASSIGN # USED          ' WRK-ASSIGN-NO.     DTSBE616
00560         PERFORM T1000-UPDATE-HDR     THRU T1000-EXIT.             DTSBE616
00561                                                                   DTSBE616
00562  T0000-EXIT.                                                      DTSBE616
00563      EXIT.                                                        DTSBE616
00564                                                                   DTSBE616
00565  T1000-UPDATE-HDR.                                                DTSBE616
00566      MOVE LOW-VALUES TO MHDR-KEY-AREA.                            DTSBE616
00567      MOVE +0 TO MHDR-EMP-NO.                                      DTSBE616
00568      SET MHDR-HDR-88 TO TRUE.                                     DTSBE616
00569      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE616
00570                                                                   DTSBE616
00571      PERFORM S910-READ THRU S910-EXIT.                            DTSBE616
00572                                                                   DTSBE616
00573      IF L910-NO-REC-88                                            DTSBE616
00574          MOVE 'MHDR RECORD NOT FOUND (T0000)'                     DTSBE616
00575            TO ABEND-MSG                                           DTSBE616
00576          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE616
00577                                                                   DTSBE616
00578      MOVE MSKL-REC TO MHDR-REC.                                   DTSBE616
00579                                                                   DTSBE616
00580      MOVE WRK-ASSIGN-NO      TO MHDR-LAST-USED-ASSIGN-NO.         DTSBE616
00581                                                                   DTSBE616
00582      MOVE LECM-CURR-RUN-DATE TO MHDR-CHNG-DATE.                   DTSBE616
00583                                                                   DTSBE616
00584      MOVE MHDR-REC TO MSKL-REC.                                   DTSBE616
00585                                                                   DTSBE616
00586      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBE616
00587                                                                   DTSBE616
00588  T1000-EXIT.                                                      DTSBE616
00589      EXIT.                                                        DTSBE616
00590      EJECT                                                        DTSBE616
00591  S001-FROM-FED-8.                                                 DTSBE616
00592      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE616
00593      GO TO S001-DATE.                                             DTSBE616
00594                                                                   DTSBE616
00595  S001-FROM-CAL-6.                                                 DTSBE616
00596      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE616
00597      GO TO S001-DATE.                                             DTSBE616
00598                                                                   DTSBE616
00599  S001-FROM-ABS-DAY.                                               DTSBE616
00600      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE616
00601      GO TO S001-DATE.                                             DTSBE616
00602                                                                   DTSBE616
00603  S001-DATE.                                                       DTSBE616
00604      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE616
00605  S001-EXIT.                                                       DTSBE616
00606      EXIT.                                                        DTSBE616
00607      SKIP3                                                        DTSBE616
00608                                                                   DTSBE616
00609  S004-FROM-5.                                                     DTSBE616
00610      SET L004-FROM-5 TO TRUE.                                     DTSBE616
00611      GO TO S004-YRQ.                                              DTSBE616
00612                                                                   DTSBE616
00613  S004-FROM-3.                                                     DTSBE616
00614      SET L004-FROM-3 TO TRUE.                                     DTSBE616
00615      GO TO S004-YRQ.                                              DTSBE616
00616                                                                   DTSBE616
00617  S004-FROM-DATE.                                                  DTSBE616
00618      SET L004-FROM-DATE TO TRUE.                                  DTSBE616
00619      GO TO S004-YRQ.                                              DTSBE616
00620                                                                   DTSBE616
00621  S004-FROM-ABS.                                                   DTSBE616
00622      SET L004-FROM-ABS TO TRUE.                                   DTSBE616
00623      GO TO S004-YRQ.                                              DTSBE616
00624                                                                   DTSBE616
00625  S004-YRQ.                                                        DTSBE616
00626      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE616
00627  S004-EXIT.                                                       DTSBE616
00628      EXIT.                                                        DTSBE616
00629      SKIP3                                                        DTSBE616
00630  S005-CONVERT-TIME.                                               DTSBE616
00631      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE616
00632  S005-EXIT. EXIT.                                                 DTSBE616
00633      SKIP3                                                        DTSBE616
00634                                                                   DTSBE616
00635  S061-DETERMINE-FLD-REP.                                          DTSBE616
00636      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE616
00637                                                                   DTSBE616
00638      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE616
00639                                                                   DTSBE616
00640      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE616
00641  S061-EXIT.                                                       DTSBE616
00642      EXIT.                                                        DTSBE616
00643      SKIP3                                                        DTSBE616
00644  S910-READ.                                                       DTSBE616
00645      SET L910-READ-88 TO TRUE.                                    DTSBE616
00646      GO TO S910-MSTR-IO.                                          DTSBE616
00647                                                                   DTSBE616
00648  S910-START-BROWSE.                                               DTSBE616
00649      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE616
00650      GO TO S910-MSTR-IO.                                          DTSBE616
00651                                                                   DTSBE616
00652  S910-READ-NEXT.                                                  DTSBE616
00653      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE616
00654      GO TO S910-MSTR-IO.                                          DTSBE616
00655                                                                   DTSBE616
00656  S910-WRITE.                                                      DTSBE616
00657      SET L910-WRITE-88 TO TRUE.                                   DTSBE616
00658      GO TO S910-MSTR-IO.                                          DTSBE616
00659                                                                   DTSBE616
00660  S910-REWRITE.                                                    DTSBE616
00661      SET L910-REWRITE-88 TO TRUE.                                 DTSBE616
00662      GO TO S910-MSTR-IO.                                          DTSBE616
00663                                                                   DTSBE616
00664  S910-MSTR-IO.                                                    DTSBE616
00665      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE616
00666                            MSKL-REC.                              DTSBE616
00667  S910-EXIT.                                                       DTSBE616
00668      EXIT.                                                        DTSBE616
00669      SKIP3                                                        DTSBE616
00670  S931-READ.                                                       DTSBE616
00671      SET L931-READ-88 TO TRUE.                                    DTSBE616
00672      GO TO S931-REF-I.                                            DTSBE616
00673                                                                   DTSBE616
00674  S931-START-BROWSE.                                               DTSBE616
00675      SET L931-START-BROWSE-88 TO TRUE.                            DTSBE616
00676      GO TO S931-REF-I.                                            DTSBE616
00677                                                                   DTSBE616
00678  S931-READ-NEXT.                                                  DTSBE616
00679      SET L931-READ-NEXT-88 TO TRUE.                               DTSBE616
00680      GO TO S931-REF-I.                                            DTSBE616
00681                                                                   DTSBE616
00682  S931-REF-I.                                                      DTSBE616
00683      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBE616
00684                            FSKL-REC.                              DTSBE616
00685  S931-EXIT.                                                       DTSBE616
00686      EXIT.                                                        DTSBE616
00687                                                                   DTSBE616
00688  S410-FILE-SCHED.                                                 DTSBE616
00689      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBE616
00690  S410-EXIT.                                                       DTSBE616
00691      EXIT.                                                        DTSBE616
00692      SKIP3                                                        DTSBE616
00693  S415-HOUSEHOLD-DATES.                                            DTSBE616
00694      CALL 'DTSBU415' USING L415-LINK-AREA.                        DTSBE616
00695  S415-EXIT.                                                       DTSBE616
00696      EXIT.                                                        DTSBE616
00697      SKIP3                                                        DTSBE616
00698  S946-WRITE-R615.                                                 DTSBE616
00699      CALL 'DTSBU946' USING R615-REC.                              DTSBE616
00700      GO TO S946-EXIT.                                             DTSBE616
00701                                                                   DTSBE616
00702  S946-EXIT.                                                       DTSBE616
00703      EXIT.                                                        DTSBE616
00704      SKIP3                                                        DTSBE616
00705  S999-ABEND.                                                      DTSBE616
00706      DISPLAY '*** DTSBE615 ABENDING.  '                           DTSBE616
00707              ABEND-MSG.                                           DTSBE616
00708                                                                   DTSBE616
00709      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE616
00710  S999-EXIT.                                                       DTSBE616
00711      EXIT.                                                        DTSBE616
