00001  IDENTIFICATION DIVISION.                                         12/15/04
00002  PROGRAM-ID.             DTSBU511.                                DTSBU511
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV009
00004  DATE-WRITTEN.           JANUARY 1991.                            DTSBU511
00005  DATE-COMPILED.                                                   DTSBU511
00006      SKIP3                                                        DTSBU511
00007 *****                                                             DTSBU511
00008 *                                                                 DTSBU511
00009 *    FUNCTION:  INITIALIZE A MQTR RECORD.                         DTSBU511
00010 *                                                                 DTSBU511
00011 *                                                                 DTSBU511
00012 *    MODIFICATION LOG:                                            DTSBU511
00013 *                                                                 DTSBU511
00014 *    01/25/92  INITIAL DEVELOPMENT.                               DTSBU511
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBU511
00016 *                                                                 DTSBU511
00017 *    12/10/1998  REVIEWIED AND MODIFIED FOR DC.                   DTSBU511
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBU511
00019 *                                                                 DTSBU511
00020 *    11/17/2003  ADDED CODE TO INITIALIZE THE FOLLOWING:          DTSBU511
00021 *                    MQTR-ANNUAL-IND                              DTSBU511
00022 *                    MQTR-R317-SENT-IND                           DTSBU511
00023 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBU511
00024 *                                                                 DTSBU511
00025 *    04/22/2004  ADDED CODE TO INITIALIZE MQTR-CMP-ESTB-ABSTIME.  DTSBU511
00026 *                REFERENCE: COMPROMISE          PROGRAMMER: GD    DTSBU511
00027 *                                                                 DTSBU511
00028 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU511
00029 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU511
00030 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBU511
00031 *                                                                 DTSBU511
00032 *                                                                 DTSBU511
00033 *  DESCRIPTION:                                                   DTSBU511
00034 *                                                                 DTSBU511
00035 *      TRIVIAL MODULE MOVING NULL VALUES TO THE FIELDS OF AN      DTSBU511
00036 *      MQTR RECORD.                                               DTSBU511
00037 *                                                                 DTSBU511
00038 *                                                                 DTSBU511
00039 *      MASTER FILE RECORDS READ:                                  DTSBU511
00040 *                                                                 DTSBU511
00041 *        NONE.                                                    DTSBU511
00042 *                                                                 DTSBU511
00043 *                                                                 DTSBU511
00044 *      MASTER FILE RECORDS UPDATED:                               DTSBU511
00045 *                                                                 DTSBU511
00046 *        NONE.                                                    DTSBU511
00047 *                                                                 DTSBU511
00048 *                                                                 DTSBU511
00049 *      ACCOUNTING TRANSACTION  FILE RECORDS UPDATED:              DTSBU511
00050 *                                                                 DTSBU511
00051 *        NONE                                                     DTSBU511
00052 *                                                                 DTSBU511
00053 *                                                                 DTSBU511
00054 *      REPORT RECORDS WRITTEN:                                    DTSBU511
00055 *                                                                 DTSBU511
00056 *        NONE                                                     DTSBU511
00057 *                                                                 DTSBU511
00058 *                                                                 DTSBU511
00059 *      MODULES CALLED:                                            DTSBU511
00060 *                                                                 DTSBU511
00061 *        NONE                                                     DTSBU511
00062 *                                                                 DTSBU511
00063 *                                                                 DTSBU511
00064 *****                                                             DTSBU511
00065      SKIP3                                                        DTSBU511
00066  ENVIRONMENT DIVISION.                                            DTSBU511
00067      EJECT                                                        DTSBU511
00068  DATA DIVISION.                                                   DTSBU511
00069      SKIP3                                                        DTSBU511
00070  WORKING-STORAGE SECTION.                                         DTSBU511
000705 77  PAN-VALET PICTURE X(24) VALUE '009DTSBU511  12/15/04'.       DTSBU511
00071      SKIP3                                                        DTSBU511
00072  01  WRK-AREA.                                                    DTSBU511
00073      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +511.DTSBU511
00074                                                                   DTSBU511
00075      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBU511'.DTSBU511
00076      EJECT                                                        DTSBU511
00077  01  MSG-TABLE.                                                   DTSBU511
00078      05  MSG1.                                                    DTSBU511
00079          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD511   '.     DTSBU511
00080          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE '              '.  DTSBU511
00081          10  MSG1-LONG-TEXT.                                      DTSBU511
00082              15  FILLER      PIC  X(30)                           DTSBU511
00083                    VALUE '                              '.        DTSBU511
00084              15  FILLER      PIC  X(30)                           DTSBU511
00085                    VALUE '                              '.        DTSBU511
00086      EJECT                                                        DTSBU511
00087  LINKAGE SECTION.                                                 DTSBU511
00088      SKIP3                                                        DTSBU511
00089  01  MQTR-REC.                                                    DTSBU511
00090  ++INCLUDE DTSIMQTR                                               DTSBU511
00091      EJECT                                                        DTSBU511
00092  PROCEDURE DIVISION USING MQTR-REC.                               DTSBU511
00093      SKIP3                                                        DTSBU511
00094      MOVE +0 TO MQTR-PURGE-DATE.                                  DTSBU511
00095                                                                   DTSBU511
00096                                                                   DTSBU511
00097      MOVE LOW-VALUES TO MQTR-DATA-AREA.                           DTSBU511
00098                                                                   DTSBU511
00099                                                                   DTSBU511
00100      MOVE +0 TO MQTR-ACCT-CNT.                                    DTSBU511
00101                                                                   DTSBU511
00102      SET MQTR-CURR-NOT-LIABLE-88 TO TRUE.                         DTSBU511
00103                                                                   DTSBU511
00104      SET MQTR-RPT-NOT-PURSUED-88 TO TRUE.                         DTSBU511
00105                                                                   DTSBU511
00106      SET MQTR-MISS-NOT-LIABLE-88 TO TRUE.                         DTSBU511
00107                                                                   DTSBU511
00108      SET MQTR-NO-UI-RATE-88 TO TRUE.                              DTSBU511
00109                                                                   DTSBU511
00110      MOVE +0 TO MQTR-TAX-DUE-DATE                                 DTSBU511
00111                 MQTR-RPT-DUE-DATE.                                DTSBU511
00112                                                                   DTSBU511
00113      SET MQTR-TAX-DUE-DATE-AUTO-88 TO TRUE.                       DTSBU511
00114                                                                   DTSBU511
00115      SET MQTR-RPT-DUE-DATE-AUTO-88 TO TRUE.                       DTSBU511
00116                                                                   DTSBU511
00117      MOVE +0 TO MQTR-TOT-WAGE                                     DTSBU511
00118                 MQTR-EXCESS-WAGE                                  DTSBU511
00119                 MQTR-TAX-WAGE                                     DTSBU511
00120                 MQTR-WAGE-CHNG-DATE.                              DTSBU511
00121                                                                   DTSBU511
00122      SET MQTR-INT-CHARGE-AUTO-88 TO TRUE.                         DTSBU511
00123                                                                   DTSBU511
00124      MOVE +0 TO MQTR-INT-CNT.                                     DTSBU511
00125                                                                   DTSBU511
00126      MOVE +0 TO MQTR-WAIVE-INT-START-DATE                         DTSBU511
00127                 MQTR-WAIVE-INT-END-DATE.                          DTSBU511
00128                                                                   DTSBU511
00129      SET MQTR-PEN-CHARGE-AUTO-88 TO TRUE.                         DTSBU511
00130                                                                   DTSBU511
00131      MOVE +0 TO MQTR-WAIVE-PEN-START-DATE                         DTSBU511
00132                 MQTR-WAIVE-PEN-END-DATE.                          DTSBU511
00133                                                                   DTSBU511
00134      SET MQTR-WAGE-RPT-NO-88 TO TRUE.                             DTSBU511
00135                                                                   DTSBU511
00136      SET MQTR-1ST-MTH-NO-ENTRY-88 TO TRUE.                        DTSBU511
00137                                                                   DTSBU511
00138      SET MQTR-2ND-MTH-NO-ENTRY-88 TO TRUE.                        DTSBU511
00139                                                                   DTSBU511
00140      SET MQTR-3RD-MTH-NO-ENTRY-88 TO TRUE.                        DTSBU511
00141                                                                   DTSBU511
00142      MOVE +0 TO MQTR-EMPL-CNT-CHNG-DATE.                          DTSBU511
00143                                                                   DTSBU511
00144      MOVE +0 TO MQTR-COLL-PROMPT-DUE-AMT.                         DTSBU511
00145                                                                   DTSBU511
00146      MOVE +0 TO MQTR-ETA581-OVR15MNTH-RPT-CNT                     DTSBU511
00147                 MQTR-ETA581-OVR15MNTH-RPT-YRQ (1)                 DTSBU511
00148                 MQTR-ETA581-OVR15MNTH-RPT-YRQ (2).                DTSBU511
00149                                                                   DTSBU511
00150      SET MQTR-ETA581-REMOVED-NO-88 TO TRUE.                       DTSBU511
00151                                                                   DTSBU511
00152      SET MQTR-ETA581-UNCOLLECT-NO-88 TO TRUE.                     DTSBU511
00153                                                                   DTSBU511
00154      SET MQTR-ANNUAL-NO-88 TO TRUE.                               DTSBU511
00155                                                                   DTSBU511
00156      SET MQTR-R317-SENT-NO-88 TO TRUE.                            DTSBU511
00157                                                                   DTSBU511
00158      MOVE +0 TO MQTR-CMP-ESTB-ABSTIME.                            DTSBU511
00159                                                                   DTSBU511
00160      SET MQTR-NOT-CONVERTED-88 TO TRUE.                           DTSBU511
00161                                                                   DTSBU511
00162      MOVE +0 TO MQTR-ESTB-DATE                                    DTSBU511
00163                 MQTR-CHNG-DATE.                                   DTSBU511
00164                                                                   DTSBU511
00165                                                                   DTSBU511
00166      GOBACK.                                                      DTSBU511
00167      EJECT                                                        DTSBU511
00168 *S999-ABEND.                                                      DTSBU511
00169 *****CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBU511
00170 *S999-EXIT.                                                       DTSBU511
00171 *****EXIT.                                                        DTSBU511
