00001 IDENTIFICATION DIVISION. 03/26/09 00002 PROGRAM-ID. DTSBD385. DTSBD385 00003 AUTHOR. NORTHROP GRUMMAN. LV007 00004 DATE-WRITTEN. AUGUST 2003. DTSBD385 00005 DATE-COMPILED. DTSBD385 00006 SKIP3 DTSBD385 00007 ***** DTSBD385 00008 * DTSBD385 00009 * DTSBD385 00010 * FUNCTION: ADD MNTE OR MEVL RECORDS FROM EXTERNAL DTSBD385 00011 * BATCH PROCESSES DTSBD385 00012 * DTSBD385 00013 * DTSBD385 00014 * DTSBD385 00015 * DTSBD385 00016 * MODIFICATION LOG: DTSBD385 00017 * DTSBD385 00018 * 01/17/2005 INITIAL DEVELOPMENT. DTSBD385 00019 * WORK ORDER: PROGRAMMER: GD DTSBD385 00020 * DTSBD385 00021 * 05/07/2008 ADDED MEVL RECORD. DTSBD385 00022 * WORK ORDER: REFUNDS PROGRAMMER: GD DTSBD385 00023 * DTSBD385 00024 * 03/25/2009 UPDATED CODE THAT REFERENCES ABSTIME FROM DTSBD385 00025 * LBCM LINKAGE. THE PROGRAM WAS USING LBCM-ABSTIME DTSBD385 00026 * INSTEAD OF LBCM-EMP-ABSTIME. STANDARD USAGE IN DTSBD385 00027 * THE SYSTEM IS LBCM-EMP-ABSTIME. DTSBD385 00028 * WORK ORDER: PROGRAMMER: GD DTSBD385 00029 * DTSBD385 00030 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD385 00031 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD385 00032 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD385 00033 * DTSBD385 00034 * DTSBD385 00035 * DESCRIPTION: DTSBD385 00036 * DTSBD385 00037 * DTSBD385 00038 * DTSBD385 00039 * MASTER FILE RECORDS READ: DTSBD385 00040 * DTSBD385 00041 * MPRF DTSBD385 00042 * DTSBD385 00043 * DTSBD385 00044 * MASTER FILE RECORDS UPDATED: DTSBD385 00045 * DTSBD385 00046 * MNTE DTSBD385 00047 * MEVL DTSBD385 00048 * DTSBD385 00049 * DTSBD385 00050 * REPORT RECORDS WRITTEN: DTSBD385 00051 * DTSBD385 00052 * R907 ERRORS REPORT DTSBD385 00053 * DTSBD385 00054 * DTSBD385 00055 * MODULES CALLED: DTSBD385 00056 * DTSBD385 00057 * DTSBU111 LOOKUP ADDRESS. DTSBD385 00058 * DTSBU112 FORMAT ADDRESS. DTSBD385 00059 * DTSBU331 FORMAT AND WRITE MLOG OCCURRENCE. DTSBD385 00060 * DTSBU910 MASTER FILE I/O DRIVER. DTSBD385 00061 * DTSBU941 VARIABLE LENGTH RECORD INPUT 1. DTSBD385 00062 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD385 00063 * DTSBD385 00064 ***** DTSBD385 00065 SKIP3 DTSBD385 00066 ENVIRONMENT DIVISION. DTSBD385 00067 SKIP3 DTSBD385 00068 DATA DIVISION. DTSBD385 00069 EJECT DTSBD385 00070 WORKING-STORAGE SECTION. DTSBD385 000705 77 PAN-VALET PICTURE X(24) VALUE '007DTSBD385 03/26/09'. DTSBD385 00071 SKIP3 DTSBD385 00072 01 WRK-AREA. DTSBD385 00073 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +385.DTSBD385 00074 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD385'.DTSBD385 00075 05 WRK-ABEND-MSG PIC X(60). DTSBD385 00076 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD385 00077 88 FIRST-TIME-YES-88 VALUE 'Y'. DTSBD385 00078 88 FIRST-TIME-NO-88 VALUE 'N'. DTSBD385 00079 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBD385 00080 05 WRK-TRACE-IND PIC X(01) VALUE SPACES. DTSBD385 00081 DTSBD385 00082 05 WRK-MNTE-LENGTH PIC S9(04) COMP. DTSBD385 00083 05 WRK-MEVL-LENGTH PIC S9(04) COMP. DTSBD385 00084 DTSBD385 00085 05 WRK-WRITE-MNTE-CNT PIC S9(07) COMP-3 VALUE 0. DTSBD385 00086 DTSBD385 00087 01 MSG-TABLE. DTSBD385 00088 05 MSG1-ADDRESS-MISSING. DTSBD385 00089 10 MSG1-ID PIC X(11) VALUE 'DTSBD385909'. DTSBD385 00090 10 MSG1-SHORT-TEXT PIC X(20) VALUE ' '. DTSBD385 00091 10 MSG1-LONG-TEXT. DTSBD385 00092 15 FILLER PIC X(30) DTSBD385 00093 VALUE 'TRANSACTION FAILED - '. DTSBD385 00094 15 FILLER PIC X(30) DTSBD385 00095 VALUE ' '. DTSBD385 00096 01 L005-LINK-AREA. DTSBD385 00097 ++INCLUDE DTSIL005 DTSBD385 00098 DTSBD385 00099 01 L910-LINK-AREA. DTSBD385 00100 ++INCLUDE DTSIL910 DTSBD385 00101 EJECT DTSBD385 00102 01 MSKL-REC. DTSBD385 00103 ++INCLUDE DTSIMSKL DTSBD385 00104 EJECT DTSBD385 00105 01 MNTE-REC. DTSBD385 00106 ++INCLUDE DTSIMNTE DTSBD385 00107 01 MEVL-REC. DTSBD385 00108 ++INCLUDE DTSIMEVL DTSBD385 00109 EJECT DTSBD385 00110 01 R907-REC. DTSBD385 00111 ++INCLUDE DTSIR907 DTSBD385 00112 EJECT DTSBD385 00113 DTSBD385 00114 LINKAGE SECTION. DTSBD385 00115 SKIP3 DTSBD385 00116 01 LBCM-LINK-AREA. DTSBD385 00117 ++INCLUDE DTSILBCM DTSBD385 00118 EJECT DTSBD385 00119 01 MPRF-REC. DTSBD385 00120 ++INCLUDE DTSIMPRF DTSBD385 00121 EJECT DTSBD385 00122 01 T003-REC. DTSBD385 00123 ++INCLUDE DTSIT003 DTSBD385 00124 EJECT DTSBD385 00125 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD385 00126 MPRF-REC DTSBD385 00127 T003-REC. DTSBD385 00128 DTSBD385 00129 IF FIRST-TIME-YES-88 DTSBD385 00130 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBD385 00131 END-IF. DTSBD385 00132 DTSBD385 00133 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD385 00134 DTSBD385 00135 GOBACK. DTSBD385 00136 SKIP3 DTSBD385 00137 I0000-INITIATE. DTSBD385 00138 SET FIRST-TIME-NO-88 TO TRUE. DTSBD385 00139 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBD385 00140 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBD385 00141 DTSBD385 00142 MOVE LENGTH OF MNTE-REC TO WRK-MNTE-LENGTH. DTSBD385 00143 MOVE LENGTH OF MEVL-REC TO WRK-MEVL-LENGTH. DTSBD385 00144 DTSBD385 00145 I0000-EXIT. DTSBD385 00146 EXIT. DTSBD385 00147 DTSBD385 00148 P0000-PROCESS. DTSBD385 00149 DISPLAY 'BD385 P0000: ' T003-EMP-NO DTSBD385 00150 ' ' T003-TRN-CD. DTSBD385 00151 EVALUATE TRUE DTSBD385 00152 WHEN T003-ADD-MNTE-88 DTSBD385 00153 PERFORM P1000-MNTE THRU P1000-EXIT DTSBD385 00154 DTSBD385 00155 WHEN T003-ADD-MEVL-88 DTSBD385 00156 PERFORM P2000-MEVL THRU P2000-EXIT DTSBD385 00157 DTSBD385 00158 END-EVALUATE. DTSBD385 00159 DTSBD385 00160 P0000-EXIT. DTSBD385 00161 EXIT. DTSBD385 00162 DTSBD385 00163 P1000-MNTE. DTSBD385 00164 MOVE T003-REC-AREA (1:WRK-MNTE-LENGTH) TO MNTE-REC. DTSBD385 00165 DTSBD385 00166 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD385 00167 MOVE LBCM-EMP-ABSTIME TO MNTE-KEY-ESTB-ABSTIME DTSBD385 00168 MNTE-DATA-ESTB-ABSTIME DTSBD385 00169 MNTE-CHNG-ABSTIME. DTSBD385 00170 DTSBD385 00171 MOVE MNTE-REC TO MSKL-REC. DTSBD385 00172 PERFORM S910-WRITE THRU S910-EXIT. DTSBD385 00173 DTSBD385 00174 P1000-EXIT. DTSBD385 00175 EXIT. DTSBD385 00176 DTSBD385 00177 P2000-MEVL. DTSBD385 00178 MOVE T003-REC-AREA (1:WRK-MEVL-LENGTH) TO MEVL-REC. DTSBD385 00179 DTSBD385 00180 DISPLAY 'BD385 P2000: ' MEVL-EMP-NO DTSBD385 00181 ' ' MEVL-TEXT ' ' LBCM-EMP-ABSTIME. DTSBD385 00182 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD385 00183 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. DTSBD385 00184 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBD385 00185 MOVE L005-DATE TO MEVL-DATE DTSBD385 00186 MEVL-ESTB-DATE DTSBD385 00187 MEVL-CHNG-DATE. DTSBD385 00188 MOVE L005-TIME TO MEVL-TIME. DTSBD385 00189 DTSBD385 00190 DISPLAY 'BD385 P2000 2: ' MEVL-TIME. DTSBD385 00191 MOVE MEVL-REC TO MSKL-REC. DTSBD385 00192 PERFORM S910-WRITE THRU S910-EXIT. DTSBD385 00193 DTSBD385 00194 P2000-EXIT. DTSBD385 00195 EXIT. DTSBD385 00196 DTSBD385 00197 S005-FROM-ABSTIME. DTSBD385 00198 SET L005-FROM-ABSTIME TO TRUE. DTSBD385 00199 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD385 00200 S005-EXIT. DTSBD385 00201 EXIT. DTSBD385 00202 DTSBD385 00203 S910-READ. DTSBD385 00204 SET L910-READ-88 TO TRUE. DTSBD385 00205 GO TO S910-MSTR-IO. DTSBD385 00206 DTSBD385 00207 S910-START-BROWSE. DTSBD385 00208 SET L910-START-BROWSE-88 TO TRUE. DTSBD385 00209 GO TO S910-MSTR-IO. DTSBD385 00210 DTSBD385 00211 S910-READ-NEXT. DTSBD385 00212 SET L910-READ-NEXT-88 TO TRUE. DTSBD385 00213 GO TO S910-MSTR-IO. DTSBD385 00214 DTSBD385 00215 S910-COUNT. DTSBD385 00216 SET L910-COUNT-88 TO TRUE. DTSBD385 00217 GO TO S910-MSTR-IO. DTSBD385 00218 DTSBD385 00219 S910-WRITE. DTSBD385 00220 SET L910-WRITE-88 TO TRUE. DTSBD385 00221 GO TO S910-MSTR-IO. DTSBD385 00222 DTSBD385 00223 S910-REWRITE. DTSBD385 00224 SET L910-REWRITE-88 TO TRUE. DTSBD385 00225 GO TO S910-MSTR-IO. DTSBD385 00226 DTSBD385 00227 S910-DELETE. DTSBD385 00228 SET L910-DELETE-88 TO TRUE. DTSBD385 00229 GO TO S910-MSTR-IO. DTSBD385 00230 DTSBD385 00231 S910-MSTR-IO. DTSBD385 00232 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD385 00233 MSKL-REC. DTSBD385 00234 S910-EXIT. DTSBD385 00235 EXIT. DTSBD385 00236 DTSBD385 00237 S946-WRITE-R907. DTSBD385 00238 CALL 'DTSBU946' USING R907-REC. DTSBD385 00239 DTSBD385 00240 S946-EXIT. DTSBD385 00241 EXIT. DTSBD385 00242 DTSBD385 00243 S999-ABEND. DTSBD385 00244 DISPLAY '*** DTSBD385 ABENDING : ' DTSBD385 00245 WRK-ABEND-MSG. DTSBD385 00246 DTSBD385 00247 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD385 00248 S999-EXIT. DTSBD385 00249 EXIT. DTSBD385 00250 DTSBD385