00001 IDENTIFICATION DIVISION. 05/19/08 00002 PROGRAM-ID. DTSCS44. DTSCS44 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV053 00004 DATE-WRITTEN. JUNE 1994. DTSCS44 00005 DATE-COMPILED. DTSCS44 00006 SKIP3 DTSCS44 00007 ***** DTSCS44 00008 * DTSCS44 00009 * FUNCTION: LIEN INQUIRY/UPDATE DTSCS44 00010 * SCREEN PROCESSOR. DTSCS44 00011 * DTSCS44 00012 * DTSCS44 00013 * MODIFICATION LOG: DTSCS44 00014 * DTSCS44 00015 * DTSCS44 00016 * 01/20/98 INITIAL DEVELOPMENT. COPIED FROM MACCS45 DTSCS44 00017 * REFERENCE RFP: PROGRAMMER: ZL1 DTSCS44 00018 * DTSCS44 00019 * 05/18/1999 PICKUP MODIFICATIONS. ENTRY OF AND DISPLAY OF DTSCS44 00020 * 'PU' IN YR/Q. DISPLAY OF 'P' IN REPORT TYPE. DTSCS44 00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSCS44 00022 * DTSCS44 00023 * 09/29/2000 LIEN MODIFICATIONS. RECORDER OF DEEDS ISSUES DTSCS44 00024 * IT'S OWN DOCUMENT NO, AND STAMPS IT ON THE DTSCS44 00025 * LIEN BEFORE RETURNING A COPY TO DOES. DTSCS44 00026 * REFERENCE: SPEC027_LIENS PROGRAMMER: ZL1 DTSCS44 00027 * DTSCS44 00028 * 03/21/2001 CORRECTED EDIT IN S2200-CERTIFICATE-DATE. DTSCS44 00029 * THE CERTIFICATE DATE IS REQUIRED WHEN THE DTSCS44 00030 * RECORDER OF DEEDS NUMBER IS ENTERED. DTSCS44 00031 * THE CODE WAS CHECKING FOR A CERTIFICATE DTSCS44 00032 * NUMBER RATHER THAN THE RECORDER OF DEEDS DTSCS44 00033 * NUMBER. DTSCS44 00034 * REFERENCE: ROSA PROGRAMMER: GD DTSCS44 00035 * DTSCS44 00036 * DTSCS44 00037 * 10/02/2002 HOUSEHOLD MODIFICATION. DISPLAY ONE LINE OF DATA DTSCS44 00038 * FOR ANNUAL FILERS. DISPLAY AN (*) IN THE QTR DTSCS44 00039 * FIELD TO INDICATE ANNUAL FILING. DTSCS44 00040 * REFERENCE: HOUSEHOLD PROGRAMMER: ZL1 DTSCS44 00041 * DTSCS44 00042 * 03/25/2005 REMOVED DELETE FACILITY. LIENS MAY BE WITHDRAWN DTSCS44 00043 * BUT NOT DELETED. DTSCS44 00044 * MODIFIED TO REQUIRE SELECTION OF AN ADDRESS. DTSCS44 00045 * PREVIOUSLY, THE PROGRAM DEFAULTED TO THE DTSCS44 00046 * MAILING ADDRESS. DTSCS44 00047 * ADDED PROCESSING (S3100) TO CHECK FOR A PENDING DTSCS44 00048 * DPC - LIEN MAY NOT BE ADDED IF THERE IS A DTSCS44 00049 * PENDING DPC. DTSCS44 00050 * REFERENCE: PROGRAMMER: GD DTSCS44 00051 * DTSCS44 00052 * 08/14/2006 UPDATED FOR ADMINISTRATIVE ASSESSMENT. UI TAX DTSCS44 00053 * ONLY IS INCLUDED IN PENALTY AND INTEREST DTSCS44 00054 * CALCULATIONS: S4000-INTEREST. DTSCS44 00055 * REFERENCE: ADMIN ASSESSMENT PROGRAMMER: GD DTSCS44 00056 * DTSCS44 00057 * 02/18/2008 UPDATED FOR ADMINISTRATIVE ASSESSMENT. SUR TAX DTSCS44 00058 * INCLUDED IN PENALTY AND INTEREST DTSCS44 00059 * CALCULATIONS: S4000-INTEREST. DTSCS44 00060 * REFERENCE: ADMIN ASSESSMENT PROGRAMMER: GD DTSCS44 00061 * DTSCS44 00062 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS44 00063 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS44 00064 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCS44 00065 * DTSCS44 00066 * DTSCS44 00067 * DESCRIPTION: DTSCS44 00068 * DTSCS44 00069 * CLEAR: DTSCS44 00070 * DTSCS44 00071 * FIELD DISPLAYED: MAP-EMP-NO (FROM LCCM-EMP-NO). DTSCS44 00072 * DTSCS44 00073 * DTSCS44 00074 * JUMP: DTSCS44 00075 * DTSCS44 00076 * F19 QUARTER INQUIRY (31). DTSCS44 00077 * F20 COLLECTIONS INQUIRY (41). DTSCS44 00078 * F21 OWNER/PARTNER/OFFICER INQUIRY/UPDATE (15). DTSCS44 00079 * DTSCS44 00080 * DTSCS44 00081 * INQUIRY: DTSCS44 00082 * DTSCS44 00083 * CONTROL FIELD(S): MAP-EMP-NO. DTSCS44 00084 * DTSCS44 00085 * JUMP IN: IF LCCM-EMP-NO = LCCM-SCR44-HOLD-AREA EMP-NO DTSCS44 00086 * DISPLAY RECORD INDICATED BY DTSCS44 00087 * LCCM-SCR44-HOLD-AREA DTSCS44 00088 * ELSE DTSCS44 00089 * DISPLAY LAST PAGE OF DATA ASSOCIATED DTSCS44 00090 * WITH LCCM-EMP-NO. DTSCS44 00091 * DTSCS44 00092 * ENTER, F05, F06, F07, F08: STANDARD PAGING. DTSCS44 00093 * DTSCS44 00094 * DISPLAY SEQUENCE: ASCENDING ON MLIN-ESTB-ABSTIME. DTSCS44 00095 * DTSCS44 00096 * PAGE INITIALLY DISPLAYED: LAST. DTSCS44 00097 * DTSCS44 00098 * DTSCS44 00099 * JUMP OUT: STANDARD LCCM-EMP-NO MAINTENANCE. DTSCS44 00100 * DTSCS44 00101 * STORE INFORMATION REPRESENTING PAGE DTSCS44 00102 * CURRENTLY DISPLAYED IN LCCM-SCR44-HOLD-AREA. DTSCS44 00103 * DTSCS44 00104 * DTSCS44 00105 * STORE PAGING CONTROL INFORMATION IN LCCM-SCR-HOLD-AREA. DTSCS44 00106 * DTSCS44 00107 * MAINTAIN LCCM-COMP-DATE. DTSCS44 00108 * DTSCS44 00109 * DTSCS44 00110 * UPDATE: DTSCS44 00111 * DTSCS44 00112 * ADD DTSCS44 00113 * MOD DTSCS44 00114 * DEL DTSCS44 00115 * DTSCS44 00116 * DTSCS44 00117 * RECORDS READ: DTSCS44 00118 * DTSCS44 00119 * MASTER: DTSCS44 00120 * DTSCS44 00121 * MPRF DTSCS44 00122 * MLIN DTSCS44 00123 * MQTR DTSCS44 00124 * MOPO DTSCS44 00125 * DTSCS44 00126 * DTSCS44 00127 * ALTERNATE INDEX: DTSCS44 00128 * DTSCS44 00129 * NONE. DTSCS44 00130 * DTSCS44 00131 * DTSCS44 00132 * REFERENCE: DTSCS44 00133 * DTSCS44 00134 * NONE. DTSCS44 00135 * DTSCS44 00136 * DTSCS44 00137 * ACCOUNTING TRANSACTION COLLECTION: DTSCS44 00138 * DTSCS44 00139 * NONE. DTSCS44 00140 * DTSCS44 00141 * DTSCS44 00142 * RECORDS UPDATED: DTSCS44 00143 * DTSCS44 00144 * MASTER: DTSCS44 00145 * DTSCS44 00146 * MPRF (REWRITE) MAINTAIN MPRF-MLIN-IND. DTSCS44 00147 * DTSCS44 00148 * MLIN (WRITE, REWRITE, DELETE) DTSCS44 00149 * DTSCS44 00150 * MTCK (WRITE) DTSCS44 00151 * IF 'ADD', THEN WRITE A MTCK RECORD WITH TRIGGER DATE DTSCS44 00152 * EQUAL TO CURRENT PROCESSING DATE PLUS 14 DAYS; TYPE DTSCS44 00153 * EQUAL TO 'L01'; AND DESTINATION EQUAL TO 'SYSTEM'. DTSCS44 00154 * DTSCS44 00155 * MEVL (WRITE) DTSCS44 00156 * IF A LIEN IS 'RELEASED' OR 'WITHDRAWN', OR A LIEN IS DTSCS44 00157 * DELETED, THEN WRITE AN MEVL RECORD COMMEMORATING THE DTSCS44 00158 * EVENT. DTSCS44 00159 * DTSCS44 00160 * DTSCS44 00161 * REFERENCE: DTSCS44 00162 * DTSCS44 00163 * NONE. DTSCS44 00164 * DTSCS44 00165 * DTSCS44 00166 * ACCOUNTING TRANSACTION COLLECTION: DTSCS44 00167 * DTSCS44 00168 * NONE. DTSCS44 00169 * DTSCS44 00170 * DTSCS44 00171 * ON-LINE ACTIVITY FILE RECORDS WRITTEN: DTSCS44 00172 * DTSCS44 00173 * IF FUNCTION IS 'ADD' AND LIEN STATUS IS 'OPEN' DTSCS44 00174 * WRITE A T011 RECORD (T011-TRN-CD = '01') DTSCS44 00175 * DTSCS44 00176 * DTSCS44 00177 * TEMPORARY STORAGE USAGE: DTSCS44 00178 * DTSCS44 00179 * NONE DTSCS44 00180 * DTSCS44 00181 * DTSCS44 00182 * MODULES LINKED TO: DTSCS44 00183 * DTSCS44 00184 * DTSCU001 DATE EDIT/CONVERSION. DTSCS44 00185 * DTSCU004 QUARTER EDIT/CONVERSION. DTSCS44 00186 * DTSCU005 FORMAT ABSTIME FOR SCREEN DISPLAY DTSCS44 00187 * DTSCU011 AMOUNT FROM SCREEN FORMAT/EDIT. DTSCS44 00188 * DTSCU015 DATE FROM SCREEN FORMAT/EDIT. DTSCS44 00189 * DTSCU029 YEAR/QUARTER FROM SCREEN FORMAT/EDIT. DTSCS44 00190 * DTSCU018 EMPLOYER NUMBER FROM SCREEN FORMAT/EDIT. DTSCS44 00191 * DTSCU034 COLLECTIONS CODES EDIT/DESCRIPTION. DTSCS44 00192 * DTSCU041 LIEN COUNTY CODE EDIT/DESCRIPTION. DTSCS44 00193 * DTSCU101 INTEREST AND PENALTY CHARGE/ABATEMENT DTSCS44 00194 * COMPUTATION. DTSCS44 00195 * DTSCU111 ADDRESS LOOKUP. DTSCS44 00196 * DTSCU112 FORMAT ADDRESS FOR MAILING. DTSCS44 00197 * DTSCU221 EMPLOYER LOCK/UNLOCK. DTSCS44 00198 * DTSCU810 MASTER FILE INPUT/OUTPUT. DTSCS44 00199 * DTSCU825 ON-LINE ACTIVITY FILE OUTPUT. DTSCS44 00200 * DTSCS44 00201 * DTSCS44 00202 DTSCS44 00203 ENVIRONMENT DIVISION. DTSCS44 00204 DTSCS44 00205 DATA DIVISION. DTSCS44 00206 DTSCS44 00207 WORKING-STORAGE SECTION. DTSCS44 002075 77 PAN-VALET PICTURE X(24) VALUE '053DTSCS44 05/19/08'. DTSCS44 00208 DTSCS44 00209 01 WRK-AREA. DTSCS44 00210 05 WRK-ABEND-CD PIC X(04) VALUE 'S44 '. DTSCS44 00211 DTSCS44 00212 05 WRK-SCR-ID. DTSCS44 00213 10 WRK-SCR-ID-N PIC 9(02) VALUE 44. DTSCS44 00214 DTSCS44 00215 05 WRK-F03-SCR-ID PIC X(02) VALUE '40'. DTSCS44 00216 DTSCS44 00217 05 ALL-NINES-DATE PIC S9(09) COMP-3 DTSCS44 00218 VALUE +999999999. DTSCS44 00219 DTSCS44 00220 05 SCR-ACCESS-IND PIC X(01). DTSCS44 00221 88 SCR-ACCESS-INQ VALUE '1'. DTSCS44 00222 88 SCR-ACCESS-UPDATE VALUE '2'. DTSCS44 00223 DTSCS44 00224 05 CURSOR-SET-IND PIC X(01). DTSCS44 00225 88 CURSOR-SET-YES VALUE 'Y'. DTSCS44 00226 88 CURSOR-SET-NO VALUE 'N'. DTSCS44 00227 88 CURSOR-SET-GOTO VALUE 'G'. DTSCS44 00228 DTSCS44 00229 05 REQ-IND PIC X(01). DTSCS44 00230 88 REQ-CURSOR-TO-GOTO VALUE 'G'. DTSCS44 00231 88 REQ-ERROR VALUE 'O'. DTSCS44 00232 88 REQ-JUMP VALUE 'J'. DTSCS44 00233 88 REQ-UPDATE VALUE 'U'. DTSCS44 00234 88 REQ-INQUIRE VALUE 'I'. DTSCS44 00235 88 REQ-CLEAR VALUE 'C'. DTSCS44 00236 88 REQ-EDIT VALUE 'E'. DTSCS44 00237 DTSCS44 00238 05 RESP-IND PIC X(01). DTSCS44 00239 88 RESP-SEND-MSGONLY VALUE 'O'. DTSCS44 00240 88 RESP-SEND-MAP VALUE 'M'. DTSCS44 00241 88 RESP-JUMP VALUE 'J'. DTSCS44 00242 88 RESP-CURSOR-TO-GOTO VALUE 'G'. DTSCS44 00243 DTSCS44 00244 05 WRK-MSG-AREA PIC X(64). DTSCS44 00245 DTSCS44 00246 05 WRK-ATB-AN PIC X(01). DTSCS44 00247 DTSCS44 00248 05 WRK-ATB-NUM PIC X(01). DTSCS44 00249 DTSCS44 00250 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSCS44 00251 DTSCS44 00252 05 WRK-CERT-NO PIC 9(08). DTSCS44 00253 DTSCS44 00254 05 WRK-EDIT-CERT-NO REDEFINES WRK-CERT-NO. DTSCS44 00255 10 WRK-EDIT-CERT-NO1 PIC 9(04). DTSCS44 00256 10 WRK-EDIT-CERT-NO2 PIC 9(04). DTSCS44 00257 DTSCS44 00258 05 WRK-AMT-DUE PIC S9(09)V9(02) COMP-3. DTSCS44 00259 05 WRK-TOT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSCS44 00260 05 WRK-YRQ-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSCS44 00261 05 WRK-YRQ-WRITTEN-OFF-AMT PIC S9(09)V9(02) COMP-3. DTSCS44 00262 DTSCS44 00263 05 WRK-STATUS-CD PIC X(01). DTSCS44 00264 DTSCS44 00265 05 WRK-SUB PIC S9(04) COMP. DTSCS44 00266 DTSCS44 00267 05 MAP-CNT PIC S9(04) COMP. DTSCS44 00268 05 WRK-SUB2 PIC S9(04) COMP. DTSCS44 00269 DTSCS44 00270 05 WRK-TBL-SUB PIC S9(04) COMP. DTSCS44 00271 DTSCS44 00272 05 WRK-SUB-MINUS-ONE PIC S9(04) COMP. DTSCS44 00273 DTSCS44 00274 05 WRK-NO-ENTRY-CTR PIC S9(04) COMP. DTSCS44 00275 DTSCS44 00276 05 WRK-MPRF-IND PIC X(01). DTSCS44 00277 88 WRK-MPRF-YES-88 VALUE 'Y'. DTSCS44 00278 88 WRK-MPRF-NO-88 VALUE 'N'. DTSCS44 00279 DTSCS44 00280 05 WRK-MLIN-IND PIC X(01). DTSCS44 00281 88 WRK-MLIN-YES-88 VALUE 'Y'. DTSCS44 00282 88 WRK-MLIN-NO-88 VALUE 'N'. DTSCS44 00283 DTSCS44 00284 05 WRK-STMT-DATE PIC S9(09) COMP-3. DTSCS44 00285 05 WRK-CERT-DATE PIC S9(09) COMP-3. DTSCS44 00286 05 WRK-MAIL-DATE PIC S9(09) COMP-3. DTSCS44 00287 DTSCS44 00288 05 WRK-TBL OCCURS 21 TIMES. DTSCS44 00289 10 WRK-TBL-QTR PIC S9(05) COMP-3. DTSCS44 00290 10 WRK-TBL-BALANCE PIC S9(09)V99 COMP-3. DTSCS44 00291 10 WRK-TBL-RPT-TYPE PIC X(01). DTSCS44 00292 DTSCS44 00293 05 WRK-YRQ PIC 9(05). DTSCS44 00294 05 FILLER REDEFINES WRK-YRQ. DTSCS44 00295 10 WRK-YRQ-YR PIC 9(04). DTSCS44 00296 10 WRK-YRQ-Q PIC 9(01). DTSCS44 00297 DTSCS44 00298 DTSCS44 00299 05 WRK-CURR-ANN-YRQ PIC 9(05). DTSCS44 00300 05 FILLER REDEFINES WRK-CURR-ANN-YRQ. DTSCS44 00301 10 WRK-CURR-ANN-YR. DTSCS44 00302 15 WRK-CURR-ANN-CC PIC 9(02). DTSCS44 00303 15 WRK-CURR-ANN-YY PIC 9(02). DTSCS44 00304 10 WRK-CURR-ANN-Q PIC 9(01). DTSCS44 00305 DTSCS44 00306 05 WRK-DISPLAY PIC 9(11). DTSCS44 00307 DTSCS44 00308 05 FILLER REDEFINES WRK-DISPLAY. DTSCS44 00309 10 FILLER PIC X(05). DTSCS44 00310 10 WRK-DISPLAY-EMP-NO-1 PIC X(03). DTSCS44 00311 10 WRK-DISPLAY-EMP-NO-2 PIC X(03). DTSCS44 00312 DTSCS44 00313 05 FILLER REDEFINES WRK-DISPLAY. DTSCS44 00314 10 FILLER PIC X(05). DTSCS44 00315 10 WRK-DISPLAY-YR PIC X(02). DTSCS44 00316 10 WRK-DISPLAY-MO PIC X(02). DTSCS44 00317 10 WRK-DISPLAY-DA PIC X(02). DTSCS44 00318 DTSCS44 00319 05 FILLER REDEFINES WRK-DISPLAY. DTSCS44 00320 10 FILLER PIC X(08). DTSCS44 00321 10 WRK-DISPLAY-YRQ-YR PIC X(02). DTSCS44 00322 10 WRK-DISPLAY-YRQ-Q PIC X(01). DTSCS44 00323 DTSCS44 00324 05 FILLER REDEFINES WRK-DISPLAY. DTSCS44 00325 10 FILLER PIC X(05). DTSCS44 00326 10 WRK-DISPLAY-CERT-NO-1 PIC X(02). DTSCS44 00327 10 WRK-DISPLAY-CERT-NO-2 PIC X(04). DTSCS44 00328 DTSCS44 00329 DTSCS44 00330 05 INQUIRY-CONTROL-AREA. DTSCS44 00331 10 LAST-REC-NUM PIC S9(08) COMP. DTSCS44 00332 10 WS-REC-NUM PIC S9(08) COMP. DTSCS44 00333 DTSCS44 00334 10 LAST-REC-KEY-AREA PIC X(16). DTSCS44 00335 10 SCR-REC-KEY-AREA PIC X(16). DTSCS44 00336 DTSCS44 00337 10 WS-REC-FOUND-IND PIC X(01). DTSCS44 00338 DTSCS44 00339 DTSCS44 00340 05 EVL-TEXT. DTSCS44 00341 10 FILLER PIC X(05) VALUE 'LIEN '. DTSCS44 00342 10 EVL-STATUS-CD-DSCR PIC X(12). DTSCS44 00343 10 FILLER PIC X(15) DTSCS44 00344 VALUE 'CERTIFICATE #: '. DTSCS44 00345 10 EVL-CERTIFICATE-NO PIC 9(02)B9(04). DTSCS44 00346 EJECT DTSCS44 00347 01 MSG-LITERALS. DTSCS44 00348 DTSCS44 00349 05 MSG-E441-AREA. DTSCS44 00350 10 FILLER PIC X(04) VALUE 'E441'. DTSCS44 00351 10 FILLER PIC X(30) DTSCS44 00352 VALUE 'YRQ MUST BE IN ASCENDING SEQUE'. DTSCS44 00353 10 FILLER PIC X(30) DTSCS44 00354 VALUE 'NCE '. DTSCS44 00355 DTSCS44 00356 05 MSG-E442-AREA. DTSCS44 00357 10 FILLER PIC X(04) VALUE 'E442'. DTSCS44 00358 10 FILLER PIC X(30) DTSCS44 00359 VALUE 'BALANCE DUE EQUAL TO ZERO '. DTSCS44 00360 10 FILLER PIC X(30) DTSCS44 00361 VALUE ' '. DTSCS44 00362 DTSCS44 00363 05 MSG-E443-AREA. DTSCS44 00364 10 FILLER PIC X(04) VALUE 'E443'. DTSCS44 00365 10 FILLER PIC X(30) DTSCS44 00366 VALUE 'NOT CONSISTENT WITH EXISTING V'. DTSCS44 00367 10 FILLER PIC X(30) DTSCS44 00368 VALUE 'ALUE '. DTSCS44 00369 DTSCS44 00370 05 MSG-E444-AREA. DTSCS44 00371 10 FILLER PIC X(04) VALUE 'E444'. DTSCS44 00372 10 FILLER PIC X(30) DTSCS44 00373 VALUE 'STATEMENT MUST PRINT BEFORE OP'. DTSCS44 00374 10 FILLER PIC X(30) DTSCS44 00375 VALUE 'EN MAY BE CHANGED TO RELEASE '. DTSCS44 00376 DTSCS44 00377 05 MSG-E445-AREA. DTSCS44 00378 10 FILLER PIC X(04) VALUE 'E445'. DTSCS44 00379 10 FILLER PIC X(30) DTSCS44 00380 VALUE 'MORE THAN 20 POTENTIAL QUARTER'. DTSCS44 00381 10 FILLER PIC X(30) DTSCS44 00382 VALUE 'S. MANUAL ENTRY REQUIRED '. DTSCS44 00383 DTSCS44 00384 05 MSG-E446-AREA. DTSCS44 00385 10 FILLER PIC X(04) VALUE 'E446'. DTSCS44 00386 10 FILLER PIC X(30) DTSCS44 00387 VALUE 'CERT DATE MUST BE GREATER THAN'. DTSCS44 00388 10 FILLER PIC X(30) DTSCS44 00389 VALUE ' OR EQUAL TO LIEN DATE '. DTSCS44 00390 DTSCS44 00391 05 MSG-E447-AREA. DTSCS44 00392 10 FILLER PIC X(04) VALUE 'E447'. DTSCS44 00393 10 FILLER PIC X(30) DTSCS44 00394 VALUE 'EMPLOYER BALANCE DUE IS EQUAL '. DTSCS44 00395 10 FILLER PIC X(30) DTSCS44 00396 VALUE 'TO ZERO '. DTSCS44 00397 DTSCS44 00398 05 MSG-E448-AREA. DTSCS44 00399 10 FILLER PIC X(04) VALUE 'E448'. DTSCS44 00400 10 FILLER PIC X(30) DTSCS44 00401 VALUE 'CERTIFIED MAIL DATE MUST BE > '. DTSCS44 00402 10 FILLER PIC X(30) DTSCS44 00403 VALUE 'OR = CERTIFICATE DATE '. DTSCS44 00404 DTSCS44 00405 05 MSG-E449-AREA. DTSCS44 00406 10 FILLER PIC X(04) VALUE 'E449'. DTSCS44 00407 10 FILLER PIC X(30) DTSCS44 00408 VALUE 'RETURN DATE MUST BE GREATER TH'. DTSCS44 00409 10 FILLER PIC X(30) DTSCS44 00410 VALUE 'AN CERTIFIED MAIL DATE '. DTSCS44 00411 DTSCS44 00412 05 MSG-E44A-AREA. DTSCS44 00413 10 FILLER PIC X(04) VALUE 'E44A'. DTSCS44 00414 10 FILLER PIC X(30) DTSCS44 00415 VALUE 'PENDING DPC - LIEN NOT ALLOWED'. DTSCS44 00416 10 FILLER PIC X(30) DTSCS44 00417 VALUE ' '. DTSCS44 00418 EJECT DTSCS44 00419 01 L001-COMM-AREA. DTSCS44 00420 ++INCLUDE DTSIL001 DTSCS44 00421 EJECT DTSCS44 00422 01 L004-COMM-AREA. DTSCS44 00423 ++INCLUDE DTSIL004 DTSCS44 00424 EJECT DTSCS44 00425 01 L005-COMM-AREA. DTSCS44 00426 ++INCLUDE DTSIL005 DTSCS44 00427 EJECT DTSCS44 00428 01 L011-COMM-AREA. DTSCS44 00429 ++INCLUDE DTSIL011 DTSCS44 00430 EJECT DTSCS44 00431 01 L013-COMM-AREA. DTSCS44 00432 ++INCLUDE DTSIL013 DTSCS44 00433 EJECT DTSCS44 00434 01 L015-COMM-AREA. DTSCS44 00435 ++INCLUDE DTSIL015 DTSCS44 00436 EJECT DTSCS44 00437 01 L018-COMM-AREA. DTSCS44 00438 ++INCLUDE DTSIL018 DTSCS44 00439 EJECT DTSCS44 00440 01 L028-COMM-AREA. DTSCS44 00441 ++INCLUDE DTSIL028 DTSCS44 00442 EJECT DTSCS44 00443 01 L029-COMM-AREA. DTSCS44 00444 ++INCLUDE DTSIL029 DTSCS44 00445 EJECT DTSCS44 00446 01 L034-COMM-AREA. DTSCS44 00447 ++INCLUDE DTSIL034 DTSCS44 00448 EJECT DTSCS44 00449 01 L062-COMM-AREA. DTSCS44 00450 ++INCLUDE DTSIL062 DTSCS44 00451 EJECT DTSCS44 00452 01 L101-COMM-AREA. DTSCS44 00453 ++INCLUDE DTSIL101 DTSCS44 00454 EJECT DTSCS44 00455 01 L109-COMM-AREA. DTSCS44 00456 ++INCLUDE DTSIL109 DTSCS44 00457 EJECT DTSCS44 00458 01 L111-COMM-AREA. DTSCS44 00459 ++INCLUDE DTSIL111 DTSCS44 00460 EJECT DTSCS44 00461 01 L112-COMM-AREA. DTSCS44 00462 ++INCLUDE DTSIL112 DTSCS44 00463 EJECT DTSCS44 00464 01 L221-COMM-AREA. DTSCS44 00465 ++INCLUDE DTSIL221 DTSCS44 00466 EJECT DTSCS44 00467 01 L805-COMM-AREA. DTSCS44 00468 ++INCLUDE DTSIL805 DTSCS44 00469 EJECT DTSCS44 00470 01 L810-COMM-AREA. DTSCS44 00471 05 L810-CONTROL-BLOCK. DTSCS44 00472 ++INCLUDE DTSIL810 DTSCS44 00473 EJECT DTSCS44 00474 05 MSKL-REC. DTSCS44 00475 ++INCLUDE DTSIMSKL DTSCS44 00476 EJECT DTSCS44 00477 01 MPRF-REC. DTSCS44 00478 ++INCLUDE DTSIMPRF DTSCS44 00479 EJECT DTSCS44 00480 01 MLIN-REC. DTSCS44 00481 ++INCLUDE DTSIMLIN DTSCS44 00482 EJECT DTSCS44 00483 01 MHDR-REC. DTSCS44 00484 ++INCLUDE DTSIMHDR DTSCS44 00485 EJECT DTSCS44 00486 01 MQTR-REC. DTSCS44 00487 ++INCLUDE DTSIMQTR DTSCS44 00488 EJECT DTSCS44 00489 01 MTCK-REC. DTSCS44 00490 ++INCLUDE DTSIMTCK DTSCS44 00491 EJECT DTSCS44 00492 01 MEVL-REC. DTSCS44 00493 ++INCLUDE DTSIMEVL DTSCS44 00494 EJECT DTSCS44 00495 01 MOPO-REC. DTSCS44 00496 ++INCLUDE DTSIMOPO DTSCS44 00497 EJECT DTSCS44 00498 01 MDPC-REC. DTSCS44 00499 ++INCLUDE DTSIMDPC DTSCS44 00500 EJECT DTSCS44 00501 01 R901-REC. DTSCS44 00502 ++INCLUDE DTSIR901 DTSCS44 00503 EJECT DTSCS44 00504 01 L825-COMM-AREA. DTSCS44 00505 05 L825-CONTROL-BLOCK. DTSCS44 00506 ++INCLUDE DTSIL825 DTSCS44 00507 DTSCS44 00508 05 RSKL-REC. DTSCS44 00509 ++INCLUDE DTSIRSK1 DTSCS44 00510 EJECT DTSCS44 00511 01 T011-REC. DTSCS44 00512 ++INCLUDE DTSIT011 DTSCS44 00513 EJECT DTSCS44 00514 01 L851-COMM-AREA. DTSCS44 00515 ++INCLUDE DTSIL851 DTSCS44 00516 DTSCS44 00517 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSCS44 00518 ++INCLUDE DTSIS44 DTSCS44 00519 EJECT DTSCS44 00520 01 CATB-LITERALS. DTSCS44 00521 ++INCLUDE DTSICATB DTSCS44 00522 DTSCS44 00523 01 CFKD-LITERALS. DTSCS44 00524 ++INCLUDE DTSICFKD DTSCS44 00525 DTSCS44 00526 01 CECD-LITERALS. DTSCS44 00527 ++INCLUDE DTSICECD DTSCS44 00528 DTSCS44 00529 01 CPCD-LITERALS. DTSCS44 00530 ++INCLUDE DTSICPCD DTSCS44 00531 EJECT DTSCS44 00532 DTSCS44 00533 01 MMAX-LITERALS. DTSCS44 00534 ++INCLUDE DTSIMMAX DTSCS44 00535 EJECT DTSCS44 00536 LINKAGE SECTION. DTSCS44 00537 DTSCS44 00538 01 DFHCOMMAREA. DTSCS44 00539 ++INCLUDE DTSILCCM DTSCS44 00540 EJECT DTSCS44 00541 ******************************************************************DTSCS44 00542 * *DTSCS44 00543 ******************************************************************DTSCS44 00544 DTSCS44 00545 PROCEDURE DIVISION. DTSCS44 00546 DTSCS44 00547 MOVE +0 TO WRK-EMP-NO. DTSCS44 00548 DTSCS44 00549 SET WRK-MPRF-NO-88 TO TRUE. DTSCS44 00550 DTSCS44 00551 SET WRK-MLIN-NO-88 TO TRUE. DTSCS44 00552 DTSCS44 00553 MOVE LOW-VALUES TO MAP-AREA. DTSCS44 00554 DTSCS44 00555 SET CURSOR-SET-NO TO TRUE. DTSCS44 00556 DTSCS44 00557 MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-N) DTSCS44 00558 TO SCR-ACCESS-IND. DTSCS44 00559 DTSCS44 00560 MOVE SPACE TO REQ-IND. DTSCS44 00561 DTSCS44 00562 PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT. DTSCS44 00563 DTSCS44 00564 *----------------------------------------------------- DTSCS44 00565 * P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE DTSCS44 00566 * "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT DTSCS44 00567 * REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE DTSCS44 00568 * OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED. DTSCS44 00569 * DTSCS44 00570 * THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE DTSCS44 00571 * PROCESSED. DTSCS44 00572 * DTSCS44 00573 * THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND, DTSCS44 00574 * INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE DTSCS44 00575 * WORK STATION OPERATOR. DTSCS44 00576 *----------------------------------------------------- DTSCS44 00577 DTSCS44 00578 MOVE SPACE TO RESP-IND. DTSCS44 00579 DTSCS44 00580 IF REQ-ERROR DTSCS44 00581 PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT DTSCS44 00582 ELSE DTSCS44 00583 IF REQ-JUMP DTSCS44 00584 PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT DTSCS44 00585 ELSE DTSCS44 00586 IF REQ-CLEAR DTSCS44 00587 PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT DTSCS44 00588 ELSE DTSCS44 00589 IF REQ-CURSOR-TO-GOTO DTSCS44 00590 PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT DTSCS44 00591 ELSE DTSCS44 00592 IF REQ-INQUIRE DTSCS44 00593 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCS44 00594 ELSE DTSCS44 00595 IF REQ-EDIT DTSCS44 00596 PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT DTSCS44 00597 ELSE DTSCS44 00598 IF REQ-UPDATE DTSCS44 00599 PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT DTSCS44 00600 ELSE DTSCS44 00601 GO TO S899-ABEND. DTSCS44 00602 DTSCS44 00603 *----------------------------------------------------- DTSCS44 00604 * THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED DTSCS44 00605 * IN RESP-IND THE TYPE OF RESPONSE TO BE MADE. DTSCS44 00606 *----------------------------------------------------- DTSCS44 00607 DTSCS44 00608 IF RESP-SEND-MAP DTSCS44 00609 PERFORM S9300-SEND-MAP THRU S9300-EXIT DTSCS44 00610 SET LCCM-END-TASK-88 TO TRUE DTSCS44 00611 ELSE DTSCS44 00612 IF RESP-SEND-MSGONLY DTSCS44 00613 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS44 00614 SET LCCM-END-TASK-88 TO TRUE DTSCS44 00615 ELSE DTSCS44 00616 IF RESP-JUMP DTSCS44 00617 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS44 00618 ELSE DTSCS44 00619 IF RESP-CURSOR-TO-GOTO DTSCS44 00620 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS44 00621 SET LCCM-END-TASK-88 TO TRUE DTSCS44 00622 ELSE DTSCS44 00623 GO TO S899-ABEND. DTSCS44 00624 DTSCS44 00625 MAINLINE-EXIT. DTSCS44 00626 DTSCS44 00627 EXEC CICS DTSCS44 00628 RETURN DTSCS44 00629 END-EXEC. DTSCS44 00630 DTSCS44 00631 * GOBACK. DTSCS44 00632 EJECT DTSCS44 00633 /*****************************************************************DTSCS44 00634 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION *DTSCS44 00635 ******************************************************************DTSCS44 00636 P1000-ANALYZE-REQUEST. DTSCS44 00637 DTSCS44 00638 *----------------------------------------------------- DTSCS44 00639 * IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE) DTSCS44 00640 * THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE DTSCS44 00641 * REPLACED WITH ENTER) DTSCS44 00642 *----------------------------------------------------- DTSCS44 00643 IF LCCM-SCR-ID NOT = WRK-SCR-ID DTSCS44 00644 SET LCCM-ENTER-88 TO TRUE DTSCS44 00645 IF LCCM-EMP-NO > ZERO DTSCS44 00646 MOVE LCCM-EMP-NO-1 TO MAP-EMP-NO-1 DTSCS44 00647 MOVE LCCM-EMP-NO-2 TO MAP-EMP-NO-2 DTSCS44 00648 END-IF DTSCS44 00649 SET REQ-INQUIRE TO TRUE DTSCS44 00650 GO TO P1000-EXIT. DTSCS44 00651 DTSCS44 00652 *----------------------------------------------------- DTSCS44 00653 * MAP IS RECEIVED DTSCS44 00654 *----------------------------------------------------- DTSCS44 00655 PERFORM S9100-RECEIVE THRU S9100-EXIT. DTSCS44 00656 DTSCS44 00657 *----------------------------------------------------- DTSCS44 00658 * CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE DTSCS44 00659 * WORK STATION DTSCS44 00660 *----------------------------------------------------- DTSCS44 00661 IF LCCM-CLEAR-88 DTSCS44 00662 SET REQ-CLEAR TO TRUE DTSCS44 00663 GO TO P1000-EXIT. DTSCS44 00664 DTSCS44 00665 *----------------------------------------------------- DTSCS44 00666 * IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED DTSCS44 00667 *----------------------------------------------------- DTSCS44 00668 IF LCCM-SCR-UPDATE-LOCKED DTSCS44 00669 PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT DTSCS44 00670 GO TO P1000-EXIT. DTSCS44 00671 DTSCS44 00672 *----------------------------------------------------- DTSCS44 00673 * PA2 IS A REQUEST TO POSITION CURSOR AT GO TO: DTSCS44 00674 *----------------------------------------------------- DTSCS44 00675 IF LCCM-PA2-88 DTSCS44 00676 SET REQ-CURSOR-TO-GOTO TO TRUE DTSCS44 00677 GO TO P1000-EXIT. DTSCS44 00678 DTSCS44 00679 *----------------------------------------------------- DTSCS44 00680 * ALL OTHER PA KEYS ARE NOT ACTIVE DTSCS44 00681 *----------------------------------------------------- DTSCS44 00682 IF LCCM-PA-88 DTSCS44 00683 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS44 00684 SET REQ-ERROR TO TRUE DTSCS44 00685 GO TO P1000-EXIT. DTSCS44 00686 DTSCS44 00687 *----------------------------------------------------- DTSCS44 00688 * IF F12 KEY IS PRESSED AND UPDATE NOT IN PROGRESS DTSCS44 00689 * CLEAR SCREEN DTSCS44 00690 *----------------------------------------------------- DTSCS44 00691 IF LCCM-F12-88 DTSCS44 00692 MOVE LOW-VALUES TO MAP-AREA DTSCS44 00693 SET REQ-CLEAR TO TRUE DTSCS44 00694 GO TO P1000-EXIT. DTSCS44 00695 DTSCS44 00696 *----------------------------------------------------- DTSCS44 00697 * IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION DTSCS44 00698 *----------------------------------------------------- DTSCS44 00699 IF LCCM-F03-88 DTSCS44 00700 MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID DTSCS44 00701 SET REQ-JUMP TO TRUE DTSCS44 00702 GO TO P1000-EXIT. DTSCS44 00703 DTSCS44 00704 *----------------------------------------------------- DTSCS44 00705 * IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN DTSCS44 00706 *----------------------------------------------------- DTSCS44 00707 IF LCCM-F04-88 DTSCS44 00708 MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS44 00709 SET REQ-JUMP TO TRUE DTSCS44 00710 GO TO P1000-EXIT. DTSCS44 00711 DTSCS44 00712 *--------------------------------------------------------- DTSCS44 00713 * IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO DTSCS44 00714 * CORRESPONDENCE SCREEN. DTSCS44 00715 *--------------------------------------------------------- DTSCS44 00716 DTSCS44 00717 IF LCCM-F14-88 DTSCS44 00718 MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS44 00719 SET REQ-JUMP TO TRUE DTSCS44 00720 GO TO P1000-EXIT. DTSCS44 00721 DTSCS44 00722 *----------------------------------------------------- DTSCS44 00723 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS44 00724 * REQUESTED SCREEN TYPE DTSCS44 00725 *----------------------------------------------------- DTSCS44 00726 * DTSCS44 00727 * IF LCCM-F19-88 DTSCS44 00728 * MOVE '31' TO LCCM-REQ-SCR-ID DTSCS44 00729 * SET REQ-JUMP TO TRUE DTSCS44 00730 * GO TO P1000-EXIT. DTSCS44 00731 * DTSCS44 00732 * IF LCCM-F20-88 DTSCS44 00733 * MOVE '41' TO LCCM-REQ-SCR-ID DTSCS44 00734 * SET REQ-JUMP TO TRUE DTSCS44 00735 * GO TO P1000-EXIT. DTSCS44 00736 * DTSCS44 00737 * IF LCCM-F21-88 DTSCS44 00738 * MOVE '15' TO LCCM-REQ-SCR-ID DTSCS44 00739 * SET REQ-JUMP TO TRUE DTSCS44 00740 * GO TO P1000-EXIT. DTSCS44 00741 * DTSCS44 00742 *----------------------------------------------------- DTSCS44 00743 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS44 00744 * REQUESTED SCREEN TYPE DTSCS44 00745 *----------------------------------------------------- DTSCS44 00746 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCS44 00747 NEXT SENTENCE DTSCS44 00748 ELSE DTSCS44 00749 MOVE MAP-GOTO TO LCCM-REQ-SCR-ID DTSCS44 00750 SET REQ-JUMP TO TRUE DTSCS44 00751 GO TO P1000-EXIT. DTSCS44 00752 DTSCS44 00753 *----------------------------------------------------- DTSCS44 00754 * IF REQUEST TO UPDATE THE DATA (ADD,MOD,DEL) DTSCS44 00755 * VERIFY USER ACCESS TO PERFORM UPDATE DTSCS44 00756 *----------------------------------------------------- DTSCS44 00757 IF LCCM-F09-88 DTSCS44 00758 OR LCCM-F10-88 DTSCS44 00759 *** OR LCCM-F23-88 DTSCS44 00760 IF SCR-ACCESS-UPDATE DTSCS44 00761 SET REQ-EDIT TO TRUE DTSCS44 00762 GO TO P1000-EXIT DTSCS44 00763 ELSE DTSCS44 00764 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS44 00765 SET REQ-ERROR TO TRUE DTSCS44 00766 GO TO P1000-EXIT. DTSCS44 00767 DTSCS44 00768 *----------------------------------------------------- DTSCS44 00769 * IF INQUIRY TYPE KEY PRESSED (ENTER, F5, F6, F7, DTSCS44 00770 * OR F8), INDICATE INQUIRY REQUEST DTSCS44 00771 *----------------------------------------------------- DTSCS44 00772 IF LCCM-INQUIRY-88 DTSCS44 00773 SET REQ-INQUIRE TO TRUE DTSCS44 00774 GO TO P1000-EXIT. DTSCS44 00775 DTSCS44 00776 *----------------------------------------------------- DTSCS44 00777 * ANY OTHER KEY IS INVALID DTSCS44 00778 *----------------------------------------------------- DTSCS44 00779 PERFORM S804-INVALID-KEY THRU S804-EXIT. DTSCS44 00780 SET REQ-ERROR TO TRUE. DTSCS44 00781 P1000-EXIT. DTSCS44 00782 EXIT. DTSCS44 00783 DTSCS44 00784 ******************************************************************DTSCS44 00785 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCS44 00786 ******************************************************************DTSCS44 00787 DTSCS44 00788 P1100-UPDATE-LOCKED. DTSCS44 00789 *----------------------------------------------------- DTSCS44 00790 * IF THE SCREEN IS "LOCKED FOR UPDATE", THEN DTSCS44 00791 * THE ONLY VALID OPERATOR REQUESTS ARE ENTER DTSCS44 00792 * (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE). DTSCS44 00793 *----------------------------------------------------- DTSCS44 00794 IF LCCM-ENTER-88 OR LCCM-F12-88 DTSCS44 00795 SET REQ-UPDATE TO TRUE DTSCS44 00796 ELSE DTSCS44 00797 SET REQ-ERROR TO TRUE DTSCS44 00798 IF LCCM-SCR-ADD-LOCKED DTSCS44 00799 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID DTSCS44 00800 ELSE DTSCS44 00801 IF LCCM-SCR-MOD-LOCKED DTSCS44 00802 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID DTSCS44 00803 *** ELSE DTSCS44 00804 *** IF LCCM-SCR-DEL-LOCKED DTSCS44 00805 *** MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID DTSCS44 00806 ELSE DTSCS44 00807 GO TO S899-ABEND. DTSCS44 00808 P1100-EXIT. DTSCS44 00809 EXIT. DTSCS44 00810 /*****************************************************************DTSCS44 00811 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS44 00812 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN. *DTSCS44 00813 ******************************************************************DTSCS44 00814 DTSCS44 00815 P2000-REQUEST-ERROR. DTSCS44 00816 IF LCCM-MSG DTSCS44 00817 SET RESP-SEND-MSGONLY TO TRUE DTSCS44 00818 ELSE DTSCS44 00819 GO TO S899-ABEND. DTSCS44 00820 P2000-EXIT. DTSCS44 00821 EXIT. DTSCS44 00822 /*****************************************************************DTSCS44 00823 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED *DTSCS44 00824 ******************************************************************DTSCS44 00825 DTSCS44 00826 P3000-REQUEST-JUMP. DTSCS44 00827 *----------------------------------------------------- DTSCS44 00828 * VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE DTSCS44 00829 * BY USER DTSCS44 00830 *----------------------------------------------------- DTSCS44 00831 PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT. DTSCS44 00832 DTSCS44 00833 *----------------------------------------------------- DTSCS44 00834 * VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED DTSCS44 00835 *----------------------------------------------------- DTSCS44 00836 IF LCCM-MSG DTSCS44 00837 SET RESP-SEND-MSGONLY TO TRUE DTSCS44 00838 SET CURSOR-SET-GOTO TO TRUE DTSCS44 00839 GO TO P3000-EXIT. DTSCS44 00840 SKIP3 DTSCS44 00841 MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA. DTSCS44 00842 PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT. DTSCS44 00843 IF L018-VALID DTSCS44 00844 MOVE L018-EMP-NO TO LCCM-EMP-NO. DTSCS44 00845 DTSCS44 00846 *----------------------------------------------------- DTSCS44 00847 * CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING DTSCS44 00848 *----------------------------------------------------- DTSCS44 00849 MOVE LOW-VALUES TO LCCM-SCR-STATUS DTSCS44 00850 LCCM-SCR-HOLD-AREA. DTSCS44 00851 MOVE +0 TO LCCM-SCR-ABSTIME. DTSCS44 00852 SET RESP-JUMP TO TRUE. DTSCS44 00853 P3000-EXIT. DTSCS44 00854 EXIT. DTSCS44 00855 /*****************************************************************DTSCS44 00856 * CLEAR KEY WAS PRESSED *DTSCS44 00857 ******************************************************************DTSCS44 00858 DTSCS44 00859 P4000-REQUEST-CLEAR. DTSCS44 00860 DTSCS44 00861 *----------------------------------------------------- DTSCS44 00862 * CLEAN UP INDICATORS AND PAGING STORAGE. RESET KEY DTSCS44 00863 * FIELDS FROM EARLIER REQUESTS DTSCS44 00864 *----------------------------------------------------- DTSCS44 00865 IF LCCM-EMP-NO > ZERO DTSCS44 00866 MOVE LCCM-EMP-NO-1 TO MAP-EMP-NO-1 DTSCS44 00867 MOVE LCCM-EMP-NO-2 TO MAP-EMP-NO-2. DTSCS44 00868 DTSCS44 00869 MOVE ZERO TO LCCM-EMP-NO. DTSCS44 00870 DTSCS44 00871 MOVE LOW-VALUES TO LCCM-SCR44-HOLD-AREA. DTSCS44 00872 DTSCS44 00873 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS44 00874 DTSCS44 00875 SET LCCM-SCR-CLEAR TO TRUE. DTSCS44 00876 DTSCS44 00877 IF SCR-ACCESS-UPDATE DTSCS44 00878 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS44 00879 ELSE DTSCS44 00880 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS44 00881 DTSCS44 00882 SET RESP-SEND-MAP TO TRUE. DTSCS44 00883 P4000-EXIT. DTSCS44 00884 EXIT. DTSCS44 00885 /*****************************************************************DTSCS44 00886 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED *DTSCS44 00887 ******************************************************************DTSCS44 00888 DTSCS44 00889 P5000-CURSOR-TO-GOTO. DTSCS44 00890 SET CURSOR-SET-GOTO TO TRUE. DTSCS44 00891 SET RESP-CURSOR-TO-GOTO TO TRUE. DTSCS44 00892 P5000-EXIT. DTSCS44 00893 EXIT. DTSCS44 00894 /*****************************************************************DTSCS44 00895 * INQUIRY WAS REQUESTED *DTSCS44 00896 ******************************************************************DTSCS44 00897 DTSCS44 00898 P6000-REQUEST-INQUIRE. DTSCS44 00899 MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA. DTSCS44 00900 MOVE MAP-CURR-COMP-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 00901 MOVE LOW-VALUES TO MAP-AREA. DTSCS44 00902 MOVE L018-S-EMP-NO-AREA TO MAP-EMP-NO-AREA. DTSCS44 00903 MOVE L015-S-DATE-AREA TO MAP-CURR-COMP-DATE-AREA. DTSCS44 00904 DTSCS44 00905 SET LCCM-SCR-CLEAR TO TRUE. DTSCS44 00906 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS44 00907 DTSCS44 00908 SET RESP-SEND-MAP TO TRUE. DTSCS44 00909 DTSCS44 00910 IF SCR-ACCESS-UPDATE DTSCS44 00911 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS44 00912 ELSE DTSCS44 00913 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS44 00914 DTSCS44 00915 MOVE LCCM-SCR44-HOLD-AREA TO SCR-REC-KEY-AREA. DTSCS44 00916 MOVE LOW-VALUES TO LCCM-SCR44-HOLD-AREA. DTSCS44 00917 DTSCS44 00918 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 00919 IF LCCM-MSG DTSCS44 00920 GO TO P6000-EXIT. DTSCS44 00921 DTSCS44 00922 MOVE WRK-EMP-NO TO LCCM-EMP-NO. DTSCS44 00923 DTSCS44 00924 PERFORM S2600-CURR-COMP-DATE THRU S2600-EXIT. DTSCS44 00925 IF LCCM-MSG DTSCS44 00926 GO TO P6000-EXIT. DTSCS44 00927 DTSCS44 00928 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSCS44 00929 MOVE WRK-EMP-NO TO MSKL-EMP-NO. DTSCS44 00930 SET MSKL-LIN-88 TO TRUE. DTSCS44 00931 PERFORM S810-COUNT THRU S810-EXIT. DTSCS44 00932 DTSCS44 00933 IF L810-RECORD-CNT = +0 DTSCS44 00934 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 00935 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 00936 GO TO P6000-EXIT. DTSCS44 00937 DTSCS44 00938 MOVE L810-RECORD-CNT TO LAST-REC-NUM. DTSCS44 00939 MOVE MSKL-KEY-AREA TO LAST-REC-KEY-AREA. DTSCS44 00940 DTSCS44 00941 PERFORM P6100-LOCATE-REC THRU P6100-EXIT. DTSCS44 00942 IF LCCM-MSG DTSCS44 00943 GO TO P6000-EXIT. DTSCS44 00944 DTSCS44 00945 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT. DTSCS44 00946 DTSCS44 00947 MOVE MLIN-KEY-AREA TO LCCM-SCR44-HOLD-AREA. DTSCS44 00948 DTSCS44 00949 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS44 00950 DTSCS44 00951 IF SCR-ACCESS-UPDATE DTSCS44 00952 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS44 00953 P6000-EXIT. DTSCS44 00954 EXIT. DTSCS44 00955 EJECT DTSCS44 00956 DTSCS44 00957 P6100-LOCATE-REC. DTSCS44 00958 *------------------------------------------------------------ DTSCS44 00959 * IF, AT THE LAST USE OF THIS SCREEN, A RECORD FOR DTSCS44 00960 * EMPLOYER NUMBER LCCM-EMP-NO WAS DISPLAYED ON THE DTSCS44 00961 * SCREEN, THEN BASE THE PAGING LOGIC ON THE LAST RECORD DTSCS44 00962 * DISPLAYED ON THIS SCREEN; OTHERWISE, DISPLAY THE DTSCS44 00963 * RECORD WITH THE GREATEST MLIN-ESTB-DATE DTSCS44 00964 *------------------------------------------------------------ DTSCS44 00965 DTSCS44 00966 IF SCR-REC-KEY-AREA = LOW-VALUES DTSCS44 00967 PERFORM P6101-DEFAULT-PAGE THRU P6101-EXIT DTSCS44 00968 GO TO P6100-EXIT. DTSCS44 00969 DTSCS44 00970 MOVE SCR-REC-KEY-AREA TO MLIN-KEY-AREA. DTSCS44 00971 DTSCS44 00972 IF WRK-EMP-NO = MLIN-EMP-NO DTSCS44 00973 NEXT SENTENCE DTSCS44 00974 ELSE DTSCS44 00975 PERFORM P6101-DEFAULT-PAGE THRU P6101-EXIT DTSCS44 00976 GO TO P6100-EXIT. DTSCS44 00977 DTSCS44 00978 IF LCCM-F05-88 DTSCS44 00979 PERFORM P6110-FIRST-REC THRU P6110-EXIT DTSCS44 00980 GO TO P6100-EXIT. DTSCS44 00981 DTSCS44 00982 IF LCCM-F06-88 DTSCS44 00983 PERFORM P6140-LAST-REC THRU P6140-EXIT DTSCS44 00984 GO TO P6100-EXIT. DTSCS44 00985 DTSCS44 00986 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSCS44 00987 MOVE WRK-EMP-NO TO MSKL-EMP-NO. DTSCS44 00988 SET MSKL-LIN-88 TO TRUE. DTSCS44 00989 PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCS44 00990 IF L810-NO-REC-88 DTSCS44 00991 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 00992 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 00993 GO TO P6100-EXIT. DTSCS44 00994 DTSCS44 00995 MOVE +0 TO WS-REC-NUM. DTSCS44 00996 MOVE 'N' TO WS-REC-FOUND-IND. DTSCS44 00997 PERFORM P6190-BROWSE-MLIN THRU P6190-EXIT DTSCS44 00998 UNTIL (L810-NO-REC-88) DTSCS44 00999 OR DTSCS44 01000 (WS-REC-FOUND-IND = 'Y'). DTSCS44 01001 DTSCS44 01002 IF L810-NO-REC-88 DTSCS44 01003 PERFORM P6101-DEFAULT-PAGE THRU P6101-EXIT DTSCS44 01004 GO TO P6100-EXIT. DTSCS44 01005 DTSCS44 01006 IF LCCM-ENTER-88 DTSCS44 01007 PERFORM S810-END-BROWSE THRU S810-EXIT DTSCS44 01008 GO TO P6100-EXIT. DTSCS44 01009 DTSCS44 01010 IF LCCM-F07-88 DTSCS44 01011 PERFORM P6120-PREV-REC THRU P6120-EXIT DTSCS44 01012 GO TO P6100-EXIT. DTSCS44 01013 DTSCS44 01014 IF LCCM-F08-88 DTSCS44 01015 PERFORM P6130-NEXT-REC THRU P6130-EXIT DTSCS44 01016 GO TO P6100-EXIT. DTSCS44 01017 DTSCS44 01018 GO TO S899-ABEND. DTSCS44 01019 P6100-EXIT. DTSCS44 01020 EXIT. DTSCS44 01021 DTSCS44 01022 P6101-DEFAULT-PAGE. DTSCS44 01023 PERFORM P6140-LAST-REC THRU P6140-EXIT. DTSCS44 01024 P6101-EXIT. DTSCS44 01025 EXIT. DTSCS44 01026 DTSCS44 01027 P6110-FIRST-REC. DTSCS44 01028 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSCS44 01029 MOVE WRK-EMP-NO TO MSKL-EMP-NO. DTSCS44 01030 SET MSKL-LIN-88 TO TRUE. DTSCS44 01031 PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCS44 01032 IF L810-NO-REC-88 DTSCS44 01033 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 01034 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 01035 GO TO P6110-EXIT. DTSCS44 01036 DTSCS44 01037 PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 01038 DTSCS44 01039 MOVE MSKL-REC TO MLIN-REC. DTSCS44 01040 DTSCS44 01041 MOVE +1 TO WS-REC-NUM. DTSCS44 01042 P6110-EXIT. DTSCS44 01043 EXIT. DTSCS44 01044 DTSCS44 01045 P6120-PREV-REC. DTSCS44 01046 PERFORM S810-READ-PREV THRU S810-EXIT. DTSCS44 01047 IF L810-NO-REC-88 DTSCS44 01048 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 01049 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 01050 GO TO P6120-EXIT. DTSCS44 01051 DTSCS44 01052 PERFORM S810-READ-PREV THRU S810-EXIT. DTSCS44 01053 IF L810-NO-REC-88 DTSCS44 01054 GO TO P6120-EXIT. DTSCS44 01055 DTSCS44 01056 PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 01057 DTSCS44 01058 SUBTRACT 1 FROM WS-REC-NUM. DTSCS44 01059 DTSCS44 01060 MOVE MSKL-REC TO MLIN-REC. DTSCS44 01061 P6120-EXIT. DTSCS44 01062 EXIT. DTSCS44 01063 DTSCS44 01064 P6130-NEXT-REC. DTSCS44 01065 IF MLIN-KEY-AREA > SCR-REC-KEY-AREA DTSCS44 01066 PERFORM S810-END-BROWSE THRU S810-EXIT DTSCS44 01067 GO TO P6130-EXIT. DTSCS44 01068 DTSCS44 01069 PERFORM S810-READ-NEXT THRU S810-EXIT. DTSCS44 01070 DTSCS44 01071 IF L810-NO-REC-88 DTSCS44 01072 GO TO P6130-EXIT. DTSCS44 01073 DTSCS44 01074 PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 01075 DTSCS44 01076 ADD +1 TO WS-REC-NUM. DTSCS44 01077 DTSCS44 01078 MOVE MSKL-REC TO MLIN-REC. DTSCS44 01079 P6130-EXIT. DTSCS44 01080 EXIT. DTSCS44 01081 DTSCS44 01082 P6140-LAST-REC. DTSCS44 01083 MOVE LAST-REC-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 01084 PERFORM S810-READ THRU S810-EXIT. DTSCS44 01085 IF L810-NO-REC-88 DTSCS44 01086 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 01087 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 01088 GO TO P6140-EXIT. DTSCS44 01089 DTSCS44 01090 MOVE MSKL-REC TO MLIN-REC. DTSCS44 01091 DTSCS44 01092 MOVE LAST-REC-NUM TO WS-REC-NUM. DTSCS44 01093 P6140-EXIT. DTSCS44 01094 EXIT. DTSCS44 01095 DTSCS44 01096 P6190-BROWSE-MLIN. DTSCS44 01097 MOVE MSKL-REC TO MLIN-REC. DTSCS44 01098 ADD +1 TO WS-REC-NUM. DTSCS44 01099 IF MLIN-KEY-AREA NOT < SCR-REC-KEY-AREA DTSCS44 01100 MOVE 'Y' TO WS-REC-FOUND-IND DTSCS44 01101 ELSE DTSCS44 01102 PERFORM S810-READ-NEXT THRU S810-EXIT. DTSCS44 01103 P6190-EXIT. DTSCS44 01104 EXIT. DTSCS44 01105 /*****************************************************************DTSCS44 01106 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS *DTSCS44 01107 ******************************************************************DTSCS44 01108 DTSCS44 01109 P6900-CONSTRUCT-SCREEN. DTSCS44 01110 PERFORM P6910-FROM-MLIN THRU P6910-EXIT. DTSCS44 01111 DTSCS44 01112 PERFORM P6990-PAGE-NUMBER THRU P6990-EXIT. DTSCS44 01113 P6900-EXIT. DTSCS44 01114 EXIT. DTSCS44 01115 DTSCS44 01116 P6910-FROM-MLIN. DTSCS44 01117 MOVE MLIN-STATUS-CD TO MAP-STATUS-CD. DTSCS44 01118 DTSCS44 01119 MOVE MLIN-STATUS-DATE TO L001-FED-8-DATE-9. DTSCS44 01120 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSCS44 01121 MOVE L001-SLASH-DATE TO MAP-STATUS-DATE. DTSCS44 01122 DTSCS44 01123 MOVE MLIN-STATUS-OP-ID TO MAP-STATUS-OP-ID. DTSCS44 01124 DTSCS44 01125 MOVE MLIN-STMT-DATE TO WRK-DISPLAY. DTSCS44 01126 MOVE WRK-DISPLAY-MO TO MAP-STMT-MO. DTSCS44 01127 MOVE WRK-DISPLAY-DA TO MAP-STMT-DA. DTSCS44 01128 MOVE WRK-DISPLAY-YR TO MAP-STMT-YR. DTSCS44 01129 DTSCS44 01130 IF MLIN-CERTIFICATE-DATE > 0 DTSCS44 01131 MOVE MLIN-CERTIFICATE-DATE TO WRK-DISPLAY DTSCS44 01132 MOVE WRK-DISPLAY-MO TO MAP-CERT-MO DTSCS44 01133 MOVE WRK-DISPLAY-DA TO MAP-CERT-DA DTSCS44 01134 MOVE WRK-DISPLAY-YR TO MAP-CERT-YR. DTSCS44 01135 DTSCS44 01136 MOVE MLIN-REC-DEEDS-NO TO MAP-DEED-NO. DTSCS44 01137 DTSCS44 01138 MOVE MLIN-CERTFD-MAIL-NO TO MAP-MAIL-NO. DTSCS44 01139 DTSCS44 01140 IF MLIN-CERTFD-MAIL-DATE > 0 DTSCS44 01141 MOVE MLIN-CERTFD-MAIL-DATE TO WRK-DISPLAY DTSCS44 01142 MOVE WRK-DISPLAY-MO TO MAP-CERT-DATE-MO DTSCS44 01143 MOVE WRK-DISPLAY-DA TO MAP-CERT-DATE-DA DTSCS44 01144 MOVE WRK-DISPLAY-YR TO MAP-CERT-DATE-YR. DTSCS44 01145 DTSCS44 01146 IF MLIN-RECEIPT-RETURN-DATE > 0 DTSCS44 01147 MOVE MLIN-RECEIPT-RETURN-DATE TO WRK-DISPLAY DTSCS44 01148 MOVE WRK-DISPLAY-MO TO MAP-RETURN-DATE-MO DTSCS44 01149 MOVE WRK-DISPLAY-DA TO MAP-RETURN-DATE-DA DTSCS44 01150 MOVE WRK-DISPLAY-YR TO MAP-RETURN-DATE-YR. DTSCS44 01151 DTSCS44 01152 MOVE MLIN-FLD-REP-ID TO MAP-FLD-REP-ID-CD DTSCS44 01153 L062-FLD-REP-ID. DTSCS44 01154 DTSCS44 01155 PERFORM S062-FLD-REP-ID-DESC THRU S062-EXIT. DTSCS44 01156 DTSCS44 01157 MOVE L062-OP-ID TO MAP-FLD-REP-ID-CD-DSCR. DTSCS44 01158 DTSCS44 01159 MOVE MLIN-COMP-DATE TO WRK-DISPLAY. DTSCS44 01160 MOVE WRK-DISPLAY-MO TO MAP-COMP-MO. DTSCS44 01161 MOVE WRK-DISPLAY-DA TO MAP-COMP-DA. DTSCS44 01162 MOVE WRK-DISPLAY-YR TO MAP-COMP-YR. DTSCS44 01163 DTSCS44 01164 MOVE MLIN-ADDRESS-LINE-1 DTSCS44 01165 TO MAP-LIEN-ADDR-LINE-1. DTSCS44 01166 MOVE MLIN-ADDRESS-LINE-2 DTSCS44 01167 TO MAP-LIEN-ADDR-LINE-2. DTSCS44 01168 MOVE MLIN-ADDRESS-LINE-3 DTSCS44 01169 TO MAP-LIEN-ADDR-LINE-3. DTSCS44 01170 MOVE MLIN-ADDRESS-LINE-4 DTSCS44 01171 TO MAP-LIEN-ADDR-LINE-4. DTSCS44 01172 MOVE MLIN-ADDRESS-LINE-5 DTSCS44 01173 TO MAP-LIEN-ADDR-LINE-5. DTSCS44 01174 DTSCS44 01175 DTSCS44 01176 MOVE MLIN-LICENSE-IND TO MAP-LICENSE-IND. DTSCS44 01177 DTSCS44 01178 IF MLIN-STMT-DUE-AMT > +0 DTSCS44 01179 MOVE MLIN-STMT-DUE-AMT TO MAP-STMT-DUE-AMT-Z. DTSCS44 01180 DTSCS44 01181 MOVE MLIN-CERTIFICATE-NO TO WRK-DISPLAY. DTSCS44 01182 MOVE WRK-DISPLAY-CERT-NO-1 TO MAP-CERT-NUM1. DTSCS44 01183 MOVE WRK-DISPLAY-CERT-NO-2 TO MAP-CERT-NUM2. DTSCS44 01184 DTSCS44 01185 DTSCS44 01186 MOVE +0 TO WRK-TOT-BALANCE-AMT. DTSCS44 01187 MOVE +0 TO MAP-CNT. DTSCS44 01188 MOVE +0 TO WRK-AMT-DUE. DTSCS44 01189 MOVE 99999 TO WRK-YRQ. DTSCS44 01190 MOVE +0 TO WRK-CURR-ANN-YR. DTSCS44 01191 DTSCS44 01192 DTSCS44 01193 PERFORM P6911-COVERED-YRQ THRU P6911-EXIT DTSCS44 01194 VARYING WRK-SUB FROM 1 BY 1 DTSCS44 01195 UNTIL WRK-SUB > MLIN-COV-CNT. DTSCS44 01196 DTSCS44 01197 MOVE WRK-TOT-BALANCE-AMT TO MAP-CURR-TOT-DUE-Z. DTSCS44 01198 DTSCS44 01199 MOVE MLIN-ESTB-ABSTIME TO L005-ABSTIME. DTSCS44 01200 SET L005-FROM-ABSTIME TO TRUE. DTSCS44 01201 PERFORM S005-CDATE-TIME THRU S005-EXIT. DTSCS44 01202 MOVE L005-DATE-8-SLASH-TIME TO MAP-CREATE-DATE-TIME. DTSCS44 01203 P6910-EXIT. DTSCS44 01204 EXIT. DTSCS44 01205 DTSCS44 01206 P6911-COVERED-YRQ. DTSCS44 01207 MOVE ZEROS TO WRK-YRQ. DTSCS44 01208 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSCS44 01209 MOVE MLIN-EMP-NO TO MQTR-EMP-NO. DTSCS44 01210 SET MQTR-QTR-88 TO TRUE. DTSCS44 01211 MOVE MLIN-COVERED-YRQ (WRK-SUB) TO MQTR-YRQ. DTSCS44 01212 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 01213 DTSCS44 01214 PERFORM S810-READ THRU S810-EXIT. DTSCS44 01215 DTSCS44 01216 IF L810-NO-REC-88 DTSCS44 01217 GO TO P6911-EXIT. DTSCS44 01218 DTSCS44 01219 MOVE MSKL-REC TO MQTR-REC. DTSCS44 01220 DTSCS44 01221 IF MQTR-ANNUAL-YES-88 DTSCS44 01222 MOVE MQTR-YRQ TO WRK-YRQ. DTSCS44 01223 DTSCS44 01224 IF WRK-YRQ-YR NOT = WRK-CURR-ANN-YR DTSCS44 01225 ADD 1 TO MAP-CNT DTSCS44 01226 MOVE +0 TO WRK-YRQ-BALANCE-AMT DTSCS44 01227 WRK-YRQ-WRITTEN-OFF-AMT. DTSCS44 01228 DTSCS44 01229 PERFORM S4000-INTEREST THRU S4000-EXIT. DTSCS44 01230 DTSCS44 01231 IF WRK-YRQ-WRITTEN-OFF-AMT NOT = +0 DTSCS44 01232 MOVE ' WRITTEN OFF' TO MAP-AMT-DUE (MAP-CNT) DTSCS44 01233 ELSE DTSCS44 01234 IF MQTR-ANNUAL-YES-88 DTSCS44 01235 ADD WRK-YRQ-BALANCE-AMT TO WRK-AMT-DUE DTSCS44 01236 MOVE WRK-AMT-DUE TO MAP-AMT-DUE-Z (MAP-CNT) DTSCS44 01237 ELSE DTSCS44 01238 MOVE WRK-YRQ-BALANCE-AMT TO MAP-AMT-DUE-Z (MAP-CNT). DTSCS44 01239 DTSCS44 01240 IF MLIN-COVERED-YRQ (WRK-SUB) = LCCM-PICKUP-YRQ DTSCS44 01241 MOVE 'PU' TO MAP-COVERED-YRQ-YR (MAP-CNT) DTSCS44 01242 MOVE SPACE TO MAP-COVERED-YRQ-Q (MAP-CNT) DTSCS44 01243 ELSE DTSCS44 01244 MOVE MLIN-COVERED-YRQ(WRK-SUB) TO WRK-DISPLAY DTSCS44 01245 IF MQTR-ANNUAL-YES-88 DTSCS44 01246 MOVE WRK-YRQ-YR TO WRK-CURR-ANN-YR DTSCS44 01247 MOVE ZERO TO WRK-CURR-ANN-Q DTSCS44 01248 MOVE WRK-CURR-ANN-YY TO MAP-COVERED-YRQ-YR(MAP-CNT) DTSCS44 01249 MOVE '*' TO MAP-COVERED-YRQ-Q(MAP-CNT) DTSCS44 01250 ELSE DTSCS44 01251 MOVE WRK-DISPLAY-YRQ-YR TO MAP-COVERED-YRQ-YR(MAP-CNT) DTSCS44 01252 MOVE WRK-DISPLAY-YRQ-Q TO MAP-COVERED-YRQ-Q(MAP-CNT). DTSCS44 01253 DTSCS44 01254 MOVE MQTR-CURR-RPT-TYPE DTSCS44 01255 TO MAP-CURR-RPT-TYPE (MAP-CNT). DTSCS44 01256 DTSCS44 01257 PERFORM P6913-TRANSLATE THRU P6913-EXIT. DTSCS44 01258 P6911-EXIT. DTSCS44 01259 EXIT. DTSCS44 01260 DTSCS44 01261 P6913-TRANSLATE. DTSCS44 01262 MOVE MAP-CURR-RPT-TYPE (MAP-CNT) TO MQTR-CURR-RPT-TYPE. DTSCS44 01263 DTSCS44 01264 IF MQTR-CURR-RCVD-88 DTSCS44 01265 MOVE 'R' TO MAP-CURR-RPT-TYPE (MAP-CNT) DTSCS44 01266 ELSE DTSCS44 01267 IF MQTR-CURR-MISSING-88 DTSCS44 01268 MOVE 'M' TO MAP-CURR-RPT-TYPE (MAP-CNT). DTSCS44 01269 P6913-EXIT. DTSCS44 01270 EXIT. DTSCS44 01271 DTSCS44 01272 P6990-PAGE-NUMBER. DTSCS44 01273 MOVE WS-REC-NUM TO MAP-CURR-PAGE. DTSCS44 01274 MOVE LAST-REC-NUM TO MAP-LAST-PAGE. DTSCS44 01275 DTSCS44 01276 IF WS-REC-NUM = +1 DTSCS44 01277 IF LAST-REC-NUM = +1 DTSCS44 01278 MOVE PMSG-ONLY-PAGE TO LCCM-MSG-AREA DTSCS44 01279 ELSE DTSCS44 01280 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA DTSCS44 01281 ELSE DTSCS44 01282 IF WS-REC-NUM = LAST-REC-NUM DTSCS44 01283 MOVE PMSG-LAST-PAGE TO LCCM-MSG-AREA. DTSCS44 01284 P6990-EXIT. DTSCS44 01285 EXIT. DTSCS44 01286 /*****************************************************************DTSCS44 01287 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED. *DTSCS44 01288 ******************************************************************DTSCS44 01289 DTSCS44 01290 P7000-REQUEST-EDIT. DTSCS44 01291 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS44 01292 DTSCS44 01293 IF LCCM-F09-88 DTSCS44 01294 PERFORM P7100-EDIT-ADD THRU P7100-EXIT DTSCS44 01295 ELSE DTSCS44 01296 IF LCCM-F10-88 DTSCS44 01297 PERFORM P7200-EDIT-MOD THRU P7200-EXIT DTSCS44 01298 ELSE DTSCS44 01299 IF LCCM-F23-88 DTSCS44 01300 PERFORM P7300-EDIT-DEL THRU P7300-EXIT DTSCS44 01301 ELSE DTSCS44 01302 GO TO S899-ABEND. DTSCS44 01303 DTSCS44 01304 *------------------------------------------------------ DTSCS44 01305 * SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED. DTSCS44 01306 * IN ORDER TO CONTINUE TO ATTEMPT A MOD THE SCREEN MUST DTSCS44 01307 * REMAIN IN 'INQUIRE' STATUS. DTSCS44 01308 *------------------------------------------------------ DTSCS44 01309 DTSCS44 01310 IF LCCM-MSG DTSCS44 01311 NEXT SENTENCE DTSCS44 01312 ELSE DTSCS44 01313 PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT DTSCS44 01314 IF LCCM-F09-88 DTSCS44 01315 SET LCCM-SCR-ADD-LOCKED TO TRUE DTSCS44 01316 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID DTSCS44 01317 ELSE DTSCS44 01318 IF LCCM-F10-88 DTSCS44 01319 SET LCCM-SCR-MOD-LOCKED TO TRUE DTSCS44 01320 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID DTSCS44 01321 ELSE DTSCS44 01322 IF LCCM-F23-88 DTSCS44 01323 SET LCCM-SCR-DEL-LOCKED TO TRUE DTSCS44 01324 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID. DTSCS44 01325 DTSCS44 01326 SET RESP-SEND-MAP TO TRUE. DTSCS44 01327 P7000-EXIT. DTSCS44 01328 EXIT. DTSCS44 01329 /*****************************************************************DTSCS44 01330 * ADD FUNCTION WAS REQUESTED *DTSCS44 01331 ******************************************************************DTSCS44 01332 DTSCS44 01333 P7100-EDIT-ADD. DTSCS44 01334 *----------------------------------------------------- DTSCS44 01335 * ADDITION REQUIRES THAT THE SCREEN WAS CLEARED FIRST DTSCS44 01336 *----------------------------------------------------- DTSCS44 01337 IF NOT LCCM-SCR-CLEAR DTSCS44 01338 MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-ID DTSCS44 01339 GO TO P7100-EXIT. DTSCS44 01340 DTSCS44 01341 *----------------------------------------------------- DTSCS44 01342 * MAP-EMP-NO MAY NOT BE CHANGED DURING THE ADD DTSCS44 01343 *----------------------------------------------------- DTSCS44 01344 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 01345 IF LCCM-MSG DTSCS44 01346 GO TO P7100-EXIT. DTSCS44 01347 DTSCS44 01348 PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT. DTSCS44 01349 P7100-EXIT. DTSCS44 01350 EXIT. DTSCS44 01351 /*****************************************************************DTSCS44 01352 * MODIFICATION FUNCTION WAS REQUESTED *DTSCS44 01353 ******************************************************************DTSCS44 01354 DTSCS44 01355 P7200-EDIT-MOD. DTSCS44 01356 *----------------------------------------------------- DTSCS44 01357 * MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS44 01358 * INQUIRED DTSCS44 01359 *----------------------------------------------------- DTSCS44 01360 IF NOT LCCM-SCR-INQUIRE DTSCS44 01361 MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-ID DTSCS44 01362 GO TO P7200-EXIT. DTSCS44 01363 DTSCS44 01364 *----------------------------------------------------- DTSCS44 01365 * MAP-EMP-NO MAY NOT BE CHANGED DURING THE MOD DTSCS44 01366 *----------------------------------------------------- DTSCS44 01367 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 01368 IF LCCM-MSG DTSCS44 01369 GO TO P7200-EXIT. DTSCS44 01370 DTSCS44 01371 IF LCCM-EMP-NO NOT = WRK-EMP-NO DTSCS44 01372 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCS44 01373 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 01374 GO TO P7200-EXIT. DTSCS44 01375 DTSCS44 01376 PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT. DTSCS44 01377 DTSCS44 01378 P7200-EXIT. DTSCS44 01379 EXIT. DTSCS44 01380 /*****************************************************************DTSCS44 01381 * DELETE FUNCTION WAS REQUESTED *DTSCS44 01382 ******************************************************************DTSCS44 01383 DTSCS44 01384 P7300-EDIT-DEL. DTSCS44 01385 *----------------------------------------------------- DTSCS44 01386 * DELETION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS44 01387 * INQUIRED DTSCS44 01388 *----------------------------------------------------- DTSCS44 01389 IF NOT LCCM-SCR-INQUIRE DTSCS44 01390 MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-ID DTSCS44 01391 GO TO P7300-EXIT. DTSCS44 01392 DTSCS44 01393 *----------------------------------------------------- DTSCS44 01394 * MAP-EMP-NO MAY NOT BE CHANGED DURING THE DEL DTSCS44 01395 *----------------------------------------------------- DTSCS44 01396 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 01397 IF LCCM-MSG DTSCS44 01398 GO TO P7300-EXIT. DTSCS44 01399 DTSCS44 01400 IF LCCM-EMP-NO NOT = WRK-EMP-NO DTSCS44 01401 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCS44 01402 PERFORM S1199-ERROR THRU S1199-EXIT. DTSCS44 01403 DTSCS44 01404 P7300-EXIT. DTSCS44 01405 EXIT. DTSCS44 01406 /*****************************************************************DTSCS44 01407 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED *DTSCS44 01408 ******************************************************************DTSCS44 01409 DTSCS44 01410 P8000-REQUEST-UPDATE. DTSCS44 01411 DTSCS44 01412 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS44 01413 DTSCS44 01414 IF LCCM-SCR-ADD-LOCKED DTSCS44 01415 PERFORM P8100-ADD THRU P8100-EXIT DTSCS44 01416 ELSE DTSCS44 01417 IF LCCM-SCR-MOD-LOCKED DTSCS44 01418 PERFORM P8200-MOD THRU P8200-EXIT DTSCS44 01419 ** ELSE DTSCS44 01420 ** IF LCCM-SCR-DEL-LOCKED DTSCS44 01421 ** PERFORM P8300-DEL THRU P8300-EXIT DTSCS44 01422 ELSE DTSCS44 01423 GO TO S899-ABEND. DTSCS44 01424 DTSCS44 01425 SET RESP-SEND-MAP TO TRUE. DTSCS44 01426 P8000-EXIT. DTSCS44 01427 EXIT. DTSCS44 01428 /*****************************************************************DTSCS44 01429 * *DTSCS44 01430 ******************************************************************DTSCS44 01431 DTSCS44 01432 P8100-ADD. DTSCS44 01433 SET LCCM-SCR-CLEAR TO TRUE. DTSCS44 01434 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS44 01435 DTSCS44 01436 IF LCCM-F12-88 DTSCS44 01437 MOVE PMSG-ADD-CANCELED TO LCCM-MSG-ID DTSCS44 01438 GO TO P8100-EXIT. DTSCS44 01439 DTSCS44 01440 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 01441 DTSCS44 01442 MOVE 'A' TO L221-UPDATE-FUNCTION. DTSCS44 01443 PERFORM P8810-LOCK-EMPLOYER THRU P8810-EXIT. DTSCS44 01444 IF LCCM-MSG DTSCS44 01445 GO TO P8100-EXIT. DTSCS44 01446 DTSCS44 01447 *****PERFORM P8190-GET-CERT-NUM THRU P8190-EXIT. DTSCS44 01448 DTSCS44 01449 *****IF LCCM-MSG DTSCS44 01450 ********PERFORM S221-EMP-UNLOCK THRU S221-EXIT DTSCS44 01451 ********GO TO P8100-EXIT. DTSCS44 01452 DTSCS44 01453 *****IF MAP-ADDR-ID-ALL-88 DTSCS44 01454 *********MOVE LOW-VALUE TO MSKL-KEY-AREA DTSCS44 01455 *********MOVE WRK-EMP-NO TO MSKL-EMP-NO DTSCS44 01456 *********SET MSKL-OPO-88 TO TRUE DTSCS44 01457 *********PERFORM S810-START-BROWSE THRU S810-EXIT DTSCS44 01458 *********IF L810-OK-88 DTSCS44 01459 *************PERFORM P8105-MULTIPLE-LIENS THRU P8105-EXIT DTSCS44 01460 *********************UNTIL L810-NO-REC-88 DTSCS44 01461 *********ELSE DTSCS44 01462 *************PERFORM S899-ABEND THRU S899-EXIT DTSCS44 01463 *****ELSE DTSCS44 01464 PERFORM P8110-CONSTRUCT-MLIN THRU P8110-EXIT. DTSCS44 01465 DTSCS44 01466 PERFORM P8113-WRITE-R901 THRU P8113-EXIT. DTSCS44 01467 DTSCS44 01468 IF MPRF-NO-MLIN-88 DTSCS44 01469 PERFORM P8120-UPDATE-MPRF THRU P8120-EXIT. DTSCS44 01470 DTSCS44 01471 PERFORM S221-EMP-UNLOCK THRU S221-EXIT. DTSCS44 01472 DTSCS44 01473 DTSCS44 01474 MOVE MLIN-KEY-AREA TO LCCM-SCR44-HOLD-AREA. DTSCS44 01475 SET LCCM-ENTER-88 TO TRUE. DTSCS44 01476 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS44 01477 DTSCS44 01478 MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-ID. DTSCS44 01479 DTSCS44 01480 MOVE L221-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS44 01481 P8100-EXIT. DTSCS44 01482 EXIT. DTSCS44 01483 EJECT DTSCS44 01484 *P8105-MULTIPLE-LIENS. DTSCS44 01485 *****PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 01486 *****MOVE MSKL-REC TO MOPO-REC. DTSCS44 01487 *****SET L112-OPO-ADDR-88 TO TRUE. DTSCS44 01488 *****SET L112-ANCHOR-LAST-88 TO TRUE. DTSCS44 01489 DTSCS44 01490 ***** PER A MEMO FROM RUDY, WHEN USING AN OPO ADDRESS DTSCS44 01491 ***** AS A "LIEN LETTER" ADDRESS, DO NOT FORMAT DTSCS44 01492 ***** MPRF-PRIMARY-NAME INTO THE MAILING ADDRESS. 03/28/95 DTSCS44 01493 DTSCS44 01494 *****MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSCS44 01495 DTSCS44 01496 *****MOVE SPACE TO L112-PRIMARY-NAME. DTSCS44 01497 DTSCS44 01498 *****IF MOPO-ADDRESS = SPACE OR LOW-VALUE DTSCS44 01499 *********MOVE WRK-EMP-NO TO L111-EMP-NO DTSCS44 01500 *********SET L111-LOOKUP-TAD-88 TO TRUE DTSCS44 01501 *********SET L111-ID-NO-TAD-MAIL-88 TO TRUE DTSCS44 01502 *********PERFORM S111-ADDR-LOOKUP THRU S111-EXIT DTSCS44 01503 *********MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSCS44 01504 *****ELSE DTSCS44 01505 *********MOVE MOPO-MAIL-DELIV-IND TO L112-MAIL-DELIV-IND DTSCS44 01506 *********MOVE MOPO-ADDRESS TO L112-ADDRESS. DTSCS44 01507 *****MOVE MOPO-NAME TO L112-NAME. DTSCS44 01508 *****MOVE MOPO-TITLE TO L112-TITLE. DTSCS44 01509 *****PERFORM S112-ADDR-FORMAT THRU S112-EXIT. DTSCS44 01510 *****PERFORM P8110-CONSTRUCT-MLIN THRU P8110-EXIT. DTSCS44 01511 *****MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 01512 *****PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCS44 01513 *****IF L810-NO-REC-88 DTSCS44 01514 *********GO TO P8105-EXIT. DTSCS44 01515 *****PERFORM S810-READ-NEXT THRU S810-EXIT. DTSCS44 01516 *P8105-EXIT. EXIT. DTSCS44 01517 DTSCS44 01518 P8110-CONSTRUCT-MLIN. DTSCS44 01519 MOVE LOW-VALUES TO MLIN-REC. DTSCS44 01520 DTSCS44 01521 MOVE WRK-EMP-NO TO MLIN-EMP-NO. DTSCS44 01522 SET MLIN-LIN-88 TO TRUE. DTSCS44 01523 ADD +1 TO LCCM-TASK-START-ABSTIME. DTSCS44 01524 MOVE LCCM-TASK-START-ABSTIME TO MLIN-ESTB-ABSTIME. DTSCS44 01525 DTSCS44 01526 MOVE ZERO TO MLIN-PURGE-DATE DTSCS44 01527 MLIN-CERTFD-MAIL-DATE DTSCS44 01528 MLIN-RECEIPT-RETURN-DATE. DTSCS44 01529 SET MLIN-NOT-CONVERTED-88 TO TRUE. DTSCS44 01530 MOVE LCCM-CURR-RUN-DATE TO MLIN-ESTB-DATE. DTSCS44 01531 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01532 DTSCS44 01533 MOVE MAP-STATUS-CD TO MLIN-STATUS-CD. DTSCS44 01534 MOVE LCCM-CURR-RUN-DATE TO MLIN-STATUS-DATE. DTSCS44 01535 MOVE LCCM-OP-ID TO MLIN-STATUS-OP-ID. DTSCS44 01536 DTSCS44 01537 MOVE MAP-STMT-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 01538 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 01539 MOVE L015-DATE TO MLIN-STMT-DATE. DTSCS44 01540 DTSCS44 01541 MOVE MAP-COMP-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 01542 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 01543 MOVE L015-DATE TO MLIN-COMP-DATE. DTSCS44 01544 DTSCS44 01545 MOVE MAP-LIEN-ADDR-LINE-1 TO MLIN-ADDRESS-LINE-1. DTSCS44 01546 MOVE MAP-LIEN-ADDR-LINE-2 TO MLIN-ADDRESS-LINE-2. DTSCS44 01547 MOVE MAP-LIEN-ADDR-LINE-3 TO MLIN-ADDRESS-LINE-3. DTSCS44 01548 MOVE MAP-LIEN-ADDR-LINE-4 TO MLIN-ADDRESS-LINE-4. DTSCS44 01549 MOVE MAP-LIEN-ADDR-LINE-5 TO MLIN-ADDRESS-LINE-5. DTSCS44 01550 DTSCS44 01551 MOVE MAP-LICENSE-IND TO MLIN-LICENSE-IND. DTSCS44 01552 DTSCS44 01553 MOVE MAP-FLD-REP-ID-CD TO MLIN-FLD-REP-ID. DTSCS44 01554 DTSCS44 01555 IF MAP-STATUS-CD = 'C' DTSCS44 01556 MOVE MAP-CERTIFICATE-NUM-AREA TO L028-S-NO-AREA DTSCS44 01557 PERFORM S028-CERT-NO-FROM-SCREEN THRU S028-EXIT DTSCS44 01558 MOVE L028-NO TO MLIN-CERTIFICATE-NO DTSCS44 01559 ELSE DTSCS44 01560 PERFORM P8190-GET-CERT-NUM THRU P8190-EXIT DTSCS44 01561 MOVE WRK-CERT-NO TO MLIN-CERTIFICATE-NO. DTSCS44 01562 DTSCS44 01563 MOVE MAP-CERT-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 01564 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 01565 MOVE L015-DATE TO MLIN-CERTIFICATE-DATE. DTSCS44 01566 DTSCS44 01567 MOVE +0 TO MLIN-STMT-DUE-AMT. DTSCS44 01568 DTSCS44 01569 IF MLIN-STATUS-CONV-88 OR MLIN-STATUS-MANUAL-88 DTSCS44 01570 MOVE MAP-STMT-DUE-AMT-AREA TO L011-S-AMT-AREA DTSCS44 01571 PERFORM S011-AMT-FROM-SCREEN THRU S011-EXIT DTSCS44 01572 MOVE L011-AMT TO MLIN-STMT-DUE-AMT. DTSCS44 01573 DTSCS44 01574 MOVE +0 TO MLIN-COV-CNT. DTSCS44 01575 DTSCS44 01576 PERFORM P8111-COVERED-YRQ-LOOP THRU P8111-EXIT DTSCS44 01577 VARYING WRK-SUB FROM 1 BY 1 DTSCS44 01578 UNTIL WRK-SUB > MMAX-LIN-COV-MAX. DTSCS44 01579 DTSCS44 01580 MOVE MLIN-REC TO MSKL-REC. DTSCS44 01581 PERFORM S810-WRITE THRU S810-EXIT. DTSCS44 01582 DTSCS44 01583 PERFORM P8112-OPEN-ADD THRU P8112-EXIT. DTSCS44 01584 P8110-EXIT. EXIT. DTSCS44 01585 DTSCS44 01586 P8111-COVERED-YRQ-LOOP. DTSCS44 01587 MOVE MAP-COVERED-YRQ-AREA (WRK-SUB) TO L029-S-YRQ-AREA. DTSCS44 01588 PERFORM S029-YRQ-FROM-SCREEN THRU S029-EXIT. DTSCS44 01589 DTSCS44 01590 IF L029-VALID DTSCS44 01591 ADD +1 TO MLIN-COV-CNT DTSCS44 01592 MOVE L029-YRQ TO MLIN-COVERED-YRQ (MLIN-COV-CNT). DTSCS44 01593 P8111-EXIT. DTSCS44 01594 EXIT. DTSCS44 01595 DTSCS44 01596 P8112-OPEN-ADD. DTSCS44 01597 IF MLIN-STATUS-OPEN-88 DTSCS44 01598 MOVE MLIN-EMP-NO TO T011-EMP-NO DTSCS44 01599 MOVE LCCM-OP-ID TO T011-OP-ID DTSCS44 01600 MOVE WRK-SCR-ID TO T011-SCR-ID DTSCS44 01601 MOVE LCCM-TASK-START-DATE TO T011-SYS-DATE DTSCS44 01602 MOVE LCCM-TASK-START-TIME TO T011-SYS-TIME DTSCS44 01603 SET T011-LIN-PKG TO TRUE DTSCS44 01604 MOVE MAP-FLD-REP-ID-CD TO L062-FLD-REP-ID DTSCS44 01605 DTSCS44 01606 PERFORM S062-FLD-REP-ID-DESC THRU S062-EXIT DTSCS44 01607 DTSCS44 01608 MOVE ZEROS TO T011-START-YRQ DTSCS44 01609 T011-END-YRQ DTSCS44 01610 T011-BATCH-NO DTSCS44 01611 T011-ITEM-NO DTSCS44 01612 MOVE L062-OP-ID TO T011-RESP-OP-ID DTSCS44 01613 MOVE MLIN-ESTB-ABSTIME TO T011-ESTB-ABSTIME DTSCS44 01614 MOVE LENGTH OF T011-REC TO T011-LENGTH DTSCS44 01615 MOVE T011-REC TO RSKL-REC DTSCS44 01616 PERFORM S825-WRITE THRU S825-EXIT. DTSCS44 01617 DTSCS44 01618 IF MLIN-CERTIFICATE-DATE = +0 DTSCS44 01619 MOVE LOW-VALUES TO MTCK-REC DTSCS44 01620 MOVE MPRF-EMP-NO TO MTCK-EMP-NO DTSCS44 01621 SET MTCK-TCK-88 TO TRUE DTSCS44 01622 MOVE LCCM-TASK-START-ABSTIME TO MTCK-ESTB-ABSTIME DTSCS44 01623 DTSCS44 01624 SET MTCK-TYPE-LIEN-88 TO TRUE DTSCS44 01625 DTSCS44 01626 MOVE LCCM-CURR-RUN-DATE TO L001-FED-8-DATE-9 DTSCS44 01627 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS44 01628 ADD +14 TO L001-JUL-ABS-DAY DTSCS44 01629 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSCS44 01630 MOVE L001-FED-8-DATE-9 TO MTCK-TRIGGER-DATE DTSCS44 01631 DTSCS44 01632 MOVE +0 TO MTCK-ACKNOWLEDGED-DATE DTSCS44 01633 DTSCS44 01634 SET MTCK-SOURCE-SYSTEM-88 TO TRUE DTSCS44 01635 DTSCS44 01636 SET MTCK-DEST-SYSTEM-88 TO TRUE DTSCS44 01637 DTSCS44 01638 MOVE MLIN-ESTB-ABSTIME TO MTCK-L01-ESTB-ABSTIME DTSCS44 01639 DTSCS44 01640 SET MTCK-NOT-CONVERTED-88 TO TRUE DTSCS44 01641 DTSCS44 01642 MOVE +0 TO MTCK-TEXT-CNT DTSCS44 01643 DTSCS44 01644 MOVE LCCM-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSCS44 01645 MTCK-CHNG-DATE DTSCS44 01646 DTSCS44 01647 MOVE MTCK-REC TO MSKL-REC DTSCS44 01648 DTSCS44 01649 PERFORM S810-WRITE THRU S810-EXIT. DTSCS44 01650 P8112-EXIT. DTSCS44 01651 EXIT. DTSCS44 01652 DTSCS44 01653 P8113-WRITE-R901. DTSCS44 01654 DTSCS44 01655 SET R901-ON-REQUEST-88 TO TRUE. DTSCS44 01656 MOVE +1 TO R901-LABEL-CNT. DTSCS44 01657 MOVE LOW-VALUES TO R901-SORT-VAR-AREA. DTSCS44 01658 MOVE WRK-EMP-NO TO R901-GRP1-EMP-NO DTSCS44 01659 R901-EMP-NO. DTSCS44 01660 MOVE MAP-FLD-REP-ID-CD-DSCR TO R901-GRP1-OP-ID. DTSCS44 01661 MOVE MAP-LIEN-ADDR-LINE-1 TO R901-FMT-LINE(1). DTSCS44 01662 MOVE MAP-LIEN-ADDR-LINE-2 TO R901-FMT-LINE(2). DTSCS44 01663 MOVE MAP-LIEN-ADDR-LINE-3 TO R901-FMT-LINE(3). DTSCS44 01664 MOVE MAP-LIEN-ADDR-LINE-4 TO R901-FMT-LINE(4). DTSCS44 01665 MOVE MAP-LIEN-ADDR-LINE-5 TO R901-FMT-LINE(5). DTSCS44 01666 MOVE LENGTH OF R901-REC TO R901-LENGTH. DTSCS44 01667 MOVE R901-REC TO RSKL-REC. DTSCS44 01668 PERFORM S825-WRITE THRU S825-EXIT. DTSCS44 01669 P8113-EXIT. DTSCS44 01670 EXIT. DTSCS44 01671 DTSCS44 01672 P8120-UPDATE-MPRF. DTSCS44 01673 PERFORM S1110-READ-MPRF THRU S1110-EXIT. DTSCS44 01674 DTSCS44 01675 SET MPRF-MLIN-EXISTS-88 TO TRUE. DTSCS44 01676 MOVE LCCM-CURR-RUN-DATE TO MPRF-CHNG-DATE. DTSCS44 01677 MOVE MPRF-REC TO MSKL-REC. DTSCS44 01678 PERFORM S810-REWRITE THRU S810-EXIT. DTSCS44 01679 P8120-EXIT. DTSCS44 01680 EXIT. DTSCS44 01681 DTSCS44 01682 P8190-GET-CERT-NUM. DTSCS44 01683 IF MAP-STATUS-CD = 'C' DTSCS44 01684 GO TO P8190-EXIT. DTSCS44 01685 DTSCS44 01686 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSCS44 01687 MOVE +0 TO MHDR-EMP-NO. DTSCS44 01688 SET MHDR-HDR-88 TO TRUE. DTSCS44 01689 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 01690 PERFORM S810-READ-UPDATE THRU S810-EXIT. DTSCS44 01691 IF L810-NO-REC-88 DTSCS44 01692 GO TO S899-ABEND. DTSCS44 01693 DTSCS44 01694 MOVE MSKL-REC TO MHDR-REC. DTSCS44 01695 DTSCS44 01696 MOVE MHDR-LAST-USED-LIEN-NO TO WRK-CERT-NO. DTSCS44 01697 DTSCS44 01698 IF WRK-EDIT-CERT-NO2 = 9999 DTSCS44 01699 MOVE 0000 TO WRK-EDIT-CERT-NO2 DTSCS44 01700 MOVE WRK-CERT-NO TO MHDR-LAST-USED-LIEN-NO. DTSCS44 01701 DTSCS44 01702 ADD +1 TO MHDR-LAST-USED-LIEN-NO. DTSCS44 01703 MOVE MHDR-LAST-USED-LIEN-NO TO WRK-CERT-NO. DTSCS44 01704 MOVE WRK-CERT-NO TO WRK-DISPLAY. DTSCS44 01705 MOVE WRK-DISPLAY-CERT-NO-1 TO MAP-CERT-NUM1. DTSCS44 01706 MOVE WRK-DISPLAY-CERT-NO-2 TO MAP-CERT-NUM2. DTSCS44 01707 DTSCS44 01708 DTSCS44 01709 MOVE MHDR-REC TO MSKL-REC. DTSCS44 01710 DTSCS44 01711 PERFORM S810-REWRITE-UPDATE THRU S810-EXIT. DTSCS44 01712 DTSCS44 01713 P8190-EXIT. DTSCS44 01714 EXIT. DTSCS44 01715 DTSCS44 01716 /*****************************************************************DTSCS44 01717 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCS44 01718 ******************************************************************DTSCS44 01719 DTSCS44 01720 P8200-MOD. DTSCS44 01721 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS44 01722 DTSCS44 01723 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS44 01724 DTSCS44 01725 IF LCCM-F12-88 DTSCS44 01726 MOVE PMSG-MOD-CANCELED TO LCCM-MSG-ID DTSCS44 01727 GO TO P8200-EXIT. DTSCS44 01728 DTSCS44 01729 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 01730 DTSCS44 01731 MOVE 'M' TO L221-UPDATE-FUNCTION. DTSCS44 01732 PERFORM P8810-LOCK-EMPLOYER THRU P8810-EXIT. DTSCS44 01733 IF LCCM-MSG DTSCS44 01734 GO TO P8200-EXIT. DTSCS44 01735 DTSCS44 01736 PERFORM P8210-CONSTRUCT-MLIN THRU P8210-EXIT. DTSCS44 01737 DTSCS44 01738 PERFORM S221-EMP-UNLOCK THRU S221-EXIT. DTSCS44 01739 DTSCS44 01740 MOVE MLIN-KEY-AREA TO LCCM-SCR44-HOLD-AREA. DTSCS44 01741 DTSCS44 01742 SET LCCM-ENTER-88 TO TRUE. DTSCS44 01743 DTSCS44 01744 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS44 01745 DTSCS44 01746 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-ID. DTSCS44 01747 DTSCS44 01748 MOVE L221-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS44 01749 P8200-EXIT. DTSCS44 01750 EXIT. DTSCS44 01751 EJECT DTSCS44 01752 P8210-CONSTRUCT-MLIN. DTSCS44 01753 MOVE LCCM-SCR44-HOLD-AREA TO MSKL-KEY-AREA. DTSCS44 01754 PERFORM S810-READ THRU S810-EXIT. DTSCS44 01755 IF L810-NO-REC-88 DTSCS44 01756 GO TO S899-ABEND. DTSCS44 01757 DTSCS44 01758 MOVE MSKL-REC TO MLIN-REC. DTSCS44 01759 DTSCS44 01760 MOVE MLIN-STATUS-CD TO WRK-STATUS-CD. DTSCS44 01761 DTSCS44 01762 IF MAP-STATUS-CD NOT = MLIN-STATUS-CD DTSCS44 01763 MOVE LCCM-OP-ID TO MLIN-STATUS-OP-ID DTSCS44 01764 MOVE LCCM-CURR-RUN-DATE TO MLIN-STATUS-DATE DTSCS44 01765 MLIN-CHNG-DATE. DTSCS44 01766 DTSCS44 01767 MOVE MAP-STATUS-CD TO MLIN-STATUS-CD. DTSCS44 01768 DTSCS44 01769 IF (WRK-STATUS-CD = 'O' OR 'C' OR 'M') DTSCS44 01770 AND DTSCS44 01771 (MLIN-STATUS-RELEASED-88 OR MLIN-STATUS-WITHDRAWN-88) DTSCS44 01772 IF MLIN-STATUS-RELEASED-88 DTSCS44 01773 MOVE 'RELEASED.' TO EVL-STATUS-CD-DSCR DTSCS44 01774 ELSE DTSCS44 01775 MOVE 'WITHDRAWN.' TO EVL-STATUS-CD-DSCR DTSCS44 01776 END-IF DTSCS44 01777 MOVE MLIN-CERTIFICATE-NO TO EVL-CERTIFICATE-NO DTSCS44 01778 PERFORM P8820-CREATE-MEVL THRU P8820-EXIT. DTSCS44 01779 DTSCS44 01780 IF MAP-MAIL-NO = MLIN-CERTFD-MAIL-NO DTSCS44 01781 NEXT SENTENCE DTSCS44 01782 ELSE DTSCS44 01783 MOVE MAP-MAIL-NO TO MLIN-CERTFD-MAIL-NO DTSCS44 01784 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01785 DTSCS44 01786 IF MAP-DEED-NO = MLIN-REC-DEEDS-NO DTSCS44 01787 NEXT SENTENCE DTSCS44 01788 ELSE DTSCS44 01789 MOVE MAP-DEED-NO TO MLIN-REC-DEEDS-NO DTSCS44 01790 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01791 DTSCS44 01792 IF MAP-FLD-REP-ID-CD = MLIN-FLD-REP-ID DTSCS44 01793 NEXT SENTENCE DTSCS44 01794 ELSE DTSCS44 01795 MOVE MAP-FLD-REP-ID-CD TO MLIN-FLD-REP-ID DTSCS44 01796 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01797 DTSCS44 01798 MOVE MAP-CERT-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 01799 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 01800 DTSCS44 01801 IF L015-DATE = MLIN-CERTIFICATE-DATE DTSCS44 01802 NEXT SENTENCE DTSCS44 01803 ELSE DTSCS44 01804 MOVE L015-DATE TO MLIN-CERTIFICATE-DATE DTSCS44 01805 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01806 DTSCS44 01807 MOVE MAP-CERT-MAIL-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 01808 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 01809 DTSCS44 01810 IF L015-DATE = MLIN-CERTFD-MAIL-DATE DTSCS44 01811 NEXT SENTENCE DTSCS44 01812 ELSE DTSCS44 01813 MOVE L015-DATE TO MLIN-CERTFD-MAIL-DATE DTSCS44 01814 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01815 DTSCS44 01816 MOVE MAP-MAIL-RETURN-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 01817 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 01818 DTSCS44 01819 IF L015-DATE = MLIN-RECEIPT-RETURN-DATE DTSCS44 01820 NEXT SENTENCE DTSCS44 01821 ELSE DTSCS44 01822 MOVE L015-DATE TO MLIN-RECEIPT-RETURN-DATE DTSCS44 01823 MOVE LCCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSCS44 01824 DTSCS44 01825 MOVE MLIN-REC TO MSKL-REC. DTSCS44 01826 DTSCS44 01827 PERFORM S810-REWRITE THRU S810-EXIT. DTSCS44 01828 P8210-EXIT. EXIT. DTSCS44 01829 /*****************************************************************DTSCS44 01830 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCS44 01831 ******************************************************************DTSCS44 01832 *P8300-DEL. DTSCS44 01833 * SET LCCM-SCR-INQUIRE TO TRUE. DTSCS44 01834 * DTSCS44 01835 * IF LCCM-F12-88 DTSCS44 01836 * MOVE PMSG-DEL-CANCELED TO LCCM-MSG-ID DTSCS44 01837 * GO TO P8300-EXIT. DTSCS44 01838 * DTSCS44 01839 * PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS44 01840 * DTSCS44 01841 * MOVE 'D' TO L221-UPDATE-FUNCTION. DTSCS44 01842 * PERFORM P8810-LOCK-EMPLOYER THRU P8810-EXIT. DTSCS44 01843 * IF LCCM-MSG DTSCS44 01844 * GO TO P8300-EXIT. DTSCS44 01845 * DTSCS44 01846 * MOVE LCCM-SCR44-HOLD-AREA TO MSKL-KEY-AREA. DTSCS44 01847 * PERFORM S810-READ THRU S810-EXIT. DTSCS44 01848 * IF L810-NO-REC-88 DTSCS44 01849 * GO TO S899-ABEND. DTSCS44 01850 * MOVE MSKL-REC TO MLIN-REC. DTSCS44 01851 * DTSCS44 01852 * PERFORM S810-DELETE THRU S810-EXIT. DTSCS44 01853 * DTSCS44 01854 * MOVE 'DELETED.' TO EVL-STATUS-CD-DSCR. DTSCS44 01855 * MOVE MLIN-CERTIFICATE-NO TO EVL-CERTIFICATE-NO. DTSCS44 01856 * PERFORM P8820-CREATE-MEVL THRU P8820-EXIT. DTSCS44 01857 * DTSCS44 01858 * MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSCS44 01859 * MOVE WRK-EMP-NO TO MSKL-EMP-NO. DTSCS44 01860 * SET MSKL-LIN-88 TO TRUE. DTSCS44 01861 * PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCS44 01862 * IF L810-NO-REC-88 DTSCS44 01863 * PERFORM S1110-READ-MPRF THRU S1110-EXIT DTSCS44 01864 * SET MPRF-NO-MLIN-88 TO TRUE DTSCS44 01865 * MOVE LCCM-CURR-RUN-DATE TO MPRF-CHNG-DATE DTSCS44 01866 * MOVE MPRF-REC TO MSKL-REC DTSCS44 01867 * PERFORM S810-REWRITE THRU S810-EXIT DTSCS44 01868 * ELSE DTSCS44 01869 * PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 01870 * DTSCS44 01871 * PERFORM S221-EMP-UNLOCK THRU S221-EXIT. DTSCS44 01872 * DTSCS44 01873 * SET LCCM-SCR-CLEAR TO TRUE. DTSCS44 01874 * MOVE LOW-VALUE TO MAP-AREA. DTSCS44 01875 * PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS44 01876 * DTSCS44 01877 * MOVE WRK-EMP-NO TO WRK-DISPLAY. DTSCS44 01878 * MOVE WRK-DISPLAY-EMP-NO-1 TO MAP-EMP-NO-1. DTSCS44 01879 * MOVE WRK-DISPLAY-EMP-NO-2 TO MAP-EMP-NO-2. DTSCS44 01880 * DTSCS44 01881 * MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-ID. DTSCS44 01882 * DTSCS44 01883 * MOVE L221-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS44 01884 * DTSCS44 01885 *P8300-EXIT. EXIT. DTSCS44 01886 * EJECT DTSCS44 01887 P8810-LOCK-EMPLOYER. DTSCS44 01888 MOVE WRK-EMP-NO TO L221-EMP-NO. DTSCS44 01889 MOVE LCCM-SCR-ABSTIME TO L221-SCR-ABSTIME. DTSCS44 01890 MOVE LCCM-TASK-ID TO L221-UPDATE-TASK-ID. DTSCS44 01891 MOVE LCCM-OP-ID TO L221-UPDATE-OP-ID. DTSCS44 01892 MOVE LCCM-CICS-TERM-ID TO L221-UPDATE-TERMID. DTSCS44 01893 MOVE LCCM-TASK-NETNAME TO L221-UPDATE-NETNAME. DTSCS44 01894 MOVE LCCM-TASK-START-DATE TO L221-UPDATE-START-DATE. DTSCS44 01895 MOVE LCCM-TASK-START-TIME TO L221-UPDATE-START-TIME. DTSCS44 01896 MOVE WRK-SCR-ID TO L221-UPDATE-SCR-ID. DTSCS44 01897 DTSCS44 01898 PERFORM S221-EMP-LOCK THRU S221-EXIT. DTSCS44 01899 P8810-EXIT. DTSCS44 01900 EXIT. DTSCS44 01901 DTSCS44 01902 DTSCS44 01903 P8820-CREATE-MEVL. DTSCS44 01904 MOVE LOW-VALUES TO MEVL-REC. DTSCS44 01905 DTSCS44 01906 MOVE WRK-EMP-NO TO MEVL-EMP-NO. DTSCS44 01907 SET MEVL-EVL-88 TO TRUE. DTSCS44 01908 MOVE LCCM-TASK-START-DATE TO MEVL-DATE. DTSCS44 01909 MOVE LCCM-TASK-START-TIME TO MEVL-TIME. DTSCS44 01910 DTSCS44 01911 MOVE EVL-TEXT TO MEVL-TEXT. DTSCS44 01912 DTSCS44 01913 MOVE LCCM-OP-ID TO MEVL-SOURCE. DTSCS44 01914 DTSCS44 01915 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSCS44 01916 DTSCS44 01917 MOVE LCCM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSCS44 01918 MEVL-CHNG-DATE. DTSCS44 01919 DTSCS44 01920 MOVE MEVL-REC TO MSKL-REC. DTSCS44 01921 PERFORM S810-WRITE THRU S810-EXIT. DTSCS44 01922 P8820-EXIT. DTSCS44 01923 EXIT. DTSCS44 01924 /*****************************************************************DTSCS44 01925 * LINKS TO UTILITY MODULES DTSCS44 01926 ******************************************************************DTSCS44 01927 DTSCS44 01928 S001-FROM-FED-8. DTSCS44 01929 SET L001-FROM-FED-8 TO TRUE. DTSCS44 01930 GO TO S001-DATE. DTSCS44 01931 DTSCS44 01932 S001-FROM-ABS-DAY. DTSCS44 01933 SET L001-FROM-ABS-DAY TO TRUE. DTSCS44 01934 GO TO S001-DATE. DTSCS44 01935 DTSCS44 01936 S001-DATE. DTSCS44 01937 EXEC CICS LINK DTSCS44 01938 PROGRAM('DTSCU001') DTSCS44 01939 COMMAREA(L001-COMM-AREA) DTSCS44 01940 END-EXEC. DTSCS44 01941 S001-EXIT. DTSCS44 01942 EXIT. DTSCS44 01943 DTSCS44 01944 *S004-FROM-5. DTSCS44 01945 *****SET L004-FROM-5 TO TRUE. DTSCS44 01946 *****GO TO S004-LINK. DTSCS44 01947 ***** DTSCS44 01948 *S004-FROM-3. DTSCS44 01949 *****SET L004-FROM-3 TO TRUE. DTSCS44 01950 *****GO TO S004-LINK. DTSCS44 01951 ***** DTSCS44 01952 S005-CDATE-TIME. DTSCS44 01953 EXEC CICS LINK DTSCS44 01954 PROGRAM ('DTSCU005') DTSCS44 01955 COMMAREA (L005-COMM-AREA) DTSCS44 01956 END-EXEC. DTSCS44 01957 S005-EXIT. DTSCS44 01958 EXIT. DTSCS44 01959 DTSCS44 01960 S011-AMT-FROM-SCREEN. DTSCS44 01961 MOVE +0.01 TO L011-MIN-AMT DTSCS44 01962 MOVE +9999999.99 TO L011-MAX-AMT DTSCS44 01963 EXEC CICS LINK DTSCS44 01964 PROGRAM ('DTSCU011') DTSCS44 01965 COMMAREA (L011-COMM-AREA) DTSCS44 01966 END-EXEC. DTSCS44 01967 S011-EXIT. DTSCS44 01968 EXIT. DTSCS44 01969 DTSCS44 01970 S015-DATE-FROM-SCREEN. DTSCS44 01971 EXEC CICS LINK DTSCS44 01972 PROGRAM ('DTSCU015') DTSCS44 01973 COMMAREA (L015-COMM-AREA) DTSCS44 01974 END-EXEC. DTSCS44 01975 S015-EXIT. DTSCS44 01976 EXIT. DTSCS44 01977 DTSCS44 01978 *S013-ADDR-NUM. DTSCS44 01979 *****MOVE +1 TO L013-MIN-CNT. DTSCS44 01980 *****MOVE +999 TO L013-MAX-CNT. DTSCS44 01981 *****GO TO S013-COUNT-FROM-SCREEN. DTSCS44 01982 ***** DTSCS44 01983 *S013-COPY-CNT. DTSCS44 01984 *****MOVE +1 TO L013-MIN-CNT. DTSCS44 01985 *****MOVE +99 TO L013-MAX-CNT. DTSCS44 01986 *****GO TO S013-COUNT-FROM-SCREEN. DTSCS44 01987 DTSCS44 01988 S013-COUNT-FROM-SCREEN. DTSCS44 01989 EXEC CICS LINK DTSCS44 01990 PROGRAM('DTSCU013') DTSCS44 01991 COMMAREA(L013-COMM-AREA) DTSCS44 01992 END-EXEC. DTSCS44 01993 S013-EXIT. DTSCS44 01994 EXIT. DTSCS44 01995 DTSCS44 01996 S018-EMP-NO-FROM-SCREEN. DTSCS44 01997 EXEC CICS LINK DTSCS44 01998 PROGRAM('DTSCU018') DTSCS44 01999 COMMAREA(L018-COMM-AREA) DTSCS44 02000 END-EXEC. DTSCS44 02001 S018-EXIT. DTSCS44 02002 EXIT. DTSCS44 02003 DTSCS44 02004 DTSCS44 02005 S028-CERT-NO-FROM-SCREEN. DTSCS44 02006 EXEC CICS LINK DTSCS44 02007 PROGRAM('DTSCU028') DTSCS44 02008 COMMAREA(L028-COMM-AREA) DTSCS44 02009 END-EXEC. DTSCS44 02010 S028-EXIT. DTSCS44 02011 EXIT. DTSCS44 02012 DTSCS44 02013 DTSCS44 02014 S029-YRQ-FROM-SCREEN. DTSCS44 02015 EXEC CICS LINK DTSCS44 02016 PROGRAM('DTSCU029') DTSCS44 02017 COMMAREA(L029-COMM-AREA) DTSCS44 02018 END-EXEC. DTSCS44 02019 S029-EXIT. DTSCS44 02020 EXIT. DTSCS44 02021 DTSCS44 02022 DTSCS44 02023 S034-MLIN-STATUS-CD. DTSCS44 02024 SET L034-MLIN-STATUS-CD TO TRUE. DTSCS44 02025 GO TO S034-LINK. DTSCS44 02026 DTSCS44 02027 S034-LINK. DTSCS44 02028 EXEC CICS LINK DTSCS44 02029 PROGRAM ('DTSCU034') DTSCS44 02030 COMMAREA (L034-COMM-AREA) DTSCS44 02031 END-EXEC. DTSCS44 02032 S034-EXIT. DTSCS44 02033 EXIT. DTSCS44 02034 DTSCS44 02035 S062-FLD-REP-ID-DESC. DTSCS44 02036 EXEC CICS LINK DTSCS44 02037 PROGRAM('DTSCU062') DTSCS44 02038 COMMAREA(L062-COMM-AREA) DTSCS44 02039 END-EXEC. DTSCS44 02040 S062-EXIT. DTSCS44 02041 EXIT. DTSCS44 02042 DTSCS44 02043 S101-PER-MONTH-NO. DTSCS44 02044 SET L101-PER-MONTH-NO-88 TO TRUE. DTSCS44 02045 GO TO S101-INT-PEN-COMP. DTSCS44 02046 DTSCS44 02047 S101-INT-PEN-COMP. DTSCS44 02048 EXEC CICS LINK DTSCS44 02049 PROGRAM ('DTSCU101') DTSCS44 02050 COMMAREA (L101-COMM-AREA) DTSCS44 02051 END-EXEC. DTSCS44 02052 S101-EXIT. DTSCS44 02053 EXIT. DTSCS44 02054 DTSCS44 02055 S111-ADDR-LOOKUP. DTSCS44 02056 EXEC CICS LINK DTSCS44 02057 PROGRAM('DTSCU111') DTSCS44 02058 COMMAREA(L111-COMM-AREA) DTSCS44 02059 END-EXEC. DTSCS44 02060 DTSCS44 02061 IF L111-FILE-CLOSED-88 DTSCS44 02062 MOVE L111-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02063 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS44 02064 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS44 02065 GO TO MAINLINE-EXIT. DTSCS44 02066 S111-EXIT. DTSCS44 02067 EXIT. DTSCS44 02068 DTSCS44 02069 S109-SUR-TAX-QTR. DTSCS44 02070 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSCS44 02071 EXEC CICS LINK DTSCS44 02072 PROGRAM('DTSCU109') DTSCS44 02073 COMMAREA(L109-COMM-AREA) DTSCS44 02074 END-EXEC. DTSCS44 02075 S109-EXIT. DTSCS44 02076 EXIT. DTSCS44 02077 DTSCS44 02078 DTSCS44 02079 S112-ADDR-FORMAT. DTSCS44 02080 EXEC CICS LINK DTSCS44 02081 PROGRAM('DTSCU112') DTSCS44 02082 COMMAREA(L112-COMM-AREA) DTSCS44 02083 END-EXEC. DTSCS44 02084 S112-EXIT. DTSCS44 02085 EXIT. DTSCS44 02086 DTSCS44 02087 S221-EMP-LOCK. DTSCS44 02088 SET L221-START-UPDATE TO TRUE. DTSCS44 02089 GO TO S221-EMP-LOCK-UNLOCK. DTSCS44 02090 DTSCS44 02091 S221-EMP-UNLOCK. DTSCS44 02092 SET L221-END-UPDATE TO TRUE. DTSCS44 02093 GO TO S221-EMP-LOCK-UNLOCK. DTSCS44 02094 DTSCS44 02095 S221-EMP-LOCK-UNLOCK. DTSCS44 02096 EXEC CICS LINK DTSCS44 02097 PROGRAM('DTSCU221') DTSCS44 02098 COMMAREA(L221-COMM-AREA) DTSCS44 02099 END-EXEC. DTSCS44 02100 DTSCS44 02101 IF L221-FILE-CLOSED DTSCS44 02102 MOVE L221-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02103 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS44 02104 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS44 02105 GO TO MAINLINE-EXIT. DTSCS44 02106 DTSCS44 02107 IF L221-NOT-OK DTSCS44 02108 MOVE L221-MSG-AREA TO LCCM-MSG-AREA. DTSCS44 02109 S221-EXIT. DTSCS44 02110 EXIT. DTSCS44 02111 DTSCS44 02112 DTSCS44 02113 S803-REQ-SCR-ID-EDIT. DTSCS44 02114 EXEC CICS LINK DTSCS44 02115 PROGRAM ('DTSCU803') DTSCS44 02116 COMMAREA (DFHCOMMAREA) DTSCS44 02117 END-EXEC. DTSCS44 02118 S803-EXIT. DTSCS44 02119 EXIT. DTSCS44 02120 DTSCS44 02121 S804-INVALID-KEY. DTSCS44 02122 EXEC CICS LINK DTSCS44 02123 PROGRAM ('DTSCU804') DTSCS44 02124 COMMAREA (DFHCOMMAREA) DTSCS44 02125 END-EXEC. DTSCS44 02126 S804-EXIT. DTSCS44 02127 EXIT. DTSCS44 02128 DTSCS44 02129 S805-MSG-AREA. DTSCS44 02130 MOVE LCCM-MSG-AREA TO L805-MSG-AREA DTSCS44 02131 DTSCS44 02132 EXEC CICS LINK DTSCS44 02133 PROGRAM ('DTSCU805') DTSCS44 02134 COMMAREA (L805-COMM-AREA) DTSCS44 02135 END-EXEC. DTSCS44 02136 DTSCS44 02137 MOVE L805-S-MSG-AREA TO MAP-MSG-AREA. DTSCS44 02138 S805-EXIT. DTSCS44 02139 EXIT. DTSCS44 02140 EJECT DTSCS44 02141 S810-READ. DTSCS44 02142 SET L810-READ-88 TO TRUE. DTSCS44 02143 GO TO S810-IO. DTSCS44 02144 DTSCS44 02145 S810-START-BROWSE. DTSCS44 02146 SET L810-START-BROWSE-88 TO TRUE. DTSCS44 02147 GO TO S810-IO. DTSCS44 02148 DTSCS44 02149 S810-READ-NEXT. DTSCS44 02150 SET L810-READ-NEXT-88 TO TRUE. DTSCS44 02151 GO TO S810-IO. DTSCS44 02152 DTSCS44 02153 S810-READ-PREV. DTSCS44 02154 SET L810-READ-PREV-88 TO TRUE. DTSCS44 02155 GO TO S810-IO. DTSCS44 02156 DTSCS44 02157 S810-END-BROWSE. DTSCS44 02158 SET L810-END-BROWSE-88 TO TRUE. DTSCS44 02159 GO TO S810-IO. DTSCS44 02160 DTSCS44 02161 S810-COUNT. DTSCS44 02162 SET L810-COUNT-88 TO TRUE. DTSCS44 02163 GO TO S810-IO. DTSCS44 02164 DTSCS44 02165 S810-REWRITE. DTSCS44 02166 SET L810-REWRITE-88 TO TRUE. DTSCS44 02167 GO TO S810-IO. DTSCS44 02168 DTSCS44 02169 S810-READ-UPDATE. DTSCS44 02170 SET L810-READ-UPDATE-88 TO TRUE. DTSCS44 02171 GO TO S810-IO. DTSCS44 02172 DTSCS44 02173 S810-REWRITE-UPDATE. DTSCS44 02174 SET L810-REWRITE-UPDATE-88 TO TRUE. DTSCS44 02175 GO TO S810-IO. DTSCS44 02176 DTSCS44 02177 S810-WRITE. DTSCS44 02178 SET L810-WRITE-88 TO TRUE. DTSCS44 02179 GO TO S810-IO. DTSCS44 02180 DTSCS44 02181 S810-DELETE. DTSCS44 02182 SET L810-DELETE-88 TO TRUE. DTSCS44 02183 GO TO S810-IO. DTSCS44 02184 DTSCS44 02185 S810-IO. DTSCS44 02186 DTSCS44 02187 EXEC CICS LINK DTSCS44 02188 PROGRAM ('DTSCU810') DTSCS44 02189 COMMAREA (L810-COMM-AREA) DTSCS44 02190 END-EXEC. DTSCS44 02191 DTSCS44 02192 IF L810-FILE-CLOSED-88 DTSCS44 02193 MOVE L810-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02194 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS44 02195 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS44 02196 GO TO MAINLINE-EXIT. DTSCS44 02197 S810-EXIT. DTSCS44 02198 EXIT. DTSCS44 02199 EJECT DTSCS44 02200 S825-WRITE. DTSCS44 02201 SET L825-WRITE-88 TO TRUE. DTSCS44 02202 GO TO S825-O. DTSCS44 02203 DTSCS44 02204 S825-O. DTSCS44 02205 DTSCS44 02206 EXEC CICS LINK DTSCS44 02207 PROGRAM ('DTSCU825') DTSCS44 02208 COMMAREA (L825-COMM-AREA) DTSCS44 02209 END-EXEC. DTSCS44 02210 DTSCS44 02211 IF L825-FILE-CLOSED-88 DTSCS44 02212 MOVE L825-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02213 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS44 02214 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS44 02215 GO TO MAINLINE-EXIT. DTSCS44 02216 S825-EXIT. DTSCS44 02217 EXIT. DTSCS44 02218 EJECT DTSCS44 02219 S851-SCREEN-PROCESSING. DTSCS44 02220 EXEC CICS LINK DTSCS44 02221 PROGRAM ('DTSCU851') DTSCS44 02222 COMMAREA (L851-COMM-AREA) DTSCS44 02223 END-EXEC. DTSCS44 02224 S851-EXIT. DTSCS44 02225 EXIT. DTSCS44 02226 DTSCS44 02227 S899-ABEND. DTSCS44 02228 EXEC CICS ABEND DTSCS44 02229 ABCODE(WRK-ABEND-CD) DTSCS44 02230 END-EXEC. DTSCS44 02231 S899-EXIT. DTSCS44 02232 EXIT. DTSCS44 02233 /*****************************************************************DTSCS44 02234 * EDIT THE INFORMATION ON THE SCREEN. *DTSCS44 02235 ******************************************************************DTSCS44 02236 DTSCS44 02237 S1000-SCREEN-EDITS. DTSCS44 02238 DTSCS44 02239 IF LCCM-F09-88 DTSCS44 02240 PERFORM S1200-LIEN-STATUS THRU S1200-EXIT DTSCS44 02241 PERFORM S1300-FIELD-REP-ID THRU S1300-EXIT DTSCS44 02242 PERFORM S1400-STMT-DATE THRU S1400-EXIT DTSCS44 02243 PERFORM S1500-STMT-COMP-DATE THRU S1500-EXIT DTSCS44 02244 PERFORM S1600-STMT-DUE-AMT THRU S1600-EXIT DTSCS44 02245 PERFORM S1700-LICENSE THRU S1700-EXIT DTSCS44 02246 PERFORM S1900-MAIL-ADDRESS THRU S1900-EXIT DTSCS44 02247 PERFORM S2000-CERTIFICATE-NUM THRU S2000-EXIT DTSCS44 02248 PERFORM S2600-CURR-COMP-DATE THRU S2600-EXIT DTSCS44 02249 PERFORM S2700-COVERED-YRQ THRU S2700-EXIT DTSCS44 02250 ELSE DTSCS44 02251 PERFORM S1120-READ-MLIN THRU S1120-EXIT DTSCS44 02252 IF WRK-MLIN-YES-88 DTSCS44 02253 PERFORM S1200-LIEN-STATUS THRU S1200-EXIT DTSCS44 02254 PERFORM S1300-FIELD-REP-ID THRU S1300-EXIT DTSCS44 02255 PERFORM S2100-RECORDR-OF-DEEDS-NO THRU S2100-EXIT DTSCS44 02256 PERFORM S2200-CERTIFICATE-DATE THRU S2200-EXIT DTSCS44 02257 PERFORM S2300-CERTIFIED-MAIL-NO THRU S2300-EXIT DTSCS44 02258 PERFORM S2400-CERTIFIED-MAIL-DATE THRU S2400-EXIT DTSCS44 02259 PERFORM S2500-RETURN-MAIL-DATE THRU S2500-EXIT DTSCS44 02260 PERFORM S2600-CURR-COMP-DATE THRU S2600-EXIT DTSCS44 02261 END-IF DTSCS44 02262 END-IF. DTSCS44 02263 DTSCS44 02264 IF LCCM-MSG DTSCS44 02265 GO TO S1000-EXIT. DTSCS44 02266 DTSCS44 02267 PERFORM S3000-MISC-EDITS THRU S3000-EXIT. DTSCS44 02268 S1000-EXIT. EXIT. DTSCS44 02269 EJECT DTSCS44 02270 DTSCS44 02271 S1100-EDIT-KEY. DTSCS44 02272 PERFORM S1101-EMP-NO THRU S1101-EXIT. DTSCS44 02273 S1100-EXIT. EXIT. DTSCS44 02274 /*****************************************************************DTSCS44 02275 * DTSCS44 02276 ******************************************************************DTSCS44 02277 S1101-EMP-NO. DTSCS44 02278 MOVE MAP-EMP-NO-AREA TO L018-S-EMP-NO-AREA. DTSCS44 02279 PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT. DTSCS44 02280 DTSCS44 02281 IF L018-NO-ENTRY DTSCS44 02282 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02283 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 02284 GO TO S1101-EXIT. DTSCS44 02285 DTSCS44 02286 IF L018-NOT-VALID DTSCS44 02287 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02288 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 02289 GO TO S1101-EXIT. DTSCS44 02290 DTSCS44 02291 MOVE L018-EMP-NO TO WRK-EMP-NO. DTSCS44 02292 PERFORM S1110-READ-MPRF THRU S1110-EXIT. DTSCS44 02293 S1101-EXIT. EXIT. DTSCS44 02294 DTSCS44 02295 S1110-READ-MPRF. DTSCS44 02296 MOVE LOW-VALUES TO MPRF-KEY-AREA. DTSCS44 02297 MOVE WRK-EMP-NO TO MPRF-EMP-NO. DTSCS44 02298 SET MPRF-PRF-88 TO TRUE. DTSCS44 02299 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 02300 PERFORM S810-READ THRU S810-EXIT. DTSCS44 02301 IF L810-NO-REC-88 DTSCS44 02302 MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA DTSCS44 02303 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 02304 ELSE DTSCS44 02305 MOVE MSKL-REC TO MPRF-REC DTSCS44 02306 SET WRK-MPRF-YES-88 TO TRUE. DTSCS44 02307 S1110-EXIT. DTSCS44 02308 EXIT. DTSCS44 02309 DTSCS44 02310 S1120-READ-MLIN. DTSCS44 02311 MOVE LCCM-SCR44-HOLD-AREA TO MSKL-KEY-AREA. DTSCS44 02312 DTSCS44 02313 PERFORM S810-READ THRU S810-EXIT. DTSCS44 02314 DTSCS44 02315 IF L810-NO-REC-88 DTSCS44 02316 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 02317 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 02318 ELSE DTSCS44 02319 MOVE MSKL-REC TO MLIN-REC DTSCS44 02320 SET WRK-MLIN-YES-88 TO TRUE. DTSCS44 02321 S1120-EXIT. DTSCS44 02322 EXIT. DTSCS44 02323 DTSCS44 02324 S1199-ERROR. DTSCS44 02325 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-EMP-NO-1-A DTSCS44 02326 MAP-EMP-NO-2-A. DTSCS44 02327 IF LCCM-NO-MSG DTSCS44 02328 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02329 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS44 02330 SET CURSOR-SET-YES TO TRUE. DTSCS44 02331 S1199-EXIT. EXIT. DTSCS44 02332 DTSCS44 02333 /*****************************************************************DTSCS44 02334 * *DTSCS44 02335 ******************************************************************DTSCS44 02336 S1200-LIEN-STATUS. DTSCS44 02337 IF MAP-STATUS-CD = LOW-VALUES OR SPACES DTSCS44 02338 MOVE 'O' TO MAP-STATUS-CD DTSCS44 02339 ELSE DTSCS44 02340 MOVE MAP-STATUS-CD TO L034-CD DTSCS44 02341 PERFORM S034-MLIN-STATUS-CD THRU S034-EXIT DTSCS44 02342 IF NOT L034-VALID DTSCS44 02343 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02344 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS44 02345 GO TO S1200-EXIT. DTSCS44 02346 DTSCS44 02347 IF LCCM-F09-88 DTSCS44 02348 PERFORM S1210-ADD THRU S1210-EXIT DTSCS44 02349 ELSE DTSCS44 02350 PERFORM S1220-MOD THRU S1220-EXIT. DTSCS44 02351 S1200-EXIT. EXIT. DTSCS44 02352 DTSCS44 02353 S1201-ERROR. DTSCS44 02354 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS44 02355 TO MAP-STATUS-CD-A. DTSCS44 02356 IF LCCM-NO-MSG DTSCS44 02357 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02358 MOVE CATB-CURSOR TO MAP-STATUS-CD-L DTSCS44 02359 SET CURSOR-SET-YES TO TRUE. DTSCS44 02360 S1201-EXIT. EXIT. DTSCS44 02361 DTSCS44 02362 S1210-ADD. DTSCS44 02363 IF MAP-STATUS-CD = 'O' OR 'C' OR 'M' DTSCS44 02364 NEXT SENTENCE DTSCS44 02365 ELSE DTSCS44 02366 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02367 PERFORM S1201-ERROR THRU S1201-EXIT. DTSCS44 02368 S1210-EXIT. DTSCS44 02369 EXIT. DTSCS44 02370 DTSCS44 02371 S1220-MOD. DTSCS44 02372 IF MAP-STATUS-CD = MLIN-STATUS-CD DTSCS44 02373 GO TO S1220-EXIT. DTSCS44 02374 DTSCS44 02375 IF MAP-STATUS-CD = 'O' OR 'C' OR 'M' DTSCS44 02376 MOVE MSG-E443-AREA TO WRK-MSG-AREA DTSCS44 02377 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS44 02378 GO TO S1220-EXIT. DTSCS44 02379 DTSCS44 02380 IF MLIN-STATUS-ACTIVE-88 DTSCS44 02381 IF MLIN-STMT-DUE-AMT = +0 DTSCS44 02382 IF MAP-STATUS-CD = 'W' DTSCS44 02383 NEXT SENTENCE DTSCS44 02384 ELSE DTSCS44 02385 MOVE MSG-E444-AREA TO WRK-MSG-AREA DTSCS44 02386 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS44 02387 ELSE DTSCS44 02388 NEXT SENTENCE DTSCS44 02389 ELSE DTSCS44 02390 MOVE MSG-E443-AREA TO WRK-MSG-AREA DTSCS44 02391 PERFORM S1201-ERROR THRU S1201-EXIT. DTSCS44 02392 S1220-EXIT. DTSCS44 02393 EXIT. DTSCS44 02394 DTSCS44 02395 S1300-FIELD-REP-ID. DTSCS44 02396 DTSCS44 02397 IF LCCM-F09-88 DTSCS44 02398 PERFORM S1310-ADD-FIELD-REP THRU S1310-EXIT DTSCS44 02399 ELSE DTSCS44 02400 PERFORM S1320-MODIFY-FIELD-REP THRU S1320-EXIT. DTSCS44 02401 S1300-EXIT. EXIT. DTSCS44 02402 DTSCS44 02403 S1301-ERROR. DTSCS44 02404 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-FLD-REP-ID-CD-A. DTSCS44 02405 IF LCCM-NO-MSG DTSCS44 02406 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02407 MOVE CATB-CURSOR TO MAP-FLD-REP-ID-CD-L DTSCS44 02408 SET CURSOR-SET-YES TO TRUE. DTSCS44 02409 S1301-EXIT. EXIT. DTSCS44 02410 DTSCS44 02411 S1310-ADD-FIELD-REP. DTSCS44 02412 IF MAP-FLD-REP-ID-CD EQUAL LOW-VALUES OR SPACES DTSCS44 02413 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02414 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS44 02415 ELSE DTSCS44 02416 MOVE MAP-FLD-REP-ID-CD TO L062-FLD-REP-ID DTSCS44 02417 PERFORM S062-FLD-REP-ID-DESC THRU S062-EXIT DTSCS44 02418 IF L062-NOT-VALID DTSCS44 02419 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02420 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS44 02421 ELSE DTSCS44 02422 MOVE L062-OP-ID TO MAP-FLD-REP-ID-CD-DSCR DTSCS44 02423 END-IF DTSCS44 02424 END-IF. DTSCS44 02425 S1310-EXIT. EXIT. DTSCS44 02426 DTSCS44 02427 S1320-MODIFY-FIELD-REP. DTSCS44 02428 IF LCCM-OP-IS-FLD-DESK-88 DTSCS44 02429 MOVE MAP-FLD-REP-ID-CD TO L062-FLD-REP-ID DTSCS44 02430 PERFORM S062-FLD-REP-ID-DESC THRU S062-EXIT DTSCS44 02431 IF L062-NOT-VALID DTSCS44 02432 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02433 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS44 02434 ELSE DTSCS44 02435 NEXT SENTENCE DTSCS44 02436 END-IF DTSCS44 02437 ELSE DTSCS44 02438 MOVE MLIN-FLD-REP-ID TO MAP-FLD-REP-ID-CD DTSCS44 02439 END-IF. DTSCS44 02440 S1320-EXIT. EXIT. DTSCS44 02441 DTSCS44 02442 /*****************************************************************DTSCS44 02443 * *DTSCS44 02444 ******************************************************************DTSCS44 02445 S1400-STMT-DATE. DTSCS44 02446 MOVE +0 TO WRK-STMT-DATE. DTSCS44 02447 MOVE MAP-STMT-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 02448 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 02449 DTSCS44 02450 IF L015-NO-ENTRY DTSCS44 02451 IF MAP-STATUS-CD = 'C' DTSCS44 02452 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02453 PERFORM S1401-ERROR THRU S1401-EXIT DTSCS44 02454 ELSE DTSCS44 02455 MOVE LCCM-CURR-MAIL-DATE TO WRK-DISPLAY DTSCS44 02456 WRK-STMT-DATE DTSCS44 02457 MOVE WRK-DISPLAY-MO TO MAP-STMT-MO DTSCS44 02458 MOVE WRK-DISPLAY-DA TO MAP-STMT-DA DTSCS44 02459 MOVE WRK-DISPLAY-YR TO MAP-STMT-YR DTSCS44 02460 ELSE DTSCS44 02461 IF L015-NOT-VALID DTSCS44 02462 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02463 PERFORM S1401-ERROR THRU S1401-EXIT DTSCS44 02464 ELSE DTSCS44 02465 IF (MAP-STATUS-CD = 'O') DTSCS44 02466 AND (L015-DATE < LCCM-CURR-RUN-DATE) DTSCS44 02467 MOVE EMSG-CROSS-EDIT TO WRK-MSG-AREA DTSCS44 02468 PERFORM S1401-ERROR THRU S1401-EXIT DTSCS44 02469 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS44 02470 ELSE DTSCS44 02471 IF (MAP-STATUS-CD = 'C') DTSCS44 02472 AND (L015-DATE > LCCM-CURR-RUN-DATE) DTSCS44 02473 MOVE EMSG-CROSS-EDIT TO WRK-MSG-AREA DTSCS44 02474 PERFORM S1401-ERROR THRU S1401-EXIT DTSCS44 02475 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS44 02476 ELSE DTSCS44 02477 MOVE L015-DATE TO WRK-STMT-DATE. DTSCS44 02478 S1400-EXIT. DTSCS44 02479 EXIT. DTSCS44 02480 DTSCS44 02481 S1401-ERROR. DTSCS44 02482 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS44 02483 TO MAP-STMT-MO-A DTSCS44 02484 MAP-STMT-DA-A DTSCS44 02485 MAP-STMT-YR-A. DTSCS44 02486 IF LCCM-NO-MSG DTSCS44 02487 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02488 MOVE CATB-CURSOR TO MAP-STMT-MO-L DTSCS44 02489 SET CURSOR-SET-YES TO TRUE. DTSCS44 02490 S1401-EXIT. EXIT. DTSCS44 02491 DTSCS44 02492 /*****************************************************************DTSCS44 02493 * *DTSCS44 02494 ******************************************************************DTSCS44 02495 S1500-STMT-COMP-DATE. DTSCS44 02496 MOVE MAP-COMP-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 02497 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 02498 DTSCS44 02499 IF L015-NO-ENTRY DTSCS44 02500 IF MAP-STATUS-CD = 'O' DTSCS44 02501 IF WRK-STMT-DATE = +0 DTSCS44 02502 NEXT SENTENCE DTSCS44 02503 ELSE DTSCS44 02504 MOVE WRK-STMT-DATE TO L001-FED-8-DATE-9 DTSCS44 02505 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS44 02506 ADD +14 TO L001-JUL-ABS-DAY DTSCS44 02507 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSCS44 02508 MOVE L001-CAL-6-MO TO MAP-COMP-MO DTSCS44 02509 MOVE L001-CAL-6-DA TO MAP-COMP-DA DTSCS44 02510 MOVE L001-CAL-6-YR TO MAP-COMP-YR DTSCS44 02511 ELSE DTSCS44 02512 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02513 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS44 02514 ELSE DTSCS44 02515 IF L015-NOT-VALID DTSCS44 02516 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02517 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCS44 02518 S1500-EXIT. DTSCS44 02519 EXIT. DTSCS44 02520 DTSCS44 02521 S1501-ERROR. DTSCS44 02522 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS44 02523 TO MAP-COMP-MO-A DTSCS44 02524 MAP-COMP-DA-A DTSCS44 02525 MAP-COMP-YR-A. DTSCS44 02526 IF LCCM-NO-MSG DTSCS44 02527 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02528 MOVE CATB-CURSOR TO MAP-COMP-MO-L DTSCS44 02529 SET CURSOR-SET-YES TO TRUE. DTSCS44 02530 S1501-EXIT. EXIT. DTSCS44 02531 DTSCS44 02532 /*****************************************************************DTSCS44 02533 * *DTSCS44 02534 ******************************************************************DTSCS44 02535 S1600-STMT-DUE-AMT. DTSCS44 02536 IF MAP-STATUS-CD = 'O' DTSCS44 02537 MOVE LOW-VALUES TO MAP-STMT-DUE-AMT DTSCS44 02538 GO TO S1600-EXIT. DTSCS44 02539 DTSCS44 02540 MOVE MAP-STMT-DUE-AMT-AREA TO L011-S-AMT-AREA. DTSCS44 02541 PERFORM S011-AMT-FROM-SCREEN THRU S011-EXIT. DTSCS44 02542 DTSCS44 02543 IF L011-NO-ENTRY DTSCS44 02544 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02545 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS44 02546 GO TO S1600-EXIT. DTSCS44 02547 DTSCS44 02548 IF L011-INVALID-NEGATIVE DTSCS44 02549 MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA DTSCS44 02550 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS44 02551 GO TO S1600-EXIT. DTSCS44 02552 DTSCS44 02553 IF L011-EXCEEDS-MIN-MAX DTSCS44 02554 MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA DTSCS44 02555 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS44 02556 GO TO S1600-EXIT. DTSCS44 02557 DTSCS44 02558 IF L011-NOT-VALID DTSCS44 02559 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02560 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS44 02561 GO TO S1600-EXIT. DTSCS44 02562 DTSCS44 02563 MOVE L011-AMT TO MAP-STMT-DUE-AMT-Z. DTSCS44 02564 S1600-EXIT. DTSCS44 02565 EXIT. DTSCS44 02566 DTSCS44 02567 S1601-ERROR. DTSCS44 02568 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-STMT-DUE-AMT-A. DTSCS44 02569 IF LCCM-NO-MSG DTSCS44 02570 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02571 MOVE CATB-CURSOR TO MAP-STMT-DUE-AMT-L DTSCS44 02572 SET CURSOR-SET-YES TO TRUE. DTSCS44 02573 S1601-EXIT. EXIT. DTSCS44 02574 /*****************************************************************DTSCS44 02575 * *DTSCS44 02576 ******************************************************************DTSCS44 02577 S1700-LICENSE. DTSCS44 02578 IF MAP-LICENSE-IND = LOW-VALUES OR SPACES DTSCS44 02579 SET MAP-LICENSE-IND-NO TO TRUE DTSCS44 02580 ELSE DTSCS44 02581 IF NOT MAP-LICENSE-IND-VALID DTSCS44 02582 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02583 PERFORM S1701-ERROR THRU S1701-EXIT. DTSCS44 02584 S1700-EXIT. DTSCS44 02585 EXIT. DTSCS44 02586 DTSCS44 02587 S1701-ERROR. DTSCS44 02588 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-LICENSE-IND-A. DTSCS44 02589 IF LCCM-NO-MSG DTSCS44 02590 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02591 MOVE CATB-CURSOR TO MAP-LICENSE-IND-L DTSCS44 02592 SET CURSOR-SET-YES TO TRUE. DTSCS44 02593 S1701-EXIT. EXIT. DTSCS44 02594 /*****************************************************************DTSCS44 02595 * *DTSCS44 02596 ******************************************************************DTSCS44 02597 S1900-MAIL-ADDRESS. DTSCS44 02598 PERFORM S1910-ADDR-TYPE THRU S1910-EXIT. DTSCS44 02599 DTSCS44 02600 PERFORM S1920-ADDR-ID-NO THRU S1920-EXIT. DTSCS44 02601 S1900-EXIT. DTSCS44 02602 EXIT. DTSCS44 02603 /*****************************************************************DTSCS44 02604 * DTSCS44 02605 ******************************************************************DTSCS44 02606 S1910-ADDR-TYPE. DTSCS44 02607 ** IF MAP-ADDR-TYPE = SPACES OR LOW-VALUES DTSCS44 02608 ** SET MAP-ADDR-TAX-88 TO TRUE DTSCS44 02609 ** ELSE DTSCS44 02610 IF MAP-ADDR-VALID-88 DTSCS44 02611 NEXT SENTENCE DTSCS44 02612 ELSE DTSCS44 02613 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02614 PERFORM S1911-ERROR THRU S1911-EXIT. DTSCS44 02615 S1910-EXIT. EXIT. DTSCS44 02616 DTSCS44 02617 S1911-ERROR. DTSCS44 02618 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ADDR-TYPE-A. DTSCS44 02619 IF LCCM-NO-MSG DTSCS44 02620 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02621 MOVE CATB-CURSOR TO MAP-ADDR-TYPE-L DTSCS44 02622 SET CURSOR-SET-YES TO TRUE. DTSCS44 02623 S1911-EXIT. EXIT. DTSCS44 02624 /*****************************************************************DTSCS44 02625 * DTSCS44 02626 ******************************************************************DTSCS44 02627 S1920-ADDR-ID-NO. DTSCS44 02628 INSPECT MAP-ADDR-ID-NO DTSCS44 02629 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02630 DTSCS44 02631 IF MAP-ADDR-ID-NO = SPACES DTSCS44 02632 IF MAP-ADDR-TAD-88 DTSCS44 02633 PERFORM S1930-ADDR-TAD THRU S1930-EXIT DTSCS44 02634 GO TO S1920-EXIT DTSCS44 02635 ELSE DTSCS44 02636 IF MAP-ADDR-NONE-88 DTSCS44 02637 PERFORM S1940-REQUIRE-ADDRESS THRU S1940-EXIT DTSCS44 02638 GO TO S1920-EXIT DTSCS44 02639 ELSE DTSCS44 02640 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02641 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02642 GO TO S1920-EXIT. DTSCS44 02643 DTSCS44 02644 IF MAP-ADDR-NONE-88 OR MAP-ADDR-TAD-88 DTSCS44 02645 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS44 02646 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02647 GO TO S1920-EXIT. DTSCS44 02648 DTSCS44 02649 MOVE MAP-ADDR-ID-NO-AREA TO L013-S-CNT-AREA. DTSCS44 02650 MOVE +1 TO L013-MIN-CNT DTSCS44 02651 MOVE +999 TO L013-MAX-CNT. DTSCS44 02652 DTSCS44 02653 PERFORM S013-COUNT-FROM-SCREEN THRU S013-EXIT. DTSCS44 02654 DTSCS44 02655 IF L013-VALID DTSCS44 02656 MOVE L013-CNT TO MAP-ADDR-ID-NO-Z DTSCS44 02657 IF MAP-ADDR-TAA-OPO-88 DTSCS44 02658 PERFORM S1950-ADDR-TAA-OPO THRU S1950-EXIT DTSCS44 02659 ELSE DTSCS44 02660 NEXT SENTENCE DTSCS44 02661 ELSE DTSCS44 02662 IF L013-NO-ENTRY DTSCS44 02663 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02664 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02665 ELSE DTSCS44 02666 IF L013-INVALID-NEGATIVE DTSCS44 02667 MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA DTSCS44 02668 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02669 ELSE DTSCS44 02670 IF L013-EXCEEDS-MIN-MAX DTSCS44 02671 MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA DTSCS44 02672 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02673 ELSE DTSCS44 02674 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02675 PERFORM S1921-ERROR THRU S1921-EXIT. DTSCS44 02676 S1920-EXIT. EXIT. DTSCS44 02677 DTSCS44 02678 S1921-ERROR. DTSCS44 02679 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ADDR-ID-NO-A DTSCS44 02680 IF LCCM-NO-MSG DTSCS44 02681 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02682 MOVE CATB-CURSOR TO MAP-ADDR-ID-NO-L DTSCS44 02683 SET CURSOR-SET-YES TO TRUE. DTSCS44 02684 S1921-EXIT. EXIT. DTSCS44 02685 DTSCS44 02686 S1930-ADDR-TAD. DTSCS44 02687 MOVE WRK-EMP-NO TO L111-EMP-NO. DTSCS44 02688 IF MAP-ADDR-TAX-88 DTSCS44 02689 SET L111-LOOKUP-TAD-88 TO TRUE DTSCS44 02690 SET L111-ID-NO-TAD-MAIL-88 TO TRUE DTSCS44 02691 ELSE DTSCS44 02692 IF MAP-ADDR-PHY-88 DTSCS44 02693 SET L111-LOOKUP-TAD-88 TO TRUE DTSCS44 02694 SET L111-ID-NO-TAD-PHYS-88 TO TRUE DTSCS44 02695 ELSE DTSCS44 02696 GO TO S899-ABEND. DTSCS44 02697 DTSCS44 02698 PERFORM S111-ADDR-LOOKUP THRU S111-EXIT. DTSCS44 02699 DTSCS44 02700 IF L111-ADDR-NOT-FOUND-88 DTSCS44 02701 MOVE EMSG-NO-ADDRESS TO WRK-MSG-AREA DTSCS44 02702 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02703 GO TO S1930-EXIT. DTSCS44 02704 DTSCS44 02705 PERFORM S1960-FORMAT-ADDR THRU S1960-EXIT. DTSCS44 02706 S1930-EXIT. DTSCS44 02707 EXIT. DTSCS44 02708 S1940-REQUIRE-ADDRESS. DTSCS44 02709 INSPECT MAP-LIEN-ADDR-LINE-1 DTSCS44 02710 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02711 INSPECT MAP-LIEN-ADDR-LINE-2 DTSCS44 02712 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02713 INSPECT MAP-LIEN-ADDR-LINE-3 DTSCS44 02714 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02715 INSPECT MAP-LIEN-ADDR-LINE-4 DTSCS44 02716 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02717 INSPECT MAP-LIEN-ADDR-LINE-5 DTSCS44 02718 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02719 DTSCS44 02720 IF (MAP-LIEN-ADDR-LINE-1 = SPACES) DTSCS44 02721 AND DTSCS44 02722 (MAP-LIEN-ADDR-LINE-2 = SPACES) DTSCS44 02723 AND DTSCS44 02724 (MAP-LIEN-ADDR-LINE-3 = SPACES) DTSCS44 02725 AND DTSCS44 02726 (MAP-LIEN-ADDR-LINE-4 = SPACES) DTSCS44 02727 AND DTSCS44 02728 (MAP-LIEN-ADDR-LINE-5 = SPACES) DTSCS44 02729 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02730 PERFORM S1941-ERROR THRU S1941-EXIT. DTSCS44 02731 S1940-EXIT. DTSCS44 02732 EXIT. DTSCS44 02733 DTSCS44 02734 S1941-ERROR. DTSCS44 02735 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS44 02736 TO MAP-LIEN-ADDR-LINE-1-A DTSCS44 02737 MAP-LIEN-ADDR-LINE-2-A DTSCS44 02738 MAP-LIEN-ADDR-LINE-3-A DTSCS44 02739 MAP-LIEN-ADDR-LINE-4-A DTSCS44 02740 MAP-LIEN-ADDR-LINE-5-A. DTSCS44 02741 IF LCCM-NO-MSG DTSCS44 02742 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02743 MOVE CATB-CURSOR TO MAP-LIEN-ADDR-LINE-1-L DTSCS44 02744 SET CURSOR-SET-YES TO TRUE. DTSCS44 02745 S1941-EXIT. EXIT. DTSCS44 02746 DTSCS44 02747 S1950-ADDR-TAA-OPO. DTSCS44 02748 MOVE WRK-EMP-NO TO L111-EMP-NO. DTSCS44 02749 IF MAP-ADDR-TAX-ALT-88 DTSCS44 02750 SET L111-LOOKUP-TAA-88 TO TRUE DTSCS44 02751 ELSE DTSCS44 02752 IF MAP-ADDR-OPO-88 DTSCS44 02753 SET L111-LOOKUP-OPO-88 TO TRUE DTSCS44 02754 ELSE DTSCS44 02755 GO TO S899-ABEND. DTSCS44 02756 DTSCS44 02757 IF L013-CNT = 0 DTSCS44 02758 MOVE 1 TO L111-ID-NO DTSCS44 02759 ELSE DTSCS44 02760 MOVE L013-CNT TO L111-ID-NO. DTSCS44 02761 DTSCS44 02762 PERFORM S111-ADDR-LOOKUP THRU S111-EXIT. DTSCS44 02763 DTSCS44 02764 IF L111-ADDR-NOT-FOUND-88 DTSCS44 02765 MOVE EMSG-NO-ADDRESS TO WRK-MSG-AREA DTSCS44 02766 PERFORM S1921-ERROR THRU S1921-EXIT DTSCS44 02767 GO TO S1950-EXIT. DTSCS44 02768 DTSCS44 02769 PERFORM S1960-FORMAT-ADDR THRU S1960-EXIT. DTSCS44 02770 S1950-EXIT. DTSCS44 02771 EXIT. DTSCS44 02772 S1960-FORMAT-ADDR. DTSCS44 02773 MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE. DTSCS44 02774 SET L112-ANCHOR-LAST-88 TO TRUE. DTSCS44 02775 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSCS44 02776 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSCS44 02777 DTSCS44 02778 ***** PER A MEMO FROM RUDY, WHEN USING AN OPO ADDRESS DTSCS44 02779 ***** AS A "LIEN DOCUMENT" ADDRESS, USE THE TAD ADDRESS DTSCS44 02780 ***** FORMATTING RULES (RATHER THAN THE OPO ADDRESS DTSCS44 02781 ***** FORMATTING RULES. 03/28/95 DTSCS44 02782 DTSCS44 02783 IF L112-OPO-ADDR-88 DTSCS44 02784 SET L112-TAD-ADDR-88 TO TRUE. DTSCS44 02785 DTSCS44 02786 PERFORM S112-ADDR-FORMAT THRU S112-EXIT. DTSCS44 02787 DTSCS44 02788 MOVE L112-MAILING-LINE-1 TO MAP-LIEN-ADDR-LINE-1. DTSCS44 02789 MOVE L112-MAILING-LINE-2 TO MAP-LIEN-ADDR-LINE-2. DTSCS44 02790 MOVE L112-MAILING-LINE-3 TO MAP-LIEN-ADDR-LINE-3. DTSCS44 02791 MOVE L112-MAILING-LINE-4 TO MAP-LIEN-ADDR-LINE-4. DTSCS44 02792 MOVE L112-MAILING-LINE-5 TO MAP-LIEN-ADDR-LINE-5. DTSCS44 02793 S1960-EXIT. EXIT. DTSCS44 02794 /*****************************************************************DTSCS44 02795 * DTSCS44 02796 ******************************************************************DTSCS44 02797 S2000-CERTIFICATE-NUM. DTSCS44 02798 INSPECT MAP-CERT-NUM1 DTSCS44 02799 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02800 DTSCS44 02801 INSPECT MAP-CERT-NUM2 DTSCS44 02802 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02803 DTSCS44 02804 IF MAP-STATUS-CD = 'O' OR 'M' DTSCS44 02805 IF MAP-CERT-NUM1 = SPACES AND MAP-CERT-NUM2 = SPACES DTSCS44 02806 GO TO S2000-EXIT DTSCS44 02807 ELSE DTSCS44 02808 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS44 02809 PERFORM S2001-ERROR THRU S2001-EXIT DTSCS44 02810 GO TO S2000-EXIT. DTSCS44 02811 DTSCS44 02812 DTSCS44 02813 MOVE MAP-CERTIFICATE-NUM-AREA TO L028-S-NO-AREA. DTSCS44 02814 DTSCS44 02815 PERFORM S028-CERT-NO-FROM-SCREEN THRU S028-EXIT. DTSCS44 02816 DTSCS44 02817 IF L028-VALID DTSCS44 02818 NEXT SENTENCE DTSCS44 02819 ELSE DTSCS44 02820 IF L028-NO-ENTRY DTSCS44 02821 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02822 PERFORM S2001-ERROR THRU S2001-EXIT DTSCS44 02823 GO TO S2000-EXIT DTSCS44 02824 ELSE DTSCS44 02825 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02826 PERFORM S2001-ERROR THRU S2001-EXIT DTSCS44 02827 GO TO S2000-EXIT. DTSCS44 02828 DTSCS44 02829 DTSCS44 02830 MOVE L028-NO TO WRK-CERT-NO. DTSCS44 02831 DTSCS44 02832 MOVE LCCM-CURR-RUN-DATE TO L001-FED-8-DATE-9. DTSCS44 02833 DTSCS44 02834 IF L001-FED-8-MO > 09 DTSCS44 02835 ADD 1 TO L001-FED-8-YR. DTSCS44 02836 DTSCS44 02837 IF WRK-EDIT-CERT-NO1 > L001-FED-8-YR DTSCS44 02838 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02839 PERFORM S2001-ERROR THRU S2001-EXIT DTSCS44 02840 GO TO S2000-EXIT. DTSCS44 02841 S2000-EXIT. DTSCS44 02842 EXIT. DTSCS44 02843 DTSCS44 02844 S2001-ERROR. DTSCS44 02845 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-CERT-NUM1-A DTSCS44 02846 MAP-CERT-NUM2-A. DTSCS44 02847 DTSCS44 02848 IF LCCM-NO-MSG DTSCS44 02849 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02850 MOVE CATB-CURSOR TO MAP-CERT-NUM1-L DTSCS44 02851 SET CURSOR-SET-YES TO TRUE. DTSCS44 02852 S2001-EXIT. EXIT. DTSCS44 02853 DTSCS44 02854 S2100-RECORDR-OF-DEEDS-NO. DTSCS44 02855 INSPECT MAP-DEED-NO DTSCS44 02856 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02857 DTSCS44 02858 S2100-EXIT. EXIT. DTSCS44 02859 DTSCS44 02860 S2101-ERROR. DTSCS44 02861 DTSCS44 02862 S2101-EXIT. EXIT. DTSCS44 02863 DTSCS44 02864 /*****************************************************************DTSCS44 02865 * DTSCS44 02866 ******************************************************************DTSCS44 02867 S2200-CERTIFICATE-DATE. DTSCS44 02868 MOVE +0 TO WRK-CERT-DATE. DTSCS44 02869 MOVE MAP-CERT-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 02870 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 02871 DTSCS44 02872 IF L015-NO-ENTRY DTSCS44 02873 IF MAP-DEED-NO NOT = SPACES DTSCS44 02874 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02875 PERFORM S2201-ERROR THRU S2201-EXIT DTSCS44 02876 ELSE DTSCS44 02877 GO TO S2200-EXIT DTSCS44 02878 ELSE DTSCS44 02879 IF L015-NOT-VALID DTSCS44 02880 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02881 PERFORM S2201-ERROR THRU S2201-EXIT DTSCS44 02882 ELSE DTSCS44 02883 MOVE L015-DATE TO WRK-CERT-DATE DTSCS44 02884 IF L015-DATE > LCCM-CURR-RUN-DATE DTSCS44 02885 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02886 PERFORM S2201-ERROR THRU S2201-EXIT DTSCS44 02887 ELSE DTSCS44 02888 PERFORM S2210-FILE-LIEN-CROSS-EDIT THRU S2210-EXIT DTSCS44 02889 PERFORM S2220-DEED-NO-CROSS-EDIT THRU S2220-EXIT. DTSCS44 02890 DTSCS44 02891 S2200-EXIT. DTSCS44 02892 EXIT. DTSCS44 02893 DTSCS44 02894 S2201-ERROR. DTSCS44 02895 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS44 02896 TO MAP-CERT-MO-A DTSCS44 02897 MAP-CERT-DA-A DTSCS44 02898 MAP-CERT-YR-A. DTSCS44 02899 IF LCCM-NO-MSG DTSCS44 02900 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02901 MOVE CATB-CURSOR TO MAP-CERT-MO-L DTSCS44 02902 SET CURSOR-SET-YES TO TRUE. DTSCS44 02903 S2201-EXIT. EXIT. DTSCS44 02904 DTSCS44 02905 S2210-FILE-LIEN-CROSS-EDIT. DTSCS44 02906 IF LCCM-F09-88 DTSCS44 02907 NEXT SENTENCE DTSCS44 02908 ELSE DTSCS44 02909 MOVE MLIN-STMT-DATE TO WRK-STMT-DATE. DTSCS44 02910 DTSCS44 02911 IF WRK-STMT-DATE = +0 DTSCS44 02912 GO TO S2210-EXIT. DTSCS44 02913 DTSCS44 02914 IF L015-DATE < WRK-STMT-DATE DTSCS44 02915 MOVE MSG-E446-AREA TO WRK-MSG-AREA DTSCS44 02916 PERFORM S2201-ERROR THRU S2201-EXIT. DTSCS44 02917 S2210-EXIT. EXIT. DTSCS44 02918 DTSCS44 02919 S2220-DEED-NO-CROSS-EDIT. DTSCS44 02920 IF L015-DATE > 0 AND MAP-DEED-NO = SPACES DTSCS44 02921 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS44 02922 PERFORM S2201-ERROR THRU S2201-EXIT. DTSCS44 02923 S2220-EXIT. EXIT. DTSCS44 02924 DTSCS44 02925 S2300-CERTIFIED-MAIL-NO. DTSCS44 02926 INSPECT MAP-MAIL-NO DTSCS44 02927 CONVERTING LOW-VALUES TO SPACES. DTSCS44 02928 DTSCS44 02929 IF MAP-MAIL-NO > SPACES AND MAP-DEED-NO = SPACES DTSCS44 02930 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02931 PERFORM S2301-ERROR THRU S2301-EXIT. DTSCS44 02932 DTSCS44 02933 S2300-EXIT. EXIT. DTSCS44 02934 DTSCS44 02935 S2301-ERROR. DTSCS44 02936 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-MAIL-NO-A. DTSCS44 02937 DTSCS44 02938 IF LCCM-NO-MSG DTSCS44 02939 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02940 MOVE CATB-CURSOR TO MAP-MAIL-NO-L DTSCS44 02941 SET CURSOR-SET-YES TO TRUE. DTSCS44 02942 S2301-EXIT. EXIT. DTSCS44 02943 DTSCS44 02944 /*****************************************************************DTSCS44 02945 * DTSCS44 02946 ******************************************************************DTSCS44 02947 S2400-CERTIFIED-MAIL-DATE. DTSCS44 02948 MOVE +0 TO WRK-MAIL-DATE. DTSCS44 02949 MOVE MAP-CERT-MAIL-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 02950 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 02951 DTSCS44 02952 IF L015-NO-ENTRY DTSCS44 02953 IF MAP-MAIL-NO NOT = SPACES DTSCS44 02954 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 02955 PERFORM S2401-ERROR THRU S2401-EXIT DTSCS44 02956 ELSE DTSCS44 02957 GO TO S2400-EXIT DTSCS44 02958 ELSE DTSCS44 02959 IF L015-NOT-VALID DTSCS44 02960 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02961 PERFORM S2401-ERROR THRU S2401-EXIT DTSCS44 02962 ELSE DTSCS44 02963 MOVE L015-DATE TO WRK-MAIL-DATE DTSCS44 02964 IF L015-DATE > LCCM-CURR-RUN-DATE DTSCS44 02965 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 02966 PERFORM S2401-ERROR THRU S2401-EXIT DTSCS44 02967 ELSE DTSCS44 02968 IF L015-DATE < WRK-CERT-DATE DTSCS44 02969 MOVE MSG-E448-AREA TO WRK-MSG-AREA DTSCS44 02970 PERFORM S2401-ERROR THRU S2401-EXIT DTSCS44 02971 ELSE DTSCS44 02972 IF L015-DATE > 0 AND MAP-DEED-NO = SPACES DTSCS44 02973 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS44 02974 PERFORM S2401-ERROR THRU S2401-EXIT DTSCS44 02975 ELSE DTSCS44 02976 IF L015-DATE > 0 AND MAP-MAIL-NO = SPACES DTSCS44 02977 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS44 02978 PERFORM S2401-ERROR THRU S2401-EXIT. DTSCS44 02979 DTSCS44 02980 DTSCS44 02981 S2400-EXIT. DTSCS44 02982 EXIT. DTSCS44 02983 DTSCS44 02984 S2401-ERROR. DTSCS44 02985 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS44 02986 TO MAP-CERT-DATE-MO-A DTSCS44 02987 MAP-CERT-DATE-DA-A DTSCS44 02988 MAP-CERT-DATE-YR-A. DTSCS44 02989 IF LCCM-NO-MSG DTSCS44 02990 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 02991 MOVE CATB-CURSOR TO MAP-CERT-DATE-MO-L DTSCS44 02992 SET CURSOR-SET-YES TO TRUE. DTSCS44 02993 S2401-EXIT. EXIT. DTSCS44 02994 DTSCS44 02995 /*****************************************************************DTSCS44 02996 * DTSCS44 02997 ******************************************************************DTSCS44 02998 S2500-RETURN-MAIL-DATE. DTSCS44 02999 MOVE MAP-MAIL-RETURN-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 03000 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 03001 DTSCS44 03002 IF L015-NO-ENTRY DTSCS44 03003 GO TO S2500-EXIT DTSCS44 03004 ELSE DTSCS44 03005 IF L015-NOT-VALID DTSCS44 03006 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 03007 PERFORM S2501-ERROR THRU S2501-EXIT DTSCS44 03008 ELSE DTSCS44 03009 IF L015-DATE > LCCM-CURR-RUN-DATE DTSCS44 03010 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 03011 PERFORM S2501-ERROR THRU S2501-EXIT DTSCS44 03012 ELSE DTSCS44 03013 IF L015-DATE NOT > WRK-MAIL-DATE DTSCS44 03014 MOVE MSG-E449-AREA TO WRK-MSG-AREA DTSCS44 03015 PERFORM S2501-ERROR THRU S2501-EXIT DTSCS44 03016 ELSE DTSCS44 03017 IF L015-DATE > 0 AND WRK-MAIL-DATE = 0 DTSCS44 03018 MOVE MSG-E449-AREA TO WRK-MSG-AREA DTSCS44 03019 PERFORM S2501-ERROR THRU S2501-EXIT DTSCS44 03020 ELSE DTSCS44 03021 IF L015-DATE > 0 AND MAP-DEED-NO = SPACES DTSCS44 03022 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS44 03023 PERFORM S2501-ERROR THRU S2501-EXIT. DTSCS44 03024 DTSCS44 03025 DTSCS44 03026 S2500-EXIT. DTSCS44 03027 EXIT. DTSCS44 03028 DTSCS44 03029 S2501-ERROR. DTSCS44 03030 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS44 03031 TO MAP-RETURN-DATE-MO-A DTSCS44 03032 MAP-RETURN-DATE-DA-A DTSCS44 03033 MAP-RETURN-DATE-YR-A. DTSCS44 03034 IF LCCM-NO-MSG DTSCS44 03035 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 03036 MOVE CATB-CURSOR TO MAP-RETURN-DATE-MO-L DTSCS44 03037 SET CURSOR-SET-YES TO TRUE. DTSCS44 03038 S2501-EXIT. EXIT. DTSCS44 03039 /*****************************************************************DTSCS44 03040 * *DTSCS44 03041 ******************************************************************DTSCS44 03042 S2600-CURR-COMP-DATE. DTSCS44 03043 IF LCCM-F09-88 DTSCS44 03044 MOVE MAP-COMP-MO TO MAP-CURR-COMP-MO DTSCS44 03045 MOVE MAP-COMP-DA TO MAP-CURR-COMP-DA DTSCS44 03046 MOVE MAP-COMP-YR TO MAP-CURR-COMP-YR. DTSCS44 03047 DTSCS44 03048 MOVE MAP-CURR-COMP-DATE-AREA TO L015-S-DATE-AREA. DTSCS44 03049 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS44 03050 DTSCS44 03051 IF L015-NO-ENTRY DTSCS44 03052 MOVE LCCM-COMP-DATE TO WRK-DISPLAY DTSCS44 03053 MOVE WRK-DISPLAY-MO TO MAP-CURR-COMP-MO DTSCS44 03054 MOVE WRK-DISPLAY-DA TO MAP-CURR-COMP-DA DTSCS44 03055 MOVE WRK-DISPLAY-YR TO MAP-CURR-COMP-YR DTSCS44 03056 ELSE DTSCS44 03057 IF L015-NOT-VALID DTSCS44 03058 IF MAP-CURR-COMP-MO = '99' DTSCS44 03059 AND MAP-CURR-COMP-DA = '99' DTSCS44 03060 AND MAP-CURR-COMP-YR = '99' DTSCS44 03061 MOVE ALL-NINES-DATE TO LCCM-COMP-DATE DTSCS44 03062 ELSE DTSCS44 03063 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 03064 PERFORM S2601-ERROR THRU S2601-EXIT DTSCS44 03065 ELSE DTSCS44 03066 MOVE L015-DATE TO LCCM-COMP-DATE. DTSCS44 03067 S2600-EXIT. DTSCS44 03068 EXIT. DTSCS44 03069 DTSCS44 03070 S2601-ERROR. DTSCS44 03071 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS44 03072 TO MAP-CURR-COMP-MO-A DTSCS44 03073 MAP-CURR-COMP-DA-A DTSCS44 03074 MAP-CURR-COMP-YR-A. DTSCS44 03075 IF LCCM-NO-MSG DTSCS44 03076 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 03077 MOVE CATB-CURSOR TO MAP-CURR-COMP-MO-L DTSCS44 03078 SET CURSOR-SET-YES TO TRUE. DTSCS44 03079 S2601-EXIT. EXIT. DTSCS44 03080 DTSCS44 03081 /*****************************************************************DTSCS44 03082 * *DTSCS44 03083 ******************************************************************DTSCS44 03084 S2700-COVERED-YRQ. DTSCS44 03085 * *---------------------------------- DTSCS44 03086 *--------------------------* NOT SURE IF NEEDED IN MT DTSCS44 03087 ****** *---------------------------------- DTSCS44 03088 ******MOVE LCCM-LAST-UI5-DEL-MAIL-YRQ TO L004-QTR-5-9. DTSCS44 03089 ******PERFORM S004-FROM-5 THRU S004-EXIT. DTSCS44 03090 ******COMPUTE L004-ABS-QTR = L004-ABS-QTR - 11. DTSCS44 03091 ******MOVE '3' TO L004-OPTION. DTSCS44 03092 ******PERFORM S004-LINK THRU S004-EXIT. DTSCS44 03093 ******MOVE L004-QTR-5-9 TO WRK-STATUTE-YRQ. DTSCS44 03094 ****** DTSCS44 03095 ******MOVE '2' TO L101-OPTION. DTSCS44 03096 ******MOVE MLIN-STMT-DATE TO L101-CALC-THRU-DATE. DTSCS44 03097 DTSCS44 03098 MOVE +0 TO WRK-TOT-BALANCE-AMT. DTSCS44 03099 DTSCS44 03100 MOVE +0 TO WRK-NO-ENTRY-CTR. DTSCS44 03101 DTSCS44 03102 * *---------------------------------- DTSCS44 03103 *--------------------------* EDIT WHAT IS ON THE SCREEN DTSCS44 03104 * *---------------------------------- DTSCS44 03105 PERFORM S2710-YRQ-LOOP THRU S2710-EXIT DTSCS44 03106 VARYING WRK-SUB FROM 1 BY 1 DTSCS44 03107 UNTIL (WRK-SUB > MMAX-LIN-COV-MAX). DTSCS44 03108 DTSCS44 03109 IF WRK-NO-ENTRY-CTR NOT < MMAX-LIN-COV-MAX DTSCS44 03110 IF LCCM-MSG OR MAP-STATUS-CD = 'M' DTSCS44 03111 NEXT SENTENCE DTSCS44 03112 ELSE DTSCS44 03113 PERFORM S2750-DEFAULT-QTRS THRU S2750-EXIT. DTSCS44 03114 DTSCS44 03115 IF LCCM-MSG DTSCS44 03116 *********MOVE LOW-VALUES TO MAP-STMT-DUE-AMT DTSCS44 03117 GO TO S2700-EXIT. DTSCS44 03118 DTSCS44 03119 MOVE WRK-TOT-BALANCE-AMT TO MAP-CURR-TOT-DUE-Z. DTSCS44 03120 S2700-EXIT. DTSCS44 03121 EXIT. DTSCS44 03122 EJECT DTSCS44 03123 * CHECK TO SEE WHAT WAS ENTERED ON THE SCREEN DTSCS44 03124 S2710-YRQ-LOOP. DTSCS44 03125 MOVE LOW-VALUE TO MAP-AMT-DUE (WRK-SUB) DTSCS44 03126 MAP-CURR-RPT-TYPE (WRK-SUB). DTSCS44 03127 DTSCS44 03128 MOVE +0 TO MLIN-COVERED-YRQ (WRK-SUB). DTSCS44 03129 DTSCS44 03130 MOVE MAP-COVERED-YRQ-AREA (WRK-SUB) TO L029-S-YRQ-AREA. DTSCS44 03131 PERFORM S029-YRQ-FROM-SCREEN THRU S029-EXIT. DTSCS44 03132 IF L029-NOT-VALID DTSCS44 03133 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS44 03134 PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03135 ELSE DTSCS44 03136 IF L029-NO-ENTRY DTSCS44 03137 PERFORM S2720-NO-ENTRY THRU S2720-EXIT DTSCS44 03138 ELSE DTSCS44 03139 PERFORM S2730-YRQ-ENTERED THRU S2730-EXIT. DTSCS44 03140 S2710-EXIT. DTSCS44 03141 EXIT. DTSCS44 03142 DTSCS44 03143 S2720-NO-ENTRY. DTSCS44 03144 ADD +1 TO WRK-NO-ENTRY-CTR. DTSCS44 03145 S2720-EXIT. DTSCS44 03146 EXIT. DTSCS44 03147 DTSCS44 03148 S2730-YRQ-ENTERED. DTSCS44 03149 MOVE L029-YRQ TO MLIN-COVERED-YRQ (WRK-SUB). DTSCS44 03150 * QTRS MUST BE ASCENDING SEQ DTSCS44 03151 IF WRK-SUB > +1 DTSCS44 03152 COMPUTE WRK-SUB-MINUS-ONE = WRK-SUB - 1 DTSCS44 03153 IF (MLIN-COVERED-YRQ (WRK-SUB-MINUS-ONE) = +0) DTSCS44 03154 OR DTSCS44 03155 (MLIN-COVERED-YRQ (WRK-SUB) DTSCS44 03156 NOT > MLIN-COVERED-YRQ (WRK-SUB-MINUS-ONE)) DTSCS44 03157 MOVE MSG-E441-AREA TO WRK-MSG-AREA DTSCS44 03158 PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03159 GO TO S2730-EXIT. DTSCS44 03160 DTSCS44 03161 * *---------------------------------- DTSCS44 03162 *--------------------------* NOT SURE IF NEEDED IN MT DTSCS44 03163 * *---------------------------------- DTSCS44 03164 *****IF MAP-STATUS-CD NOT = 'C' DTSCS44 03165 ***** IF MLIN-COVERED-YRQ (WRK-SUB) < WRK-STATUTE-YRQ DTSCS44 03166 ***** MOVE MSG03-AREA TO WRK-MSG-AREA DTSCS44 03167 ***** PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03168 ***** GO TO S2730-EXIT. DTSCS44 03169 DTSCS44 03170 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSCS44 03171 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSCS44 03172 SET MQTR-QTR-88 TO TRUE. DTSCS44 03173 MOVE MLIN-COVERED-YRQ (WRK-SUB) TO MQTR-YRQ. DTSCS44 03174 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 03175 DTSCS44 03176 PERFORM S810-READ THRU S810-EXIT. DTSCS44 03177 DTSCS44 03178 IF L810-NO-REC-88 DTSCS44 03179 IF MAP-STATUS-CD = 'O' DTSCS44 03180 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS44 03181 PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03182 GO TO S2730-EXIT DTSCS44 03183 ELSE DTSCS44 03184 GO TO S2730-EXIT. DTSCS44 03185 DTSCS44 03186 MOVE MSKL-REC TO MQTR-REC. DTSCS44 03187 DTSCS44 03188 MOVE +0 TO WRK-YRQ-BALANCE-AMT DTSCS44 03189 WRK-YRQ-WRITTEN-OFF-AMT. DTSCS44 03190 PERFORM S4000-INTEREST THRU S4000-EXIT. DTSCS44 03191 DTSCS44 03192 IF WRK-YRQ-BALANCE-AMT = +0 DTSCS44 03193 AND MAP-STATUS-CD = 'O' DTSCS44 03194 MOVE MSG-E442-AREA TO WRK-MSG-AREA DTSCS44 03195 PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03196 GO TO S2730-EXIT. DTSCS44 03197 DTSCS44 03198 IF WRK-YRQ-WRITTEN-OFF-AMT NOT = +0 DTSCS44 03199 MOVE ' WRITTEN OFF' TO MAP-AMT-DUE (WRK-SUB) DTSCS44 03200 ELSE DTSCS44 03201 MOVE WRK-YRQ-BALANCE-AMT TO MAP-AMT-DUE-Z (WRK-SUB). DTSCS44 03202 DTSCS44 03203 MOVE MQTR-CURR-RPT-TYPE TO MAP-CURR-RPT-TYPE (WRK-SUB). DTSCS44 03204 DTSCS44 03205 PERFORM P6913-TRANSLATE THRU P6913-EXIT. DTSCS44 03206 DTSCS44 03207 S2730-EXIT. DTSCS44 03208 EXIT. DTSCS44 03209 DTSCS44 03210 S2750-DEFAULT-QTRS. DTSCS44 03211 MOVE ZERO TO WRK-TBL-SUB. DTSCS44 03212 DTSCS44 03213 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSCS44 03214 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSCS44 03215 **** MOVE WRK-STATUTE-YRQ TO MQTR-YRQ. DTSCS44 03216 SET MQTR-QTR-88 TO TRUE. DTSCS44 03217 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 03218 PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCS44 03219 DTSCS44 03220 PERFORM S2752-PROCESS-QTRS THRU S2752-EXIT DTSCS44 03221 UNTIL L810-NO-REC-88 DTSCS44 03222 OR WRK-TBL-SUB > MMAX-LIN-COV-MAX. DTSCS44 03223 DTSCS44 03224 IF L810-OK-88 DTSCS44 03225 PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 03226 DTSCS44 03227 IF WRK-TBL-SUB > MMAX-LIN-COV-MAX DTSCS44 03228 MOVE 1 TO WRK-SUB DTSCS44 03229 MOVE MSG-E445-AREA TO WRK-MSG-AREA DTSCS44 03230 PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03231 GO TO S2750-EXIT. DTSCS44 03232 DTSCS44 03233 IF WRK-TBL-SUB = +0 DTSCS44 03234 IF MAP-STATUS-CD = 'C' DTSCS44 03235 MOVE +1 TO WRK-SUB DTSCS44 03236 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS44 03237 PERFORM S2799-ERROR THRU S2799-EXIT DTSCS44 03238 ELSE DTSCS44 03239 MOVE MSG-E447-AREA TO WRK-MSG-AREA DTSCS44 03240 PERFORM S1199-ERROR THRU S1199-EXIT. DTSCS44 03241 DTSCS44 03242 PERFORM S2753-ON-SCREEN THRU S2753-EXIT DTSCS44 03243 VARYING WRK-SUB FROM 1 BY 1 DTSCS44 03244 UNTIL WRK-SUB > WRK-TBL-SUB. DTSCS44 03245 S2750-EXIT. EXIT. DTSCS44 03246 DTSCS44 03247 S2752-PROCESS-QTRS. DTSCS44 03248 MOVE MSKL-REC TO MQTR-REC. DTSCS44 03249 DTSCS44 03250 MOVE +0 TO WRK-YRQ-BALANCE-AMT. DTSCS44 03251 DTSCS44 03252 PERFORM S4000-INTEREST THRU S4000-EXIT. DTSCS44 03253 DTSCS44 03254 IF WRK-YRQ-BALANCE-AMT > 0 DTSCS44 03255 ADD 1 TO WRK-TBL-SUB DTSCS44 03256 MOVE WRK-YRQ-BALANCE-AMT TO WRK-TBL-BALANCE(WRK-TBL-SUB) DTSCS44 03257 MOVE MQTR-YRQ TO WRK-TBL-QTR(WRK-TBL-SUB) DTSCS44 03258 MOVE MQTR-CURR-RPT-TYPE TO WRK-TBL-RPT-TYPE(WRK-TBL-SUB). DTSCS44 03259 DTSCS44 03260 PERFORM S810-READ-NEXT THRU S810-EXIT. DTSCS44 03261 DTSCS44 03262 S2752-EXIT. EXIT. DTSCS44 03263 DTSCS44 03264 S2753-ON-SCREEN. DTSCS44 03265 IF WRK-TBL-QTR (WRK-SUB) = LCCM-PICKUP-YRQ DTSCS44 03266 MOVE 'PU' TO MAP-COVERED-YRQ-YR (WRK-SUB) DTSCS44 03267 MOVE ' ' TO MAP-COVERED-YRQ-Q (WRK-SUB) DTSCS44 03268 ELSE DTSCS44 03269 MOVE WRK-TBL-QTR (WRK-SUB) TO WRK-DISPLAY DTSCS44 03270 MOVE WRK-DISPLAY-YRQ-YR TO MAP-COVERED-YRQ-YR (WRK-SUB) DTSCS44 03271 MOVE WRK-DISPLAY-YRQ-Q TO MAP-COVERED-YRQ-Q (WRK-SUB). DTSCS44 03272 DTSCS44 03273 MOVE WRK-TBL-BALANCE (WRK-SUB) DTSCS44 03274 TO MAP-AMT-DUE-Z (WRK-SUB). DTSCS44 03275 DTSCS44 03276 MOVE WRK-TBL-RPT-TYPE (WRK-SUB) DTSCS44 03277 TO MAP-CURR-RPT-TYPE (WRK-SUB). DTSCS44 03278 DTSCS44 03279 PERFORM P6913-TRANSLATE THRU P6913-EXIT. DTSCS44 03280 DTSCS44 03281 SUBTRACT 1 FROM WRK-NO-ENTRY-CTR. DTSCS44 03282 DTSCS44 03283 S2753-EXIT. EXIT. DTSCS44 03284 DTSCS44 03285 DTSCS44 03286 DTSCS44 03287 S2799-ERROR. DTSCS44 03288 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS44 03289 TO MAP-COVERED-YRQ-YR-A(WRK-SUB) DTSCS44 03290 MAP-COVERED-YRQ-Q-A(WRK-SUB). DTSCS44 03291 DTSCS44 03292 IF LCCM-NO-MSG DTSCS44 03293 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS44 03294 MOVE CATB-CURSOR TO MAP-COVERED-YRQ-YR-L(WRK-SUB) DTSCS44 03295 SET CURSOR-SET-YES TO TRUE. DTSCS44 03296 S2799-EXIT. DTSCS44 03297 EXIT. DTSCS44 03298 /*****************************************************************DTSCS44 03299 * *DTSCS44 03300 ******************************************************************DTSCS44 03301 S3000-MISC-EDITS. DTSCS44 03302 PERFORM S3100-CHECK-DPC THRU S3100-EXIT. DTSCS44 03303 DTSCS44 03304 S3000-EXIT. EXIT. DTSCS44 03305 DTSCS44 03306 S3100-CHECK-DPC. DTSCS44 03307 MOVE LOW-VALUES TO MDPC-KEY-AREA. DTSCS44 03308 MOVE MPRF-EMP-NO TO MDPC-EMP-NO. DTSCS44 03309 SET MDPC-DPC-88 TO TRUE. DTSCS44 03310 MOVE MDPC-KEY-AREA TO MSKL-KEY-AREA. DTSCS44 03311 PERFORM S810-START-BROWSE THRU S810-EXIT. DTSCS44 03312 DTSCS44 03313 PERFORM DTSCS44 03314 UNTIL L810-NO-REC-88 DTSCS44 03315 MOVE MSKL-REC TO MQTR-REC DTSCS44 03316 IF MDPC-STATUS-PENDING-88 DTSCS44 03317 MOVE MSG-E44A-AREA TO WRK-MSG-AREA DTSCS44 03318 PERFORM S1199-ERROR THRU S1199-EXIT DTSCS44 03319 SET L810-NO-REC-88 TO TRUE DTSCS44 03320 ELSE DTSCS44 03321 PERFORM S810-READ-NEXT THRU S810-EXIT DTSCS44 03322 END-IF DTSCS44 03323 END-PERFORM. DTSCS44 03324 DTSCS44 03325 PERFORM S810-END-BROWSE THRU S810-EXIT. DTSCS44 03326 DTSCS44 03327 S3100-EXIT. EXIT. DTSCS44 03328 DTSCS44 03329 S3110-PROCESS-DPC. DTSCS44 03330 S3110-EXIT. EXIT. DTSCS44 03331 DTSCS44 03332 S4000-INTEREST. DTSCS44 03333 ****************************************************** DTSCS44 03334 * INCLUDE SUR TAX IN CALCULATION OF INTEREST. DTSCS44 03335 ****************************************************** DTSCS44 03336 MOVE +0 TO WRK-YRQ-BALANCE-AMT DTSCS44 03337 WRK-YRQ-WRITTEN-OFF-AMT. DTSCS44 03338 DTSCS44 03339 PERFORM S109-SUR-TAX-QTR THRU S109-EXIT. DTSCS44 03340 DTSCS44 03341 MOVE +0 TO L101-PAID-CHNG. DTSCS44 03342 DTSCS44 03343 PERFORM VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSCS44 03344 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSCS44 03345 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSCS44 03346 TO WRK-TOT-BALANCE-AMT DTSCS44 03347 WRK-YRQ-BALANCE-AMT DTSCS44 03348 ADD MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-IDX) DTSCS44 03349 TO WRK-YRQ-WRITTEN-OFF-AMT DTSCS44 03350 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSCS44 03351 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSCS44 03352 TO L101-PAID-CHNG DTSCS44 03353 END-IF DTSCS44 03354 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) AND DTSCS44 03355 MQTR-YRQ >= L109-FIRST-PEN-INT-YRQ DTSCS44 03356 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSCS44 03357 TO L101-PAID-CHNG DTSCS44 03358 END-IF DTSCS44 03359 END-PERFORM. DTSCS44 03360 DTSCS44 03361 IF LCCM-COMP-DATE = ALL-NINES-DATE DTSCS44 03362 GO TO S4000-EXIT. DTSCS44 03363 DTSCS44 03364 IF L101-PAID-CHNG > +0 DTSCS44 03365 MOVE LCCM-COMP-DATE TO L101-RECEIVED-DATE DTSCS44 03366 SET L101-WAIVE-INT-NO-88 TO TRUE DTSCS44 03367 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE DTSCS44 03368 MOVE MQTR-INT-AREA TO L101-INT-AREA DTSCS44 03369 DTSCS44 03370 PERFORM S101-PER-MONTH-NO THRU S101-EXIT DTSCS44 03371 DTSCS44 03372 ADD L101-INT-CHARGE-CHNG DTSCS44 03373 TO WRK-TOT-BALANCE-AMT DTSCS44 03374 WRK-YRQ-BALANCE-AMT DTSCS44 03375 DTSCS44 03376 SUBTRACT L101-INT-WAIVE-CHNG DTSCS44 03377 FROM WRK-TOT-BALANCE-AMT DTSCS44 03378 WRK-YRQ-BALANCE-AMT. DTSCS44 03379 DTSCS44 03380 S4000-EXIT. DTSCS44 03381 EXIT. DTSCS44 03382 /*****************************************************************DTSCS44 03383 * LOCK SCREEN FOR UPDATE CONFIRMATION *DTSCS44 03384 ******************************************************************DTSCS44 03385 S5100-SET-LOCK-ATTRB. DTSCS44 03386 MOVE CATB-ASKIP-BRT-MDTON TO WRK-ATB-AN DTSCS44 03387 WRK-ATB-NUM. DTSCS44 03388 DTSCS44 03389 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS44 03390 DTSCS44 03391 MOVE CATB-ASKIP-BRT-MDTON TO MAP-EMP-NO-1-A DTSCS44 03392 MAP-EMP-NO-2-A DTSCS44 03393 MAP-GOTO-A. DTSCS44 03394 S5100-EXIT. DTSCS44 03395 EXIT. DTSCS44 03396 DTSCS44 03397 ******************************************************************DTSCS44 03398 * SET ATTIBUTE BYTES FOR UPDATE ACCESS *DTSCS44 03399 ******************************************************************DTSCS44 03400 S5200-SET-UPDATE-ATTRB. DTSCS44 03401 MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN. DTSCS44 03402 MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM. DTSCS44 03403 DTSCS44 03404 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS44 03405 DTSCS44 03406 DTSCS44 03407 S5200-EXIT. DTSCS44 03408 EXIT. DTSCS44 03409 DTSCS44 03410 ******************************************************************DTSCS44 03411 * SET ATTRIBUTE BYTES FOR INQUIRY STATUS *DTSCS44 03412 ******************************************************************DTSCS44 03413 S5300-SET-INQ-ATTRB. DTSCS44 03414 MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN DTSCS44 03415 WRK-ATB-NUM. DTSCS44 03416 DTSCS44 03417 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS44 03418 S5300-EXIT. DTSCS44 03419 EXIT. DTSCS44 03420 DTSCS44 03421 S5900-SET-ATTRB. DTSCS44 03422 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A DTSCS44 03423 MAP-EMP-NO-2-A. DTSCS44 03424 IF LCCM-SCR-CLEAR DTSCS44 03425 MOVE CATB-ASKIP-BRT-MDTON TO DTSCS44 03426 MAP-MAIL-NO-A DTSCS44 03427 MAP-DEED-NO-A DTSCS44 03428 MAP-CERT-DATE-DA-A DTSCS44 03429 MAP-CERT-DATE-MO-A DTSCS44 03430 MAP-CERT-DATE-YR-A DTSCS44 03431 MAP-RETURN-DATE-DA-A DTSCS44 03432 MAP-RETURN-DATE-MO-A DTSCS44 03433 MAP-RETURN-DATE-YR-A DTSCS44 03434 MOVE WRK-ATB-AN TO DTSCS44 03435 MAP-STATUS-CD-A DTSCS44 03436 MAP-FLD-REP-ID-CD-A DTSCS44 03437 MAP-ADDR-TYPE-A DTSCS44 03438 MAP-ADDR-ID-NO-A DTSCS44 03439 MAP-LICENSE-IND-A DTSCS44 03440 MAP-LIEN-ADDR-LINE-1-A DTSCS44 03441 MAP-LIEN-ADDR-LINE-2-A DTSCS44 03442 MAP-LIEN-ADDR-LINE-3-A DTSCS44 03443 MAP-LIEN-ADDR-LINE-4-A DTSCS44 03444 MAP-LIEN-ADDR-LINE-5-A DTSCS44 03445 MAP-STATUS-CD-A DTSCS44 03446 MOVE WRK-ATB-NUM TO DTSCS44 03447 MAP-CERT-NUM1-A DTSCS44 03448 MAP-CERT-NUM2-A DTSCS44 03449 MAP-COMP-DA-A DTSCS44 03450 MAP-COMP-MO-A DTSCS44 03451 MAP-COMP-YR-A DTSCS44 03452 MAP-CERT-DA-A DTSCS44 03453 MAP-CERT-MO-A DTSCS44 03454 MAP-CERT-YR-A DTSCS44 03455 MAP-STMT-DA-A DTSCS44 03456 MAP-STMT-MO-A DTSCS44 03457 MAP-STMT-YR-A DTSCS44 03458 MAP-STMT-DUE-AMT-A DTSCS44 03459 MAP-CURR-COMP-MO-A DTSCS44 03460 MAP-CURR-COMP-DA-A DTSCS44 03461 MAP-CURR-COMP-YR-A DTSCS44 03462 DTSCS44 03463 PERFORM DTSCS44 03464 VARYING WRK-SUB FROM 1 BY 1 DTSCS44 03465 UNTIL WRK-SUB > MMAX-LIN-COV-MAX DTSCS44 03466 MOVE WRK-ATB-AN TO DTSCS44 03467 MAP-COVERED-YRQ-Q-A (WRK-SUB) DTSCS44 03468 MAP-COVERED-YRQ-YR-A(WRK-SUB) DTSCS44 03469 MOVE CATB-ASKIP-BRT-MDTON TO DTSCS44 03470 MAP-AMT-DUE-A(WRK-SUB) DTSCS44 03471 MAP-CURR-RPT-TYPE-A(WRK-SUB) DTSCS44 03472 END-PERFORM DTSCS44 03473 ELSE DTSCS44 03474 MOVE WRK-ATB-AN TO DTSCS44 03475 MAP-STATUS-CD-A DTSCS44 03476 MAP-MAIL-NO-A DTSCS44 03477 MAP-DEED-NO-A DTSCS44 03478 MAP-FLD-REP-ID-CD-A DTSCS44 03479 MOVE CATB-ASKIP-BRT-MDTON TO DTSCS44 03480 MAP-CERT-NUM1-A DTSCS44 03481 MAP-CERT-NUM2-A DTSCS44 03482 MAP-ADDR-TYPE-A DTSCS44 03483 MAP-LICENSE-IND-A DTSCS44 03484 MAP-LIEN-ADDR-LINE-1-A DTSCS44 03485 MAP-LIEN-ADDR-LINE-2-A DTSCS44 03486 MAP-LIEN-ADDR-LINE-3-A DTSCS44 03487 MAP-LIEN-ADDR-LINE-4-A DTSCS44 03488 MAP-LIEN-ADDR-LINE-5-A DTSCS44 03489 MAP-CREATE-DATE-TIME-A DTSCS44 03490 MOVE WRK-ATB-NUM TO DTSCS44 03491 MAP-CERT-DATE-DA-A DTSCS44 03492 MAP-CERT-DATE-MO-A DTSCS44 03493 MAP-CERT-DATE-YR-A DTSCS44 03494 MAP-RETURN-DATE-DA-A DTSCS44 03495 MAP-RETURN-DATE-MO-A DTSCS44 03496 MAP-RETURN-DATE-YR-A DTSCS44 03497 MAP-CURR-COMP-MO-A DTSCS44 03498 MAP-CURR-COMP-DA-A DTSCS44 03499 MAP-CURR-COMP-YR-A DTSCS44 03500 MAP-CERT-DA-A DTSCS44 03501 MAP-CERT-MO-A DTSCS44 03502 MAP-CERT-YR-A DTSCS44 03503 MOVE CATB-ASKIP-BRT-MDTON TO DTSCS44 03504 MAP-ADDR-ID-NO-A DTSCS44 03505 MAP-COMP-DA-A DTSCS44 03506 MAP-COMP-MO-A DTSCS44 03507 MAP-COMP-YR-A DTSCS44 03508 MAP-STMT-DA-A DTSCS44 03509 MAP-STMT-MO-A DTSCS44 03510 MAP-STMT-YR-A DTSCS44 03511 MAP-STMT-DUE-AMT-A DTSCS44 03512 DTSCS44 03513 PERFORM DTSCS44 03514 VARYING WRK-SUB FROM 1 BY 1 DTSCS44 03515 UNTIL WRK-SUB > MMAX-LIN-COV-MAX DTSCS44 03516 MOVE CATB-ASKIP-BRT-MDTON TO DTSCS44 03517 MAP-COVERED-YRQ-Q-A (WRK-SUB) DTSCS44 03518 MAP-COVERED-YRQ-YR-A(WRK-SUB) DTSCS44 03519 MAP-AMT-DUE-A(WRK-SUB) DTSCS44 03520 MAP-CURR-RPT-TYPE-A(WRK-SUB) DTSCS44 03521 END-PERFORM DTSCS44 03522 END-IF. DTSCS44 03523 DTSCS44 03524 DTSCS44 03525 MOVE CATB-ASKIP-BRT-MDTON TO MAP-PRIMARY-NAME-A DTSCS44 03526 MAP-FLD-REP-ID-CD-DSCR-A DTSCS44 03527 MAP-STATUS-DATE-A DTSCS44 03528 MAP-STATUS-OP-ID-A DTSCS44 03529 MAP-CURR-PAGE-A DTSCS44 03530 MAP-LAST-PAGE-A DTSCS44 03531 MAP-CURR-TOT-DUE-A. DTSCS44 03532 DTSCS44 03533 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A. DTSCS44 03534 S5900-EXIT. DTSCS44 03535 EXIT. DTSCS44 03536 EJECT DTSCS44 03537 /*****************************************************************DTSCS44 03538 * MAP ROUTINES *DTSCS44 03539 ******************************************************************DTSCS44 03540 S9100-RECEIVE. DTSCS44 03541 SET L851-RECEIVE-88 TO TRUE. DTSCS44 03542 DTSCS44 03543 MOVE WRK-SCR-ID TO L851-SCR-ID. DTSCS44 03544 DTSCS44 03545 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS44 03546 DTSCS44 03547 MOVE L851-AID TO LCCM-AID. DTSCS44 03548 MOVE L851-CURSOR TO LCCM-CURSOR. DTSCS44 03549 S9100-EXIT. DTSCS44 03550 EXIT. DTSCS44 03551 DTSCS44 03552 S9200-SEND-DATAONLY. DTSCS44 03553 MOVE LOW-VALUES TO MAP-AREA. DTSCS44 03554 DTSCS44 03555 IF LCCM-NO-MSG DTSCS44 03556 NEXT SENTENCE DTSCS44 03557 ELSE DTSCS44 03558 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS44 03559 DTSCS44 03560 IF CURSOR-SET-GOTO DTSCS44 03561 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS44 03562 ELSE DTSCS44 03563 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS44 03564 DTSCS44 03565 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS44 03566 DTSCS44 03567 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS44 03568 DTSCS44 03569 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS44 03570 S9200-EXIT. DTSCS44 03571 EXIT. DTSCS44 03572 DTSCS44 03573 S9300-SEND-MAP. DTSCS44 03574 MOVE LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE. DTSCS44 03575 MOVE LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME. DTSCS44 03576 MOVE LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME. DTSCS44 03577 DTSCS44 03578 IF SCR-ACCESS-UPDATE DTSCS44 03579 PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT DTSCS44 03580 ELSE DTSCS44 03581 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCS44 03582 DTSCS44 03583 PERFORM S9330-DSCR-FIELDS THRU S9330-EXIT. DTSCS44 03584 DTSCS44 03585 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS44 03586 DTSCS44 03587 IF CURSOR-SET-NO DTSCS44 03588 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS44 03589 DTSCS44 03590 SET L851-SEND-88 TO TRUE. DTSCS44 03591 DTSCS44 03592 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS44 03593 DTSCS44 03594 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS44 03595 S9300-EXIT. DTSCS44 03596 EXIT. DTSCS44 03597 DTSCS44 03598 S9310-UPDATE-FKEYS. DTSCS44 03599 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCS44 03600 DTSCS44 03601 DTSCS44 03602 IF LCCM-SCR-CLEAR DTSCS44 03603 MOVE CFKD-ADD TO MAP-KEY-ADD DTSCS44 03604 ELSE DTSCS44 03605 IF LCCM-SCR-INQUIRE DTSCS44 03606 MOVE CFKD-MOD TO MAP-KEY-MOD DTSCS44 03607 *** MOVE CFKD-DEL TO MAP-KEY-DEL DTSCS44 03608 ELSE DTSCS44 03609 IF LCCM-SCR-UPDATE-LOCKED DTSCS44 03610 MOVE LOW-VALUES TO MAP-KEY-FIRST DTSCS44 03611 MAP-KEY-LAST DTSCS44 03612 MAP-KEY-BACK DTSCS44 03613 MAP-KEY-FWRD. DTSCS44 03614 S9310-EXIT. DTSCS44 03615 EXIT. DTSCS44 03616 DTSCS44 03617 S9320-INQUIRY-FKEYS. DTSCS44 03618 MOVE CFKD-FIRST TO MAP-KEY-FIRST. DTSCS44 03619 MOVE CFKD-LAST TO MAP-KEY-LAST. DTSCS44 03620 MOVE CFKD-BACKWARD TO MAP-KEY-BACK. DTSCS44 03621 MOVE CFKD-FORWARD TO MAP-KEY-FWRD. DTSCS44 03622 DTSCS44 03623 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCS44 03624 MAP-KEY-MOD DTSCS44 03625 MAP-KEY-DEL. DTSCS44 03626 DTSCS44 03627 * PERFORM S9321-JUMP-KEYS THRU S9321-EXIT. DTSCS44 03628 S9320-EXIT. DTSCS44 03629 EXIT. DTSCS44 03630 DTSCS44 03631 *S9321-JUMP-KEYS. DTSCS44 03632 * MOVE CFKD-QTR-INQ TO MAP-KEY-QTR-INQ. DTSCS44 03633 * MOVE CFKD-COLL-INQ TO MAP-KEY-COLL-INQ. DTSCS44 03634 * MOVE 'F21=OPO' TO MAP-KEY-OPO. DTSCS44 03635 *S9321-EXIT. DTSCS44 03636 * EXIT. DTSCS44 03637 * DTSCS44 03638 S9330-DSCR-FIELDS. DTSCS44 03639 IF WRK-MPRF-YES-88 DTSCS44 03640 MOVE MPRF-PRIMARY-NAME TO MAP-PRIMARY-NAME DTSCS44 03641 DTSCS44 03642 IF MAP-STATUS-CD = LOW-VALUES OR SPACES DTSCS44 03643 MOVE LOW-VALUES TO MAP-STATUS-CD-DSCR DTSCS44 03644 ELSE DTSCS44 03645 MOVE MAP-STATUS-CD TO L034-CD DTSCS44 03646 PERFORM S034-MLIN-STATUS-CD THRU S034-EXIT DTSCS44 03647 MOVE L034-SHORT-DSCR TO MAP-STATUS-CD-DSCR. DTSCS44 03648 DTSCS44 03649 S9330-EXIT. EXIT. DTSCS44 03650 DTSCS44 03651 S9900-PREPARE-SEND. DTSCS44 03652 MOVE WRK-SCR-ID TO L851-SCR-ID DTSCS44 03653 LCCM-SCR-ID. DTSCS44 03654 MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND. DTSCS44 03655 MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE. DTSCS44 03656 S9900-EXIT. DTSCS44 03657 EXIT. DTSCS44