DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
172
Batch/DTSBU511.cob
Normal file
172
Batch/DTSBU511.cob
Normal file
@ -0,0 +1,172 @@
|
||||
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
Block a user