00001 IDENTIFICATION DIVISION. 10/01/98 00002 PROGRAM-ID. DTSBD130. DTSBD130 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV002 00004 DATE-WRITTEN. JUNE 1994. DTSBD130 00005 DATE-COMPILED. DTSBD130 00006 SKIP3 DTSBD130 00007 ***** DTSBD130 00008 * DTSBD130 00009 * FUNCTION: DRIVER FOR BATCH TRANSACTION IMPORT FROM DTSBD130 00010 * PERSONAL COMPUTER BASED SYSTEMS. DTSBD130 00011 * DTSBD130 00012 * DTSBD130 00013 * MODIFICATION LOG: DTSBD130 00014 * DTSBD130 00015 * XX/XX/XX INITIAL DEVELOPMENT. DTSBD130 00016 * WORK ORDER: PROGRAMMER: XXX DTSBD130 00017 * DTSBD130 00018 * 03/03/96 ELECTRONIC FILING MODIFICATIONS. ADD A CALL TO CL**2 00019 * DTSBD133 AND ADD OPEN/CLOSE OF AN OUTPUT BATCH CL**2 00020 * TRANSACCTION COLLECTION (BTC) FILE. DTSBD130 00021 * WORK ORDER: MTS001 - ELF PROGRAMMER: EHH DTSBD130 00022 * DTSBD130 00023 * 10/01/1998 REVIEWED AND MODIFIED FOR DC. IN THE INITIAL CL**2 00024 * DC DESIGN THERE ARE NO IMPORTS FROM PERSONAL CL**2 00025 * COMPUTER BASED SYSTEMS. THUS, DTSBD130 IS A CL**2 00026 * NULL MODULE. THE NULL VERSION OF DTSBD130 IS CL**2 00027 * IN THE DC SYSTEM IN ANTICIPATION OF FUTURE CL**2 00028 * REQUIREMENTS. CL**2 00029 * WORK ORDER: DC DEVELOPMENT PROGRAMMER: EHH CL**2 00030 * CL**2 00031 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2 00032 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2 00033 * WORK ORDER: XXXXXXXXXXXXXXX PROGRAMMER: XXX CL**2 00034 * DTSBD130 00035 * DTSBD130 00036 * DESCRIPTION: DTSBD130 00037 * DTSBD130 00038 * THIS FUNCTION WAS DONE AS A DRIVER TYPE FUNCTION IN DTSBD130 00039 * ANTICIPATION OF ADDITIONAL IMPORTS FROM PERSONAL COMPUTER DTSBD130 00040 * BASED SYSTEMS ARISING IN THE FUTURE. THIS WAY, EACH OF DTSBD130 00041 * THESE POTENTIALLY COMPLEX AND DIFFERENT (BASED ON THE DTSBD130 00042 * TYPE OF PC SOFTWARE USED) FUNCTIONS CAN BE ISOLATED INTO DTSBD130 00043 * AN INDIVIDUAL MODULE. DTSBD130 00044 * DTSBD130 00045 * IT IS ASSUMED THE CALLED MODULES WILL NOT EDIT THE DTSBD130 00046 * INCOMING TRANSACTIONS AGAINST THE MASTER FILE (SUCH DTSBD130 00047 * EDITS WILL BE CARRIED OUT DURING THE UPDATE STEP DTSBD130 00048 * (DTSBD3*). HOWEVER, IT WILL BE NECESSARY FOR THE CALLED CL**2 00049 * MODULES TO ACCESS THE MASTER FILE AND THE AIX FILE FOR DTSBD130 00050 * FUNCTIONS SUCH AS FINDING THE EMPLOYER NUMBER ASSOCIATED DTSBD130 00051 * WITH A FIELD ASSIGNMENT. THUS, THE MASTER FILE AND AIX DTSBD130 00052 * FILE ARE OPENED READ ONLY. DTSBD130 00053 * DTSBD130 00054 * DTSBD130 00055 * DTSBD130 00056 * INITIATION: DTSBD130 00057 * DTSBD130 00058 * NONE. DTSBD130 00059 * DTSBD130 00060 * DTSBD130 00061 * PROCESSING: DTSBD130 00062 * DTSBD130 00063 * CALL 'DTSBD131' ONCE. CL**2 00064 * DTSBD130 00065 * CALL 'DTSBD132' ONCE. CL**2 00066 * DTSBD130 00067 * CALL 'DTSBD133' ONCE. CL**2 00068 * DTSBD130 00069 * DTSBD130 00070 * DTSBD130 00071 * TERMINATION: DTSBD130 00072 * DTSBD130 00073 * CLOSE THE REPORT RECORD FILE AND THE TRANSACTION RECORD DTSBD130 00074 * FILE. DTSBD130 00075 * DTSBD130 00076 * DTSBD130 00077 ***** DTSBD130 00078 SKIP3 DTSBD130 00079 ENVIRONMENT DIVISION. DTSBD130 00080 SKIP3 DTSBD130 00081 DATA DIVISION. DTSBD130 00082 SKIP3 DTSBD130 00083 WORKING-STORAGE SECTION. DTSBD130 000835 77 PAN-VALET PICTURE X(24) VALUE '002DTSBD130 10/01/98'. DTSBD130 00084 SKIP3 DTSBD130 00085 01 WRK-AREA. DTSBD130 00086 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +130.DTSBD130 00087 DTSBD130 00088 05 MOD-NAME PIC X(08) VALUE 'DTSBD130'. CL**2 00089 EJECT DTSBD130 00090 01 L910-LINK-AREA. DTSBD130 00091 ++INCLUDE DTSIL910 CL**2 00092 SKIP3 DTSBD130 00093 01 MSKL-REC. DTSBD130 00094 ++INCLUDE DTSIMSKL CL**2 00095 EJECT DTSBD130 00096 01 L921-LINK-AREA. DTSBD130 00097 ++INCLUDE DTSIL921 CL**2 00098 SKIP3 DTSBD130 00099 01 ISKL-REC. DTSBD130 00100 ++INCLUDE DTSIISKL CL**2 00101 EJECT DTSBD130 00102 01 RSK1-REC. DTSBD130 00103 ++INCLUDE DTSIRSK1 CL**2 00104 EJECT DTSBD130 00105 01 L927-LINK-AREA. DTSBD130 00106 ++INCLUDE DTSIL927 CL**2 00107 EJECT DTSBD130 00108 01 TSKL-REC. DTSBD130 00109 ++INCLUDE DTSITSKL CL**2 00110 EJECT DTSBD130 00111 PROCEDURE DIVISION. DTSBD130 00112 SKIP2 DTSBD130 00113 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD130 00114 CL**2 00115 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD130 00116 CL**2 00117 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD130 00118 SKIP2 DTSBD130 00119 GOBACK. DTSBD130 00120 EJECT DTSBD130 00121 I0000-INITIATE. DTSBD130 00122 MOVE 'N' TO L910-TRACE-IND DTSBD130 00123 L921-TRACE-IND DTSBD130 00124 L927-TRACE-IND. DTSBD130 00125 CL**2 00126 MOVE MOD-NAME TO L910-MOD-NAME DTSBD130 00127 L921-MOD-NAME DTSBD130 00128 L927-MOD-NAME. DTSBD130 00129 CL**2 00130 CL**2 00131 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBD130 00132 CL**2 00133 PERFORM S921-OPEN-READ THRU S921-EXIT. DTSBD130 00134 CL**2 00135 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DTSBD130 00136 I0000-EXIT. DTSBD130 00137 EXIT. DTSBD130 00138 EJECT DTSBD130 00139 P0000-PROCESS. DTSBD130 00140 ***** CL**2 00141 * CL**2 00142 * IN THE INITIAL DC DESIGN, THERE ARE NO IMPORTS FROM PC CL**2 00143 * BASED SYSTEMS. HENCE DTSBD130 IS A 'NULL' MODULE. CL**2 00144 * CL**2 00145 ***** CL**2 00146 CL**2 00147 *****CALL 'DTSBD131'. CL**2 00148 CL**2 00149 *****CALL 'DTSBD132'. CL**2 00150 CL**2 00151 *****CALL 'DTSBD133'. CL**2 00152 P0000-EXIT. DTSBD130 00153 EXIT. DTSBD130 00154 EJECT DTSBD130 00155 T0000-TERMINATE. DTSBD130 00156 DISPLAY ' '. DTSBD130 00157 CL**2 00158 DISPLAY '*** DTSBD130 TERMINATION STATISTICS ***'. CL**2 00159 CL**2 00160 DISPLAY ' '. DTSBD130 00161 CL**2 00162 CL**2 00163 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD130 00164 CL**2 00165 PERFORM S921-CLOSE THRU S921-EXIT. DTSBD130 00166 CL**2 00167 PERFORM S927-CLOSE THRU S927-EXIT. DTSBD130 00168 CL**2 00169 MOVE -1 TO RSK1-LENGTH. DTSBD130 00170 PERFORM S946-TRN-REC-O THRU S946-EXIT. DTSBD130 00171 CL**2 00172 MOVE -1 TO RSK1-LENGTH. DTSBD130 00173 PERFORM S947-RPT-REC-O THRU S947-EXIT. DTSBD130 00174 SKIP2 DTSBD130 00175 T0000-EXIT. DTSBD130 00176 EXIT. DTSBD130 00177 EJECT DTSBD130 00178 S910-OPEN-READ. DTSBD130 00179 SET L910-OPEN-READ-88 TO TRUE. DTSBD130 00180 GO TO S910-MSTR-IO. DTSBD130 00181 CL**2 00182 S910-CLOSE. DTSBD130 00183 SET L910-CLOSE-88 TO TRUE. DTSBD130 00184 GO TO S910-MSTR-IO. DTSBD130 00185 CL**2 00186 S910-MSTR-IO. DTSBD130 00187 CALL 'DTSBU910' USING L910-LINK-AREA CL**2 00188 MSKL-REC. DTSBD130 00189 S910-EXIT. DTSBD130 00190 EXIT. DTSBD130 00191 SKIP3 DTSBD130 00192 S921-OPEN-READ. DTSBD130 00193 SET L921-OPEN-READ-88 TO TRUE. DTSBD130 00194 GO TO S921-AIX-IO. DTSBD130 00195 CL**2 00196 S921-CLOSE. DTSBD130 00197 SET L921-CLOSE-88 TO TRUE. DTSBD130 00198 GO TO S921-AIX-IO. DTSBD130 00199 CL**2 00200 S921-AIX-IO. DTSBD130 00201 CALL 'DTSBU921' USING L921-LINK-AREA CL**2 00202 ISKL-REC. DTSBD130 00203 S921-EXIT. DTSBD130 00204 EXIT. DTSBD130 00205 SKIP3 DTSBD130 00206 S927-OPEN-UPDATE. DTSBD130 00207 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBD130 00208 GO TO S927-BTC-O. DTSBD130 00209 CL**2 00210 S927-CLOSE. DTSBD130 00211 SET L927-CLOSE-88 TO TRUE. DTSBD130 00212 GO TO S927-BTC-O. DTSBD130 00213 CL**2 00214 S927-BTC-O. DTSBD130 00215 CALL 'DTSBU927' USING L927-LINK-AREA CL**2 00216 TSKL-REC. DTSBD130 00217 S927-EXIT. DTSBD130 00218 EXIT. DTSBD130 00219 SKIP3 DTSBD130 00220 S946-TRN-REC-O. DTSBD130 00221 CALL 'DTSBU946' USING RSK1-REC. CL**2 00222 S946-EXIT. DTSBD130 00223 EXIT. DTSBD130 00224 SKIP3 DTSBD130 00225 S947-RPT-REC-O. DTSBD130 00226 CALL 'DTSBU947' USING RSK1-REC. CL**2 00227 S947-EXIT. DTSBD130 00228 EXIT. DTSBD130 00229 SKIP3 DTSBD130 00230 S999-ABEND. DTSBD130 00231 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2 00232 S999-EXIT. DTSBD130 00233 EXIT. DTSBD130