2965 lines
232 KiB
COBOL
2965 lines
232 KiB
COBOL
00001 IDENTIFICATION DIVISION. 05/22/01
|
|
00002 PROGRAM-ID. DTSCSL5. DTSCSL5
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LV001
|
|
00004 DATE-WRITTEN. SEPTEMBER 1998. DTSCSL5
|
|
00005 DATE-COMPILED. DTSCSL5
|
|
00006 DTSCSL5
|
|
00007 DTSCSL5
|
|
00008 ***** DTSCSL5
|
|
00009 * DTSCSL5
|
|
00010 * FUNCTION: ELECTRONIC FILER INQUIRY/UPDATE DTSCSL5
|
|
00011 * SCREEN PROCESSOR. DTSCSL5
|
|
00012 * DTSCSL5
|
|
00013 * DTSCSL5
|
|
00014 * MODIFICATION LOG: DTSCSL5
|
|
00015 * DTSCSL5
|
|
00016 * 02/28/2001 INITIAL DEVELOPMENT. MODIFIED FROM DTSCS7A. DTSCSL5
|
|
00017 * REFERENCE RFP: PROGRAMMER: ZL1 DTSCSL5
|
|
00018 * DTSCSL5
|
|
00019 * XX/XX/XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCSL5
|
|
00020 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCSL5
|
|
00021 * RERFERENCE RFP: #**** PROGRAMMER: XXX DTSCSL5
|
|
00022 * DTSCSL5
|
|
00023 * DTSCSL5
|
|
00024 * DESCRIPTION: DTSCSL5
|
|
00025 * DTSCSL5
|
|
00026 * DTSCSL5
|
|
00027 * CLEAR: DTSCSL5
|
|
00028 * DTSCSL5
|
|
00029 * FIELD(S) DISPLAYED: MAP-ELF-ID. DTSCSL5
|
|
00030 * DTSCSL5
|
|
00031 * DTSCSL5
|
|
00032 * DTSCSL5
|
|
00033 * INQUIRY: DTSCSL5
|
|
00034 * DTSCSL5
|
|
00035 * CONTROL FIELD(S): MAP-ELF-ID. DTSCSL5
|
|
00036 * DTSCSL5
|
|
00037 * JUMP IN: DISPLAY DATA ASSOCIATED WITH LCCM-EMP-NO. DTSCSL5
|
|
00038 * DTSCSL5
|
|
00039 * ENTER: DISPLAY DATA ASSOCIATED WITH MAP-ELF-ID. DTSCSL5
|
|
00040 * DTSCSL5
|
|
00041 * STANDARD LCCM-EMP-NO MAINTENANCE. DTSCSL5
|
|
00042 * DTSCSL5
|
|
00043 * DTSCSL5
|
|
00044 * UPDATE: DTSCSL5
|
|
00045 * DTSCSL5
|
|
00046 * ADD: F9 DTSCSL5
|
|
00047 * MOD: F10 DTSCSL5
|
|
00048 * UNLK: F11 DTSCSL5
|
|
00049 * DELETE: F23 DTSCSL5
|
|
00050 * DTSCSL5
|
|
00051 * DTSCSL5
|
|
00052 * RECORDS READ: DTSCSL5
|
|
00053 * DTSCSL5
|
|
00054 * MASTER: DTSCSL5
|
|
00055 * DTSCSL5
|
|
00056 * MPRF. DTSCSL5
|
|
00057 * MELF. DTSCSL5
|
|
00058 * DTSCSL5
|
|
00059 * DTSCSL5
|
|
00060 * ALTERNATE INDEX: DTSCSL5
|
|
00061 * DTSCSL5
|
|
00062 * NONE. DTSCSL5
|
|
00063 * DTSCSL5
|
|
00064 * DTSCSL5
|
|
00065 * REFERENCE: DTSCSL5
|
|
00066 * DTSCSL5
|
|
00067 * NONE. DTSCSL5
|
|
00068 * DTSCSL5
|
|
00069 * DTSCSL5
|
|
00070 * ACCOUNTING TRANSACTION COLLECTION: DTSCSL5
|
|
00071 * DTSCSL5
|
|
00072 * NONE. DTSCSL5
|
|
00073 * DTSCSL5
|
|
00074 * DTSCSL5
|
|
00075 * RECORDS UPDATED: DTSCSL5
|
|
00076 * DTSCSL5
|
|
00077 * MASTER: DTSCSL5
|
|
00078 * DTSCSL5
|
|
00079 * EPRF (ADD, REWRITE, DELETE). DTSCSL5
|
|
00080 * DTSCSL5
|
|
00081 * DTSCSL5
|
|
00082 * REFERENCE: DTSCSL5
|
|
00083 * DTSCSL5
|
|
00084 * NONE. DTSCSL5
|
|
00085 * DTSCSL5
|
|
00086 * DTSCSL5
|
|
00087 * ACCOUNTING TRANSACTION COLLECTION: DTSCSL5
|
|
00088 * DTSCSL5
|
|
00089 * NONE. DTSCSL5
|
|
00090 * DTSCSL5
|
|
00091 * DTSCSL5
|
|
00092 * ON-LINE ACTIVITY FILE RECORDS WRITTEN: DTSCSL5
|
|
00093 * DTSCSL5
|
|
00094 * NONE. DTSCSL5
|
|
00095 * DTSCSL5
|
|
00096 * DTSCSL5
|
|
00097 * TEMPORARY STORAGE USAGE: DTSCSL5
|
|
00098 * DTSCSL5
|
|
00099 * NONE. DTSCSL5
|
|
00100 * DTSCSL5
|
|
00101 * DTSCSL5
|
|
00102 * MODULES LINKED TO: DTSCSL5
|
|
00103 * DTSCSL5
|
|
00104 * DTSCU001 DATE CONVERSION. DTSCSL5
|
|
00105 * DTSCU004 YRQ CONVERSION. DTSCSL5
|
|
00106 * DTSCU018 EMP NO FROM SCREEN FORMAT/EDIT. DTSCSL5
|
|
00107 * DTSCU021 TELEPHONE NUMBER FROM SCREEN FORMAT/EDIT. DTSCSL5
|
|
00108 * DTSCU072 ADDRESS EDIT. DTSCSL5
|
|
00109 * DTSCU073 TELEPHONE NUMBER EDIT. DTSCSL5
|
|
00110 * DTSCU221 MAINTENANCE OF PRF UPDATE FIELDS. DTSCSL5
|
|
00111 * DTSCU805 BUILD SCREEN MESSAGE LINE. DTSCSL5
|
|
00112 * DTSCU810 MASTER FILE I/O DRIVER. DTSCSL5
|
|
00113 * DTSCSL5
|
|
00114 * DTSCSL5
|
|
00115 * MAINTENANCE NOTES: DTSCSL5
|
|
00116 * DTSCSL5
|
|
00117 * A NON-KEY FIELD ADDED TO OR REMOVED FROM THE SCREEN DTSCSL5
|
|
00118 * REQUIRES ATTENTION IN THE FOLLOWING AREAS: DTSCSL5
|
|
00119 * ALTER PARAGRAPHS P6910/P6920, P8912, S5900 DTSCSL5
|
|
00120 * ALTER AS APPROPRIATE PARAGRAPHS LISTED IN S1002 DTSCSL5
|
|
00121 * ALTER THE SEND/RECEIVE AREA DEFINITION (MDTSS7A) DTSCSL5
|
|
00122 * ALTER THE MAP (DTSM7A) AND ASSEMBLE THE MAPSET (DTSMSET) DTSCSL5
|
|
00123 * DTSCSL5
|
|
00124 ***** DTSCSL5
|
|
00125 SKIP3 DTSCSL5
|
|
00126 ENVIRONMENT DIVISION. DTSCSL5
|
|
00127 SKIP3 DTSCSL5
|
|
00128 DATA DIVISION. DTSCSL5
|
|
00129 SKIP3 DTSCSL5
|
|
00130 WORKING-STORAGE SECTION. DTSCSL5
|
|
001305 77 PAN-VALET PICTURE X(24) VALUE '001DTSCSL5 05/22/01'. DTSCSL5
|
|
00131 SKIP3 DTSCSL5
|
|
00132 01 WRK-AREA. DTSCSL5
|
|
00133 05 WRK-ABEND-CD PIC X(04) VALUE 'SL5 '. DTSCSL5
|
|
00134 DTSCSL5
|
|
00135 05 WRK-SCR-ID. DTSCSL5
|
|
00136 10 WRK-SCR-ID-A PIC X(02) VALUE 'L5'. DTSCSL5
|
|
00137 DTSCSL5
|
|
00138 05 WRK-F03-SCR-ID PIC X(02) VALUE 'L0'. DTSCSL5
|
|
00139 DTSCSL5
|
|
00140 05 WRK-EHDR-ELF-ID PIC S9(07) COMP-3. DTSCSL5
|
|
00141 DTSCSL5
|
|
00142 05 WRK-YRQ PIC 9(05). DTSCSL5
|
|
00143 DTSCSL5
|
|
00144 05 WRK-MSG-AREA PIC X(62) VALUE SPACES. DTSCSL5
|
|
00145 DTSCSL5
|
|
00146 05 WRK-SCR-HOLD-AREA. DTSCSL5
|
|
00147 10 WRK-ELF-ID PIC 9(07). DTSCSL5
|
|
00148 10 WRK-ELF-ID-X REDEFINES WRK-ELF-ID DTSCSL5
|
|
00149 PIC X(07). DTSCSL5
|
|
00150 10 FILLER REDEFINES WRK-ELF-ID-X. DTSCSL5
|
|
00151 15 WRK-ELF-ID-0 PIC X(01). DTSCSL5
|
|
00152 15 WRK-ELF-ID-1 PIC X(03). DTSCSL5
|
|
00153 15 WRK-ELF-ID-2 PIC X(03). DTSCSL5
|
|
00154 05 WRK-DATA-TYPE-CD PIC X(02) VALUE SPACES. DTSCSL5
|
|
00155 05 WRK-HOLD-ADDRESS PIC X(171) VALUE SPACES. DTSCSL5
|
|
00156 DTSCSL5
|
|
00157 05 WRK-MTAD-IND PIC X(01). DTSCSL5
|
|
00158 88 WRK-MTAD-YES-88 VALUE 'Y'. DTSCSL5
|
|
00159 88 WRK-MTAD-NO-88 VALUE 'N'. DTSCSL5
|
|
00160 DTSCSL5
|
|
00161 05 WRK-MPRF-IND PIC X(01). DTSCSL5
|
|
00162 88 WRK-MPRF-YES-88 VALUE 'Y'. DTSCSL5
|
|
00163 88 WRK-MPRF-NO-88 VALUE 'N'. DTSCSL5
|
|
00164 DTSCSL5
|
|
00165 05 WRK-SCRL5-HOLD-AREA. DTSCSL5
|
|
00166 10 WRK-SCRL5-FUNCTION-KEY PIC X(03). DTSCSL5
|
|
00167 88 WRK-SCRL5-F11-88 VALUE 'F11'. DTSCSL5
|
|
00168 10 WRK-SCRL5-FILLER PIC X(21). DTSCSL5
|
|
00169 DTSCSL5
|
|
00170 05 WRK-DATA-CHANGE PIC X(01). DTSCSL5
|
|
00171 88 WRK-DATA-CHNG-YES-88 VALUE 'Y'. DTSCSL5
|
|
00172 88 WRK-DATA-CHNG-NO-88 VALUE 'N'. DTSCSL5
|
|
00173 DTSCSL5
|
|
00174 05 WRK-ELF-ADDRESS-INFO. DTSCSL5
|
|
00175 10 WRK-MAP-ADDR-IND PIC X(01). DTSCSL5
|
|
00176 88 WRK-MAP-ADDR-BLANK VALUE '0'. DTSCSL5
|
|
00177 88 WRK-MAP-ADDR-HAS-DATA VALUE '1'. DTSCSL5
|
|
00178 10 HOLD-ATTRB-AREA. DTSCSL5
|
|
00179 15 HOLD-ATTN-A PIC X(01). DTSCSL5
|
|
00180 15 HOLD-DLV1-A PIC X(01). DTSCSL5
|
|
00181 15 HOLD-DLV2-A PIC X(01). DTSCSL5
|
|
00182 15 HOLD-CITY-A PIC X(01). DTSCSL5
|
|
00183 15 HOLD-STAT-A PIC X(01). DTSCSL5
|
|
00184 15 HOLD-ZIPC-A PIC X(01). DTSCSL5
|
|
00185 DTSCSL5
|
|
00186 05 WRK-EPRF-PHONE-NUMBERS. DTSCSL5
|
|
00187 10 WRK-EPRF-PHONE. DTSCSL5
|
|
00188 15 WRK-EPRF-PHONE-A-CD PIC X(03). DTSCSL5
|
|
00189 15 WRK-EPRF-PHONE-PREF PIC X(03). DTSCSL5
|
|
00190 15 WRK-EPRF-PHONE-SUFF PIC X(04). DTSCSL5
|
|
00191 15 WRK-EPRF-PHONE-EXT PIC X(05). DTSCSL5
|
|
00192 EJECT DTSCSL5
|
|
00193 01 SCREEN-CONTROL. DTSCSL5
|
|
00194 05 SCR-ACCESS-IND PIC X(01). DTSCSL5
|
|
00195 88 SCR-ACCESS-INQ VALUE '1'. DTSCSL5
|
|
00196 88 SCR-ACCESS-UPDATE VALUE '2'. DTSCSL5
|
|
00197 DTSCSL5
|
|
00198 05 CURSOR-SET-IND PIC X(01). DTSCSL5
|
|
00199 88 CURSOR-SET-YES VALUE 'Y'. DTSCSL5
|
|
00200 88 CURSOR-SET-NO VALUE 'N'. DTSCSL5
|
|
00201 88 CURSOR-SET-GOTO VALUE 'G'. DTSCSL5
|
|
00202 DTSCSL5
|
|
00203 05 REQ-IND PIC X(01). DTSCSL5
|
|
00204 88 REQ-ERROR VALUE 'O'. DTSCSL5
|
|
00205 88 REQ-JUMP VALUE 'J'. DTSCSL5
|
|
00206 88 REQ-INQUIRE VALUE 'I'. DTSCSL5
|
|
00207 88 REQ-CLEAR VALUE 'C'. DTSCSL5
|
|
00208 88 REQ-EDIT VALUE 'E'. DTSCSL5
|
|
00209 88 REQ-UPDATE VALUE 'U'. DTSCSL5
|
|
00210 88 REQ-CURSOR-TO-GOTO VALUE 'G'. DTSCSL5
|
|
00211 DTSCSL5
|
|
00212 05 RESP-IND PIC X(01). DTSCSL5
|
|
00213 88 RESP-SEND-MSGONLY VALUE 'O'. DTSCSL5
|
|
00214 88 RESP-SEND-MAP VALUE 'M'. DTSCSL5
|
|
00215 88 RESP-JUMP VALUE 'J'. DTSCSL5
|
|
00216 88 RESP-CURSOR-TO-GOTO VALUE 'G'. DTSCSL5
|
|
00217 DTSCSL5
|
|
00218 05 SCR-ATB-AN PIC X(01). DTSCSL5
|
|
00219 DTSCSL5
|
|
00220 05 SCR-ATB-NUM PIC X(01). DTSCSL5
|
|
00221 EJECT DTSCSL5
|
|
00222 01 MSG-LITERALS. DTSCSL5
|
|
00223 05 MSG-EL51-AREA. DTSCSL5
|
|
00224 10 FILLER PIC X(04) VALUE 'EL51'. DTSCSL5
|
|
00225 10 FILLER PIC X(40) DTSCSL5
|
|
00226 VALUE 'ACCOUNT INACTIVE '. DTSCSL5
|
|
00227 10 FILLER PIC X(20) DTSCSL5
|
|
00228 VALUE ' '. DTSCSL5
|
|
00229 DTSCSL5
|
|
00230 05 MSG-EL52-AREA. DTSCSL5
|
|
00231 10 FILLER PIC X(04) VALUE 'EL52'. DTSCSL5
|
|
00232 10 FILLER PIC X(40) DTSCSL5
|
|
00233 VALUE 'ACCOUNT NEVER SUBJECT '. DTSCSL5
|
|
00234 DTSCSL5
|
|
00235 05 MSG-EL53-AREA. DTSCSL5
|
|
00236 10 FILLER PIC X(04) VALUE 'EL53'. DTSCSL5
|
|
00237 10 FILLER PIC X(40) DTSCSL5
|
|
00238 VALUE 'NAME MAY NOT BE ENTERED OR CHANGED '. DTSCSL5
|
|
00239 10 FILLER PIC X(20) DTSCSL5
|
|
00240 VALUE ' '. DTSCSL5
|
|
00241 DTSCSL5
|
|
00242 05 MSG-EL54-AREA. DTSCSL5
|
|
00243 10 FILLER PIC X(04) VALUE 'EL54'. DTSCSL5
|
|
00244 10 FILLER PIC X(40) DTSCSL5
|
|
00245 VALUE 'MEDIUM AND FORMAT INCOMPATIBLE '. DTSCSL5
|
|
00246 10 FILLER PIC X(20) DTSCSL5
|
|
00247 VALUE ' '. DTSCSL5
|
|
00248 DTSCSL5
|
|
00249 05 MSG-EL55-AREA. DTSCSL5
|
|
00250 10 FILLER PIC X(04) VALUE 'EL55'. DTSCSL5
|
|
00251 10 FILLER PIC X(40) DTSCSL5
|
|
00252 VALUE 'FIELD MUST BE BLANK - ELF ID IS A SYSTEM'. DTSCSL5
|
|
00253 10 FILLER PIC X(20) DTSCSL5
|
|
00254 VALUE ' GENERATED FIELD '. DTSCSL5
|
|
00255 DTSCSL5
|
|
00256 05 MSG-EL56-AREA. DTSCSL5
|
|
00257 10 FILLER PIC X(04) VALUE 'EL56'. DTSCSL5
|
|
00258 10 FILLER PIC X(40) DTSCSL5
|
|
00259 VALUE 'WAGE IS ONLY VALID DATA TYPE FOR EMPLOYE'. DTSCSL5
|
|
00260 10 FILLER PIC X(20) DTSCSL5
|
|
00261 VALUE 'R '. DTSCSL5
|
|
00262 DTSCSL5
|
|
00263 EJECT DTSCSL5
|
|
00264 01 L001-COMM-AREA. DTSCSL5
|
|
00265 ++INCLUDE DTSIL001 DTSCSL5
|
|
00266 EJECT DTSCSL5
|
|
00267 01 L004-COMM-AREA. DTSCSL5
|
|
00268 ++INCLUDE DTSIL004 DTSCSL5
|
|
00269 EJECT DTSCSL5
|
|
00270 01 L018-COMM-AREA. DTSCSL5
|
|
00271 ++INCLUDE DTSIL018 DTSCSL5
|
|
00272 EJECT DTSCSL5
|
|
00273 01 L021-COMM-AREA. DTSCSL5
|
|
00274 ++INCLUDE DTSIL021 DTSCSL5
|
|
00275 EJECT DTSCSL5
|
|
00276 01 L041-COMM-AREA. DTSCSL5
|
|
00277 ++INCLUDE DTSIL041 DTSCSL5
|
|
00278 EJECT DTSCSL5
|
|
00279 01 L072-COMM-AREA. DTSCSL5
|
|
00280 ++INCLUDE DTSIL072 DTSCSL5
|
|
00281 EJECT DTSCSL5
|
|
00282 01 L073-COMM-AREA. DTSCSL5
|
|
00283 ++INCLUDE DTSIL073 DTSCSL5
|
|
00284 EJECT DTSCSL5
|
|
00285 01 L200-CONSTANTS. DTSCSL5
|
|
00286 ++INCLUDE DTSIC200 DTSCSL5
|
|
00287 EJECT DTSCSL5
|
|
00288 01 L222-COMM-AREA. DTSCSL5
|
|
00289 ++INCLUDE DTSIL222 DTSCSL5
|
|
00290 EJECT DTSCSL5
|
|
00291 01 L357-COMM-AREA. DTSCSL5
|
|
00292 ++INCLUDE DTSIL357 DTSCSL5
|
|
00293 EJECT DTSCSL5
|
|
00294 01 L805-COMM-AREA. DTSCSL5
|
|
00295 ++INCLUDE DTSIL805 DTSCSL5
|
|
00296 EJECT DTSCSL5
|
|
00297 01 L810-COMM-AREA. DTSCSL5
|
|
00298 05 L810-CONTROL-BLOCK. DTSCSL5
|
|
00299 ++INCLUDE DTSIL810 DTSCSL5
|
|
00300 EJECT DTSCSL5
|
|
00301 05 MSKL-REC. DTSCSL5
|
|
00302 ++INCLUDE DTSIMSKL DTSCSL5
|
|
00303 EJECT DTSCSL5
|
|
00304 01 MPRF-REC. DTSCSL5
|
|
00305 ++INCLUDE DTSIMPRF DTSCSL5
|
|
00306 EJECT DTSCSL5
|
|
00307 01 MTAD-REC. DTSCSL5
|
|
00308 ++INCLUDE DTSIMTAD DTSCSL5
|
|
00309 EJECT DTSCSL5
|
|
00310 01 L821-COMM-AREA. DTSCSL5
|
|
00311 05 L821-CONTROL-BLOCK. DTSCSL5
|
|
00312 ++INCLUDE DTSIL821 DTSCSL5
|
|
00313 DTSCSL5
|
|
00314 05 ISKL-REC. DTSCSL5
|
|
00315 ++INCLUDE DTSIISKL DTSCSL5
|
|
00316 05 FILLER REDEFINES ISKL-REC. DTSCSL5
|
|
00317 ++INCLUDE DTSIIENM DTSCSL5
|
|
00318 05 FILLER REDEFINES ISKL-REC. DTSCSL5
|
|
00319 ++INCLUDE DTSIIEPR DTSCSL5
|
|
00320 EJECT DTSCSL5
|
|
00321 01 L835-COMM-AREA. DTSCSL5
|
|
00322 05 L835-CONTROL-BLOCK. DTSCSL5
|
|
00323 ++INCLUDE DTSIL835 DTSCSL5
|
|
00324 EJECT DTSCSL5
|
|
00325 05 ESKL-REC. DTSCSL5
|
|
00326 ++INCLUDE DTSIESKL DTSCSL5
|
|
00327 EJECT DTSCSL5
|
|
00328 01 EPRF-REC. DTSCSL5
|
|
00329 ++INCLUDE DTSIEPRF DTSCSL5
|
|
00330 EJECT DTSCSL5
|
|
00331 01 EHDR-REC. DTSCSL5
|
|
00332 ++INCLUDE DTSIEHDR DTSCSL5
|
|
00333 EJECT DTSCSL5
|
|
00334 DTSCSL5
|
|
00335 * MAP DEFINITION DTSCSL5
|
|
00336 01 L851-COMM-AREA. DTSCSL5
|
|
00337 ++INCLUDE DTSIL851 DTSCSL5
|
|
00338 SKIP3 DTSCSL5
|
|
00339 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSCSL5
|
|
00340 ++INCLUDE DTSISL5 DTSCSL5
|
|
00341 EJECT DTSCSL5
|
|
00342 01 CATB-LITERALS. DTSCSL5
|
|
00343 ++INCLUDE DTSICATB DTSCSL5
|
|
00344 SKIP3 DTSCSL5
|
|
00345 01 CFKD-LITERALS. DTSCSL5
|
|
00346 ++INCLUDE DTSICFKD DTSCSL5
|
|
00347 EJECT DTSCSL5
|
|
00348 01 CECD-LITERALS. DTSCSL5
|
|
00349 ++INCLUDE DTSICECD DTSCSL5
|
|
00350 SKIP3 DTSCSL5
|
|
00351 01 CPCD-LITERALS. DTSCSL5
|
|
00352 ++INCLUDE DTSICPCD DTSCSL5
|
|
00353 EJECT DTSCSL5
|
|
00354 LINKAGE SECTION. DTSCSL5
|
|
00355 SKIP3 DTSCSL5
|
|
00356 01 DFHCOMMAREA. DTSCSL5
|
|
00357 ++INCLUDE DTSILCCM DTSCSL5
|
|
00358 SKIP3 DTSCSL5
|
|
00359 15 FILLER REDEFINES LCCM-SCR-HOLD-AREA. DTSCSL5
|
|
00360 20 LCCM-ELF-ID PIC 9(6). DTSCSL5
|
|
00361 20 LCCM-DATA-TYPE-CD PIC X(2). DTSCSL5
|
|
00362 20 LCCM-HOLD-ADDRESS PIC X(171). DTSCSL5
|
|
00363 EJECT DTSCSL5
|
|
00364 ******************************************************************DTSCSL5
|
|
00365 * *DTSCSL5
|
|
00366 ******************************************************************DTSCSL5
|
|
00367 DTSCSL5
|
|
00368 PROCEDURE DIVISION. DTSCSL5
|
|
00369 SKIP2 DTSCSL5
|
|
00370 MOVE +0 TO WRK-ELF-ID. DTSCSL5
|
|
00371 DTSCSL5
|
|
00372 SET CURSOR-SET-NO TO TRUE. DTSCSL5
|
|
00373 DTSCSL5
|
|
00374 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5
|
|
00375 DTSCSL5
|
|
00376 SET SCR-ACCESS-INQ TO TRUE. DTSCSL5
|
|
00377 DTSCSL5
|
|
00378 SET WRK-MPRF-NO-88 TO TRUE. DTSCSL5
|
|
00379 SET WRK-MTAD-NO-88 TO TRUE. DTSCSL5
|
|
00380 DTSCSL5
|
|
00381 PERFORM P0100-ACCESS-SEARCH THRU P0100-EXIT DTSCSL5
|
|
00382 VARYING LCCM-NONUM-IDX FROM 1 BY 1 DTSCSL5
|
|
00383 UNTIL LCCM-NONUM-IDX > LCCM-SCR-NONUM-CNT. DTSCSL5
|
|
00384 DTSCSL5
|
|
00385 DTSCSL5
|
|
00386 MOVE SPACE TO REQ-IND DTSCSL5
|
|
00387 LCCM-REQ-SCR-ID. DTSCSL5
|
|
00388 DTSCSL5
|
|
00389 PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT. DTSCSL5
|
|
00390 DTSCSL5
|
|
00391 *----------------------------------------------------- DTSCSL5
|
|
00392 * P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE DTSCSL5
|
|
00393 * "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT DTSCSL5
|
|
00394 * REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE DTSCSL5
|
|
00395 * OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED. DTSCSL5
|
|
00396 * DTSCSL5
|
|
00397 * THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE DTSCSL5
|
|
00398 * PROCESSED. DTSCSL5
|
|
00399 * DTSCSL5
|
|
00400 * THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND, DTSCSL5
|
|
00401 * INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE DTSCSL5
|
|
00402 * WORK STATION OPERATOR. DTSCSL5
|
|
00403 *----------------------------------------------------- DTSCSL5
|
|
00404 DTSCSL5
|
|
00405 MOVE SPACE TO RESP-IND. DTSCSL5
|
|
00406 DTSCSL5
|
|
00407 IF REQ-ERROR DTSCSL5
|
|
00408 PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT DTSCSL5
|
|
00409 ELSE DTSCSL5
|
|
00410 IF REQ-JUMP DTSCSL5
|
|
00411 PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT DTSCSL5
|
|
00412 ELSE DTSCSL5
|
|
00413 IF REQ-CLEAR DTSCSL5
|
|
00414 PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT DTSCSL5
|
|
00415 ELSE DTSCSL5
|
|
00416 IF REQ-CURSOR-TO-GOTO DTSCSL5
|
|
00417 PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT DTSCSL5
|
|
00418 ELSE DTSCSL5
|
|
00419 IF REQ-INQUIRE DTSCSL5
|
|
00420 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCSL5
|
|
00421 ELSE DTSCSL5
|
|
00422 IF REQ-EDIT DTSCSL5
|
|
00423 PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT DTSCSL5
|
|
00424 ELSE DTSCSL5
|
|
00425 IF REQ-UPDATE DTSCSL5
|
|
00426 PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT DTSCSL5
|
|
00427 ELSE DTSCSL5
|
|
00428 GO TO S899-ABEND. DTSCSL5
|
|
00429 DTSCSL5
|
|
00430 DTSCSL5
|
|
00431 *----------------------------------------------------- DTSCSL5
|
|
00432 * THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED DTSCSL5
|
|
00433 * IN RESP-IND THE TYPE OF RESPONSE TO BE MADE. DTSCSL5
|
|
00434 *----------------------------------------------------- DTSCSL5
|
|
00435 DTSCSL5
|
|
00436 IF RESP-SEND-MAP DTSCSL5
|
|
00437 PERFORM S9300-SEND-MAP THRU S9300-EXIT DTSCSL5
|
|
00438 SET LCCM-END-TASK-88 TO TRUE DTSCSL5
|
|
00439 ELSE DTSCSL5
|
|
00440 IF RESP-SEND-MSGONLY DTSCSL5
|
|
00441 OR RESP-CURSOR-TO-GOTO DTSCSL5
|
|
00442 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCSL5
|
|
00443 SET LCCM-END-TASK-88 TO TRUE DTSCSL5
|
|
00444 ELSE DTSCSL5
|
|
00445 IF RESP-JUMP DTSCSL5
|
|
00446 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5
|
|
00447 ELSE DTSCSL5
|
|
00448 GO TO S899-ABEND. DTSCSL5
|
|
00449 DTSCSL5
|
|
00450 DTSCSL5
|
|
00451 MAINLINE-EXIT. DTSCSL5
|
|
00452 DTSCSL5
|
|
00453 EXEC CICS DTSCSL5
|
|
00454 RETURN DTSCSL5
|
|
00455 END-EXEC. DTSCSL5
|
|
00456 DTSCSL5
|
|
00457 DTSCSL5
|
|
00458 GOBACK. DTSCSL5
|
|
00459 EJECT DTSCSL5
|
|
00460 P0100-ACCESS-SEARCH. DTSCSL5
|
|
00461 IF LCCM-SCR-NONUM-ID (LCCM-NONUM-IDX) = WRK-SCR-ID DTSCSL5
|
|
00462 MOVE LCCM-SCR-NONUM-ACCESS-IND (LCCM-NONUM-IDX) DTSCSL5
|
|
00463 TO SCR-ACCESS-IND. DTSCSL5
|
|
00464 P0100-EXIT. DTSCSL5
|
|
00465 EXIT. DTSCSL5
|
|
00466 /*****************************************************************DTSCSL5
|
|
00467 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION *DTSCSL5
|
|
00468 ******************************************************************DTSCSL5
|
|
00469 DTSCSL5
|
|
00470 P1000-ANALYZE-REQUEST. DTSCSL5
|
|
00471 DTSCSL5
|
|
00472 *----------------------------------------------------- DTSCSL5
|
|
00473 * IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE) DTSCSL5
|
|
00474 * THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE DTSCSL5
|
|
00475 * REPLACED WITH ENTER) DTSCSL5
|
|
00476 *----------------------------------------------------- DTSCSL5
|
|
00477 DTSCSL5
|
|
00478 IF LCCM-SCR-ID NOT = WRK-SCR-ID DTSCSL5
|
|
00479 SET LCCM-ENTER-88 TO TRUE DTSCSL5
|
|
00480 SET REQ-INQUIRE TO TRUE DTSCSL5
|
|
00481 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA DTSCSL5
|
|
00482 IF LCCM-EMP-NO > ZERO DTSCSL5
|
|
00483 MOVE LCCM-EMP-NO-1 TO MAP-ELF-ID-1 DTSCSL5
|
|
00484 MOVE LCCM-EMP-NO-2 TO MAP-ELF-ID-2 DTSCSL5
|
|
00485 END-IF DTSCSL5
|
|
00486 GO TO P1000-EXIT. DTSCSL5
|
|
00487 DTSCSL5
|
|
00488 DTSCSL5
|
|
00489 *----------------------------------------------------- DTSCSL5
|
|
00490 * MAP IS RECEIVED DTSCSL5
|
|
00491 *----------------------------------------------------- DTSCSL5
|
|
00492 DTSCSL5
|
|
00493 PERFORM S9100-RECEIVE THRU S9100-EXIT. DTSCSL5
|
|
00494 DTSCSL5
|
|
00495 DTSCSL5
|
|
00496 *----------------------------------------------------- DTSCSL5
|
|
00497 * CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE DTSCSL5
|
|
00498 * WORK STATION DTSCSL5
|
|
00499 *----------------------------------------------------- DTSCSL5
|
|
00500 DTSCSL5
|
|
00501 IF LCCM-CLEAR-88 DTSCSL5
|
|
00502 SET REQ-CLEAR TO TRUE DTSCSL5
|
|
00503 GO TO P1000-EXIT. DTSCSL5
|
|
00504 DTSCSL5
|
|
00505 DTSCSL5
|
|
00506 *----------------------------------------------------- DTSCSL5
|
|
00507 * IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED DTSCSL5
|
|
00508 *----------------------------------------------------- DTSCSL5
|
|
00509 DTSCSL5
|
|
00510 IF LCCM-SCR-UPDATE-LOCKED DTSCSL5
|
|
00511 PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT DTSCSL5
|
|
00512 GO TO P1000-EXIT. DTSCSL5
|
|
00513 DTSCSL5
|
|
00514 DTSCSL5
|
|
00515 *----------------------------------------------------- DTSCSL5
|
|
00516 * PA2 IS A REQUEST TO POSITION CURSOR AT GO TO: DTSCSL5
|
|
00517 *----------------------------------------------------- DTSCSL5
|
|
00518 DTSCSL5
|
|
00519 IF LCCM-PA2-88 DTSCSL5
|
|
00520 SET REQ-CURSOR-TO-GOTO TO TRUE DTSCSL5
|
|
00521 GO TO P1000-EXIT. DTSCSL5
|
|
00522 DTSCSL5
|
|
00523 DTSCSL5
|
|
00524 *----------------------------------------------------- DTSCSL5
|
|
00525 * ALL OTHER PA KEYS ARE NOT ACTIVE DTSCSL5
|
|
00526 *----------------------------------------------------- DTSCSL5
|
|
00527 DTSCSL5
|
|
00528 IF LCCM-PA-88 DTSCSL5
|
|
00529 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCSL5
|
|
00530 SET REQ-ERROR TO TRUE DTSCSL5
|
|
00531 GO TO P1000-EXIT. DTSCSL5
|
|
00532 DTSCSL5
|
|
00533 DTSCSL5
|
|
00534 *----------------------------------------------------- DTSCSL5
|
|
00535 * F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A DTSCSL5
|
|
00536 * REQUEST TO CLEAR THE SCREEN DTSCSL5
|
|
00537 *----------------------------------------------------- DTSCSL5
|
|
00538 DTSCSL5
|
|
00539 IF LCCM-F12-88 DTSCSL5
|
|
00540 MOVE LOW-VALUES TO MAP-AREA DTSCSL5
|
|
00541 SET REQ-CLEAR TO TRUE DTSCSL5
|
|
00542 GO TO P1000-EXIT. DTSCSL5
|
|
00543 DTSCSL5
|
|
00544 DTSCSL5
|
|
00545 *----------------------------------------------------- DTSCSL5
|
|
00546 * IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION DTSCSL5
|
|
00547 *----------------------------------------------------- DTSCSL5
|
|
00548 DTSCSL5
|
|
00549 IF LCCM-F03-88 DTSCSL5
|
|
00550 MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID DTSCSL5
|
|
00551 SET REQ-JUMP TO TRUE DTSCSL5
|
|
00552 GO TO P1000-EXIT. DTSCSL5
|
|
00553 DTSCSL5
|
|
00554 DTSCSL5
|
|
00555 *----------------------------------------------------- DTSCSL5
|
|
00556 * IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN DTSCSL5
|
|
00557 *----------------------------------------------------- DTSCSL5
|
|
00558 DTSCSL5
|
|
00559 IF LCCM-F04-88 DTSCSL5
|
|
00560 MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID DTSCSL5
|
|
00561 SET REQ-JUMP TO TRUE DTSCSL5
|
|
00562 GO TO P1000-EXIT. DTSCSL5
|
|
00563 DTSCSL5
|
|
00564 DTSCSL5
|
|
00565 *---------------------------------------------------------- DTSCSL5
|
|
00566 * IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO DTSCSL5
|
|
00567 * CORRESPONDENCE SCREEN. DTSCSL5
|
|
00568 *---------------------------------------------------------- DTSCSL5
|
|
00569 DTSCSL5
|
|
00570 IF LCCM-F14-88 DTSCSL5
|
|
00571 MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID DTSCSL5
|
|
00572 SET REQ-JUMP TO TRUE DTSCSL5
|
|
00573 GO TO P1000-EXIT. DTSCSL5
|
|
00574 DTSCSL5
|
|
00575 DTSCSL5
|
|
00576 *----------------------------------------------------- DTSCSL5
|
|
00577 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCSL5
|
|
00578 * REQUESTED SCREEN TYPE DTSCSL5
|
|
00579 *----------------------------------------------------- DTSCSL5
|
|
00580 DTSCSL5
|
|
00581 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCSL5
|
|
00582 NEXT SENTENCE DTSCSL5
|
|
00583 ELSE DTSCSL5
|
|
00584 MOVE MAP-GOTO TO LCCM-REQ-SCR-ID DTSCSL5
|
|
00585 SET REQ-JUMP TO TRUE DTSCSL5
|
|
00586 GO TO P1000-EXIT. DTSCSL5
|
|
00587 DTSCSL5
|
|
00588 DTSCSL5
|
|
00589 *----------------------------------------------------- DTSCSL5
|
|
00590 * IF REQUEST TO UPDATE THE DATA (ADD, MOD, DEL) DTSCSL5
|
|
00591 * VERIFY USER ACCESS TO PERFORM UPDATE DTSCSL5
|
|
00592 *----------------------------------------------------- DTSCSL5
|
|
00593 DTSCSL5
|
|
00594 IF LCCM-F09-88 OR LCCM-F10-88 OR DTSCSL5
|
|
00595 LCCM-F11-88 OR LCCM-F23-88 DTSCSL5
|
|
00596 IF SCR-ACCESS-UPDATE DTSCSL5
|
|
00597 SET REQ-EDIT TO TRUE DTSCSL5
|
|
00598 GO TO P1000-EXIT DTSCSL5
|
|
00599 ELSE DTSCSL5
|
|
00600 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCSL5
|
|
00601 SET REQ-ERROR TO TRUE DTSCSL5
|
|
00602 GO TO P1000-EXIT. DTSCSL5
|
|
00603 DTSCSL5
|
|
00604 DTSCSL5
|
|
00605 *----------------------------------------------------- DTSCSL5
|
|
00606 * IF INQUIRY TYPE KEY PRESSED (ENTER, PAGE DOWN, DTSCSL5
|
|
00607 * PAGE UP), INDICATE INQUIRY REQUEST DTSCSL5
|
|
00608 *----------------------------------------------------- DTSCSL5
|
|
00609 DTSCSL5
|
|
00610 IF LCCM-ENTER-88 DTSCSL5
|
|
00611 SET REQ-INQUIRE TO TRUE DTSCSL5
|
|
00612 GO TO P1000-EXIT. DTSCSL5
|
|
00613 DTSCSL5
|
|
00614 DTSCSL5
|
|
00615 *----------------------------------------------------- DTSCSL5
|
|
00616 * ANY OTHER KEY IS INVALID DTSCSL5
|
|
00617 *----------------------------------------------------- DTSCSL5
|
|
00618 DTSCSL5
|
|
00619 PERFORM S804-INVALID-KEY THRU S804-EXIT. DTSCSL5
|
|
00620 DTSCSL5
|
|
00621 SET REQ-ERROR TO TRUE. DTSCSL5
|
|
00622 P1000-EXIT. DTSCSL5
|
|
00623 EXIT. DTSCSL5
|
|
00624 DTSCSL5
|
|
00625 DTSCSL5
|
|
00626 DTSCSL5
|
|
00627 ******************************************************************DTSCSL5
|
|
00628 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCSL5
|
|
00629 ******************************************************************DTSCSL5
|
|
00630 DTSCSL5
|
|
00631 P1100-UPDATE-LOCKED. DTSCSL5
|
|
00632 DTSCSL5
|
|
00633 *----------------------------------------------------- DTSCSL5
|
|
00634 * IF THE SCREEN IS "LOCKED FOR UPDATE", THEN DTSCSL5
|
|
00635 * THE ONLY VALID OPERATOR REQUESTS ARE ENTER DTSCSL5
|
|
00636 * (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE). DTSCSL5
|
|
00637 *----------------------------------------------------- DTSCSL5
|
|
00638 DTSCSL5
|
|
00639 IF LCCM-ENTER-88 OR LCCM-F12-88 DTSCSL5
|
|
00640 SET REQ-UPDATE TO TRUE DTSCSL5
|
|
00641 ELSE DTSCSL5
|
|
00642 SET REQ-ERROR TO TRUE DTSCSL5
|
|
00643 IF LCCM-SCR-ADD-LOCKED DTSCSL5
|
|
00644 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-AREA DTSCSL5
|
|
00645 ELSE DTSCSL5
|
|
00646 IF LCCM-SCR-MOD-LOCKED DTSCSL5
|
|
00647 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-AREA DTSCSL5
|
|
00648 ELSE DTSCSL5
|
|
00649 IF LCCM-SCR-DEL-LOCKED DTSCSL5
|
|
00650 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-AREA DTSCSL5
|
|
00651 ELSE DTSCSL5
|
|
00652 GO TO S899-ABEND. DTSCSL5
|
|
00653 P1100-EXIT. DTSCSL5
|
|
00654 EXIT. DTSCSL5
|
|
00655 /*****************************************************************DTSCSL5
|
|
00656 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCSL5
|
|
00657 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN. *DTSCSL5
|
|
00658 ******************************************************************DTSCSL5
|
|
00659 DTSCSL5
|
|
00660 P2000-REQUEST-ERROR. DTSCSL5
|
|
00661 IF LCCM-MSG DTSCSL5
|
|
00662 SET RESP-SEND-MSGONLY TO TRUE DTSCSL5
|
|
00663 ELSE DTSCSL5
|
|
00664 GO TO S899-ABEND. DTSCSL5
|
|
00665 P2000-EXIT. DTSCSL5
|
|
00666 EXIT. DTSCSL5
|
|
00667 /*****************************************************************DTSCSL5
|
|
00668 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED *DTSCSL5
|
|
00669 ******************************************************************DTSCSL5
|
|
00670 DTSCSL5
|
|
00671 P3000-REQUEST-JUMP. DTSCSL5
|
|
00672 DTSCSL5
|
|
00673 *----------------------------------------------------- DTSCSL5
|
|
00674 * VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE DTSCSL5
|
|
00675 * BY USER DTSCSL5
|
|
00676 *----------------------------------------------------- DTSCSL5
|
|
00677 DTSCSL5
|
|
00678 PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT. DTSCSL5
|
|
00679 DTSCSL5
|
|
00680 DTSCSL5
|
|
00681 *----------------------------------------------------- DTSCSL5
|
|
00682 * VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED DTSCSL5
|
|
00683 *----------------------------------------------------- DTSCSL5
|
|
00684 DTSCSL5
|
|
00685 IF LCCM-MSG DTSCSL5
|
|
00686 SET RESP-SEND-MSGONLY TO TRUE DTSCSL5
|
|
00687 SET CURSOR-SET-GOTO TO TRUE DTSCSL5
|
|
00688 GO TO P3000-EXIT. DTSCSL5
|
|
00689 DTSCSL5
|
|
00690 DTSCSL5
|
|
00691 MOVE MAP-ELF-ID-AREA TO L018-S-EMP-NO-AREA. DTSCSL5
|
|
00692 DTSCSL5
|
|
00693 PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT. DTSCSL5
|
|
00694 DTSCSL5
|
|
00695 IF L018-VALID DTSCSL5
|
|
00696 MOVE L018-EMP-NO TO LCCM-ELF-ID DTSCSL5
|
|
00697 LCCM-EMP-NO. DTSCSL5
|
|
00698 DTSCSL5
|
|
00699 *----------------------------------------------------- DTSCSL5
|
|
00700 * CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING DTSCSL5
|
|
00701 *----------------------------------------------------- DTSCSL5
|
|
00702 DTSCSL5
|
|
00703 MOVE LOW-VALUES TO LCCM-SCR-STATUS DTSCSL5
|
|
00704 LCCM-SCR-HOLD-AREA. DTSCSL5
|
|
00705 DTSCSL5
|
|
00706 MOVE +0 TO LCCM-SCR-ABSTIME. DTSCSL5
|
|
00707 DTSCSL5
|
|
00708 SET RESP-JUMP TO TRUE. DTSCSL5
|
|
00709 P3000-EXIT. DTSCSL5
|
|
00710 EXIT. DTSCSL5
|
|
00711 /*****************************************************************DTSCSL5
|
|
00712 * CLEAR KEY WAS PRESSED *DTSCSL5
|
|
00713 ******************************************************************DTSCSL5
|
|
00714 DTSCSL5
|
|
00715 P4000-REQUEST-CLEAR. DTSCSL5
|
|
00716 IF SCR-ACCESS-UPDATE DTSCSL5
|
|
00717 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCSL5
|
|
00718 ELSE DTSCSL5
|
|
00719 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCSL5
|
|
00720 DTSCSL5
|
|
00721 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5
|
|
00722 DTSCSL5
|
|
00723 DTSCSL5
|
|
00724 *----------------------------------------------------- DTSCSL5
|
|
00725 * CLEAN UP INDICATORS AND PAGING STORAGE. RESET KEY DTSCSL5
|
|
00726 * FIELDS FROM EARLIER REQUESTS DTSCSL5
|
|
00727 *----------------------------------------------------- DTSCSL5
|
|
00728 DTSCSL5
|
|
00729 IF LCCM-EMP-NO > ZERO DTSCSL5
|
|
00730 MOVE LCCM-EMP-NO-1 TO MAP-ELF-ID-1 DTSCSL5
|
|
00731 MOVE LCCM-EMP-NO-2 TO MAP-ELF-ID-2. DTSCSL5
|
|
00732 DTSCSL5
|
|
00733 MOVE ZERO TO LCCM-EMP-NO. DTSCSL5
|
|
00734 DTSCSL5
|
|
00735 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCSL5
|
|
00736 DTSCSL5
|
|
00737 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5
|
|
00738 DTSCSL5
|
|
00739 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5
|
|
00740 DTSCSL5
|
|
00741 SET RESP-SEND-MAP TO TRUE. DTSCSL5
|
|
00742 P4000-EXIT. DTSCSL5
|
|
00743 EXIT. DTSCSL5
|
|
00744 /*****************************************************************DTSCSL5
|
|
00745 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED *DTSCSL5
|
|
00746 ******************************************************************DTSCSL5
|
|
00747 DTSCSL5
|
|
00748 P5000-CURSOR-TO-GOTO. DTSCSL5
|
|
00749 SET CURSOR-SET-GOTO TO TRUE. DTSCSL5
|
|
00750 DTSCSL5
|
|
00751 SET RESP-CURSOR-TO-GOTO TO TRUE. DTSCSL5
|
|
00752 P5000-EXIT. DTSCSL5
|
|
00753 EXIT. DTSCSL5
|
|
00754 /*****************************************************************DTSCSL5
|
|
00755 * INQUIRY WAS REQUESTED *DTSCSL5
|
|
00756 ******************************************************************DTSCSL5
|
|
00757 DTSCSL5
|
|
00758 P6000-REQUEST-INQUIRE. DTSCSL5
|
|
00759 MOVE MAP-ELF-ID-AREA TO L018-S-EMP-NO-AREA. DTSCSL5
|
|
00760 MOVE MAP-DATA-TYPE-CD TO L041-CD-2. DTSCSL5
|
|
00761 DTSCSL5
|
|
00762 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5
|
|
00763 DTSCSL5
|
|
00764 MOVE L018-S-EMP-NO-AREA TO MAP-ELF-ID-AREA. DTSCSL5
|
|
00765 DTSCSL5
|
|
00766 MOVE L041-CD-2 TO MAP-DATA-TYPE-CD. DTSCSL5
|
|
00767 DTSCSL5
|
|
00768 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5
|
|
00769 DTSCSL5
|
|
00770 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5
|
|
00771 DTSCSL5
|
|
00772 SET RESP-SEND-MAP TO TRUE. DTSCSL5
|
|
00773 DTSCSL5
|
|
00774 IF SCR-ACCESS-UPDATE DTSCSL5
|
|
00775 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCSL5
|
|
00776 ELSE DTSCSL5
|
|
00777 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCSL5
|
|
00778 DTSCSL5
|
|
00779 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
00780 DTSCSL5
|
|
00781 IF ELF-ID-EXTERNAL-88 OR ELF-ID-BLANK-88 DTSCSL5
|
|
00782 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5
|
|
00783 DTSCSL5
|
|
00784 MOVE WRK-ELF-ID TO LCCM-ELF-ID. DTSCSL5
|
|
00785 DTSCSL5
|
|
00786 MOVE WRK-DATA-TYPE-CD TO LCCM-DATA-TYPE-CD. DTSCSL5
|
|
00787 DTSCSL5
|
|
00788 IF ELF-ID-EXTERNAL-88 DTSCSL5
|
|
00789 NEXT SENTENCE DTSCSL5
|
|
00790 ELSE DTSCSL5
|
|
00791 PERFORM S8100-READ-MPRF THRU S8100-EXIT DTSCSL5
|
|
00792 IF L810-NO-REC-88 DTSCSL5
|
|
00793 SET LCCM-SCR-CLEAR TO TRUE DTSCSL5
|
|
00794 MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA DTSCSL5
|
|
00795 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
00796 GO TO P6000-EXIT DTSCSL5
|
|
00797 ELSE DTSCSL5
|
|
00798 MOVE MPRF-PRIMARY-NAME TO MAP-ELF-NAME. DTSCSL5
|
|
00799 DTSCSL5
|
|
00800 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
00801 DTSCSL5
|
|
00802 IF L835-NO-REC-88 DTSCSL5
|
|
00803 SET LCCM-SCR-CLEAR TO TRUE DTSCSL5
|
|
00804 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
00805 GO TO P6000-EXIT. DTSCSL5
|
|
00806 DTSCSL5
|
|
00807 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT. DTSCSL5
|
|
00808 P6000-EXIT. DTSCSL5
|
|
00809 EXIT. DTSCSL5
|
|
00810 /*****************************************************************DTSCSL5
|
|
00811 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS *DTSCSL5
|
|
00812 ******************************************************************DTSCSL5
|
|
00813 DTSCSL5
|
|
00814 P6900-CONSTRUCT-SCREEN. DTSCSL5
|
|
00815 PERFORM P6910-FROM-EPRF THRU P6910-EXIT. DTSCSL5
|
|
00816 PERFORM P6920-DISP-CODES THRU P6920-EXIT. DTSCSL5
|
|
00817 DTSCSL5
|
|
00818 SET LCCM-SCR-INQUIRE TO TRUE. DTSCSL5
|
|
00819 DTSCSL5
|
|
00820 MOVE WRK-ELF-ID TO LCCM-ELF-ID. DTSCSL5
|
|
00821 MOVE WRK-DATA-TYPE-CD TO LCCM-DATA-TYPE-CD. DTSCSL5
|
|
00822 P6900-EXIT. DTSCSL5
|
|
00823 EXIT. DTSCSL5
|
|
00824 DTSCSL5
|
|
00825 ******************************************************************DTSCSL5
|
|
00826 * *DTSCSL5
|
|
00827 ******************************************************************DTSCSL5
|
|
00828 DTSCSL5
|
|
00829 P6910-FROM-EPRF. DTSCSL5
|
|
00830 MOVE EPRF-ELF-NAME TO MAP-ELF-NAME. DTSCSL5
|
|
00831 MOVE EPRF-DATA-TYPE-CD TO MAP-DATA-TYPE-CD DTSCSL5
|
|
00832 MOVE EPRF-MEDIUM-TYPE-CD TO MAP-MEDIUM-TYPE-CD DTSCSL5
|
|
00833 MOVE EPRF-FORMAT-CD TO MAP-FORMAT-TYPE-CD DTSCSL5
|
|
00834 DTSCSL5
|
|
00835 IF EPRF-JOB-NAME = SPACES DTSCSL5
|
|
00836 PERFORM P6911-GET-JOB-NAME THRU P6911-EXIT DTSCSL5
|
|
00837 ELSE DTSCSL5
|
|
00838 MOVE EPRF-JOB-NAME TO MAP-JOB-NAME. DTSCSL5
|
|
00839 DTSCSL5
|
|
00840 MOVE EPRF-FORMAT-NOTES TO MAP-FORMAT-NOTES DTSCSL5
|
|
00841 MOVE EPRF-BUSINESS-CONTACT-NAME TO DTSCSL5
|
|
00842 MAP-BUSN-CONTACT-NAME. DTSCSL5
|
|
00843 MOVE EPRF-BUSINESS-CONTACT-EMAIL TO DTSCSL5
|
|
00844 MAP-BUSN-CONTACT-EMAIL. DTSCSL5
|
|
00845 MOVE EPRF-BUSINESS-VOICE-AREA-CD TO DTSCSL5
|
|
00846 MAP-BUSN-VOICE-AREA-CD. DTSCSL5
|
|
00847 MOVE EPRF-BUSINESS-VOICE-PREFIX TO MAP-BUSN-VOICE-PREFIX DTSCSL5
|
|
00848 MOVE EPRF-BUSINESS-VOICE-SUFFIX TO MAP-BUSN-VOICE-SUFFIX DTSCSL5
|
|
00849 MOVE EPRF-BUSINESS-VOICE-EXT TO MAP-BUSN-VOICE-EXT. DTSCSL5
|
|
00850 MOVE EPRF-BUSINESS-FAX-AREA-CD TO MAP-BUSN-FAX-AREA-CD. DTSCSL5
|
|
00851 MOVE EPRF-BUSINESS-FAX-PREFIX TO MAP-BUSN-FAX-PREFIX. DTSCSL5
|
|
00852 MOVE EPRF-BUSINESS-FAX-SUFFIX TO MAP-BUSN-FAX-SUFFIX. DTSCSL5
|
|
00853 * MOVE EPRF-BUSINESS-FAX-EXT TO MAP-BUSN-FAX-EXT. DTSCSL5
|
|
00854 MOVE EPRF-TECH-CONTACT-NAME TO MAP-TECH-CONTACT-NAME. DTSCSL5
|
|
00855 MOVE EPRF-TECH-CONTACT-EMAIL TO MAP-TECH-CONTACT-EMAIL. DTSCSL5
|
|
00856 MOVE EPRF-TECH-VOICE-AREA-CD TO MAP-TECH-VOICE-AREA-CD. DTSCSL5
|
|
00857 MOVE EPRF-TECH-VOICE-PREFIX TO MAP-TECH-VOICE-PREFIX. DTSCSL5
|
|
00858 MOVE EPRF-TECH-VOICE-SUFFIX TO MAP-TECH-VOICE-SUFFIX. DTSCSL5
|
|
00859 MOVE EPRF-TECH-VOICE-EXT TO MAP-TECH-VOICE-EXT. DTSCSL5
|
|
00860 MOVE EPRF-TECH-FAX-AREA-CD TO MAP-TECH-FAX-AREA-CD. DTSCSL5
|
|
00861 MOVE EPRF-TECH-FAX-PREFIX TO MAP-TECH-FAX-PREFIX. DTSCSL5
|
|
00862 MOVE EPRF-TECH-FAX-SUFFIX TO MAP-TECH-FAX-SUFFIX. DTSCSL5
|
|
00863 * MOVE EPRF-TECH-FAX-EXT TO MAP-TECH-FAX-EXT. DTSCSL5
|
|
00864 MOVE EPRF-ATTN-LINE TO MAP-ATTN-LINE. DTSCSL5
|
|
00865 MOVE EPRF-DELIV-LINE-1 TO MAP-DELIV-LINE-1. DTSCSL5
|
|
00866 MOVE EPRF-DELIV-LINE-2 TO MAP-DELIV-LINE-2. DTSCSL5
|
|
00867 MOVE EPRF-CITY TO MAP-CITY. DTSCSL5
|
|
00868 MOVE EPRF-ST TO MAP-STATE. DTSCSL5
|
|
00869 MOVE EPRF-ZIP TO MAP-ZIP DTSCSL5
|
|
00870 DTSCSL5
|
|
00871 IF EPRF-ESTB-DATE > ZEROS DTSCSL5
|
|
00872 MOVE EPRF-ESTB-DATE TO L001-FED-8-DATE-9 DTSCSL5
|
|
00873 SET L001-FROM-FED-8 TO TRUE DTSCSL5
|
|
00874 PERFORM S001-DATE THRU S001-EXIT DTSCSL5
|
|
00875 MOVE L001-CAL-6-MO TO MAP-ESTB-MO DTSCSL5
|
|
00876 MOVE L001-CAL-6-DA TO MAP-ESTB-DA DTSCSL5
|
|
00877 MOVE L001-CAL-6-YR TO MAP-ESTB-YR. DTSCSL5
|
|
00878 DTSCSL5
|
|
00879 IF EPRF-CHNG-DATE > ZEROS DTSCSL5
|
|
00880 MOVE EPRF-CHNG-DATE TO L001-FED-8-DATE-9 DTSCSL5
|
|
00881 SET L001-FROM-FED-8 TO TRUE DTSCSL5
|
|
00882 PERFORM S001-DATE THRU S001-EXIT DTSCSL5
|
|
00883 MOVE L001-CAL-6-MO TO MAP-CHNG-MO DTSCSL5
|
|
00884 MOVE L001-CAL-6-DA TO MAP-CHNG-DA DTSCSL5
|
|
00885 MOVE L001-CAL-6-YR TO MAP-CHNG-YR. DTSCSL5
|
|
00886 DTSCSL5
|
|
00887 MOVE EPRF-CHNG-OPID TO MAP-CHNG-OPID. DTSCSL5
|
|
00888 P6910-EXIT. DTSCSL5
|
|
00889 EXIT. DTSCSL5
|
|
00890 DTSCSL5
|
|
00891 P6911-GET-JOB-NAME. DTSCSL5
|
|
00892 PERFORM DTSCSL5
|
|
00893 VARYING C200-JOB-IDX FROM +1 BY +1 DTSCSL5
|
|
00894 UNTIL C200-JOB-IDX > C200-JOB-TABLE-MAX DTSCSL5
|
|
00895 IF (C200-FORMAT (C200-JOB-IDX) DTSCSL5
|
|
00896 = EPRF-FORMAT-CD DTSCSL5
|
|
00897 AND C200-MEDIUM (C200-JOB-IDX) DTSCSL5
|
|
00898 = EPRF-MEDIUM-TYPE-CD) DTSCSL5
|
|
00899 MOVE C200-JOB (C200-JOB-IDX) DTSCSL5
|
|
00900 TO MAP-JOB-NAME DTSCSL5
|
|
00901 END-IF DTSCSL5
|
|
00902 END-PERFORM. DTSCSL5
|
|
00903 DTSCSL5
|
|
00904 P6911-EXIT. DTSCSL5
|
|
00905 EXIT. DTSCSL5
|
|
00906 DTSCSL5
|
|
00907 ******************************************************************DTSCSL5
|
|
00908 * *DTSCSL5
|
|
00909 ******************************************************************DTSCSL5
|
|
00910 DTSCSL5
|
|
00911 P6920-DISP-CODES. DTSCSL5
|
|
00912 MOVE EPRF-DATA-TYPE-CD TO L041-CD-2. DTSCSL5
|
|
00913 SET L041-EPRF-DATA-TYPE-CD TO TRUE. DTSCSL5
|
|
00914 PERFORM S041-DISP-CODES THRU S041-EXIT. DTSCSL5
|
|
00915 DTSCSL5
|
|
00916 IF L041-VALID DTSCSL5
|
|
00917 MOVE L041-LONG-DSCR TO MAP-DATA-TYPE-NAME. DTSCSL5
|
|
00918 DTSCSL5
|
|
00919 MOVE EPRF-MEDIUM-TYPE-CD TO L041-CD-2. DTSCSL5
|
|
00920 SET L041-EPRF-MEDIUM-TYPE-CD TO TRUE. DTSCSL5
|
|
00921 PERFORM S041-DISP-CODES THRU S041-EXIT. DTSCSL5
|
|
00922 DTSCSL5
|
|
00923 IF L041-VALID DTSCSL5
|
|
00924 MOVE L041-SHORT-DSCR TO MAP-MEDIUM-TYPE-NAME. DTSCSL5
|
|
00925 DTSCSL5
|
|
00926 MOVE EPRF-FORMAT-CD TO L041-CD-3. DTSCSL5
|
|
00927 SET L041-EPRF-FORMAT-CD TO TRUE. DTSCSL5
|
|
00928 PERFORM S041-DISP-CODES THRU S041-EXIT. DTSCSL5
|
|
00929 DTSCSL5
|
|
00930 IF L041-VALID DTSCSL5
|
|
00931 MOVE L041-SHORT-DSCR TO MAP-FORMAT-TYPE-NAME. DTSCSL5
|
|
00932 DTSCSL5
|
|
00933 P6920-EXIT. DTSCSL5
|
|
00934 EXIT. DTSCSL5
|
|
00935 /*****************************************************************DTSCSL5
|
|
00936 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED. *DTSCSL5
|
|
00937 ******************************************************************DTSCSL5
|
|
00938 DTSCSL5
|
|
00939 P7000-REQUEST-EDIT. DTSCSL5
|
|
00940 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5
|
|
00941 DTSCSL5
|
|
00942 IF LCCM-F09-88 DTSCSL5
|
|
00943 PERFORM P7100-EDIT-ADD THRU P7100-EXIT DTSCSL5
|
|
00944 ELSE DTSCSL5
|
|
00945 IF LCCM-F10-88 OR LCCM-F11-88 DTSCSL5
|
|
00946 PERFORM P7200-EDIT-MOD THRU P7200-EXIT DTSCSL5
|
|
00947 ELSE DTSCSL5
|
|
00948 IF LCCM-F23-88 DTSCSL5
|
|
00949 PERFORM P7300-EDIT-DEL THRU P7300-EXIT DTSCSL5
|
|
00950 ELSE DTSCSL5
|
|
00951 GO TO S899-ABEND. DTSCSL5
|
|
00952 DTSCSL5
|
|
00953 DTSCSL5
|
|
00954 *------------------------------------------------------ DTSCSL5
|
|
00955 * SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED. DTSCSL5
|
|
00956 * IN ORDER TO CONTINUE TO ATTEMPT AN ADD THE SCREEN MUST REMAIN DTSCSL5
|
|
00957 * IN A 'CLEAR' STATE. THE SCREEN MUST BE IN 'INQUIRE' STATUS DTSCSL5
|
|
00958 * IF MOD OR DEL FUNCTIONS ARE BEING REQUESTED. DTSCSL5
|
|
00959 *------------------------------------------------------ DTSCSL5
|
|
00960 DTSCSL5
|
|
00961 IF LCCM-MSG DTSCSL5
|
|
00962 NEXT SENTENCE DTSCSL5
|
|
00963 ELSE DTSCSL5
|
|
00964 PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT DTSCSL5
|
|
00965 IF LCCM-F09-88 DTSCSL5
|
|
00966 SET LCCM-SCR-ADD-LOCKED TO TRUE DTSCSL5
|
|
00967 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-AREA DTSCSL5
|
|
00968 ELSE DTSCSL5
|
|
00969 IF LCCM-F10-88 OR LCCM-F11-88 DTSCSL5
|
|
00970 SET LCCM-SCR-MOD-LOCKED TO TRUE DTSCSL5
|
|
00971 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-AREA DTSCSL5
|
|
00972 ELSE DTSCSL5
|
|
00973 IF LCCM-F23-88 DTSCSL5
|
|
00974 SET LCCM-SCR-DEL-LOCKED TO TRUE DTSCSL5
|
|
00975 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-AREA. DTSCSL5
|
|
00976 DTSCSL5
|
|
00977 SET RESP-SEND-MAP TO TRUE. DTSCSL5
|
|
00978 P7000-EXIT. DTSCSL5
|
|
00979 EXIT. DTSCSL5
|
|
00980 /*****************************************************************DTSCSL5
|
|
00981 * ADD FUNCTION WAS REQUESTED *DTSCSL5
|
|
00982 ******************************************************************DTSCSL5
|
|
00983 DTSCSL5
|
|
00984 P7100-EDIT-ADD. DTSCSL5
|
|
00985 DTSCSL5
|
|
00986 *----------------------------------------------------- DTSCSL5
|
|
00987 * ADD REQUIRES THAT THE SCREEN WAS IN THE CLEAR STATE DTSCSL5
|
|
00988 *----------------------------------------------------- DTSCSL5
|
|
00989 DTSCSL5
|
|
00990 IF NOT LCCM-SCR-CLEAR DTSCSL5
|
|
00991 MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-AREA DTSCSL5
|
|
00992 GO TO P7100-EXIT. DTSCSL5
|
|
00993 DTSCSL5
|
|
00994 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
00995 DTSCSL5
|
|
00996 IF LCCM-MSG DTSCSL5
|
|
00997 GO TO P7100-EXIT. DTSCSL5
|
|
00998 DTSCSL5
|
|
00999 IF L018-NO-ENTRY DTSCSL5
|
|
01000 OR ELF-ID-EXTERNAL-88 DTSCSL5
|
|
01001 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT DTSCSL5
|
|
01002 GO TO P7100-EXIT. DTSCSL5
|
|
01003 DTSCSL5
|
|
01004 MOVE WRK-ELF-ID TO LCCM-ELF-ID. DTSCSL5
|
|
01005 MOVE WRK-DATA-TYPE-CD TO LCCM-DATA-TYPE-CD DTSCSL5
|
|
01006 DTSCSL5
|
|
01007 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01008 DTSCSL5
|
|
01009 IF L835-OK-88 DTSCSL5
|
|
01010 MOVE EMSG-RECORD-EXISTS TO WRK-MSG-AREA DTSCSL5
|
|
01011 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01012 GO TO P7100-EXIT DTSCSL5
|
|
01013 ELSE DTSCSL5
|
|
01014 IF L835-NO-REC-88 DTSCSL5
|
|
01015 NEXT SENTENCE DTSCSL5
|
|
01016 ELSE DTSCSL5
|
|
01017 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01018 GO TO P7100-EXIT. DTSCSL5
|
|
01019 DTSCSL5
|
|
01020 IF ELF-ID-EXTERNAL-88 DTSCSL5
|
|
01021 PERFORM P7110-BROWSE-ELF-ID THRU P7110-EXIT DTSCSL5
|
|
01022 IF L835-NO-REC-88 DTSCSL5
|
|
01023 MOVE MSG-EL55-AREA TO WRK-MSG-AREA DTSCSL5
|
|
01024 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01025 GO TO P7100-EXIT DTSCSL5
|
|
01026 ELSE DTSCSL5
|
|
01027 GO TO P7100-EXIT. DTSCSL5
|
|
01028 DTSCSL5
|
|
01029 PERFORM S8100-READ-MPRF THRU S8100-EXIT. DTSCSL5
|
|
01030 DTSCSL5
|
|
01031 IF L810-NO-REC-88 DTSCSL5
|
|
01032 MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA DTSCSL5
|
|
01033 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01034 GO TO P7100-EXIT DTSCSL5
|
|
01035 ELSE DTSCSL5
|
|
01036 SET WRK-MPRF-YES-88 TO TRUE DTSCSL5
|
|
01037 MOVE MSKL-REC TO MPRF-REC DTSCSL5
|
|
01038 MOVE MPRF-PRIMARY-NAME TO MAP-ELF-NAME. DTSCSL5
|
|
01039 DTSCSL5
|
|
01040 IF MPRF-STATUS-INACT-88 DTSCSL5
|
|
01041 MOVE MSG-EL51-AREA TO WRK-MSG-AREA DTSCSL5
|
|
01042 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01043 GO TO P7100-EXIT DTSCSL5
|
|
01044 ELSE DTSCSL5
|
|
01045 IF MPRF-STATUS-NEVERSUB-88 DTSCSL5
|
|
01046 MOVE MSG-EL52-AREA TO WRK-MSG-AREA DTSCSL5
|
|
01047 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01048 GO TO P7100-EXIT. DTSCSL5
|
|
01049 DTSCSL5
|
|
01050 SET WRK-MPRF-YES-88 TO TRUE. DTSCSL5
|
|
01051 DTSCSL5
|
|
01052 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT. DTSCSL5
|
|
01053 DTSCSL5
|
|
01054 P7100-EXIT. DTSCSL5
|
|
01055 EXIT. DTSCSL5
|
|
01056 DTSCSL5
|
|
01057 P7110-BROWSE-ELF-ID. DTSCSL5
|
|
01058 MOVE LOW-VALUES TO EPRF-KEY-AREA. DTSCSL5
|
|
01059 MOVE WRK-ELF-ID TO EPRF-ELF-ID. DTSCSL5
|
|
01060 MOVE ZERO TO EPRF-DATA-TYPE-CD. DTSCSL5
|
|
01061 SET EPRF-PRF-88 TO TRUE. DTSCSL5
|
|
01062 MOVE EPRF-KEY-AREA TO ESKL-KEY-AREA. DTSCSL5
|
|
01063 PERFORM S835-START-BROWSE THRU S835-EXIT. DTSCSL5
|
|
01064 DTSCSL5
|
|
01065 P7110-EXIT. DTSCSL5
|
|
01066 EXIT. DTSCSL5
|
|
01067 DTSCSL5
|
|
01068 /*****************************************************************DTSCSL5
|
|
01069 * MODIFICATION FUNCTION WAS REQUESTED *DTSCSL5
|
|
01070 ******************************************************************DTSCSL5
|
|
01071 DTSCSL5
|
|
01072 P7200-EDIT-MOD. DTSCSL5
|
|
01073 DTSCSL5
|
|
01074 *----------------------------------------------------- DTSCSL5
|
|
01075 * MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCSL5
|
|
01076 * INQUIRED DTSCSL5
|
|
01077 *----------------------------------------------------- DTSCSL5
|
|
01078 DTSCSL5
|
|
01079 IF NOT LCCM-SCR-INQUIRE DTSCSL5
|
|
01080 MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-AREA DTSCSL5
|
|
01081 GO TO P7200-EXIT. DTSCSL5
|
|
01082 DTSCSL5
|
|
01083 MOVE LCCM-SCR-HOLD-AREA TO WRK-SCR-HOLD-AREA. DTSCSL5
|
|
01084 DTSCSL5
|
|
01085 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
01086 DTSCSL5
|
|
01087 IF LCCM-MSG DTSCSL5
|
|
01088 GO TO P7200-EXIT. DTSCSL5
|
|
01089 DTSCSL5
|
|
01090 IF LCCM-ELF-ID NOT = WRK-ELF-ID OR DTSCSL5
|
|
01091 LCCM-DATA-TYPE-CD NOT = WRK-DATA-TYPE-CD DTSCSL5
|
|
01092 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCSL5
|
|
01093 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01094 GO TO P7200-EXIT. DTSCSL5
|
|
01095 DTSCSL5
|
|
01096 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01097 DTSCSL5
|
|
01098 IF LCCM-MSG DTSCSL5
|
|
01099 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01100 GO TO P7200-EXIT. DTSCSL5
|
|
01101 DTSCSL5
|
|
01102 MOVE ESKL-REC TO EPRF-REC. DTSCSL5
|
|
01103 IF LCCM-F11-88 DTSCSL5
|
|
01104 MOVE 'F11' TO LCCM-SCRL5-HOLD-AREA DTSCSL5
|
|
01105 GO TO P7200-EXIT. DTSCSL5
|
|
01106 DTSCSL5
|
|
01107 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT. DTSCSL5
|
|
01108 DTSCSL5
|
|
01109 P7200-EXIT. DTSCSL5
|
|
01110 EXIT. DTSCSL5
|
|
01111 /*****************************************************************DTSCSL5
|
|
01112 * DELETE FUNCTION WAS REQUESTED *DTSCSL5
|
|
01113 ******************************************************************DTSCSL5
|
|
01114 DTSCSL5
|
|
01115 P7300-EDIT-DEL. DTSCSL5
|
|
01116 DTSCSL5
|
|
01117 *----------------------------------------------------- DTSCSL5
|
|
01118 * DELETE REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCSL5
|
|
01119 * INQUIRED DTSCSL5
|
|
01120 *----------------------------------------------------- DTSCSL5
|
|
01121 DTSCSL5
|
|
01122 IF NOT LCCM-SCR-INQUIRE DTSCSL5
|
|
01123 MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-AREA DTSCSL5
|
|
01124 GO TO P7300-EXIT. DTSCSL5
|
|
01125 DTSCSL5
|
|
01126 DTSCSL5
|
|
01127 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
01128 DTSCSL5
|
|
01129 IF LCCM-MSG DTSCSL5
|
|
01130 GO TO P7300-EXIT. DTSCSL5
|
|
01131 DTSCSL5
|
|
01132 IF LCCM-ELF-ID NOT = WRK-ELF-ID DTSCSL5
|
|
01133 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCSL5
|
|
01134 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01135 GO TO P7300-EXIT. DTSCSL5
|
|
01136 DTSCSL5
|
|
01137 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01138 DTSCSL5
|
|
01139 IF LCCM-MSG DTSCSL5
|
|
01140 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01141 GO TO P7300-EXIT. DTSCSL5
|
|
01142 DTSCSL5
|
|
01143 MOVE ESKL-REC TO EPRF-REC. DTSCSL5
|
|
01144 DTSCSL5
|
|
01145 P7300-EXIT. DTSCSL5
|
|
01146 EXIT. DTSCSL5
|
|
01147 /*****************************************************************DTSCSL5
|
|
01148 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED *DTSCSL5
|
|
01149 ******************************************************************DTSCSL5
|
|
01150 DTSCSL5
|
|
01151 P8000-REQUEST-UPDATE. DTSCSL5
|
|
01152 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5
|
|
01153 DTSCSL5
|
|
01154 IF LCCM-SCR-ADD-LOCKED DTSCSL5
|
|
01155 PERFORM P8100-ADD THRU P8100-EXIT DTSCSL5
|
|
01156 ELSE DTSCSL5
|
|
01157 IF LCCM-SCR-MOD-LOCKED DTSCSL5
|
|
01158 PERFORM P8200-MOD THRU P8200-EXIT DTSCSL5
|
|
01159 ELSE DTSCSL5
|
|
01160 IF LCCM-SCR-DEL-LOCKED DTSCSL5
|
|
01161 PERFORM P8300-DEL THRU P8300-EXIT DTSCSL5
|
|
01162 ELSE DTSCSL5
|
|
01163 GO TO S899-ABEND. DTSCSL5
|
|
01164 DTSCSL5
|
|
01165 SET RESP-SEND-MAP TO TRUE. DTSCSL5
|
|
01166 P8000-EXIT. DTSCSL5
|
|
01167 EXIT. DTSCSL5
|
|
01168 /*****************************************************************DTSCSL5
|
|
01169 * *DTSCSL5
|
|
01170 ******************************************************************DTSCSL5
|
|
01171 DTSCSL5
|
|
01172 P8100-ADD. DTSCSL5
|
|
01173 DTSCSL5
|
|
01174 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
01175 DTSCSL5
|
|
01176 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5
|
|
01177 DTSCSL5
|
|
01178 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5
|
|
01179 DTSCSL5
|
|
01180 IF LCCM-F12-88 DTSCSL5
|
|
01181 MOVE PMSG-ADD-CANCELED TO LCCM-MSG-AREA DTSCSL5
|
|
01182 GO TO P8100-EXIT. DTSCSL5
|
|
01183 DTSCSL5
|
|
01184 IF NOT MAP-DATA-TYPE-VALID-88 DTSCSL5
|
|
01185 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
01186 GO TO P8100-EXIT. DTSCSL5
|
|
01187 DTSCSL5
|
|
01188 IF L018-NO-ENTRY DTSCSL5
|
|
01189 MOVE SPACES TO WRK-MSG-AREA DTSCSL5
|
|
01190 PERFORM P8920-GEN-ELF-ID THRU P8920-EXIT. DTSCSL5
|
|
01191 DTSCSL5
|
|
01192 PERFORM P8911-EPRF-INITIALIZE THRU P8911-EXIT. DTSCSL5
|
|
01193 DTSCSL5
|
|
01194 MOVE EPRF-REC TO ESKL-REC. DTSCSL5
|
|
01195 DTSCSL5
|
|
01196 PERFORM S835-WRITE THRU S835-EXIT. DTSCSL5
|
|
01197 DTSCSL5
|
|
01198 PERFORM P8800-LOCK-EMPLOYER THRU P8800-EXIT. DTSCSL5
|
|
01199 DTSCSL5
|
|
01200 MOVE 'A' TO L222-UPDATE-FUNCTION. DTSCSL5
|
|
01201 DTSCSL5
|
|
01202 IF LCCM-MSG DTSCSL5
|
|
01203 GO TO P8100-EXIT. DTSCSL5
|
|
01204 DTSCSL5
|
|
01205 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01206 DTSCSL5
|
|
01207 IF LCCM-MSG DTSCSL5
|
|
01208 GO TO S899-ABEND. DTSCSL5
|
|
01209 DTSCSL5
|
|
01210 PERFORM P8912-UPDATE THRU P8912-EXIT. DTSCSL5
|
|
01211 DTSCSL5
|
|
01212 MOVE EPRF-REC TO ESKL-REC. DTSCSL5
|
|
01213 PERFORM S835-REWRITE THRU S835-EXIT. DTSCSL5
|
|
01214 DTSCSL5
|
|
01215 PERFORM S222-EMP-UNLOCK THRU S222-EXIT. DTSCSL5
|
|
01216 DTSCSL5
|
|
01217 IF LCCM-MSG DTSCSL5
|
|
01218 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01219 GO TO P8100-EXIT. DTSCSL5
|
|
01220 DTSCSL5
|
|
01221 MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5
|
|
01222 DTSCSL5
|
|
01223 MOVE L222-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5
|
|
01224 DTSCSL5
|
|
01225 MOVE LOW-VALUES TO MAP-CASS-IND DTSCSL5
|
|
01226 MAP-CASS-CD. DTSCSL5
|
|
01227 P8100-EXIT. DTSCSL5
|
|
01228 EXIT. DTSCSL5
|
|
01229 /*****************************************************************DTSCSL5
|
|
01230 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCSL5
|
|
01231 ******************************************************************DTSCSL5
|
|
01232 DTSCSL5
|
|
01233 P8200-MOD. DTSCSL5
|
|
01234 SET LCCM-SCR-INQUIRE TO TRUE. DTSCSL5
|
|
01235 DTSCSL5
|
|
01236 MOVE LCCM-SCRL5-HOLD-AREA TO WRK-SCRL5-HOLD-AREA. DTSCSL5
|
|
01237 DTSCSL5
|
|
01238 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5
|
|
01239 DTSCSL5
|
|
01240 IF LCCM-F12-88 DTSCSL5
|
|
01241 MOVE PMSG-MOD-CANCELED TO LCCM-MSG-AREA DTSCSL5
|
|
01242 GO TO P8200-EXIT. DTSCSL5
|
|
01243 DTSCSL5
|
|
01244 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
01245 DTSCSL5
|
|
01246 IF WRK-SCRL5-F11-88 DTSCSL5
|
|
01247 PERFORM P8913-RESET THRU P8913-EXIT DTSCSL5
|
|
01248 GO TO P8200-EXIT. DTSCSL5
|
|
01249 DTSCSL5
|
|
01250 MOVE 'M' TO L222-UPDATE-FUNCTION. DTSCSL5
|
|
01251 PERFORM P8800-LOCK-EMPLOYER THRU P8800-EXIT. DTSCSL5
|
|
01252 DTSCSL5
|
|
01253 IF LCCM-MSG DTSCSL5
|
|
01254 GO TO P8200-EXIT. DTSCSL5
|
|
01255 DTSCSL5
|
|
01256 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01257 DTSCSL5
|
|
01258 IF LCCM-MSG DTSCSL5
|
|
01259 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01260 GO TO P8200-EXIT. DTSCSL5
|
|
01261 DTSCSL5
|
|
01262 PERFORM P8912-UPDATE THRU P8912-EXIT. DTSCSL5
|
|
01263 DTSCSL5
|
|
01264 MOVE EPRF-REC TO ESKL-REC. DTSCSL5
|
|
01265 DTSCSL5
|
|
01266 PERFORM S835-REWRITE THRU S835-EXIT. DTSCSL5
|
|
01267 DTSCSL5
|
|
01268 PERFORM S222-EMP-UNLOCK THRU S222-EXIT. DTSCSL5
|
|
01269 DTSCSL5
|
|
01270 IF LCCM-MSG DTSCSL5
|
|
01271 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01272 GO TO P8200-EXIT. DTSCSL5
|
|
01273 DTSCSL5
|
|
01274 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5
|
|
01275 DTSCSL5
|
|
01276 MOVE L222-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5
|
|
01277 * MOVE L222-SCR-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5
|
|
01278 DTSCSL5
|
|
01279 MOVE LOW-VALUES TO MAP-CASS-IND DTSCSL5
|
|
01280 MAP-CASS-CD. DTSCSL5
|
|
01281 P8200-EXIT. DTSCSL5
|
|
01282 EXIT. DTSCSL5
|
|
01283 /*****************************************************************DTSCSL5
|
|
01284 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCSL5
|
|
01285 ******************************************************************DTSCSL5
|
|
01286 DTSCSL5
|
|
01287 P8300-DEL. DTSCSL5
|
|
01288 SET LCCM-SCR-INQUIRE TO TRUE. DTSCSL5
|
|
01289 DTSCSL5
|
|
01290 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5
|
|
01291 DTSCSL5
|
|
01292 IF LCCM-F12-88 DTSCSL5
|
|
01293 MOVE PMSG-DEL-CANCELED TO LCCM-MSG-AREA DTSCSL5
|
|
01294 GO TO P8300-EXIT. DTSCSL5
|
|
01295 DTSCSL5
|
|
01296 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5
|
|
01297 DTSCSL5
|
|
01298 MOVE 'D' TO L222-UPDATE-FUNCTION. DTSCSL5
|
|
01299 DTSCSL5
|
|
01300 IF LCCM-MSG DTSCSL5
|
|
01301 GO TO P8300-EXIT. DTSCSL5
|
|
01302 DTSCSL5
|
|
01303 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01304 DTSCSL5
|
|
01305 IF L835-OK-88 DTSCSL5
|
|
01306 NEXT SENTENCE DTSCSL5
|
|
01307 ELSE DTSCSL5
|
|
01308 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCSL5
|
|
01309 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01310 GO TO P8300-EXIT. DTSCSL5
|
|
01311 DTSCSL5
|
|
01312 DTSCSL5
|
|
01313 PERFORM S835-DELETE THRU S835-EXIT. DTSCSL5
|
|
01314 DTSCSL5
|
|
01315 IF L835-OK-88 DTSCSL5
|
|
01316 NEXT SENTENCE DTSCSL5
|
|
01317 ELSE DTSCSL5
|
|
01318 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCSL5
|
|
01319 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01320 GO TO P8300-EXIT. DTSCSL5
|
|
01321 DTSCSL5
|
|
01322 IF LCCM-MSG DTSCSL5
|
|
01323 GO TO P8300-EXIT. DTSCSL5
|
|
01324 DTSCSL5
|
|
01325 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5
|
|
01326 DTSCSL5
|
|
01327 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5
|
|
01328 DTSCSL5
|
|
01329 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCSL5
|
|
01330 DTSCSL5
|
|
01331 MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5
|
|
01332 DTSCSL5
|
|
01333 P8300-EXIT. DTSCSL5
|
|
01334 EXIT. DTSCSL5
|
|
01335 /*****************************************************************DTSCSL5
|
|
01336 * *DTSCSL5
|
|
01337 ******************************************************************DTSCSL5
|
|
01338 DTSCSL5
|
|
01339 P8800-LOCK-EMPLOYER. DTSCSL5
|
|
01340 MOVE WRK-ELF-ID TO L222-ELF-ID. DTSCSL5
|
|
01341 DTSCSL5
|
|
01342 MOVE WRK-DATA-TYPE-CD TO L222-DATA-TYPE-CD. DTSCSL5
|
|
01343 DTSCSL5
|
|
01344 MOVE LCCM-SCR-ABSTIME TO L222-SCR-ABSTIME. DTSCSL5
|
|
01345 DTSCSL5
|
|
01346 MOVE LCCM-TASK-ID TO L222-UPDATE-TASK-ID. DTSCSL5
|
|
01347 DTSCSL5
|
|
01348 MOVE LCCM-OP-ID TO L222-UPDATE-OP-ID. DTSCSL5
|
|
01349 DTSCSL5
|
|
01350 MOVE LCCM-CICS-TERM-ID TO L222-UPDATE-TERMID. DTSCSL5
|
|
01351 DTSCSL5
|
|
01352 MOVE LCCM-TASK-NETNAME TO L222-UPDATE-NETNAME. DTSCSL5
|
|
01353 DTSCSL5
|
|
01354 MOVE LCCM-TASK-START-DATE TO L222-UPDATE-START-DATE. DTSCSL5
|
|
01355 DTSCSL5
|
|
01356 MOVE LCCM-TASK-START-TIME TO L222-UPDATE-START-TIME. DTSCSL5
|
|
01357 DTSCSL5
|
|
01358 MOVE WRK-SCR-ID TO L222-UPDATE-SCR-ID. DTSCSL5
|
|
01359 DTSCSL5
|
|
01360 DTSCSL5
|
|
01361 PERFORM S222-EMP-LOCK THRU S222-EXIT. DTSCSL5
|
|
01362 P8800-EXIT. DTSCSL5
|
|
01363 EXIT. DTSCSL5
|
|
01364 EJECT DTSCSL5
|
|
01365 P8911-EPRF-INITIALIZE. DTSCSL5
|
|
01366 MOVE LOW-VALUES TO EPRF-REC. DTSCSL5
|
|
01367 DTSCSL5
|
|
01368 MOVE ZERO TO EPRF-UPDATE-END-ABSTIME DTSCSL5
|
|
01369 EPRF-UPDATE-TASK-ID DTSCSL5
|
|
01370 EPRF-UPDATE-START-DATE DTSCSL5
|
|
01371 EPRF-UPDATE-START-TIME DTSCSL5
|
|
01372 EPRF-ESTB-DATE DTSCSL5
|
|
01373 EPRF-CHNG-DATE. DTSCSL5
|
|
01374 DTSCSL5
|
|
01375 MOVE SPACES TO EPRF-ELF-NAME DTSCSL5
|
|
01376 EPRF-FORMAT-CD DTSCSL5
|
|
01377 EPRF-MEDIUM-TYPE-CD DTSCSL5
|
|
01378 EPRF-JOB-NAME DTSCSL5
|
|
01379 EPRF-FORMAT-NOTES DTSCSL5
|
|
01380 EPRF-BUSINESS-CONTACT-NAME DTSCSL5
|
|
01381 EPRF-BUSINESS-CONTACT-FAX DTSCSL5
|
|
01382 EPRF-BUSINESS-CONTACT-PHONE DTSCSL5
|
|
01383 EPRF-BUSINESS-CONTACT-EMAIL DTSCSL5
|
|
01384 EPRF-TECH-CONTACT-NAME DTSCSL5
|
|
01385 EPRF-TECH-CONTACT-EMAIL DTSCSL5
|
|
01386 EPRF-TECH-CONTACT-PHONE DTSCSL5
|
|
01387 EPRF-TECH-CONTACT-FAX DTSCSL5
|
|
01388 EPRF-ADDRESS DTSCSL5
|
|
01389 EPRF-UPDATE-OP-ID DTSCSL5
|
|
01390 EPRF-UPDATE-TERMID DTSCSL5
|
|
01391 EPRF-UPDATE-NETNAME DTSCSL5
|
|
01392 EPRF-UPDATE-SCR-ID DTSCSL5
|
|
01393 EPRF-UPDATE-FUNCTION DTSCSL5
|
|
01394 EPRF-CHNG-OPID. DTSCSL5
|
|
01395 DTSCSL5
|
|
01396 SET EPRF-NOT-CONVERTED-88 TO TRUE. DTSCSL5
|
|
01397 DTSCSL5
|
|
01398 MOVE LCCM-CURR-RUN-DATE TO EPRF-ESTB-DATE DTSCSL5
|
|
01399 EPRF-CHNG-DATE. DTSCSL5
|
|
01400 DTSCSL5
|
|
01401 SET EPRF-PRF-88 TO TRUE. DTSCSL5
|
|
01402 DTSCSL5
|
|
01403 MOVE WRK-ELF-ID TO EPRF-ELF-ID. DTSCSL5
|
|
01404 MOVE WRK-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD. DTSCSL5
|
|
01405 DTSCSL5
|
|
01406 P8911-EXIT. DTSCSL5
|
|
01407 EXIT. DTSCSL5
|
|
01408 DTSCSL5
|
|
01409 DTSCSL5
|
|
01410 P8912-UPDATE. DTSCSL5
|
|
01411 SET WRK-DATA-CHNG-NO-88 TO TRUE. DTSCSL5
|
|
01412 DTSCSL5
|
|
01413 DTSCSL5
|
|
01414 IF MAP-ELF-NAME NOT = EPRF-ELF-NAME DTSCSL5
|
|
01415 MOVE MAP-ELF-NAME TO EPRF-ELF-NAME DTSCSL5
|
|
01416 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01417 DTSCSL5
|
|
01418 IF MAP-MEDIUM-TYPE-CD NOT = EPRF-MEDIUM-TYPE-CD DTSCSL5
|
|
01419 MOVE MAP-MEDIUM-TYPE-CD TO EPRF-MEDIUM-TYPE-CD DTSCSL5
|
|
01420 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01421 DTSCSL5
|
|
01422 IF MAP-FORMAT-TYPE-CD NOT = EPRF-FORMAT-CD DTSCSL5
|
|
01423 MOVE MAP-FORMAT-TYPE-CD TO EPRF-FORMAT-CD DTSCSL5
|
|
01424 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01425 DTSCSL5
|
|
01426 IF MAP-JOB-NAME NOT = EPRF-JOB-NAME DTSCSL5
|
|
01427 MOVE MAP-JOB-NAME TO EPRF-JOB-NAME DTSCSL5
|
|
01428 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01429 DTSCSL5
|
|
01430 IF MAP-FORMAT-NOTES NOT = EPRF-FORMAT-NOTES DTSCSL5
|
|
01431 MOVE MAP-FORMAT-NOTES TO EPRF-FORMAT-NOTES DTSCSL5
|
|
01432 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01433 DTSCSL5
|
|
01434 IF MAP-BUSN-CONTACT-NAME NOT = DTSCSL5
|
|
01435 EPRF-BUSINESS-CONTACT-NAME DTSCSL5
|
|
01436 MOVE MAP-BUSN-CONTACT-NAME TO DTSCSL5
|
|
01437 EPRF-BUSINESS-CONTACT-NAME DTSCSL5
|
|
01438 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01439 DTSCSL5
|
|
01440 IF MAP-BUSN-CONTACT-EMAIL NOT = DTSCSL5
|
|
01441 EPRF-BUSINESS-CONTACT-EMAIL DTSCSL5
|
|
01442 MOVE MAP-BUSN-CONTACT-EMAIL TO DTSCSL5
|
|
01443 EPRF-BUSINESS-CONTACT-EMAIL DTSCSL5
|
|
01444 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01445 DTSCSL5
|
|
01446 IF MAP-TECH-CONTACT-NAME NOT = EPRF-TECH-CONTACT-NAME DTSCSL5
|
|
01447 MOVE MAP-TECH-CONTACT-NAME TO EPRF-TECH-CONTACT-NAME DTSCSL5
|
|
01448 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01449 DTSCSL5
|
|
01450 IF MAP-TECH-CONTACT-EMAIL NOT = EPRF-TECH-CONTACT-EMAIL DTSCSL5
|
|
01451 MOVE MAP-TECH-CONTACT-EMAIL TO EPRF-TECH-CONTACT-EMAIL DTSCSL5
|
|
01452 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01453 DTSCSL5
|
|
01454 DTSCSL5
|
|
01455 PERFORM P8912A-UPDATE-PHONES THRU P8912A-EXIT. DTSCSL5
|
|
01456 DTSCSL5
|
|
01457 MOVE LCCM-HOLD-ADDRESS TO L072-ADDRESS. DTSCSL5
|
|
01458 DTSCSL5
|
|
01459 DTSCSL5
|
|
01460 IF L072-ATTN-LINE NOT = EPRF-ATTN-LINE DTSCSL5
|
|
01461 MOVE L072-ATTN-LINE TO EPRF-ATTN-LINE DTSCSL5
|
|
01462 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01463 DTSCSL5
|
|
01464 DTSCSL5
|
|
01465 IF L072-DELIV-LINE-1 NOT = EPRF-DELIV-LINE-1 DTSCSL5
|
|
01466 MOVE L072-DELIV-LINE-1 TO EPRF-DELIV-LINE-1 DTSCSL5
|
|
01467 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01468 DTSCSL5
|
|
01469 DTSCSL5
|
|
01470 IF L072-DELIV-LINE-2 NOT = EPRF-DELIV-LINE-2 DTSCSL5
|
|
01471 MOVE L072-DELIV-LINE-2 TO EPRF-DELIV-LINE-2 DTSCSL5
|
|
01472 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01473 DTSCSL5
|
|
01474 DTSCSL5
|
|
01475 IF L072-CITY NOT = EPRF-CITY DTSCSL5
|
|
01476 MOVE L072-CITY TO EPRF-CITY DTSCSL5
|
|
01477 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01478 DTSCSL5
|
|
01479 DTSCSL5
|
|
01480 IF L072-ST NOT = EPRF-ST DTSCSL5
|
|
01481 MOVE L072-ST TO EPRF-ST DTSCSL5
|
|
01482 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01483 DTSCSL5
|
|
01484 DTSCSL5
|
|
01485 IF L072-ZIP NOT = EPRF-ZIP DTSCSL5
|
|
01486 MOVE L072-ZIP TO EPRF-ZIP DTSCSL5
|
|
01487 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01488 DTSCSL5
|
|
01489 DTSCSL5
|
|
01490 IF L072-ADVANCED-BARCODE NOT = EPRF-ADVANCED-BARCODE DTSCSL5
|
|
01491 MOVE L072-ADVANCED-BARCODE TO EPRF-ADVANCED-BARCODE DTSCSL5
|
|
01492 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01493 DTSCSL5
|
|
01494 DTSCSL5
|
|
01495 IF WRK-DATA-CHNG-YES-88 DTSCSL5
|
|
01496 MOVE LCCM-CURR-RUN-DATE TO EPRF-CHNG-DATE DTSCSL5
|
|
01497 MOVE LCCM-OP-ID TO EPRF-CHNG-OPID. DTSCSL5
|
|
01498 DTSCSL5
|
|
01499 PERFORM P6920-DISP-CODES THRU P6920-EXIT. DTSCSL5
|
|
01500 P8912-EXIT. DTSCSL5
|
|
01501 EXIT. DTSCSL5
|
|
01502 DTSCSL5
|
|
01503 DTSCSL5
|
|
01504 P8912A-UPDATE-PHONES. DTSCSL5
|
|
01505 DTSCSL5
|
|
01506 MOVE EPRF-BUSINESS-CONTACT-PHONE TO WRK-EPRF-PHONE. DTSCSL5
|
|
01507 DTSCSL5
|
|
01508 MOVE MAP-BUSN-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
01509 DTSCSL5
|
|
01510 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
01511 DTSCSL5
|
|
01512 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5
|
|
01513 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5
|
|
01514 MOVE WRK-EPRF-PHONE TO EPRF-BUSINESS-CONTACT-PHONE DTSCSL5
|
|
01515 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01516 DTSCSL5
|
|
01517 MOVE EPRF-BUSINESS-CONTACT-FAX TO WRK-EPRF-PHONE. DTSCSL5
|
|
01518 DTSCSL5
|
|
01519 MOVE MAP-BUSN-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
01520 DTSCSL5
|
|
01521 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
01522 DTSCSL5
|
|
01523 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5
|
|
01524 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5
|
|
01525 MOVE WRK-EPRF-PHONE TO EPRF-BUSINESS-CONTACT-FAX DTSCSL5
|
|
01526 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01527 DTSCSL5
|
|
01528 DTSCSL5
|
|
01529 MOVE EPRF-TECH-CONTACT-PHONE TO WRK-EPRF-PHONE. DTSCSL5
|
|
01530 DTSCSL5
|
|
01531 MOVE MAP-TECH-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
01532 DTSCSL5
|
|
01533 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
01534 DTSCSL5
|
|
01535 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5
|
|
01536 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5
|
|
01537 MOVE WRK-EPRF-PHONE TO EPRF-TECH-CONTACT-PHONE DTSCSL5
|
|
01538 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01539 DTSCSL5
|
|
01540 DTSCSL5
|
|
01541 MOVE EPRF-TECH-CONTACT-FAX TO WRK-EPRF-PHONE. DTSCSL5
|
|
01542 DTSCSL5
|
|
01543 MOVE MAP-TECH-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
01544 DTSCSL5
|
|
01545 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
01546 DTSCSL5
|
|
01547 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5
|
|
01548 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5
|
|
01549 MOVE WRK-EPRF-PHONE TO EPRF-TECH-CONTACT-FAX DTSCSL5
|
|
01550 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5
|
|
01551 DTSCSL5
|
|
01552 P8912A-EXIT. DTSCSL5
|
|
01553 EXIT. DTSCSL5
|
|
01554 DTSCSL5
|
|
01555 P8913-RESET. DTSCSL5
|
|
01556 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5
|
|
01557 DTSCSL5
|
|
01558 IF LCCM-MSG DTSCSL5
|
|
01559 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01560 GO TO P8913-EXIT. DTSCSL5
|
|
01561 DTSCSL5
|
|
01562 SET EPRF-UPDATED-NEVER-88 TO TRUE. DTSCSL5
|
|
01563 DTSCSL5
|
|
01564 MOVE LCCM-TASK-ID TO EPRF-UPDATE-TASK-ID. DTSCSL5
|
|
01565 DTSCSL5
|
|
01566 MOVE LCCM-OP-ID TO EPRF-UPDATE-OP-ID. DTSCSL5
|
|
01567 DTSCSL5
|
|
01568 MOVE LCCM-CICS-TERM-ID TO EPRF-UPDATE-TERMID. DTSCSL5
|
|
01569 DTSCSL5
|
|
01570 MOVE LCCM-TASK-NETNAME TO EPRF-UPDATE-NETNAME. DTSCSL5
|
|
01571 DTSCSL5
|
|
01572 MOVE LCCM-TASK-START-DATE TO EPRF-UPDATE-START-DATE. DTSCSL5
|
|
01573 DTSCSL5
|
|
01574 MOVE LCCM-TASK-START-TIME TO EPRF-UPDATE-START-TIME. DTSCSL5
|
|
01575 DTSCSL5
|
|
01576 MOVE WRK-SCR-ID TO EPRF-UPDATE-SCR-ID. DTSCSL5
|
|
01577 DTSCSL5
|
|
01578 MOVE SPACE TO LCCM-SCRL5-HOLD-AREA. DTSCSL5
|
|
01579 DTSCSL5
|
|
01580 MOVE EPRF-REC TO ESKL-REC. DTSCSL5
|
|
01581 DTSCSL5
|
|
01582 PERFORM S835-REWRITE THRU S835-EXIT. DTSCSL5
|
|
01583 IF LCCM-MSG DTSCSL5
|
|
01584 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01585 GO TO P8913-EXIT. DTSCSL5
|
|
01586 DTSCSL5
|
|
01587 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5
|
|
01588 DTSCSL5
|
|
01589 P8913-EXIT. DTSCSL5
|
|
01590 EXIT. DTSCSL5
|
|
01591 DTSCSL5
|
|
01592 P8920-GEN-ELF-ID. DTSCSL5
|
|
01593 DTSCSL5
|
|
01594 MOVE LOW-VALUES TO EHDR-KEY-AREA. DTSCSL5
|
|
01595 SET EHDR-ELF-ID-HDR-88 TO TRUE. DTSCSL5
|
|
01596 SET EHDR-ELF-DATA-TYPE-HDR-88 TO TRUE. DTSCSL5
|
|
01597 SET EHDR-HDR-88 TO TRUE. DTSCSL5
|
|
01598 MOVE EHDR-KEY-AREA TO ESKL-KEY-AREA. DTSCSL5
|
|
01599 DTSCSL5
|
|
01600 PERFORM S835-READ-UPDATE THRU S835-EXIT. DTSCSL5
|
|
01601 IF L835-NO-REC-88 DTSCSL5
|
|
01602 GO TO S899-ABEND. DTSCSL5
|
|
01603 DTSCSL5
|
|
01604 MOVE ESKL-REC TO EHDR-REC. DTSCSL5
|
|
01605 DTSCSL5
|
|
01606 MOVE EHDR-LAST-USED-ELF-ID TO WRK-EHDR-ELF-ID. DTSCSL5
|
|
01607 ADD +1 TO WRK-EHDR-ELF-ID. DTSCSL5
|
|
01608 DTSCSL5
|
|
01609 MOVE WRK-EHDR-ELF-ID TO WRK-ELF-ID DTSCSL5
|
|
01610 EHDR-LAST-USED-ELF-ID. DTSCSL5
|
|
01611 MOVE EHDR-REC TO ESKL-REC. DTSCSL5
|
|
01612 PERFORM S835-REWRITE-UPDATE THRU S835-EXIT. DTSCSL5
|
|
01613 MOVE WRK-ELF-ID-1 TO MAP-ELF-ID-1. DTSCSL5
|
|
01614 MOVE WRK-ELF-ID-2 TO MAP-ELF-ID-2. DTSCSL5
|
|
01615 P8920-EXIT. DTSCSL5
|
|
01616 EXIT. DTSCSL5
|
|
01617 DTSCSL5
|
|
01618 /*****************************************************************DTSCSL5
|
|
01619 * LINKS TO UTILITY MODULES DTSCSL5
|
|
01620 ******************************************************************DTSCSL5
|
|
01621 DTSCSL5
|
|
01622 S001-DATE. DTSCSL5
|
|
01623 EXEC CICS LINK DTSCSL5
|
|
01624 PROGRAM ('DTSCU001') DTSCSL5
|
|
01625 COMMAREA (L001-COMM-AREA) DTSCSL5
|
|
01626 END-EXEC. DTSCSL5
|
|
01627 S001-EXIT. DTSCSL5
|
|
01628 EXIT. DTSCSL5
|
|
01629 DTSCSL5
|
|
01630 DTSCSL5
|
|
01631 DTSCSL5
|
|
01632 S004-FIND-QUARTER. DTSCSL5
|
|
01633 EXEC CICS LINK DTSCSL5
|
|
01634 PROGRAM ('DTSCU004') DTSCSL5
|
|
01635 COMMAREA (L004-COMM-AREA) DTSCSL5
|
|
01636 END-EXEC. DTSCSL5
|
|
01637 S004-EXIT. DTSCSL5
|
|
01638 EXIT. DTSCSL5
|
|
01639 DTSCSL5
|
|
01640 DTSCSL5
|
|
01641 DTSCSL5
|
|
01642 S018-EMP-NO-FROM-SCREEN. DTSCSL5
|
|
01643 EXEC CICS LINK DTSCSL5
|
|
01644 PROGRAM ('DTSCU018') DTSCSL5
|
|
01645 COMMAREA (L018-COMM-AREA) DTSCSL5
|
|
01646 END-EXEC. DTSCSL5
|
|
01647 S018-EXIT. DTSCSL5
|
|
01648 EXIT. DTSCSL5
|
|
01649 DTSCSL5
|
|
01650 DTSCSL5
|
|
01651 DTSCSL5
|
|
01652 S021-TELNO-FROM-SCREEN. DTSCSL5
|
|
01653 EXEC CICS LINK DTSCSL5
|
|
01654 PROGRAM ('DTSCU021') DTSCSL5
|
|
01655 COMMAREA (L021-COMM-AREA) DTSCSL5
|
|
01656 END-EXEC. DTSCSL5
|
|
01657 S021-EXIT. DTSCSL5
|
|
01658 EXIT. DTSCSL5
|
|
01659 DTSCSL5
|
|
01660 DTSCSL5
|
|
01661 S041-DISP-CODES. DTSCSL5
|
|
01662 EXEC CICS LINK DTSCSL5
|
|
01663 PROGRAM ('DTSCU041') DTSCSL5
|
|
01664 COMMAREA (L041-COMM-AREA) DTSCSL5
|
|
01665 END-EXEC. DTSCSL5
|
|
01666 S041-EXIT. DTSCSL5
|
|
01667 EXIT. DTSCSL5
|
|
01668 DTSCSL5
|
|
01669 DTSCSL5
|
|
01670 DTSCSL5
|
|
01671 DTSCSL5
|
|
01672 S072-ADDRESS-EDIT. DTSCSL5
|
|
01673 EXEC CICS LINK DTSCSL5
|
|
01674 PROGRAM ('DTSCU072') DTSCSL5
|
|
01675 COMMAREA (L072-COMM-AREA) DTSCSL5
|
|
01676 END-EXEC. DTSCSL5
|
|
01677 S072-EXIT. DTSCSL5
|
|
01678 EXIT. DTSCSL5
|
|
01679 DTSCSL5
|
|
01680 DTSCSL5
|
|
01681 DTSCSL5
|
|
01682 S073-TELNO-EDIT. DTSCSL5
|
|
01683 EXEC CICS LINK DTSCSL5
|
|
01684 PROGRAM ('DTSCU073') DTSCSL5
|
|
01685 COMMAREA (L073-COMM-AREA) DTSCSL5
|
|
01686 END-EXEC. DTSCSL5
|
|
01687 S073-EXIT. DTSCSL5
|
|
01688 EXIT. DTSCSL5
|
|
01689 DTSCSL5
|
|
01690 DTSCSL5
|
|
01691 DTSCSL5
|
|
01692 S222-EMP-LOCK. DTSCSL5
|
|
01693 SET L222-START-UPDATE TO TRUE. DTSCSL5
|
|
01694 GO TO S222-EMP-LOCK-UNLOCK. DTSCSL5
|
|
01695 DTSCSL5
|
|
01696 S222-EMP-UNLOCK. DTSCSL5
|
|
01697 SET L222-END-UPDATE TO TRUE. DTSCSL5
|
|
01698 GO TO S222-EMP-LOCK-UNLOCK. DTSCSL5
|
|
01699 DTSCSL5
|
|
01700 S222-EMP-LOCK-UNLOCK. DTSCSL5
|
|
01701 EXEC CICS LINK DTSCSL5
|
|
01702 PROGRAM ('DTSCU222') DTSCSL5
|
|
01703 COMMAREA (L222-COMM-AREA) DTSCSL5
|
|
01704 END-EXEC. DTSCSL5
|
|
01705 DTSCSL5
|
|
01706 IF L222-FILE-CLOSED DTSCSL5
|
|
01707 MOVE L222-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
01708 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCSL5
|
|
01709 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5
|
|
01710 GO TO MAINLINE-EXIT. DTSCSL5
|
|
01711 DTSCSL5
|
|
01712 IF L222-NOT-OK DTSCSL5
|
|
01713 MOVE L222-MSG-AREA TO LCCM-MSG-AREA. DTSCSL5
|
|
01714 S222-EXIT. DTSCSL5
|
|
01715 EXIT. DTSCSL5
|
|
01716 SKIP3 DTSCSL5
|
|
01717 DTSCSL5
|
|
01718 S803-REQ-SCR-ID-EDIT. DTSCSL5
|
|
01719 EXEC CICS LINK DTSCSL5
|
|
01720 PROGRAM ('DTSCU803') DTSCSL5
|
|
01721 COMMAREA (DFHCOMMAREA) DTSCSL5
|
|
01722 END-EXEC. DTSCSL5
|
|
01723 S803-EXIT. DTSCSL5
|
|
01724 EXIT. DTSCSL5
|
|
01725 DTSCSL5
|
|
01726 S804-INVALID-KEY. DTSCSL5
|
|
01727 EXEC CICS LINK DTSCSL5
|
|
01728 PROGRAM ('DTSCU804') DTSCSL5
|
|
01729 COMMAREA (DFHCOMMAREA) DTSCSL5
|
|
01730 END-EXEC. DTSCSL5
|
|
01731 S804-EXIT. DTSCSL5
|
|
01732 EXIT. DTSCSL5
|
|
01733 DTSCSL5
|
|
01734 DTSCSL5
|
|
01735 DTSCSL5
|
|
01736 S805-MSG-AREA. DTSCSL5
|
|
01737 MOVE LCCM-MSG-AREA TO L805-MSG-AREA DTSCSL5
|
|
01738 DTSCSL5
|
|
01739 EXEC CICS LINK DTSCSL5
|
|
01740 PROGRAM ('DTSCU805') DTSCSL5
|
|
01741 COMMAREA (L805-COMM-AREA) DTSCSL5
|
|
01742 END-EXEC. DTSCSL5
|
|
01743 DTSCSL5
|
|
01744 MOVE L805-S-MSG-AREA TO MAP-MSG-AREA. DTSCSL5
|
|
01745 S805-EXIT. DTSCSL5
|
|
01746 EXIT. DTSCSL5
|
|
01747 DTSCSL5
|
|
01748 DTSCSL5
|
|
01749 DTSCSL5
|
|
01750 S810-START-BROWSE. DTSCSL5
|
|
01751 SET L810-START-BROWSE-88 TO TRUE. DTSCSL5
|
|
01752 GO TO S810-IO. DTSCSL5
|
|
01753 DTSCSL5
|
|
01754 S810-READ. DTSCSL5
|
|
01755 SET L810-READ-88 TO TRUE. DTSCSL5
|
|
01756 GO TO S810-IO. DTSCSL5
|
|
01757 DTSCSL5
|
|
01758 S810-READ-NEXT. DTSCSL5
|
|
01759 SET L810-READ-NEXT-88 TO TRUE. DTSCSL5
|
|
01760 GO TO S810-IO. DTSCSL5
|
|
01761 DTSCSL5
|
|
01762 S810-END-BROWSE. DTSCSL5
|
|
01763 SET L810-END-BROWSE-88 TO TRUE. DTSCSL5
|
|
01764 GO TO S810-IO. DTSCSL5
|
|
01765 DTSCSL5
|
|
01766 S810-REWRITE. DTSCSL5
|
|
01767 SET L810-REWRITE-88 TO TRUE. DTSCSL5
|
|
01768 GO TO S810-IO. DTSCSL5
|
|
01769 DTSCSL5
|
|
01770 S810-WRITE. DTSCSL5
|
|
01771 SET L810-WRITE-88 TO TRUE. DTSCSL5
|
|
01772 GO TO S810-IO. DTSCSL5
|
|
01773 DTSCSL5
|
|
01774 S810-DELETE. DTSCSL5
|
|
01775 SET L810-DELETE-88 TO TRUE. DTSCSL5
|
|
01776 GO TO S810-IO. DTSCSL5
|
|
01777 DTSCSL5
|
|
01778 S810-IO. DTSCSL5
|
|
01779 DTSCSL5
|
|
01780 EXEC CICS LINK DTSCSL5
|
|
01781 PROGRAM ('DTSCU810') DTSCSL5
|
|
01782 COMMAREA (L810-COMM-AREA) DTSCSL5
|
|
01783 END-EXEC. DTSCSL5
|
|
01784 DTSCSL5
|
|
01785 IF L810-FILE-CLOSED-88 DTSCSL5
|
|
01786 MOVE L810-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
01787 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCSL5
|
|
01788 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5
|
|
01789 GO TO MAINLINE-EXIT. DTSCSL5
|
|
01790 S810-EXIT. DTSCSL5
|
|
01791 EXIT. DTSCSL5
|
|
01792 DTSCSL5
|
|
01793 S835-READ. DTSCSL5
|
|
01794 SET L835-READ-88 TO TRUE. DTSCSL5
|
|
01795 GO TO S835-IO. DTSCSL5
|
|
01796 DTSCSL5
|
|
01797 S835-READ-UPDATE. DTSCSL5
|
|
01798 SET L835-READ-UPDATE-88 TO TRUE. DTSCSL5
|
|
01799 GO TO S835-IO. DTSCSL5
|
|
01800 DTSCSL5
|
|
01801 S835-START-BROWSE. DTSCSL5
|
|
01802 SET L835-START-BROWSE-88 TO TRUE. DTSCSL5
|
|
01803 GO TO S835-IO. DTSCSL5
|
|
01804 DTSCSL5
|
|
01805 S835-READ-NEXT. DTSCSL5
|
|
01806 SET L835-READ-NEXT-88 TO TRUE. DTSCSL5
|
|
01807 GO TO S835-IO. DTSCSL5
|
|
01808 DTSCSL5
|
|
01809 S835-READ-PREV. DTSCSL5
|
|
01810 SET L835-READ-PREV-88 TO TRUE. DTSCSL5
|
|
01811 GO TO S835-IO. DTSCSL5
|
|
01812 DTSCSL5
|
|
01813 S835-END-BROWSE. DTSCSL5
|
|
01814 SET L835-END-BROWSE-88 TO TRUE. DTSCSL5
|
|
01815 GO TO S835-IO. DTSCSL5
|
|
01816 DTSCSL5
|
|
01817 S835-COUNT. DTSCSL5
|
|
01818 SET L835-COUNT-88 TO TRUE. DTSCSL5
|
|
01819 GO TO S835-IO. DTSCSL5
|
|
01820 DTSCSL5
|
|
01821 S835-REWRITE. DTSCSL5
|
|
01822 SET L835-REWRITE-88 TO TRUE. DTSCSL5
|
|
01823 GO TO S835-IO. DTSCSL5
|
|
01824 DTSCSL5
|
|
01825 S835-REWRITE-UPDATE. DTSCSL5
|
|
01826 SET L835-REWRITE-UPDATE-88 TO TRUE. DTSCSL5
|
|
01827 GO TO S835-IO. DTSCSL5
|
|
01828 DTSCSL5
|
|
01829 S835-WRITE. DTSCSL5
|
|
01830 SET L835-WRITE-88 TO TRUE. DTSCSL5
|
|
01831 GO TO S835-IO. DTSCSL5
|
|
01832 DTSCSL5
|
|
01833 S835-DELETE. DTSCSL5
|
|
01834 SET L835-DELETE-88 TO TRUE. DTSCSL5
|
|
01835 GO TO S835-IO. DTSCSL5
|
|
01836 DTSCSL5
|
|
01837 S835-IO. DTSCSL5
|
|
01838 DTSCSL5
|
|
01839 EXEC CICS LINK DTSCSL5
|
|
01840 PROGRAM ('DTSCU835') DTSCSL5
|
|
01841 COMMAREA (L835-COMM-AREA) DTSCSL5
|
|
01842 END-EXEC. DTSCSL5
|
|
01843 DTSCSL5
|
|
01844 IF L835-FILE-CLOSED-88 DTSCSL5
|
|
01845 MOVE L835-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
01846 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCSL5
|
|
01847 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5
|
|
01848 GO TO MAINLINE-EXIT. DTSCSL5
|
|
01849 S835-EXIT. DTSCSL5
|
|
01850 EXIT. DTSCSL5
|
|
01851 EJECT DTSCSL5
|
|
01852 DTSCSL5
|
|
01853 S851-SCREEN-PROCESSING. DTSCSL5
|
|
01854 EXEC CICS LINK DTSCSL5
|
|
01855 PROGRAM ('DTSCU851') DTSCSL5
|
|
01856 COMMAREA (L851-COMM-AREA) DTSCSL5
|
|
01857 END-EXEC. DTSCSL5
|
|
01858 S851-EXIT. DTSCSL5
|
|
01859 EXIT. DTSCSL5
|
|
01860 DTSCSL5
|
|
01861 DTSCSL5
|
|
01862 DTSCSL5
|
|
01863 S899-ABEND. DTSCSL5
|
|
01864 EXEC CICS ABEND DTSCSL5
|
|
01865 ABCODE(WRK-ABEND-CD) DTSCSL5
|
|
01866 END-EXEC. DTSCSL5
|
|
01867 *S899-EXIT. DTSCSL5
|
|
01868 *****EXIT. DTSCSL5
|
|
01869 /*****************************************************************DTSCSL5
|
|
01870 * EDIT THE INFORMATION ON THE SCREEN. *DTSCSL5
|
|
01871 ******************************************************************DTSCSL5
|
|
01872 DTSCSL5
|
|
01873 S1001-SCREEN-KEY-EDITS. DTSCSL5
|
|
01874 PERFORM S1100-ELF-ID THRU S1100-EXIT. DTSCSL5
|
|
01875 PERFORM S1200-DATA-TYPE THRU S1200-EXIT. DTSCSL5
|
|
01876 S1001-EXIT. DTSCSL5
|
|
01877 EXIT. DTSCSL5
|
|
01878 DTSCSL5
|
|
01879 ******************************************************************DTSCSL5
|
|
01880 * SET UP READ OF EPRF RECORD USING WRK-ELF-ID AND DTSCSL5
|
|
01881 * WRK-DATA-TYPE-CD. DTSCSL5
|
|
01882 ******************************************************************DTSCSL5
|
|
01883 S1015-READ-EPRF. DTSCSL5
|
|
01884 MOVE LOW-VALUES TO EPRF-KEY-AREA. DTSCSL5
|
|
01885 MOVE WRK-ELF-ID TO EPRF-ELF-ID. DTSCSL5
|
|
01886 DTSCSL5
|
|
01887 IF WRK-DATA-TYPE-CD = SPACES OR LOW-VALUES DTSCSL5
|
|
01888 SET EPRF-WAGE-88 TO TRUE DTSCSL5
|
|
01889 MOVE EPRF-DATA-TYPE-CD TO WRK-DATA-TYPE-CD DTSCSL5
|
|
01890 ELSE DTSCSL5
|
|
01891 MOVE WRK-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD. DTSCSL5
|
|
01892 DTSCSL5
|
|
01893 SET EPRF-PRF-88 TO TRUE. DTSCSL5
|
|
01894 MOVE EPRF-KEY-AREA TO ESKL-KEY-AREA. DTSCSL5
|
|
01895 PERFORM S835-READ THRU S835-EXIT. DTSCSL5
|
|
01896 DTSCSL5
|
|
01897 IF L835-NO-REC-88 DTSCSL5
|
|
01898 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCSL5
|
|
01899 GO TO S1015-EXIT. DTSCSL5
|
|
01900 DTSCSL5
|
|
01901 MOVE ESKL-REC TO EPRF-REC. DTSCSL5
|
|
01902 DTSCSL5
|
|
01903 S1015-EXIT. DTSCSL5
|
|
01904 EXIT. DTSCSL5
|
|
01905 DTSCSL5
|
|
01906 S1020-READ-MTAD. DTSCSL5
|
|
01907 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSCSL5
|
|
01908 DTSCSL5
|
|
01909 MOVE WRK-ELF-ID TO MTAD-EMP-NO. DTSCSL5
|
|
01910 DTSCSL5
|
|
01911 SET MTAD-TAD-88 TO TRUE. DTSCSL5
|
|
01912 DTSCSL5
|
|
01913 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSCSL5
|
|
01914 DTSCSL5
|
|
01915 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSCSL5
|
|
01916 DTSCSL5
|
|
01917 PERFORM S810-READ THRU S810-EXIT. DTSCSL5
|
|
01918 DTSCSL5
|
|
01919 IF L810-OK-88 DTSCSL5
|
|
01920 MOVE MSKL-REC TO MTAD-REC DTSCSL5
|
|
01921 SET WRK-MTAD-YES-88 TO TRUE. DTSCSL5
|
|
01922 S1020-EXIT. DTSCSL5
|
|
01923 EXIT. DTSCSL5
|
|
01924 DTSCSL5
|
|
01925 DTSCSL5
|
|
01926 DTSCSL5
|
|
01927 S1002-SCREEN-DATA-EDITS. DTSCSL5
|
|
01928 DTSCSL5
|
|
01929 MOVE LOW-VALUES TO MAP-CASS-CD. DTSCSL5
|
|
01930 PERFORM S1300-ELF-NAME THRU S1300-EXIT. DTSCSL5
|
|
01931 PERFORM S1400-MEDIUM-TYPE THRU S1400-EXIT. DTSCSL5
|
|
01932 PERFORM S1500-FORMAT-TYPE THRU S1500-EXIT. DTSCSL5
|
|
01933 PERFORM S1600-JOB-NAME THRU S1600-EXIT. DTSCSL5
|
|
01934 PERFORM S1700-FORMAT-NOTES THRU S1700-EXIT. DTSCSL5
|
|
01935 PERFORM S1800-BUSINESS-NAME THRU S1800-EXIT. DTSCSL5
|
|
01936 PERFORM S1900-BUSINESS-EMAIL THRU S1900-EXIT. DTSCSL5
|
|
01937 PERFORM S2000-TECH-NAME THRU S2000-EXIT. DTSCSL5
|
|
01938 PERFORM S2100-TECH-EMAIL THRU S2100-EXIT. DTSCSL5
|
|
01939 PERFORM S2200-EPRF-ADDR THRU S2200-EXIT. DTSCSL5
|
|
01940 PERFORM S2300-EDIT-PHONES THRU S2300-EXIT. DTSCSL5
|
|
01941 S1002-EXIT. DTSCSL5
|
|
01942 EXIT. DTSCSL5
|
|
01943 /*****************************************************************DTSCSL5
|
|
01944 * ELF-ID IS THE ONLY KEY FIELD FOR EPRF *DTSCSL5
|
|
01945 ******************************************************************DTSCSL5
|
|
01946 DTSCSL5
|
|
01947 S1100-ELF-ID. DTSCSL5
|
|
01948 MOVE MAP-ELF-ID-AREA TO L018-S-EMP-NO-AREA. DTSCSL5
|
|
01949 DTSCSL5
|
|
01950 PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT. DTSCSL5
|
|
01951 DTSCSL5
|
|
01952 IF L018-NO-ENTRY AND DTSCSL5
|
|
01953 (LCCM-SCR-ADD-LOCKED OR LCCM-F09-88) DTSCSL5
|
|
01954 GO TO S1100-EXIT. DTSCSL5
|
|
01955 DTSCSL5
|
|
01956 IF L018-NO-ENTRY DTSCSL5
|
|
01957 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5
|
|
01958 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01959 ELSE DTSCSL5
|
|
01960 IF L018-NOT-VALID DTSCSL5
|
|
01961 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
01962 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5
|
|
01963 ELSE DTSCSL5
|
|
01964 MOVE L018-EMP-NO TO WRK-ELF-ID. DTSCSL5
|
|
01965 DTSCSL5
|
|
01966 S1100-EXIT. DTSCSL5
|
|
01967 EXIT. DTSCSL5
|
|
01968 DTSCSL5
|
|
01969 S1101-ERROR. DTSCSL5
|
|
01970 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ELF-ID-1-A DTSCSL5
|
|
01971 MAP-ELF-ID-2-A. DTSCSL5
|
|
01972 DTSCSL5
|
|
01973 IF LCCM-NO-MSG DTSCSL5
|
|
01974 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
01975 MOVE CATB-CURSOR TO MAP-ELF-ID-1-L DTSCSL5
|
|
01976 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
01977 S1101-EXIT. DTSCSL5
|
|
01978 EXIT. DTSCSL5
|
|
01979 /*****************************************************************DTSCSL5
|
|
01980 * *DTSCSL5
|
|
01981 ******************************************************************DTSCSL5
|
|
01982 DTSCSL5
|
|
01983 S1200-DATA-TYPE. DTSCSL5
|
|
01984 IF MAP-DATA-TYPE-CD = SPACES OR LOW-VALUES DTSCSL5
|
|
01985 IF LCCM-ENTER-88 DTSCSL5
|
|
01986 SET EPRF-WAGE-88 TO TRUE DTSCSL5
|
|
01987 MOVE EPRF-DATA-TYPE-CD TO WRK-DATA-TYPE-CD DTSCSL5
|
|
01988 MAP-DATA-TYPE-CD DTSCSL5
|
|
01989 ELSE DTSCSL5
|
|
01990 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5
|
|
01991 PERFORM S1201-ERROR THRU S1201-EXIT DTSCSL5
|
|
01992 END-IF DTSCSL5
|
|
01993 ELSE DTSCSL5
|
|
01994 IF MAP-DATA-TYPE-VALID-88 DTSCSL5
|
|
01995 MOVE MAP-DATA-TYPE-CD TO WRK-DATA-TYPE-CD DTSCSL5
|
|
01996 ELSE DTSCSL5
|
|
01997 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
01998 PERFORM S1201-ERROR THRU S1201-EXIT DTSCSL5
|
|
01999 END-IF DTSCSL5
|
|
02000 END-IF. DTSCSL5
|
|
02001 DTSCSL5
|
|
02002 IF NOT ELF-ID-EXTERNAL-88 DTSCSL5
|
|
02003 IF MAP-DATA-TYPE-WAGE-88 DTSCSL5
|
|
02004 NEXT SENTENCE DTSCSL5
|
|
02005 ELSE DTSCSL5
|
|
02006 MOVE MSG-EL56-AREA TO WRK-MSG-AREA DTSCSL5
|
|
02007 PERFORM S1201-ERROR THRU S1201-EXIT. DTSCSL5
|
|
02008 DTSCSL5
|
|
02009 S1200-EXIT. DTSCSL5
|
|
02010 EXIT. DTSCSL5
|
|
02011 DTSCSL5
|
|
02012 DTSCSL5
|
|
02013 DTSCSL5
|
|
02014 S1201-ERROR. DTSCSL5
|
|
02015 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-DATA-TYPE-CD-A. DTSCSL5
|
|
02016 DTSCSL5
|
|
02017 IF LCCM-NO-MSG DTSCSL5
|
|
02018 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02019 MOVE CATB-CURSOR TO MAP-DATA-TYPE-CD-L DTSCSL5
|
|
02020 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02021 S1201-EXIT. DTSCSL5
|
|
02022 EXIT. DTSCSL5
|
|
02023 /*****************************************************************DTSCSL5
|
|
02024 * *DTSCSL5
|
|
02025 ******************************************************************DTSCSL5
|
|
02026 DTSCSL5
|
|
02027 S1300-ELF-NAME. DTSCSL5
|
|
02028 DTSCSL5
|
|
02029 IF MAP-ELF-NAME = SPACES OR LOW-VALUES DTSCSL5
|
|
02030 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5
|
|
02031 PERFORM S1301-ERROR THRU S1301-EXIT. DTSCSL5
|
|
02032 S1300-EXIT. DTSCSL5
|
|
02033 EXIT. DTSCSL5
|
|
02034 S1301-ERROR. DTSCSL5
|
|
02035 DTSCSL5
|
|
02036 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5
|
|
02037 DTSCSL5
|
|
02038 IF LCCM-NO-MSG DTSCSL5
|
|
02039 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02040 MOVE CATB-CURSOR TO MAP-ELF-NAME-L DTSCSL5
|
|
02041 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02042 S1301-EXIT. DTSCSL5
|
|
02043 EXIT. DTSCSL5
|
|
02044 /*****************************************************************DTSCSL5
|
|
02045 * *DTSCSL5
|
|
02046 ******************************************************************DTSCSL5
|
|
02047 DTSCSL5
|
|
02048 S1400-MEDIUM-TYPE. DTSCSL5
|
|
02049 IF MAP-MEDIUM-TYPE-CD = SPACES OR LOW-VALUES DTSCSL5
|
|
02050 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5
|
|
02051 PERFORM S1401-ERROR THRU S1401-EXIT DTSCSL5
|
|
02052 ELSE DTSCSL5
|
|
02053 IF MAP-MEDIUM-TYPE-VALID-88 DTSCSL5
|
|
02054 NEXT SENTENCE DTSCSL5
|
|
02055 ELSE DTSCSL5
|
|
02056 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02057 PERFORM S1401-ERROR THRU S1401-EXIT. DTSCSL5
|
|
02058 S1400-EXIT. DTSCSL5
|
|
02059 EXIT. DTSCSL5
|
|
02060 DTSCSL5
|
|
02061 DTSCSL5
|
|
02062 DTSCSL5
|
|
02063 S1401-ERROR. DTSCSL5
|
|
02064 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-MEDIUM-TYPE-CD-A. DTSCSL5
|
|
02065 DTSCSL5
|
|
02066 IF LCCM-NO-MSG DTSCSL5
|
|
02067 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02068 MOVE CATB-CURSOR TO MAP-MEDIUM-TYPE-CD-L DTSCSL5
|
|
02069 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02070 S1401-EXIT. DTSCSL5
|
|
02071 EXIT. DTSCSL5
|
|
02072 /*****************************************************************DTSCSL5
|
|
02073 * *DTSCSL5
|
|
02074 ******************************************************************DTSCSL5
|
|
02075 DTSCSL5
|
|
02076 S1500-FORMAT-TYPE. DTSCSL5
|
|
02077 IF MAP-FORMAT-TYPE-CD = LOW-VALUES DTSCSL5
|
|
02078 MOVE SPACES TO MAP-FORMAT-TYPE-CD. DTSCSL5
|
|
02079 DTSCSL5
|
|
02080 IF MAP-FORMAT-TYPE-VALID-88 DTSCSL5
|
|
02081 NEXT SENTENCE DTSCSL5
|
|
02082 ELSE DTSCSL5
|
|
02083 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02084 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCSL5
|
|
02085 S1500-EXIT. DTSCSL5
|
|
02086 EXIT. DTSCSL5
|
|
02087 DTSCSL5
|
|
02088 DTSCSL5
|
|
02089 S1501-ERROR. DTSCSL5
|
|
02090 DTSCSL5
|
|
02091 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-FORMAT-TYPE-CD-A DTSCSL5
|
|
02092 IF LCCM-NO-MSG DTSCSL5
|
|
02093 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02094 MOVE CATB-CURSOR TO MAP-FORMAT-TYPE-CD-L DTSCSL5
|
|
02095 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02096 S1501-EXIT. DTSCSL5
|
|
02097 EXIT. DTSCSL5
|
|
02098 /*****************************************************************DTSCSL5
|
|
02099 * *DTSCSL5
|
|
02100 ******************************************************************DTSCSL5
|
|
02101 DTSCSL5
|
|
02102 S1600-JOB-NAME. DTSCSL5
|
|
02103 IF MAP-JOB-NAME = LOW-VALUES DTSCSL5
|
|
02104 MOVE SPACES TO MAP-JOB-NAME. DTSCSL5
|
|
02105 DTSCSL5
|
|
02106 S1600-EXIT. DTSCSL5
|
|
02107 EXIT. DTSCSL5
|
|
02108 DTSCSL5
|
|
02109 DTSCSL5
|
|
02110 DTSCSL5
|
|
02111 S1601-ERROR. DTSCSL5
|
|
02112 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-JOB-NAME-A. DTSCSL5
|
|
02113 DTSCSL5
|
|
02114 IF LCCM-NO-MSG DTSCSL5
|
|
02115 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02116 MOVE CATB-CURSOR TO MAP-JOB-NAME-L DTSCSL5
|
|
02117 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02118 S1601-EXIT. DTSCSL5
|
|
02119 EXIT. DTSCSL5
|
|
02120 DTSCSL5
|
|
02121 DTSCSL5
|
|
02122 ******************************************************************DTSCSL5
|
|
02123 * *DTSCSL5
|
|
02124 ******************************************************************DTSCSL5
|
|
02125 DTSCSL5
|
|
02126 S1700-FORMAT-NOTES. DTSCSL5
|
|
02127 INSPECT MAP-FORMAT-NOTES CONVERTING LOW-VALUE TO SPACE. DTSCSL5
|
|
02128 S1700-EXIT. DTSCSL5
|
|
02129 EXIT. DTSCSL5
|
|
02130 DTSCSL5
|
|
02131 DTSCSL5
|
|
02132 ******************************************************************DTSCSL5
|
|
02133 * *DTSCSL5
|
|
02134 ******************************************************************DTSCSL5
|
|
02135 DTSCSL5
|
|
02136 S1800-BUSINESS-NAME. DTSCSL5
|
|
02137 INSPECT MAP-BUSN-CONTACT-NAME DTSCSL5
|
|
02138 CONVERTING LOW-VALUE TO SPACE. DTSCSL5
|
|
02139 S1800-EXIT. DTSCSL5
|
|
02140 EXIT. DTSCSL5
|
|
02141 DTSCSL5
|
|
02142 ******************************************************************DTSCSL5
|
|
02143 * *DTSCSL5
|
|
02144 ******************************************************************DTSCSL5
|
|
02145 DTSCSL5
|
|
02146 S1900-BUSINESS-EMAIL. DTSCSL5
|
|
02147 INSPECT MAP-BUSN-CONTACT-EMAIL DTSCSL5
|
|
02148 CONVERTING LOW-VALUE TO SPACE. DTSCSL5
|
|
02149 S1900-EXIT. DTSCSL5
|
|
02150 EXIT. DTSCSL5
|
|
02151 DTSCSL5
|
|
02152 DTSCSL5
|
|
02153 ******************************************************************DTSCSL5
|
|
02154 * *DTSCSL5
|
|
02155 ******************************************************************DTSCSL5
|
|
02156 DTSCSL5
|
|
02157 S2000-TECH-NAME. DTSCSL5
|
|
02158 INSPECT MAP-TECH-CONTACT-NAME DTSCSL5
|
|
02159 CONVERTING LOW-VALUE TO SPACE. DTSCSL5
|
|
02160 S2000-EXIT. DTSCSL5
|
|
02161 EXIT. DTSCSL5
|
|
02162 DTSCSL5
|
|
02163 ******************************************************************DTSCSL5
|
|
02164 * *DTSCSL5
|
|
02165 ******************************************************************DTSCSL5
|
|
02166 DTSCSL5
|
|
02167 S2100-TECH-EMAIL. DTSCSL5
|
|
02168 INSPECT MAP-TECH-CONTACT-EMAIL DTSCSL5
|
|
02169 CONVERTING LOW-VALUE TO SPACE. DTSCSL5
|
|
02170 S2100-EXIT. DTSCSL5
|
|
02171 EXIT. DTSCSL5
|
|
02172 DTSCSL5
|
|
02173 /*****************************************************************DTSCSL5
|
|
02174 * STEP THROUGH ELF ADDRESS *DTSCSL5
|
|
02175 ******************************************************************DTSCSL5
|
|
02176 DTSCSL5
|
|
02177 S2200-EPRF-ADDR. DTSCSL5
|
|
02178 IF MAP-ATTN-LINE = SPACES OR LOW-VALUES DTSCSL5
|
|
02179 MOVE SPACES TO MAP-ATTN-LINE. DTSCSL5
|
|
02180 DTSCSL5
|
|
02181 IF MAP-DELIV-LINE-1 = SPACES OR LOW-VALUES DTSCSL5
|
|
02182 MOVE SPACES TO MAP-DELIV-LINE-1. DTSCSL5
|
|
02183 DTSCSL5
|
|
02184 IF MAP-DELIV-LINE-2 = SPACES OR LOW-VALUES DTSCSL5
|
|
02185 MOVE SPACES TO MAP-DELIV-LINE-2. DTSCSL5
|
|
02186 DTSCSL5
|
|
02187 IF MAP-CASS-IND = SPACES OR LOW-VALUES DTSCSL5
|
|
02188 MOVE SPACES TO MAP-CASS-IND. DTSCSL5
|
|
02189 DTSCSL5
|
|
02190 IF MAP-CITY = SPACES OR LOW-VALUES DTSCSL5
|
|
02191 MOVE SPACES TO MAP-CITY. DTSCSL5
|
|
02192 DTSCSL5
|
|
02193 IF MAP-STATE = SPACES OR LOW-VALUES DTSCSL5
|
|
02194 MOVE SPACES TO MAP-STATE. DTSCSL5
|
|
02195 DTSCSL5
|
|
02196 IF MAP-ZIP = SPACES OR LOW-VALUES DTSCSL5
|
|
02197 MOVE SPACES TO MAP-ZIP. DTSCSL5
|
|
02198 DTSCSL5
|
|
02199 DTSCSL5
|
|
02200 PERFORM S2210-IS-MAP-ADDR-BLANK THRU S2210-EXIT. DTSCSL5
|
|
02201 DTSCSL5
|
|
02202 IF WRK-MPRF-YES-88 AND WRK-MAP-ADDR-BLANK DTSCSL5
|
|
02203 PERFORM S2230-MTAD-ADDR THRU S2230-EXIT. DTSCSL5
|
|
02204 DTSCSL5
|
|
02205 DTSCSL5
|
|
02206 MOVE SPACE TO L072-ADDRESS. DTSCSL5
|
|
02207 DTSCSL5
|
|
02208 IF WRK-MAP-ADDR-HAS-DATA DTSCSL5
|
|
02209 PERFORM S2220-ADDR THRU S2220-EXIT DTSCSL5
|
|
02210 ELSE DTSCSL5
|
|
02211 MOVE SPACE TO LCCM-HOLD-ADDRESS DTSCSL5
|
|
02212 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5
|
|
02213 PERFORM S2202-ERROR THRU S2202-EXIT. DTSCSL5
|
|
02214 DTSCSL5
|
|
02215 DTSCSL5
|
|
02216 MOVE MAP-STATE TO L073-ST. DTSCSL5
|
|
02217 DTSCSL5
|
|
02218 MOVE MAP-ZIP TO L073-ZIP. DTSCSL5
|
|
02219 DTSCSL5
|
|
02220 S2200-EXIT. DTSCSL5
|
|
02221 EXIT. DTSCSL5
|
|
02222 DTSCSL5
|
|
02223 DTSCSL5
|
|
02224 DTSCSL5
|
|
02225 S2202-ERROR. DTSCSL5
|
|
02226 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ATTN-LINE-A. DTSCSL5
|
|
02227 DTSCSL5
|
|
02228 IF LCCM-NO-MSG DTSCSL5
|
|
02229 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02230 MOVE CATB-CURSOR TO MAP-ATTN-LINE-L DTSCSL5
|
|
02231 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02232 S2202-EXIT. DTSCSL5
|
|
02233 EXIT. DTSCSL5
|
|
02234 DTSCSL5
|
|
02235 DTSCSL5
|
|
02236 DTSCSL5
|
|
02237 /*****************************************************************DTSCSL5
|
|
02238 * *DTSCSL5
|
|
02239 ******************************************************************DTSCSL5
|
|
02240 S2210-IS-MAP-ADDR-BLANK. DTSCSL5
|
|
02241 IF ( MAP-ATTN-LINE = SPACE OR LOW-VALUE ) DTSCSL5
|
|
02242 AND ( MAP-DELIV-LINE-1 = SPACE OR LOW-VALUE ) DTSCSL5
|
|
02243 AND ( MAP-DELIV-LINE-2 = SPACE OR LOW-VALUE ) DTSCSL5
|
|
02244 AND ( MAP-CITY = SPACE OR LOW-VALUE ) DTSCSL5
|
|
02245 AND ( MAP-STATE = SPACE OR LOW-VALUE ) DTSCSL5
|
|
02246 AND ( MAP-ZIP = SPACE OR LOW-VALUE ) DTSCSL5
|
|
02247 MOVE SPACE TO MAP-CASS-IND DTSCSL5
|
|
02248 MAP-CASS-CD DTSCSL5
|
|
02249 SET WRK-MAP-ADDR-BLANK TO TRUE DTSCSL5
|
|
02250 ELSE DTSCSL5
|
|
02251 SET WRK-MAP-ADDR-HAS-DATA TO TRUE. DTSCSL5
|
|
02252 S2210-EXIT. DTSCSL5
|
|
02253 EXIT. DTSCSL5
|
|
02254 DTSCSL5
|
|
02255 DTSCSL5
|
|
02256 DTSCSL5
|
|
02257 /*****************************************************************DTSCSL5
|
|
02258 * *DTSCSL5
|
|
02259 ******************************************************************DTSCSL5
|
|
02260 DTSCSL5
|
|
02261 S2220-ADDR. DTSCSL5
|
|
02262 MOVE MAP-CASS-IND TO L072-CASS-IND. DTSCSL5
|
|
02263 DTSCSL5
|
|
02264 SET L072-MTAD-88 TO TRUE. DTSCSL5
|
|
02265 DTSCSL5
|
|
02266 MOVE MAP-ELF-NAME TO L072-NAME. DTSCSL5
|
|
02267 DTSCSL5
|
|
02268 MOVE MAP-ATTN-LINE TO L072-ATTN-LINE. DTSCSL5
|
|
02269 DTSCSL5
|
|
02270 MOVE MAP-DELIV-LINE-1 TO L072-DELIV-LINE-1. DTSCSL5
|
|
02271 DTSCSL5
|
|
02272 MOVE MAP-DELIV-LINE-2 TO L072-DELIV-LINE-2. DTSCSL5
|
|
02273 DTSCSL5
|
|
02274 MOVE MAP-CITY TO L072-CITY. DTSCSL5
|
|
02275 DTSCSL5
|
|
02276 MOVE MAP-STATE TO L072-ST. DTSCSL5
|
|
02277 DTSCSL5
|
|
02278 MOVE MAP-ZIP TO L072-ZIP. DTSCSL5
|
|
02279 DTSCSL5
|
|
02280 DTSCSL5
|
|
02281 * DEFAULT L072-CASS-IND IS BLANK, SO 'Y' IS DELIBERATE. DTSCSL5
|
|
02282 DTSCSL5
|
|
02283 IF L072-CASS-IND = 'Y' DTSCSL5
|
|
02284 NEXT SENTENCE DTSCSL5
|
|
02285 ELSE DTSCSL5
|
|
02286 IF L072-ATTN-LINE = EPRF-ATTN-LINE DTSCSL5
|
|
02287 AND L072-DELIV-LINE-1 = EPRF-DELIV-LINE-1 DTSCSL5
|
|
02288 AND L072-DELIV-LINE-2 = EPRF-DELIV-LINE-2 DTSCSL5
|
|
02289 AND L072-CITY = EPRF-CITY DTSCSL5
|
|
02290 AND L072-ST = EPRF-ST DTSCSL5
|
|
02291 AND L072-ZIP = EPRF-ZIP DTSCSL5
|
|
02292 MOVE EPRF-ADVANCED-BARCODE DTSCSL5
|
|
02293 TO L072-ADVANCED-BARCODE DTSCSL5
|
|
02294 MOVE L072-ADDRESS TO LCCM-HOLD-ADDRESS DTSCSL5
|
|
02295 GO TO S2220-EXIT. DTSCSL5
|
|
02296 DTSCSL5
|
|
02297 DTSCSL5
|
|
02298 PERFORM S072-ADDRESS-EDIT THRU S072-EXIT. DTSCSL5
|
|
02299 DTSCSL5
|
|
02300 MOVE L072-ADDRESS TO LCCM-HOLD-ADDRESS. DTSCSL5
|
|
02301 DTSCSL5
|
|
02302 MOVE L072-CASS-IND TO MAP-CASS-IND. DTSCSL5
|
|
02303 DTSCSL5
|
|
02304 MOVE L072-CASS-RETURN-CODES TO MAP-CASS-CD. DTSCSL5
|
|
02305 DTSCSL5
|
|
02306 DTSCSL5
|
|
02307 IF L072-ATTN-LINE-NOT-VALID-88 DTSCSL5
|
|
02308 PERFORM S2221-ERROR THRU S2221-EXIT DTSCSL5
|
|
02309 ELSE DTSCSL5
|
|
02310 MOVE L072-ATTN-LINE TO MAP-ATTN-LINE DTSCSL5
|
|
02311 IF L072-ATTN-LINE-CHANGED-88 DTSCSL5
|
|
02312 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02313 TO MAP-ATTN-LINE-A. DTSCSL5
|
|
02314 DTSCSL5
|
|
02315 DTSCSL5
|
|
02316 IF L072-DELIV-LINE-1-NOT-VALID-88 DTSCSL5
|
|
02317 PERFORM S2222-ERROR THRU S2222-EXIT DTSCSL5
|
|
02318 ELSE DTSCSL5
|
|
02319 MOVE L072-DELIV-LINE-1 TO MAP-DELIV-LINE-1 DTSCSL5
|
|
02320 IF L072-DELIV-LINE-1-CHANGED-88 DTSCSL5
|
|
02321 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02322 TO MAP-DELIV-LINE-1-A. DTSCSL5
|
|
02323 DTSCSL5
|
|
02324 DTSCSL5
|
|
02325 IF L072-DELIV-LINE-2-NOT-VALID-88 DTSCSL5
|
|
02326 PERFORM S2223-ERROR THRU S2223-EXIT DTSCSL5
|
|
02327 ELSE DTSCSL5
|
|
02328 MOVE L072-DELIV-LINE-2 TO MAP-DELIV-LINE-2 DTSCSL5
|
|
02329 IF L072-DELIV-LINE-2-CHANGED-88 DTSCSL5
|
|
02330 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02331 TO MAP-DELIV-LINE-2-A. DTSCSL5
|
|
02332 DTSCSL5
|
|
02333 DTSCSL5
|
|
02334 IF L072-CITY-NOT-VALID-88 DTSCSL5
|
|
02335 PERFORM S2224-ERROR THRU S2224-EXIT DTSCSL5
|
|
02336 ELSE DTSCSL5
|
|
02337 MOVE L072-CITY TO MAP-CITY DTSCSL5
|
|
02338 IF L072-CITY-CHANGED-88 DTSCSL5
|
|
02339 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02340 TO MAP-CITY-A. DTSCSL5
|
|
02341 DTSCSL5
|
|
02342 DTSCSL5
|
|
02343 IF L072-ST-NOT-VALID-88 DTSCSL5
|
|
02344 PERFORM S2225-ERROR THRU S2225-EXIT DTSCSL5
|
|
02345 ELSE DTSCSL5
|
|
02346 MOVE L072-ST TO MAP-STATE DTSCSL5
|
|
02347 IF L072-ST-CHANGED-88 DTSCSL5
|
|
02348 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02349 TO MAP-STATE-A. DTSCSL5
|
|
02350 DTSCSL5
|
|
02351 DTSCSL5
|
|
02352 IF L072-ZIP-NOT-VALID-88 DTSCSL5
|
|
02353 PERFORM S2226-ERROR THRU S2226-EXIT DTSCSL5
|
|
02354 ELSE DTSCSL5
|
|
02355 MOVE L072-ZIP TO MAP-ZIP DTSCSL5
|
|
02356 IF L072-ZIP-CHANGED-88 DTSCSL5
|
|
02357 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02358 TO MAP-ZIP-A. DTSCSL5
|
|
02359 DTSCSL5
|
|
02360 DTSCSL5
|
|
02361 IF L072-ADDRESS-NOT-VALID-88 DTSCSL5
|
|
02362 IF LCCM-NO-MSG DTSCSL5
|
|
02363 PERFORM S2221-ERROR THRU S2221-EXIT. DTSCSL5
|
|
02364 S2220-EXIT. DTSCSL5
|
|
02365 EXIT. DTSCSL5
|
|
02366 DTSCSL5
|
|
02367 DTSCSL5
|
|
02368 DTSCSL5
|
|
02369 S2221-ERROR. DTSCSL5
|
|
02370 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ATTN-LINE-A. DTSCSL5
|
|
02371 DTSCSL5
|
|
02372 IF LCCM-NO-MSG DTSCSL5
|
|
02373 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02374 MOVE CATB-CURSOR TO MAP-ATTN-LINE-L DTSCSL5
|
|
02375 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02376 S2221-EXIT. DTSCSL5
|
|
02377 EXIT. DTSCSL5
|
|
02378 DTSCSL5
|
|
02379 DTSCSL5
|
|
02380 DTSCSL5
|
|
02381 S2222-ERROR. DTSCSL5
|
|
02382 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-DELIV-LINE-1-A. DTSCSL5
|
|
02383 DTSCSL5
|
|
02384 IF LCCM-NO-MSG DTSCSL5
|
|
02385 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02386 MOVE CATB-CURSOR TO MAP-DELIV-LINE-1-L DTSCSL5
|
|
02387 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02388 S2222-EXIT. DTSCSL5
|
|
02389 EXIT. DTSCSL5
|
|
02390 DTSCSL5
|
|
02391 DTSCSL5
|
|
02392 DTSCSL5
|
|
02393 S2223-ERROR. DTSCSL5
|
|
02394 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-DELIV-LINE-2-A. DTSCSL5
|
|
02395 DTSCSL5
|
|
02396 IF LCCM-NO-MSG DTSCSL5
|
|
02397 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02398 MOVE CATB-CURSOR TO MAP-DELIV-LINE-2-L DTSCSL5
|
|
02399 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02400 S2223-EXIT. DTSCSL5
|
|
02401 EXIT. DTSCSL5
|
|
02402 DTSCSL5
|
|
02403 DTSCSL5
|
|
02404 DTSCSL5
|
|
02405 S2224-ERROR. DTSCSL5
|
|
02406 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-CITY-A. DTSCSL5
|
|
02407 DTSCSL5
|
|
02408 IF LCCM-NO-MSG DTSCSL5
|
|
02409 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02410 MOVE CATB-CURSOR TO MAP-CITY-L DTSCSL5
|
|
02411 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02412 S2224-EXIT. DTSCSL5
|
|
02413 EXIT. DTSCSL5
|
|
02414 DTSCSL5
|
|
02415 DTSCSL5
|
|
02416 DTSCSL5
|
|
02417 S2225-ERROR. DTSCSL5
|
|
02418 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-STATE-A. DTSCSL5
|
|
02419 DTSCSL5
|
|
02420 IF LCCM-NO-MSG DTSCSL5
|
|
02421 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02422 MOVE CATB-CURSOR TO MAP-STATE-L DTSCSL5
|
|
02423 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02424 S2225-EXIT. DTSCSL5
|
|
02425 EXIT. DTSCSL5
|
|
02426 DTSCSL5
|
|
02427 DTSCSL5
|
|
02428 DTSCSL5
|
|
02429 S2226-ERROR. DTSCSL5
|
|
02430 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ZIP-A. DTSCSL5
|
|
02431 DTSCSL5
|
|
02432 IF LCCM-NO-MSG DTSCSL5
|
|
02433 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02434 MOVE CATB-CURSOR TO MAP-ZIP-L DTSCSL5
|
|
02435 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02436 S2226-EXIT. DTSCSL5
|
|
02437 EXIT. DTSCSL5
|
|
02438 DTSCSL5
|
|
02439 DTSCSL5
|
|
02440 DTSCSL5
|
|
02441 S2230-MTAD-ADDR. DTSCSL5
|
|
02442 DTSCSL5
|
|
02443 PERFORM S1020-READ-MTAD THRU S1020-EXIT. DTSCSL5
|
|
02444 DTSCSL5
|
|
02445 IF L810-OK-88 DTSCSL5
|
|
02446 NEXT SENTENCE DTSCSL5
|
|
02447 ELSE DTSCSL5
|
|
02448 GO TO S2230-EXIT. DTSCSL5
|
|
02449 DTSCSL5
|
|
02450 MOVE MTAD-ATTN-LINE TO MAP-ATTN-LINE. DTSCSL5
|
|
02451 DTSCSL5
|
|
02452 MOVE MTAD-DELIV-LINE-1 TO MAP-DELIV-LINE-1. DTSCSL5
|
|
02453 DTSCSL5
|
|
02454 MOVE MTAD-DELIV-LINE-2 TO MAP-DELIV-LINE-2. DTSCSL5
|
|
02455 DTSCSL5
|
|
02456 MOVE MTAD-CITY TO MAP-CITY. DTSCSL5
|
|
02457 DTSCSL5
|
|
02458 MOVE MTAD-ST TO MAP-STATE. DTSCSL5
|
|
02459 DTSCSL5
|
|
02460 MOVE MTAD-ZIP TO MAP-ZIP. DTSCSL5
|
|
02461 DTSCSL5
|
|
02462 S2230-EXIT. DTSCSL5
|
|
02463 EXIT. DTSCSL5
|
|
02464 DTSCSL5
|
|
02465 DTSCSL5
|
|
02466 ******************************************************************DTSCSL5
|
|
02467 * *DTSCSL5
|
|
02468 ******************************************************************DTSCSL5
|
|
02469 DTSCSL5
|
|
02470 S2300-EDIT-PHONES. DTSCSL5
|
|
02471 PERFORM S2310-BUSINESS-PHONE THRU S2310-EXIT. DTSCSL5
|
|
02472 PERFORM S2315-BUSINESS-FAX THRU S2315-EXIT. DTSCSL5
|
|
02473 PERFORM S2320-TECH-PHONE THRU S2320-EXIT. DTSCSL5
|
|
02474 PERFORM S2325-TECH-FAX THRU S2325-EXIT. DTSCSL5
|
|
02475 S2300-EXIT. DTSCSL5
|
|
02476 EXIT. DTSCSL5
|
|
02477 ******************************************************************DTSCSL5
|
|
02478 * *DTSCSL5
|
|
02479 ******************************************************************DTSCSL5
|
|
02480 DTSCSL5
|
|
02481 S2310-BUSINESS-PHONE. DTSCSL5
|
|
02482 MOVE MAP-BUSN-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
02483 DTSCSL5
|
|
02484 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
02485 DTSCSL5
|
|
02486 IF L021-NOT-VALID DTSCSL5
|
|
02487 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02488 PERFORM S2311-ERROR THRU S2311-EXIT DTSCSL5
|
|
02489 ELSE DTSCSL5
|
|
02490 IF L021-VALID DTSCSL5
|
|
02491 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5
|
|
02492 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5
|
|
02493 IF L073-NOT-VALID DTSCSL5
|
|
02494 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02495 PERFORM S2311-ERROR THRU S2311-EXIT DTSCSL5
|
|
02496 ELSE DTSCSL5
|
|
02497 MOVE L073-AREA-CD TO MAP-BUSN-VOICE-AREA-CD DTSCSL5
|
|
02498 MOVE L073-PREFIX TO MAP-BUSN-VOICE-PREFIX DTSCSL5
|
|
02499 MOVE L073-SUFFIX TO MAP-BUSN-VOICE-SUFFIX DTSCSL5
|
|
02500 MOVE L073-EXT TO MAP-BUSN-VOICE-EXT. DTSCSL5
|
|
02501 S2310-EXIT. DTSCSL5
|
|
02502 EXIT. DTSCSL5
|
|
02503 DTSCSL5
|
|
02504 DTSCSL5
|
|
02505 DTSCSL5
|
|
02506 S2311-ERROR. DTSCSL5
|
|
02507 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5
|
|
02508 TO MAP-BUSN-VOICE-AREA-CD-A DTSCSL5
|
|
02509 MAP-BUSN-VOICE-PREFIX-A DTSCSL5
|
|
02510 MAP-BUSN-VOICE-SUFFIX-A DTSCSL5
|
|
02511 MAP-BUSN-VOICE-EXT-A. DTSCSL5
|
|
02512 DTSCSL5
|
|
02513 IF LCCM-NO-MSG DTSCSL5
|
|
02514 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02515 MOVE CATB-CURSOR TO MAP-BUSN-VOICE-AREA-CD-L DTSCSL5
|
|
02516 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02517 S2311-EXIT. DTSCSL5
|
|
02518 EXIT. DTSCSL5
|
|
02519 DTSCSL5
|
|
02520 DTSCSL5
|
|
02521 DTSCSL5
|
|
02522 ******************************************************************DTSCSL5
|
|
02523 * *DTSCSL5
|
|
02524 ******************************************************************DTSCSL5
|
|
02525 DTSCSL5
|
|
02526 S2315-BUSINESS-FAX. DTSCSL5
|
|
02527 MOVE MAP-BUSN-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
02528 DTSCSL5
|
|
02529 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
02530 DTSCSL5
|
|
02531 IF L021-NOT-VALID DTSCSL5
|
|
02532 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02533 PERFORM S2316-ERROR THRU S2316-EXIT DTSCSL5
|
|
02534 ELSE DTSCSL5
|
|
02535 IF L021-VALID DTSCSL5
|
|
02536 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5
|
|
02537 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5
|
|
02538 IF L073-NOT-VALID DTSCSL5
|
|
02539 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02540 PERFORM S2316-ERROR THRU S2316-EXIT DTSCSL5
|
|
02541 ELSE DTSCSL5
|
|
02542 MOVE L073-AREA-CD TO MAP-BUSN-FAX-AREA-CD DTSCSL5
|
|
02543 MOVE L073-PREFIX TO MAP-BUSN-FAX-PREFIX DTSCSL5
|
|
02544 MOVE L073-SUFFIX TO MAP-BUSN-FAX-SUFFIX. DTSCSL5
|
|
02545 * MOVE L073-EXT TO MAP-BUSN-FAX-EXT. DTSCSL5
|
|
02546 S2315-EXIT. DTSCSL5
|
|
02547 EXIT. DTSCSL5
|
|
02548 DTSCSL5
|
|
02549 DTSCSL5
|
|
02550 DTSCSL5
|
|
02551 S2316-ERROR. DTSCSL5
|
|
02552 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5
|
|
02553 TO MAP-BUSN-FAX-AREA-CD-A DTSCSL5
|
|
02554 MAP-BUSN-FAX-PREFIX-A DTSCSL5
|
|
02555 MAP-BUSN-FAX-SUFFIX-A. DTSCSL5
|
|
02556 DTSCSL5
|
|
02557 IF LCCM-NO-MSG DTSCSL5
|
|
02558 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02559 MOVE CATB-CURSOR TO MAP-BUSN-FAX-AREA-CD-L DTSCSL5
|
|
02560 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02561 S2316-EXIT. DTSCSL5
|
|
02562 EXIT. DTSCSL5
|
|
02563 DTSCSL5
|
|
02564 DTSCSL5
|
|
02565 ******************************************************************DTSCSL5
|
|
02566 * *DTSCSL5
|
|
02567 ******************************************************************DTSCSL5
|
|
02568 DTSCSL5
|
|
02569 S2320-TECH-PHONE. DTSCSL5
|
|
02570 MOVE MAP-TECH-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
02571 DTSCSL5
|
|
02572 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
02573 DTSCSL5
|
|
02574 IF L021-NOT-VALID DTSCSL5
|
|
02575 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02576 PERFORM S2321-ERROR THRU S2321-EXIT DTSCSL5
|
|
02577 ELSE DTSCSL5
|
|
02578 IF L021-VALID DTSCSL5
|
|
02579 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5
|
|
02580 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5
|
|
02581 IF L073-NOT-VALID DTSCSL5
|
|
02582 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02583 PERFORM S2321-ERROR THRU S2321-EXIT DTSCSL5
|
|
02584 ELSE DTSCSL5
|
|
02585 MOVE L073-AREA-CD TO MAP-TECH-VOICE-AREA-CD DTSCSL5
|
|
02586 MOVE L073-PREFIX TO MAP-TECH-VOICE-PREFIX DTSCSL5
|
|
02587 MOVE L073-SUFFIX TO MAP-TECH-VOICE-SUFFIX DTSCSL5
|
|
02588 MOVE L073-EXT TO MAP-TECH-VOICE-EXT. DTSCSL5
|
|
02589 S2320-EXIT. DTSCSL5
|
|
02590 EXIT. DTSCSL5
|
|
02591 DTSCSL5
|
|
02592 DTSCSL5
|
|
02593 DTSCSL5
|
|
02594 S2321-ERROR. DTSCSL5
|
|
02595 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5
|
|
02596 TO MAP-TECH-VOICE-AREA-CD-A DTSCSL5
|
|
02597 MAP-TECH-VOICE-PREFIX-A DTSCSL5
|
|
02598 MAP-TECH-VOICE-SUFFIX-A DTSCSL5
|
|
02599 MAP-TECH-VOICE-EXT-A. DTSCSL5
|
|
02600 DTSCSL5
|
|
02601 IF LCCM-NO-MSG DTSCSL5
|
|
02602 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02603 MOVE CATB-CURSOR TO MAP-TECH-VOICE-AREA-CD-L DTSCSL5
|
|
02604 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02605 S2321-EXIT. DTSCSL5
|
|
02606 EXIT. DTSCSL5
|
|
02607 DTSCSL5
|
|
02608 DTSCSL5
|
|
02609 DTSCSL5
|
|
02610 ******************************************************************DTSCSL5
|
|
02611 * *DTSCSL5
|
|
02612 ******************************************************************DTSCSL5
|
|
02613 DTSCSL5
|
|
02614 S2325-TECH-FAX. DTSCSL5
|
|
02615 MOVE MAP-TECH-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5
|
|
02616 DTSCSL5
|
|
02617 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5
|
|
02618 DTSCSL5
|
|
02619 IF L021-NOT-VALID DTSCSL5
|
|
02620 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02621 PERFORM S2326-ERROR THRU S2326-EXIT DTSCSL5
|
|
02622 ELSE DTSCSL5
|
|
02623 IF L021-VALID DTSCSL5
|
|
02624 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5
|
|
02625 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5
|
|
02626 IF L073-NOT-VALID DTSCSL5
|
|
02627 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5
|
|
02628 PERFORM S2326-ERROR THRU S2326-EXIT DTSCSL5
|
|
02629 ELSE DTSCSL5
|
|
02630 MOVE L073-AREA-CD TO MAP-TECH-FAX-AREA-CD DTSCSL5
|
|
02631 MOVE L073-PREFIX TO MAP-TECH-FAX-PREFIX DTSCSL5
|
|
02632 MOVE L073-SUFFIX TO MAP-TECH-FAX-SUFFIX. DTSCSL5
|
|
02633 S2325-EXIT. DTSCSL5
|
|
02634 EXIT. DTSCSL5
|
|
02635 DTSCSL5
|
|
02636 DTSCSL5
|
|
02637 DTSCSL5
|
|
02638 S2326-ERROR. DTSCSL5
|
|
02639 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5
|
|
02640 TO MAP-TECH-FAX-AREA-CD-A DTSCSL5
|
|
02641 MAP-TECH-FAX-PREFIX-A DTSCSL5
|
|
02642 MAP-TECH-FAX-SUFFIX-A. DTSCSL5
|
|
02643 DTSCSL5
|
|
02644 IF LCCM-NO-MSG DTSCSL5
|
|
02645 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5
|
|
02646 MOVE CATB-CURSOR TO MAP-TECH-FAX-AREA-CD-L DTSCSL5
|
|
02647 SET CURSOR-SET-YES TO TRUE. DTSCSL5
|
|
02648 S2326-EXIT. DTSCSL5
|
|
02649 EXIT. DTSCSL5
|
|
02650 DTSCSL5
|
|
02651 DTSCSL5
|
|
02652 ******************************************************************DTSCSL5
|
|
02653 * *DTSCSL5
|
|
02654 ******************************************************************DTSCSL5
|
|
02655 /*****************************************************************DTSCSL5
|
|
02656 * LOCK SCREEN FOR UPDATE CONFIRMATION *DTSCSL5
|
|
02657 ******************************************************************DTSCSL5
|
|
02658 DTSCSL5
|
|
02659 S5100-SET-LOCK-ATTRB. DTSCSL5
|
|
02660 MOVE CATB-ASKIP-BRT-MDTON TO SCR-ATB-AN DTSCSL5
|
|
02661 SCR-ATB-NUM. DTSCSL5
|
|
02662 DTSCSL5
|
|
02663 PERFORM S5110-HOLD-ATTRB THRU S5110-EXIT. DTSCSL5
|
|
02664 DTSCSL5
|
|
02665 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCSL5
|
|
02666 DTSCSL5
|
|
02667 PERFORM S5120-RESTORE-ATTRB THRU S5120-EXIT. DTSCSL5
|
|
02668 DTSCSL5
|
|
02669 MOVE CATB-ASKIP-BRT-MDTON TO MAP-ELF-ID-1-A DTSCSL5
|
|
02670 MAP-ELF-ID-2-A DTSCSL5
|
|
02671 MAP-DATA-TYPE-CD-A DTSCSL5
|
|
02672 MAP-GOTO-A. DTSCSL5
|
|
02673 S5100-EXIT. DTSCSL5
|
|
02674 EXIT. DTSCSL5
|
|
02675 DTSCSL5
|
|
02676 DTSCSL5
|
|
02677 DTSCSL5
|
|
02678 S5110-HOLD-ATTRB. DTSCSL5
|
|
02679 MOVE MAP-ATTN-LINE-A TO HOLD-ATTN-A. DTSCSL5
|
|
02680 DTSCSL5
|
|
02681 MOVE MAP-DELIV-LINE-1-A TO HOLD-DLV1-A. DTSCSL5
|
|
02682 DTSCSL5
|
|
02683 MOVE MAP-DELIV-LINE-2-A TO HOLD-DLV2-A. DTSCSL5
|
|
02684 DTSCSL5
|
|
02685 MOVE MAP-CITY-A TO HOLD-CITY-A. DTSCSL5
|
|
02686 DTSCSL5
|
|
02687 MOVE MAP-STATE-A TO HOLD-STAT-A. DTSCSL5
|
|
02688 DTSCSL5
|
|
02689 MOVE MAP-ZIP-A TO HOLD-ZIPC-A. DTSCSL5
|
|
02690 S5110-EXIT. DTSCSL5
|
|
02691 EXIT. DTSCSL5
|
|
02692 DTSCSL5
|
|
02693 DTSCSL5
|
|
02694 DTSCSL5
|
|
02695 S5120-RESTORE-ATTRB. DTSCSL5
|
|
02696 IF HOLD-ATTN-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02697 MOVE CATB-ASKIP-NORM-MDTON TO MAP-ATTN-LINE-A. DTSCSL5
|
|
02698 DTSCSL5
|
|
02699 IF HOLD-DLV1-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02700 MOVE CATB-ASKIP-NORM-MDTON TO MAP-DELIV-LINE-1-A. DTSCSL5
|
|
02701 DTSCSL5
|
|
02702 IF HOLD-DLV2-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02703 MOVE CATB-ASKIP-NORM-MDTON TO MAP-DELIV-LINE-2-A. DTSCSL5
|
|
02704 DTSCSL5
|
|
02705 IF HOLD-CITY-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02706 MOVE CATB-ASKIP-NORM-MDTON TO MAP-CITY-A. DTSCSL5
|
|
02707 DTSCSL5
|
|
02708 IF HOLD-STAT-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02709 MOVE CATB-ASKIP-NORM-MDTON TO MAP-STATE-A. DTSCSL5
|
|
02710 DTSCSL5
|
|
02711 IF HOLD-ZIPC-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5
|
|
02712 MOVE CATB-ASKIP-NORM-MDTON TO MAP-ZIP-A. DTSCSL5
|
|
02713 S5120-EXIT. DTSCSL5
|
|
02714 EXIT. DTSCSL5
|
|
02715 DTSCSL5
|
|
02716 DTSCSL5
|
|
02717 DTSCSL5
|
|
02718 ******************************************************************DTSCSL5
|
|
02719 * SET ATTIBUTE BYTES FOR UPDATE ACCESS *DTSCSL5
|
|
02720 ******************************************************************DTSCSL5
|
|
02721 DTSCSL5
|
|
02722 S5200-SET-UPDATE-ATTRB. DTSCSL5
|
|
02723 MOVE CATB-UNPROT-BRT-AN-MDTON TO SCR-ATB-AN. DTSCSL5
|
|
02724 DTSCSL5
|
|
02725 MOVE CATB-UNPROT-BRT-NUM-MDTON TO SCR-ATB-NUM. DTSCSL5
|
|
02726 DTSCSL5
|
|
02727 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCSL5
|
|
02728 DTSCSL5
|
|
02729 IF ELF-ID-EXTERNAL-88 OR ELF-ID-BLANK-88 DTSCSL5
|
|
02730 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5
|
|
02731 DTSCSL5
|
|
02732 S5200-EXIT. DTSCSL5
|
|
02733 EXIT. DTSCSL5
|
|
02734 DTSCSL5
|
|
02735 DTSCSL5
|
|
02736 DTSCSL5
|
|
02737 ******************************************************************DTSCSL5
|
|
02738 * SET ATTRIBUTE BYTES FOR INQUIRY STATUS *DTSCSL5
|
|
02739 ******************************************************************DTSCSL5
|
|
02740 DTSCSL5
|
|
02741 S5300-SET-INQ-ATTRB. DTSCSL5
|
|
02742 MOVE CATB-ASKIP-BRT-MDTOFF TO SCR-ATB-AN DTSCSL5
|
|
02743 SCR-ATB-NUM. DTSCSL5
|
|
02744 DTSCSL5
|
|
02745 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCSL5
|
|
02746 S5300-EXIT. DTSCSL5
|
|
02747 EXIT. DTSCSL5
|
|
02748 /*****************************************************************DTSCSL5
|
|
02749 * *DTSCSL5
|
|
02750 ******************************************************************DTSCSL5
|
|
02751 DTSCSL5
|
|
02752 S5900-SET-ATTRB. DTSCSL5
|
|
02753 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-ELF-ID-1-A DTSCSL5
|
|
02754 MAP-ELF-ID-2-A. DTSCSL5
|
|
02755 DTSCSL5
|
|
02756 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A DTSCSL5
|
|
02757 MAP-DATA-TYPE-CD-A. DTSCSL5
|
|
02758 DTSCSL5
|
|
02759 MOVE CATB-ASKIP-BRT-MDTON TO MAP-ELF-NAME-A DTSCSL5
|
|
02760 MAP-DATA-TYPE-NAME-A DTSCSL5
|
|
02761 MAP-MEDIUM-TYPE-NAME-A DTSCSL5
|
|
02762 MAP-FORMAT-TYPE-NAME-A DTSCSL5
|
|
02763 MAP-ESTB-MO-A DTSCSL5
|
|
02764 MAP-ESTB-DA-A DTSCSL5
|
|
02765 MAP-ESTB-YR-A DTSCSL5
|
|
02766 MAP-CHNG-MO-A DTSCSL5
|
|
02767 MAP-CHNG-DA-A DTSCSL5
|
|
02768 MAP-CHNG-YR-A DTSCSL5
|
|
02769 MAP-CHNG-OPID-A DTSCSL5
|
|
02770 MAP-CASS-CD-A. DTSCSL5
|
|
02771 DTSCSL5
|
|
02772 MOVE SCR-ATB-AN TO MAP-MEDIUM-TYPE-CD-A DTSCSL5
|
|
02773 MAP-FORMAT-TYPE-CD-A DTSCSL5
|
|
02774 MAP-JOB-NAME-A DTSCSL5
|
|
02775 MAP-FORMAT-NOTES-A DTSCSL5
|
|
02776 MAP-BUSN-CONTACT-NAME-A DTSCSL5
|
|
02777 MAP-BUSN-CONTACT-EMAIL-A DTSCSL5
|
|
02778 MAP-TECH-CONTACT-NAME-A DTSCSL5
|
|
02779 MAP-TECH-CONTACT-EMAIL-A DTSCSL5
|
|
02780 MAP-BUSN-VOICE-AREA-CD-A DTSCSL5
|
|
02781 MAP-BUSN-VOICE-PREFIX-A DTSCSL5
|
|
02782 MAP-BUSN-VOICE-SUFFIX-A DTSCSL5
|
|
02783 MAP-BUSN-VOICE-EXT-A DTSCSL5
|
|
02784 MAP-BUSN-FAX-AREA-CD-A DTSCSL5
|
|
02785 MAP-BUSN-FAX-PREFIX-A DTSCSL5
|
|
02786 MAP-BUSN-FAX-SUFFIX-A DTSCSL5
|
|
02787 MAP-TECH-VOICE-AREA-CD-A DTSCSL5
|
|
02788 MAP-TECH-VOICE-PREFIX-A DTSCSL5
|
|
02789 MAP-TECH-VOICE-SUFFIX-A DTSCSL5
|
|
02790 MAP-TECH-VOICE-EXT-A DTSCSL5
|
|
02791 MAP-TECH-FAX-AREA-CD-A DTSCSL5
|
|
02792 MAP-TECH-FAX-PREFIX-A DTSCSL5
|
|
02793 MAP-TECH-FAX-SUFFIX-A DTSCSL5
|
|
02794 MAP-ATTN-LINE-A DTSCSL5
|
|
02795 MAP-DELIV-LINE-1-A DTSCSL5
|
|
02796 MAP-DELIV-LINE-2-A DTSCSL5
|
|
02797 MAP-CASS-IND-A DTSCSL5
|
|
02798 MAP-CITY-A DTSCSL5
|
|
02799 MAP-STATE-A DTSCSL5
|
|
02800 MAP-ZIP-A. DTSCSL5
|
|
02801 S5900-EXIT. DTSCSL5
|
|
02802 EXIT. DTSCSL5
|
|
02803 /*****************************************************************DTSCSL5
|
|
02804 * FILE READ COMMON PREPARATION ROUTINES *DTSCSL5
|
|
02805 ******************************************************************DTSCSL5
|
|
02806 DTSCSL5
|
|
02807 S8100-READ-MPRF. DTSCSL5
|
|
02808 MOVE LOW-VALUES TO MPRF-KEY-AREA. DTSCSL5
|
|
02809 DTSCSL5
|
|
02810 MOVE WRK-ELF-ID TO MPRF-EMP-NO. DTSCSL5
|
|
02811 DTSCSL5
|
|
02812 SET MPRF-PRF-88 TO TRUE. DTSCSL5
|
|
02813 DTSCSL5
|
|
02814 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSCSL5
|
|
02815 DTSCSL5
|
|
02816 PERFORM S810-READ THRU S810-EXIT. DTSCSL5
|
|
02817 IF L810-OK-88 DTSCSL5
|
|
02818 MOVE MSKL-REC TO MPRF-REC DTSCSL5
|
|
02819 SET WRK-MPRF-YES-88 TO TRUE DTSCSL5
|
|
02820 ELSE DTSCSL5
|
|
02821 SET WRK-MPRF-NO-88 TO TRUE. DTSCSL5
|
|
02822 DTSCSL5
|
|
02823 S8100-EXIT. DTSCSL5
|
|
02824 EXIT. DTSCSL5
|
|
02825 DTSCSL5
|
|
02826 DTSCSL5
|
|
02827 DTSCSL5
|
|
02828 *S8200-READ-MFAE. DTSCSL5
|
|
02829 * MOVE LOW-VALUES TO MFAE-KEY-AREA. DTSCSL5
|
|
02830 * DTSCSL5
|
|
02831 * MOVE WRK-ELF-ID TO MFAE-EMP-NO. DTSCSL5
|
|
02832 * DTSCSL5
|
|
02833 * SET MFAE-FAE-88 TO TRUE. DTSCSL5
|
|
02834 * DTSCSL5
|
|
02835 * MOVE MFAE-KEY-AREA TO MSKL-KEY-AREA. DTSCSL5
|
|
02836 * DTSCSL5
|
|
02837 * PERFORM S810-READ THRU S810-EXIT. DTSCSL5
|
|
02838 *S8200-EXIT. DTSCSL5
|
|
02839 * EXIT. DTSCSL5
|
|
02840 /*****************************************************************DTSCSL5
|
|
02841 * MAP ROUTINES *DTSCSL5
|
|
02842 ******************************************************************DTSCSL5
|
|
02843 DTSCSL5
|
|
02844 S9100-RECEIVE. DTSCSL5
|
|
02845 SET L851-RECEIVE-88 TO TRUE. DTSCSL5
|
|
02846 DTSCSL5
|
|
02847 MOVE WRK-SCR-ID TO L851-SCR-ID. DTSCSL5
|
|
02848 DTSCSL5
|
|
02849 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCSL5
|
|
02850 DTSCSL5
|
|
02851 MOVE L851-AID TO LCCM-AID. DTSCSL5
|
|
02852 DTSCSL5
|
|
02853 MOVE L851-CURSOR TO LCCM-CURSOR. DTSCSL5
|
|
02854 S9100-EXIT. DTSCSL5
|
|
02855 EXIT. DTSCSL5
|
|
02856 DTSCSL5
|
|
02857 DTSCSL5
|
|
02858 DTSCSL5
|
|
02859 ******************************************************************DTSCSL5
|
|
02860 * *DTSCSL5
|
|
02861 ******************************************************************DTSCSL5
|
|
02862 DTSCSL5
|
|
02863 S9200-SEND-DATAONLY. DTSCSL5
|
|
02864 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5
|
|
02865 DTSCSL5
|
|
02866 IF LCCM-NO-MSG DTSCSL5
|
|
02867 NEXT SENTENCE DTSCSL5
|
|
02868 ELSE DTSCSL5
|
|
02869 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCSL5
|
|
02870 DTSCSL5
|
|
02871 IF CURSOR-SET-GOTO DTSCSL5
|
|
02872 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCSL5
|
|
02873 ELSE DTSCSL5
|
|
02874 MOVE CATB-CURSOR TO MAP-ELF-ID-1-L. DTSCSL5
|
|
02875 DTSCSL5
|
|
02876 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCSL5
|
|
02877 DTSCSL5
|
|
02878 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCSL5
|
|
02879 DTSCSL5
|
|
02880 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCSL5
|
|
02881 S9200-EXIT. DTSCSL5
|
|
02882 EXIT. DTSCSL5
|
|
02883 DTSCSL5
|
|
02884 DTSCSL5
|
|
02885 DTSCSL5
|
|
02886 ******************************************************************DTSCSL5
|
|
02887 * *DTSCSL5
|
|
02888 ******************************************************************DTSCSL5
|
|
02889 DTSCSL5
|
|
02890 S9300-SEND-MAP. DTSCSL5
|
|
02891 MOVE LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE. DTSCSL5
|
|
02892 DTSCSL5
|
|
02893 MOVE LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME. DTSCSL5
|
|
02894 DTSCSL5
|
|
02895 MOVE LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME. DTSCSL5
|
|
02896 DTSCSL5
|
|
02897 IF SCR-ACCESS-UPDATE DTSCSL5
|
|
02898 PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT DTSCSL5
|
|
02899 ELSE DTSCSL5
|
|
02900 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCSL5
|
|
02901 DTSCSL5
|
|
02902 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCSL5
|
|
02903 DTSCSL5
|
|
02904 IF CURSOR-SET-NO DTSCSL5
|
|
02905 MOVE CATB-CURSOR TO MAP-ELF-ID-1-L. DTSCSL5
|
|
02906 DTSCSL5
|
|
02907 SET L851-SEND-88 TO TRUE. DTSCSL5
|
|
02908 DTSCSL5
|
|
02909 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCSL5
|
|
02910 DTSCSL5
|
|
02911 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCSL5
|
|
02912 S9300-EXIT. DTSCSL5
|
|
02913 EXIT. DTSCSL5
|
|
02914 DTSCSL5
|
|
02915 DTSCSL5
|
|
02916 DTSCSL5
|
|
02917 S9310-UPDATE-FKEYS. DTSCSL5
|
|
02918 MOVE CFKD-ADD TO MAP-KEY-ADD. DTSCSL5
|
|
02919 DTSCSL5
|
|
02920 MOVE CFKD-MOD TO MAP-KEY-MOD. DTSCSL5
|
|
02921 DTSCSL5
|
|
02922 MOVE 'F11=UNLK' TO MAP-KEY-UNLK. DTSCSL5
|
|
02923 DTSCSL5
|
|
02924 MOVE CFKD-DEL TO MAP-KEY-DEL. DTSCSL5
|
|
02925 DTSCSL5
|
|
02926 IF LCCM-SCR-CLEAR DTSCSL5
|
|
02927 MOVE LOW-VALUES TO MAP-KEY-MOD DTSCSL5
|
|
02928 MAP-KEY-DEL DTSCSL5
|
|
02929 MAP-KEY-UNLK DTSCSL5
|
|
02930 ELSE DTSCSL5
|
|
02931 IF LCCM-SCR-INQUIRE DTSCSL5
|
|
02932 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCSL5
|
|
02933 ELSE DTSCSL5
|
|
02934 IF LCCM-SCR-UPDATE-LOCKED DTSCSL5
|
|
02935 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCSL5
|
|
02936 MAP-KEY-MOD DTSCSL5
|
|
02937 MAP-KEY-UNLK DTSCSL5
|
|
02938 MAP-KEY-DEL. DTSCSL5
|
|
02939 S9310-EXIT. DTSCSL5
|
|
02940 EXIT. DTSCSL5
|
|
02941 DTSCSL5
|
|
02942 DTSCSL5
|
|
02943 DTSCSL5
|
|
02944 S9320-INQUIRY-FKEYS. DTSCSL5
|
|
02945 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCSL5
|
|
02946 MAP-KEY-MOD DTSCSL5
|
|
02947 MAP-KEY-UNLK DTSCSL5
|
|
02948 MAP-KEY-DEL. DTSCSL5
|
|
02949 S9320-EXIT. DTSCSL5
|
|
02950 EXIT. DTSCSL5
|
|
02951 /*****************************************************************DTSCSL5
|
|
02952 * *DTSCSL5
|
|
02953 ******************************************************************DTSCSL5
|
|
02954 DTSCSL5
|
|
02955 S9900-PREPARE-SEND. DTSCSL5
|
|
02956 MOVE WRK-SCR-ID TO L851-SCR-ID DTSCSL5
|
|
02957 LCCM-SCR-ID. DTSCSL5
|
|
02958 DTSCSL5
|
|
02959 MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND. DTSCSL5
|
|
02960 DTSCSL5
|
|
02961 MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE. DTSCSL5
|
|
02962 S9900-EXIT. DTSCSL5
|
|
02963 EXIT. DTSCSL5
|