DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
214
Batch/DTSBY202.cob
Normal file
214
Batch/DTSBY202.cob
Normal file
@ -0,0 +1,214 @@
|
||||
00001 IDENTIFICATION DIVISION. 06/05/09
|
||||
00002 PROGRAM-ID. DTSBY202. DTSBY202
|
||||
00003 DATE-COMPILED. LV007
|
||||
00004 * DTSBY202
|
||||
00005 ***** DTSBY202
|
||||
00006 * DTSBY202
|
||||
00007 * DTSBY202
|
||||
00008 * FUNCTION: READS IN ICESA TYPE RECORDS BUILT BY PROGRAM DTSBY202
|
||||
00009 * BR202. IF ANY RECS FOUND WILL FORMAT A RPT DTSBY202
|
||||
00010 * SEND AND EMAIL FOR THE ICESA TOTALS. DTSBY202
|
||||
00011 * MODIFICATION HISTORY: DTSBY202
|
||||
00012 * DTSBY202
|
||||
00013 * 04-29-09 INITIAL DEVELOPMENT DTSBY202
|
||||
00014 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSBY202
|
||||
00015 * DTSBY202
|
||||
00016 * 05-15-09 ADDED BATCH TYPE IN FRONT OF BATCH NUMBER. FOR ICESA DTSBY202
|
||||
00017 * BATCHES, THE TYPE IS "B." FOR ONLINE BATCHES IT IS "A.DTSBY202
|
||||
00018 * REFERENCE RFP #RAP AUTHOR OF CHANGE - GD DTSBY202
|
||||
00019 * DTSBY202
|
||||
00020 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBY202
|
||||
00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBY202
|
||||
00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBY202
|
||||
00023 * DTSBY202
|
||||
00024 * DTSBY202
|
||||
00025 * DESCRIPTION: DTSBY202
|
||||
00026 * DTSBY202
|
||||
00027 * BUILD E-MAIL WITH DEPOSIT TRANSMITTAL FOR ICESA DTSBY202
|
||||
00028 * SUBMISSIONS. DTSBY202
|
||||
00029 * DTSBY202
|
||||
00030 * DTSBY202
|
||||
00031 * RECORDS READ: DTSBY202
|
||||
00032 * DTSBY202
|
||||
00033 * NONE. DTSBY202
|
||||
00034 * DTSBY202
|
||||
00035 * DTSBY202
|
||||
00036 * PRINTED OUTPUTS: DTSBY202
|
||||
00037 * DTSBY202
|
||||
00038 * NONE DTSBY202
|
||||
00039 * DTSBY202
|
||||
00040 * DTSBY202
|
||||
00041 * RECORDS WRITTEN: DTSBY202
|
||||
00042 * DTSBY202
|
||||
00043 * NONE. DTSBY202
|
||||
00044 * DTSBY202
|
||||
00045 * DTSBY202
|
||||
00046 * MODULES CALLED: DTSBY202
|
||||
00047 * DTSBY202
|
||||
00048 * DTSBY202
|
||||
00049 * DTSBY202
|
||||
00050 ***** DTSBY202
|
||||
00051 EJECT DTSBY202
|
||||
00052 ENVIRONMENT DIVISION. DTSBY202
|
||||
00053 DTSBY202
|
||||
00054 CONFIGURATION SECTION. DTSBY202
|
||||
00055 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBY202
|
||||
00056 DTSBY202
|
||||
00057 INPUT-OUTPUT SECTION. DTSBY202
|
||||
00058 DTSBY202
|
||||
00059 FILE-CONTROL. DTSBY202
|
||||
00060 SELECT ICESA-FILE ASSIGN TO RPT202F1. DTSBY202
|
||||
00061 DTSBY202
|
||||
00062 SELECT EMAIL-FILE ASSIGN TO DTSEMAIL. DTSBY202
|
||||
00063 DTSBY202
|
||||
00064 DATA DIVISION. DTSBY202
|
||||
00065 DTSBY202
|
||||
00066 FILE SECTION. DTSBY202
|
||||
00067 DTSBY202
|
||||
00068 FD ICESA-FILE DTSBY202
|
||||
00069 RECORDING MODE IS F. DTSBY202
|
||||
00070 01 ICESA-INREC. DTSBY202
|
||||
00071 05 BATCH-NO PIC 9(05). DTSBY202
|
||||
00072 05 ACCT-NO PIC 9(12). DTSBY202
|
||||
00073 05 DEPOSIT-DATE PIC X(10). DTSBY202
|
||||
00074 05 REMIT-AMT PIC 9(9)V99. DTSBY202
|
||||
00075 05 FILLER PIC X(10). DTSBY202
|
||||
00076 DTSBY202
|
||||
00077 FD EMAIL-FILE DTSBY202
|
||||
00078 RECORDING MODE IS F. DTSBY202
|
||||
00079 01 EMAIL-REC PIC X(80). DTSBY202
|
||||
00080 DTSBY202
|
||||
00081 WORKING-STORAGE SECTION. DTSBY202
|
||||
000815 77 PAN-VALET PICTURE X(24) VALUE '007DTSBY202 06/05/09'. DTSBY202
|
||||
00082 DTSBY202
|
||||
00083 01 WRK-AREA. DTSBY202
|
||||
00084 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +202.DTSBY202
|
||||
00085 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBY202
|
||||
00086 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBY202
|
||||
00087 05 R202-CNT PIC S9(05) COMP-3 VALUE +0. DTSBY202
|
||||
00088 05 X202-CNT PIC S9(05) COMP-3 VALUE +0. DTSBY202
|
||||
00089 05 X202-ICESA-CNT PIC S9(05) COMP-3 VALUE +0. DTSBY202
|
||||
00090 DTSBY202
|
||||
00091 01 BLANK-LINE PIC X(80) VALUE SPACES. DTSBY202
|
||||
00092 01 HEADER. DTSBY202
|
||||
00093 05 FILLER PIC X(22) VALUE SPACES. DTSBY202
|
||||
00094 05 FILLER PIC X(40) VALUE DTSBY202
|
||||
00095 'DC DEPARTMENT OF EMPLOYMENT SERVICES'. DTSBY202
|
||||
00096 01 HEADER1. DTSBY202
|
||||
00097 05 FILLER PIC X(32) VALUE SPACES. DTSBY202
|
||||
00098 05 FILLER PIC X(15) VALUE DTSBY202
|
||||
00099 'TAX DIVISION'. DTSBY202
|
||||
00100 01 HEADER2. DTSBY202
|
||||
00101 05 FILLER PIC X(27) VALUE SPACES. DTSBY202
|
||||
00102 05 FILLER PIC X(27) VALUE DTSBY202
|
||||
00103 'ICESA BANK DEPOSIT TICKET'. DTSBY202
|
||||
00104 01 HEADER3. DTSBY202
|
||||
00105 05 FILLER PIC X(05) VALUE SPACES. DTSBY202
|
||||
00106 05 FILLER PIC X(12) VALUE 'BATCH NUMBER'. DTSBY202
|
||||
00107 05 FILLER PIC X(05) VALUE SPACES. DTSBY202
|
||||
00108 05 FILLER PIC X(14) VALUE 'ACCT NUMBER'. DTSBY202
|
||||
00109 05 FILLER PIC X(05) VALUE SPACES. DTSBY202
|
||||
00110 05 FILLER PIC X(12) VALUE 'DEPOSIT DATE'. DTSBY202
|
||||
00111 05 FILLER PIC X(06) VALUE SPACES. DTSBY202
|
||||
00112 05 FILLER PIC X(12) VALUE 'REMIT AMOUNT'. DTSBY202
|
||||
00113 05 FILLER PIC X(10) VALUE SPACES. DTSBY202
|
||||
00114 01 DETAIL1. DTSBY202
|
||||
00115 05 FILLER PIC X(05) VALUE SPACES. DTSBY202
|
||||
00116 05 FILLER PIC X(01) VALUE 'B'. DTSBY202
|
||||
00117 05 BATCH-NOE PIC 9(05) VALUE ZEROS. DTSBY202
|
||||
00118 05 FILLER PIC X(11) VALUE SPACES. DTSBY202
|
||||
00119 05 ACCT-NOE PIC 9(14) VALUE 61000000130485. DTSBY202
|
||||
00120 05 FILLER PIC X(05) VALUE SPACES. DTSBY202
|
||||
00121 05 DEPOSIT-DATEE PIC X(10) VALUE SPACES. DTSBY202
|
||||
00122 05 FILLER PIC X(06) VALUE SPACES. DTSBY202
|
||||
00123 05 REMIT-AMTE PIC ---,---,--9.99. DTSBY202
|
||||
00124 05 FILLER PIC X(10) VALUE SPACES. DTSBY202
|
||||
00125 01 L001-LINK-AREA. DTSBY202
|
||||
00126 ++INCLUDE DTSIL001 DTSBY202
|
||||
00127 EJECT DTSBY202
|
||||
00128 DTSBY202
|
||||
00129 01 X202-REC. DTSBY202
|
||||
00130 ++INCLUDE DTSIX202 DTSBY202
|
||||
00131 DTSBY202
|
||||
00132 EJECT DTSBY202
|
||||
00133 LINKAGE SECTION. DTSBY202
|
||||
00134 DTSBY202
|
||||
00135 PROCEDURE DIVISION. DTSBY202
|
||||
00136 DTSBY202
|
||||
00137 IF FIRST-TIME-IND = 'Y' DTSBY202
|
||||
00138 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBY202
|
||||
00139 MOVE 'N' TO FIRST-TIME-IND. DTSBY202
|
||||
00140 DTSBY202
|
||||
00141 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBY202
|
||||
00142 PERFORM T1000-TERMINATE THRU T1000-EXIT. DTSBY202
|
||||
00143 DTSBY202
|
||||
00144 GOBACK. DTSBY202
|
||||
00145 EJECT DTSBY202
|
||||
00146 I1000-INITIATE. DTSBY202
|
||||
00147 DTSBY202
|
||||
00148 OPEN INPUT ICESA-FILE. DTSBY202
|
||||
00149 OPEN OUTPUT EMAIL-FILE. DTSBY202
|
||||
00150 DTSBY202
|
||||
00151 I1000-EXIT. DTSBY202
|
||||
00152 EXIT. DTSBY202
|
||||
00153 EJECT DTSBY202
|
||||
00154 DTSBY202
|
||||
00155 P0000-PROCESS. DTSBY202
|
||||
00156 DTSBY202
|
||||
00157 READ ICESA-FILE AT END GO TO P0000-EXIT. DTSBY202
|
||||
00158 DTSBY202
|
||||
00159 IF BATCH-NO = ZEROS DTSBY202
|
||||
00160 MOVE 1 TO RETURN-CODE DTSBY202
|
||||
00161 GO TO P0000-EXIT. DTSBY202
|
||||
00162 DTSBY202
|
||||
00163 ADD +1 TO X202-ICESA-CNT DTSBY202
|
||||
00164 WRITE EMAIL-REC FROM BLANK-LINE AFTER ADVANCING DTSBY202
|
||||
00165 TOP-OF-PAGE DTSBY202
|
||||
00166 WRITE EMAIL-REC FROM HEADER AFTER ADVANCING 7 LINES DTSBY202
|
||||
00167 WRITE EMAIL-REC FROM HEADER1 AFTER ADVANCING 1 LINES DTSBY202
|
||||
00168 WRITE EMAIL-REC FROM HEADER2 AFTER ADVANCING 1 LINES DTSBY202
|
||||
00169 WRITE EMAIL-REC FROM HEADER3 AFTER ADVANCING 4 LINES DTSBY202
|
||||
00170 MOVE BATCH-NO TO BATCH-NOE DTSBY202
|
||||
00171 MOVE REMIT-AMT TO REMIT-AMTE DTSBY202
|
||||
00172 * MOVE ACCT-NO TO ACCT-NOE DTSBY202
|
||||
00173 MOVE DEPOSIT-DATE TO DEPOSIT-DATEE DTSBY202
|
||||
00174 WRITE EMAIL-REC FROM DETAIL1 AFTER ADVANCING 2 LINES. DTSBY202
|
||||
00175 WRITE EMAIL-REC FROM BLANK-LINE AFTER 45 LINES. DTSBY202
|
||||
00176 GO TO P0000-PROCESS. DTSBY202
|
||||
00177 P0000-EXIT. DTSBY202
|
||||
00178 EXIT. DTSBY202
|
||||
00179 DTSBY202
|
||||
00180 DTSBY202
|
||||
00181 T1000-TERMINATE. DTSBY202
|
||||
00182 DISPLAY '******* BY202 RAN SUCESSFULLY *************'. DTSBY202
|
||||
00183 DISPLAY '******* TOTAL ICESA RECS ' X202-ICESA-CNT. DTSBY202
|
||||
00184 DTSBY202
|
||||
00185 DTSBY202
|
||||
00186 CLOSE ICESA-FILE DTSBY202
|
||||
00187 EMAIL-FILE. DTSBY202
|
||||
00188 DTSBY202
|
||||
00189 OPEN OUTPUT ICESA-FILE. DTSBY202
|
||||
00190 MOVE ZEROS TO BATCH-NO DTSBY202
|
||||
00191 ACCT-NO DTSBY202
|
||||
00192 REMIT-AMT. DTSBY202
|
||||
00193 MOVE SPACES TO DEPOSIT-DATE. DTSBY202
|
||||
00194 WRITE ICESA-INREC. DTSBY202
|
||||
00195 CLOSE ICESA-FILE. DTSBY202
|
||||
00196 T1000-EXIT. DTSBY202
|
||||
00197 EXIT. DTSBY202
|
||||
00198 EJECT DTSBY202
|
||||
00199 DTSBY202
|
||||
00200 S001-DATE. DTSBY202
|
||||
00201 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBY202
|
||||
00202 S001-EXIT. DTSBY202
|
||||
00203 EXIT. DTSBY202
|
||||
00204 DTSBY202
|
||||
00205 S999-ABEND. DTSBY202
|
||||
00206 DTSBY202
|
||||
00207 DISPLAY '*** DTSBR202 ABENDING. ' DTSBY202
|
||||
00208 WRK-ABEND-MSG. DTSBY202
|
||||
00209 DTSBY202
|
||||
00210 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBY202
|
||||
00211 DTSBY202
|
||||
00212 S999-EXIT. DTSBY202
|
||||
00213 EXIT. DTSBY202
|
||||
Reference in New Issue
Block a user