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
