giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
c99f490664479f7d28c575be3d5068507007c38d
DUTAS/Batch/DTSBU511.cob
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

173 lines
14 KiB
COBOL
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink