DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
181
Batch/DTSBU194.cob
Normal file
181
Batch/DTSBU194.cob
Normal file
@ -0,0 +1,181 @@
|
||||
00001 IDENTIFICATION DIVISION. 05/02/12
|
||||
00002 PROGRAM-ID. DTSBU194. DTSBU194
|
||||
00003 AUTHOR. NGC. LV001
|
||||
00004 DATE-WRITTEN. APRIL 2012. DTSBU194
|
||||
00005 DATE-COMPILED. DTSBU194
|
||||
00006 DTSBU194
|
||||
00007 ***** DTSBU194
|
||||
00008 * DTSBU194
|
||||
00009 * FUNCTION: CLEAR ICESA AND WAGE-ONLY INPUT FILES AFTER DTSBU194
|
||||
00010 * PROCESSING. DTSBU194
|
||||
00011 * DTSBU194
|
||||
00012 * MODIFICATION LOG: DTSBU194
|
||||
00013 * DTSBU194
|
||||
00014 * 04/25/2012 INITIAL DEVELOPMENT DTSBU194
|
||||
00015 * REFERENCE: PROGRAMMER: GD DTSBU194
|
||||
00016 * DTSBU194
|
||||
00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU194
|
||||
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU194
|
||||
00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU194
|
||||
00020 * DTSBU194
|
||||
00021 * DTSBU194
|
||||
00022 * DESCRIPTION: DTSBU194
|
||||
00023 * DTSBU194
|
||||
00024 * CLEAR THE FILES THAT CONTAIN DATA UPLOADED FROM THE DTSBU194
|
||||
00025 * ICESA AND WAGE ONLY APPLICATIONS AFTER THE FILES DTSBU194
|
||||
00026 * HAVE BEEN PROCESSED. THIS PROGRAM IS CALLED FROM DTSBU194
|
||||
00027 * BOTH THE ICESA AND WAGE-ONLY JOBS - A PARM DETERMINES DTSBU194
|
||||
00028 * WHICH FILES ARE AFFECTED. DTSBU194
|
||||
00029 * DTSBU194
|
||||
00030 ***** DTSBU194
|
||||
00031 DTSBU194
|
||||
00032 ENVIRONMENT DIVISION. DTSBU194
|
||||
00033 DTSBU194
|
||||
00034 INPUT-OUTPUT SECTION. DTSBU194
|
||||
00035 DTSBU194
|
||||
00036 FILE-CONTROL. DTSBU194
|
||||
00037 DTSBU194
|
||||
00038 SELECT ICESA-FILE ASSIGN TO DTSFICES DTSBU194
|
||||
00039 FILE STATUS IS ICESA-STATUS. DTSBU194
|
||||
00040 DTSBU194
|
||||
00041 SELECT WAGE-ONLY-RPT-FILE ASSIGN TO DTSFWRPT DTSBU194
|
||||
00042 FILE STATUS IS WAGE-RPT-STATUS. DTSBU194
|
||||
00043 DTSBU194
|
||||
00044 SELECT WAGE-ONLY-DTL-FILE ASSIGN TO DTSFWDTL DTSBU194
|
||||
00045 FILE STATUS IS WAGE-DTL-STATUS. DTSBU194
|
||||
00046 DTSBU194
|
||||
00047 DATA DIVISION. DTSBU194
|
||||
00048 DTSBU194
|
||||
00049 FILE SECTION. DTSBU194
|
||||
00050 DTSBU194
|
||||
00051 FD ICESA-FILE DTSBU194
|
||||
00052 RECORDING MODE IS F DTSBU194
|
||||
00053 BLOCK CONTAINS 0 RECORDS. DTSBU194
|
||||
00054 DTSBU194
|
||||
00055 01 ICESA-REC PIC X(275). DTSBU194
|
||||
00056 DTSBU194
|
||||
00057 FD WAGE-ONLY-RPT-FILE DTSBU194
|
||||
00058 RECORDING MODE IS F DTSBU194
|
||||
00059 BLOCK CONTAINS 0 RECORDS. DTSBU194
|
||||
00060 DTSBU194
|
||||
00061 01 WAGE-ONLY-RPT-REC PIC X(134). DTSBU194
|
||||
00062 DTSBU194
|
||||
00063 FD WAGE-ONLY-DTL-FILE DTSBU194
|
||||
00064 RECORDING MODE IS F DTSBU194
|
||||
00065 BLOCK CONTAINS 0 RECORDS. DTSBU194
|
||||
00066 DTSBU194
|
||||
00067 01 WAGE-ONLY-DTL-REC PIC X(128). DTSBU194
|
||||
00068 DTSBU194
|
||||
00069 WORKING-STORAGE SECTION. DTSBU194
|
||||
000695 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU194 05/02/12'. DTSBU194
|
||||
00070 DTSBU194
|
||||
00071 01 WRK-AREA. DTSBU194
|
||||
00072 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +194. DTSBU194
|
||||
00073 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU194'. DTSBU194
|
||||
00074 DTSBU194
|
||||
00075 05 ICESA-STATUS PIC X(02). DTSBU194
|
||||
00076 88 ICESA-OK-88 VALUE '00'. DTSBU194
|
||||
00077 DTSBU194
|
||||
00078 05 WAGE-RPT-STATUS PIC X(02). DTSBU194
|
||||
00079 88 WAGE-RPT-OK-88 VALUE '00'. DTSBU194
|
||||
00080 DTSBU194
|
||||
00081 05 WAGE-DTL-STATUS PIC X(02). DTSBU194
|
||||
00082 88 WAGE-DTL-OK-88 VALUE '00'. DTSBU194
|
||||
00083 DTSBU194
|
||||
00084 05 WRK-FILE-TYPE PIC X(02). DTSBU194
|
||||
00085 88 WRK-FILE-ICESA-88 VALUE 'IC'. DTSBU194
|
||||
00086 88 WRK-FILE-WAGE-ONLY-88 VALUE 'WG'. DTSBU194
|
||||
00087 88 WRK-FILE-VALID-88 VALUE 'IC' 'WG'. DTSBU194
|
||||
00088 DTSBU194
|
||||
00089 LINKAGE SECTION. DTSBU194
|
||||
00090 DTSBU194
|
||||
00091 01 PARM-AREA. DTSBU194
|
||||
00092 05 PARM-LENGTH PIC S9(04) COMP. DTSBU194
|
||||
00093 05 PARM-DATA. DTSBU194
|
||||
00094 10 PARM-FILE-TYPE PIC X(02). DTSBU194
|
||||
00095 88 PARM-FILE-ICESA-88 VALUE 'IC'. DTSBU194
|
||||
00096 88 PARM-FILE-WAGE-ONLY-88 VALUE 'WG'. DTSBU194
|
||||
00097 88 PARM-FILE-VALID-88 VALUE 'IC' 'WG'. DTSBU194
|
||||
00098 DTSBU194
|
||||
00099 PROCEDURE DIVISION USING PARM-AREA. DTSBU194
|
||||
00100 DTSBU194
|
||||
00101 DTSBU194-MAINLINE. DTSBU194
|
||||
00102 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBU194
|
||||
00103 DTSBU194
|
||||
00104 PERFORM P0000-CLEAR-FILES THRU P0000-EXIT. DTSBU194
|
||||
00105 DTSBU194
|
||||
00106 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBU194
|
||||
00107 DTSBU194
|
||||
00108 DTSBU194-MAINLINE-EXIT. DTSBU194
|
||||
00109 GOBACK. DTSBU194
|
||||
00110 DTSBU194
|
||||
00111 I0000-INITIATE. DTSBU194
|
||||
00112 IF PARM-FILE-VALID-88 DTSBU194
|
||||
00113 MOVE PARM-FILE-TYPE TO WRK-FILE-TYPE DTSBU194
|
||||
00114 ELSE DTSBU194
|
||||
00115 DISPLAY 'INVALID PARM FILE TYPE: ' PARM-FILE-TYPE DTSBU194
|
||||
00116 PERFORM S999-ABEND THRU S999-EXIT DTSBU194
|
||||
00117 END-IF. DTSBU194
|
||||
00118 DTSBU194
|
||||
00119 I0000-EXIT. DTSBU194
|
||||
00120 EXIT. DTSBU194
|
||||
00121 DTSBU194
|
||||
00122 P0000-CLEAR-FILES. DTSBU194
|
||||
00123 EVALUATE TRUE DTSBU194
|
||||
00124 WHEN WRK-FILE-ICESA-88 DTSBU194
|
||||
00125 PERFORM P1000-ICESA THRU P1000-EXIT DTSBU194
|
||||
00126 DTSBU194
|
||||
00127 WHEN WRK-FILE-WAGE-ONLY-88 DTSBU194
|
||||
00128 PERFORM P2000-WAGE-ONLY THRU P2000-EXIT DTSBU194
|
||||
00129 END-EVALUATE. DTSBU194
|
||||
00130 DTSBU194
|
||||
00131 P0000-EXIT. DTSBU194
|
||||
00132 EXIT. DTSBU194
|
||||
00133 DTSBU194
|
||||
00134 P1000-ICESA. DTSBU194
|
||||
00135 OPEN OUTPUT ICESA-FILE. DTSBU194
|
||||
00136 IF NOT ICESA-OK-88 DTSBU194
|
||||
00137 DISPLAY 'BU194 - CANNOT OPEN ICESA FILE: ' ICESA-STATUS DTSBU194
|
||||
00138 ELSE DTSBU194
|
||||
00139 CLOSE ICESA-FILE DTSBU194
|
||||
00140 END-IF. DTSBU194
|
||||
00141 DTSBU194
|
||||
00142 P1000-EXIT. DTSBU194
|
||||
00143 EXIT. DTSBU194
|
||||
00144 DTSBU194
|
||||
00145 P2000-WAGE-ONLY. DTSBU194
|
||||
00146 OPEN OUTPUT WAGE-ONLY-RPT-FILE. DTSBU194
|
||||
00147 IF NOT WAGE-RPT-OK-88 DTSBU194
|
||||
00148 DISPLAY 'BU194 - CANNOT OPEN WAGE REPORT FILE: ' DTSBU194
|
||||
00149 WAGE-RPT-STATUS DTSBU194
|
||||
00150 ELSE DTSBU194
|
||||
00151 CLOSE WAGE-ONLY-RPT-FILE DTSBU194
|
||||
00152 END-IF. DTSBU194
|
||||
00153 DTSBU194
|
||||
00154 OPEN OUTPUT WAGE-ONLY-DTL-FILE. DTSBU194
|
||||
00155 IF NOT WAGE-DTL-OK-88 DTSBU194
|
||||
00156 DISPLAY 'BU194 - CANNOT OPEN WAGE DETAIL FILE: ' DTSBU194
|
||||
00157 WAGE-DTL-STATUS DTSBU194
|
||||
00158 ELSE DTSBU194
|
||||
00159 CLOSE WAGE-ONLY-DTL-FILE DTSBU194
|
||||
00160 END-IF. DTSBU194
|
||||
00161 DTSBU194
|
||||
00162 P2000-EXIT. DTSBU194
|
||||
00163 EXIT. DTSBU194
|
||||
00164 DTSBU194
|
||||
00165 T0000-TERMINATE. DTSBU194
|
||||
00166 DISPLAY 'DTSBU194 TERMINATION STATISTICS' DTSBU194
|
||||
00167 DISPLAY SPACE. DTSBU194
|
||||
00168 DISPLAY ' DTSBU194 COMPLETE ' DTSBU194
|
||||
00169 DISPLAY SPACE. DTSBU194
|
||||
00170 DTSBU194
|
||||
00171 T0000-EXIT. DTSBU194
|
||||
00172 EXIT. DTSBU194
|
||||
00173 EJECT DTSBU194
|
||||
00174 DTSBU194
|
||||
00175 S999-ABEND. DTSBU194
|
||||
00176 DISPLAY '*** DTSBU194 ABENDING'. DTSBU194
|
||||
00177 DTSBU194
|
||||
00178 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU194
|
||||
00179 S999-EXIT. DTSBU194
|
||||
00180 EXIT. DTSBU194
|
||||
Reference in New Issue
Block a user