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