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