00001 IDENTIFICATION DIVISION. 05/22/01 00002 PROGRAM-ID. DTSCU222. DTSCU222 00003 AUTHOR. TRW INC. LV001 00004 DATE-WRITTEN. JANUARY 2001. DTSCU222 00005 DATE-COMPILED. DTSCU222 00006 SKIP3 DTSCU222 00007 ***** DTSCU222 00008 * DTSCU222 00009 * FUNCTION: PRF-UPDATE FIELDS MAINTENANCE. DTSCU222 00010 * DTSCU222 00011 * DTSCU222 00012 * MODIFICATION LOG: DTSCU222 00013 * DTSCU222 00014 * 12/01/91 INITIAL DEVELOPMENT. DTSCU222 00015 * WORK ORDER: PROGRAMMER: TCL DTSCU222 00016 * DTSCU222 00017 * 04/18/94 MODIFIED FOR MONTANA. DTSCU222 00018 * WORK ORDER: PROGRAMMER: EHH DTSCU222 00019 * DTSCU222 00020 * 09/09/1998 REVIEWED AND MODIFIED FOR DC. DTSCU222 00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSCU222 00022 * DTSCU222 00023 * 01/19/2001 REVISED AND CREATED FOR THE ELECTRONIC MEDIA DTSCU222 00024 * TRACKING SYSTEM. MODIFIED FROM DTSCU221. DTSCU222 00025 * REFERENCE: TAPE TRACKING DEVL. PROGRAMMER: RLW DTSCU222 00026 * DTSCU222 00027 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU222 00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU222 00029 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCU222 00030 * DTSCU222 00031 * DTSCU222 00032 * DESCRIPTION: DTSCU222 00033 * DTSCU222 00034 * MAINTAIN THE EPRF-ONLINE-UPDATE-* FIELDS OF THE EPRF RECORD. DTSCU222 00035 * DTSCU222 00036 * IF L222-START-UPDATE DTSCU222 00037 * READ UPDATE EPRFRF RECORD DTSCU222 00038 * IF FILE CLOSED DTSCU222 00039 * MOVE '9' TO L222-RESULT-IND DTSCU222 00040 * ELSE DTSCU222 00041 * IF NO RECORD FOUND DTSCU222 00042 * MOVE '4' TO L222-RESULT-IND DTSCU222 00043 * ELSE DTSCU222 00044 * IF EPRF-CICS-UPD-ACTIVE-88 DTSCU222 00045 * MOVE '2' TO L222-RESULT-IND DTSCU222 00046 * REWRITE EPRF-RECORD DTSCU222 00047 * ELSE DTSCU222 00048 * IF EPRF-PURGE-ALL-YES-88 DTSCU222 00049 * MOVE '3' TO L222-RESULT-IND DTSCU222 00050 * REWRITE EPRF-RECORD DTSCU222 00051 * ELSE DTSCU222 00052 * IF L222-SCR-ABSTIME < EPRF-UPDATE-END-ABSTIME DTSCU222 00053 * MOVE '1' TO L222-RESULT-IND DTSCU222 00054 * REWRITE EPRF-RECORD DTSCU222 00055 * ELSE DTSCU222 00056 * MOVE '0' TO L222-RESULT-IND DTSCU222 00057 * LINK TO DTSCU005 TO GET SYSTEM ABSTIME DTSCU222 00058 * MOVE SYSTEM ABSTIME TO EPRF-UPDATE-START-ABSTIME DTSCU222 00059 * MOVE ALL 9 TO MRPF-UPDATE-END-ABSTIME DTSCU222 00060 * MOVE L222-UPDATE-* FIELDS TO EPRF-UPDATE-* FIELDS DTSCU222 00061 * REWRITE EPRF RECORD DTSCU222 00062 * ELSE DTSCU222 00063 * READ UPDATE EPRF RECORD DTSCU222 00064 * IF FILE CLOSED DTSCU222 00065 * MOVE '9' TO L222-RESULT-IND DTSCU222 00066 * ELSE DTSCU222 00067 * IF NO RECORD FOUND DTSCU222 00068 * MOVE '3' TO L222-RESULT-IND DTSCU222 00069 * ELSE DTSCU222 00070 * MOVE '0' TO L222-RESULT-IND DTSCU222 00071 * MOVE 0 TO EPRF-UPDATE-START-ABSTIME DTSCU222 00072 * LINK TO DTSCU005 TO GET SYSTEM ABSTIME DTSCU222 00073 * MOVE SYSTEM ABSTIME TO EPRF-UPDATE-END-ABSTIME DTSCU222 00074 * REWRITE EPRF-RECORD DTSCU222 00075 * WRITE R906 RECORD TO OLA FILE. DTSCU222 00076 * DTSCU222 00077 ***** DTSCU222 00078 SKIP3 DTSCU222 00079 ENVIRONMENT DIVISION. DTSCU222 00080 SKIP3 DTSCU222 00081 DATA DIVISION. DTSCU222 00082 SKIP3 DTSCU222 00083 WORKING-STORAGE SECTION. DTSCU222 000835 77 PAN-VALET PICTURE X(24) VALUE '001DTSCU222 05/22/01'. DTSCU222 00084 SKIP3 DTSCU222 00085 01 WRK-AREA. DTSCU222 00086 05 WRK-ABEND-CD PIC X(04) VALUE 'U222'. DTSCU222 00087 DTSCU222 00088 01 MSG-LITERALS. DTSCU222 00089 05 MSG-E201-AREA. DTSCU222 00090 10 FILLER PIC X(04) VALUE 'E201'. DTSCU222 00091 10 FILLER PIC X(30) DTSCU222 00092 VALUE 'ELECTRONIC FILER LOCKED FOR BA'. DTSCU222 00093 10 FILLER PIC X(30) DTSCU222 00094 VALUE 'TCH UPDATE '. DTSCU222 00095 EJECT DTSCU222 00096 01 L005-COMM-AREA. DTSCU222 00097 ++INCLUDE DTSIL005 DTSCU222 00098 EJECT DTSCU222 00099 01 L835-COMM-AREA. DTSCU222 00100 05 L835-CONTROL-BLOCK. DTSCU222 00101 ++INCLUDE DTSIL835 DTSCU222 00102 SKIP3 DTSCU222 00103 05 ESKL-REC. DTSCU222 00104 ++INCLUDE DTSIESKL DTSCU222 00105 SKIP3 DTSCU222 00106 05 EPRF-REC REDEFINES ESKL-REC. DTSCU222 00107 ++INCLUDE DTSIEPRF DTSCU222 00108 EJECT DTSCU222 00109 01 L825-COMM-AREA. DTSCU222 00110 05 L825-CONTROL-BLOCK. DTSCU222 00111 ++INCLUDE DTSIL825 DTSCU222 00112 SKIP3 DTSCU222 00113 05 R906-REC. DTSCU222 00114 ++INCLUDE DTSIR906 DTSCU222 00115 EJECT DTSCU222 00116 01 CECD-LITERALS. DTSCU222 00117 ++INCLUDE DTSICECD DTSCU222 00118 EJECT DTSCU222 00119 LINKAGE SECTION. DTSCU222 00120 SKIP3 DTSCU222 00121 01 DFHCOMMAREA. DTSCU222 00122 ++INCLUDE DTSIL222 DTSCU222 00123 EJECT DTSCU222 00124 PROCEDURE DIVISION. DTSCU222 00125 DTSCU222 00126 MOVE SPACES TO L222-MSG-AREA. DTSCU222 00127 DTSCU222 00128 SET L835-READ-UPDATE-88 TO TRUE. DTSCU222 00129 DTSCU222 00130 MOVE LOW-VALUES TO EPRF-KEY-AREA. DTSCU222 00131 DTSCU222 00132 MOVE L222-ELF-ID TO EPRF-ELF-ID. DTSCU222 00133 DTSCU222 00134 MOVE L222-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD. DTSCU222 00135 DTSCU222 00136 SET EPRF-PRF-88 TO TRUE. DTSCU222 00137 DTSCU222 00138 IF L222-START-UPDATE DTSCU222 00139 PERFORM P1000-START-UPDATE THRU P1000-EXIT DTSCU222 00140 ELSE DTSCU222 00141 IF L222-END-UPDATE DTSCU222 00142 PERFORM P2000-END-UPDATE THRU P2000-EXIT DTSCU222 00143 ELSE DTSCU222 00144 GO TO S899-ABEND. DTSCU222 00145 DTSCU222 00146 DTSCU222 00147 EXEC CICS DTSCU222 00148 RETURN DTSCU222 00149 END-EXEC. DTSCU222 00150 DTSCU222 00151 DTSCU222 00152 DTSCU222 00153 GOBACK. DTSCU222 00154 EJECT DTSCU222 00155 P1000-START-UPDATE. DTSCU222 00156 PERFORM S835-LINK-MSTR-IO THRU S835-EXIT. DTSCU222 00157 DTSCU222 00158 IF L835-FILE-CLOSED-88 DTSCU222 00159 SET L222-FILE-CLOSED TO TRUE DTSCU222 00160 MOVE L835-MSG-AREA TO L222-MSG-AREA DTSCU222 00161 GO TO P1000-EXIT. DTSCU222 00162 DTSCU222 00163 IF L835-NO-REC-88 DTSCU222 00164 SET L222-NO-REC TO TRUE DTSCU222 00165 MOVE EMSG-NO-RECORD TO L222-MSG-ID DTSCU222 00166 GO TO P1000-EXIT. DTSCU222 00167 DTSCU222 00168 IF EPRF-CICS-UPD-ACTIVE-88 DTSCU222 00169 SET L222-EMP-LOCKED-CICS-UPD TO TRUE DTSCU222 00170 MOVE EMSG-EMP-LOCKED TO L222-MSG-ID DTSCU222 00171 ELSE DTSCU222 00172 IF EPRF-BATCH-UPD-ACTIVE-88 DTSCU222 00173 SET L222-EMP-LOCKED-BATCH-UPD TO TRUE DTSCU222 00174 MOVE MSG-E201-AREA TO L222-MSG-AREA DTSCU222 00175 ELSE DTSCU222 00176 IF L222-SCR-ABSTIME < EPRF-UPDATE-END-ABSTIME DTSCU222 00177 SET L222-SCR-NOT-CURRENT TO TRUE DTSCU222 00178 MOVE EMSG-NOT-CURRENT-UPDATE TO L222-MSG-ID DTSCU222 00179 ELSE DTSCU222 00180 SET L222-OK TO TRUE DTSCU222 00181 SET EPRF-CICS-UPD-ACTIVE-88 TO TRUE DTSCU222 00182 MOVE L222-UPDATE-TASK-ID TO EPRF-UPDATE-TASK-ID DTSCU222 00183 MOVE L222-UPDATE-OP-ID TO EPRF-UPDATE-OP-ID DTSCU222 00184 MOVE L222-UPDATE-TERMID TO EPRF-UPDATE-TERMID DTSCU222 00185 MOVE L222-UPDATE-NETNAME TO EPRF-UPDATE-NETNAME DTSCU222 00186 MOVE L222-UPDATE-START-DATE TO EPRF-UPDATE-START-DATE DTSCU222 00187 MOVE L222-UPDATE-START-TIME TO EPRF-UPDATE-START-TIME DTSCU222 00188 MOVE L222-UPDATE-SCR-ID TO EPRF-UPDATE-SCR-ID DTSCU222 00189 MOVE L222-UPDATE-FUNCTION TO EPRF-UPDATE-FUNCTION. DTSCU222 00190 DTSCU222 00191 SET L835-REWRITE-UPDATE-88 TO TRUE. DTSCU222 00192 DTSCU222 00193 PERFORM S835-LINK-MSTR-IO THRU S835-EXIT. DTSCU222 00194 DTSCU222 00195 P1000-EXIT. DTSCU222 00196 EXIT. DTSCU222 00197 EJECT DTSCU222 00198 P2000-END-UPDATE. DTSCU222 00199 MOVE LENGTH OF R906-REC TO R906-LENGTH. DTSCU222 00200 DTSCU222 00201 MOVE L222-ELF-ID TO R906-EMP-NO. DTSCU222 00202 DTSCU222 00203 MOVE L222-UPDATE-TASK-ID TO R906-TASK-ID. DTSCU222 00204 DTSCU222 00205 MOVE L222-UPDATE-OP-ID TO R906-OP-ID. DTSCU222 00206 DTSCU222 00207 MOVE L222-UPDATE-TERMID TO R906-TERM-ID. DTSCU222 00208 DTSCU222 00209 MOVE L222-UPDATE-NETNAME TO R906-NETNAME. DTSCU222 00210 DTSCU222 00211 MOVE L222-UPDATE-START-DATE TO R906-TASK-START-DATE. DTSCU222 00212 DTSCU222 00213 MOVE L222-UPDATE-START-TIME TO R906-TASK-START-TIME. DTSCU222 00214 DTSCU222 00215 MOVE L222-UPDATE-SCR-ID TO R906-SCR-ID. DTSCU222 00216 DTSCU222 00217 MOVE L222-UPDATE-FUNCTION TO R906-FUNCTION. DTSCU222 00218 DTSCU222 00219 MOVE LOW-VALUES TO R906-PADDING-FOR-SYNCSORT. DTSCU222 00220 DTSCU222 00221 SET L825-WRITE-88 TO TRUE. DTSCU222 00222 DTSCU222 00223 PERFORM S825-LINK-OLA THRU S825-EXIT. DTSCU222 00224 DTSCU222 00225 DTSCU222 00226 SET L005-FROM-SYS TO TRUE. DTSCU222 00227 DTSCU222 00228 PERFORM S005-LINK-TIME THRU S005-EXIT. DTSCU222 00229 DTSCU222 00230 COMPUTE L222-UPDATE-END-ABSTIME = L005-ABSTIME + 1. DTSCU222 00231 DTSCU222 00232 DTSCU222 00233 PERFORM S835-LINK-MSTR-IO THRU S835-EXIT. DTSCU222 00234 DTSCU222 00235 IF L835-FILE-CLOSED-88 DTSCU222 00236 SET L222-FILE-CLOSED TO TRUE DTSCU222 00237 MOVE L835-MSG-AREA TO L222-MSG-AREA DTSCU222 00238 GO TO P2000-EXIT. DTSCU222 00239 DTSCU222 00240 IF L835-NO-REC-88 DTSCU222 00241 SET L222-NO-REC TO TRUE DTSCU222 00242 MOVE EMSG-NO-RECORD TO L222-MSG-ID DTSCU222 00243 GO TO P2000-EXIT. DTSCU222 00244 DTSCU222 00245 MOVE L005-ABSTIME TO EPRF-UPDATE-END-ABSTIME. DTSCU222 00246 DTSCU222 00247 SET L835-REWRITE-UPDATE-88 TO TRUE. DTSCU222 00248 DTSCU222 00249 PERFORM S835-LINK-MSTR-IO THRU S835-EXIT. DTSCU222 00250 DTSCU222 00251 IF L825-FILE-CLOSED-88 DTSCU222 00252 SET L222-FILE-CLOSED TO TRUE DTSCU222 00253 MOVE L825-MSG-AREA TO L222-MSG-AREA DTSCU222 00254 GO TO P2000-EXIT DTSCU222 00255 ELSE DTSCU222 00256 SET L222-OK TO TRUE. DTSCU222 00257 P2000-EXIT. DTSCU222 00258 EXIT. DTSCU222 00259 EJECT DTSCU222 00260 S005-LINK-TIME. DTSCU222 00261 DTSCU222 00262 EXEC CICS DTSCU222 00263 LINK DTSCU222 00264 PROGRAM('DTSCU005') DTSCU222 00265 COMMAREA(L005-COMM-AREA) DTSCU222 00266 END-EXEC. DTSCU222 00267 DTSCU222 00268 S005-EXIT. DTSCU222 00269 EXIT. DTSCU222 00270 EJECT DTSCU222 00271 S835-LINK-MSTR-IO. DTSCU222 00272 DTSCU222 00273 EXEC CICS DTSCU222 00274 LINK DTSCU222 00275 PROGRAM('DTSCU835') DTSCU222 00276 COMMAREA(L835-COMM-AREA) DTSCU222 00277 END-EXEC. DTSCU222 00278 DTSCU222 00279 S835-EXIT. DTSCU222 00280 EXIT. DTSCU222 00281 EJECT DTSCU222 00282 S825-LINK-OLA. DTSCU222 00283 DTSCU222 00284 EXEC CICS DTSCU222 00285 LINK DTSCU222 00286 PROGRAM('DTSCU825') DTSCU222 00287 COMMAREA(L825-COMM-AREA) DTSCU222 00288 END-EXEC. DTSCU222 00289 DTSCU222 00290 S825-EXIT. DTSCU222 00291 EXIT. DTSCU222 00292 EJECT DTSCU222 00293 S899-ABEND. DTSCU222 00294 DTSCU222 00295 EXEC CICS DTSCU222 00296 ABEND DTSCU222 00297 ABCODE (WRK-ABEND-CD) DTSCU222 00298 END-EXEC. DTSCU222 00299 DTSCU222 00300 S899-EXIT. DTSCU222 00301 EXIT. DTSCU222