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