215 lines
17 KiB
COBOL
215 lines
17 KiB
COBOL
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
|