00001  IDENTIFICATION DIVISION.                                         08/12/98
00002  PROGRAM-ID.             DTSCU804.                                DTSCU804
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV002
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCU804
00005  DATE-COMPILED.                                                   DTSCU804
00006      SKIP3                                                        DTSCU804
00007 *****                                                             DTSCU804
00008 *                                                                 DTSCU804
00009 *    FUNCTION:  FORMAT INVALID KEY PRESSED MESSAGE.               DTSCU804
00010 *                                                                 DTSCU804
00011 *                                                                 DTSCU804
00012 *    MODIFICATION LOG:                                            DTSCU804
00013 *                                                                 DTSCU804
00014 *    11/05/91  INITIAL DEVELOPMENT.                               DTSCU804
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU804
00016 *                                                                 DTSCU804
00017 *    04/01/94  MODIFIED FOR MONTANA.                              DTSCU804
00018 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU804
00019 *                                                                 DTSCU804
00020 *    08/12/1998  REVIEWED AND MODIFIED FOR DC.                       CL**2
00021 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**2
00022 *                                                                    CL**2
00023 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00024 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00025 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**2
00026 *                                                                 DTSCU804
00027 *                                                                 DTSCU804
00028 *    DESCRIPTION:                                                 DTSCU804
00029 *                                                                 DTSCU804
00030 *    IF A SCREEN PROCESSING MODULE DETERMINES AN INACTIVE KEY     DTSCU804
00031 *    HAS BEEN PRESSED, THEN THE SCREEN PROCESSING MODULE          DTSCU804
00032 *    LINK'S TO DTSCU804. DTSCU804 FORMATS THE "***** IS NOT AN       CL**2
00033 *    ACTIVE KEY" ERROR MESSAGE INTO LCCM-MSG-AREA.                DTSCU804
00034 *                                                                 DTSCU804
00035 *                                                                 DTSCU804
00036 *****                                                             DTSCU804
00037      SKIP3                                                        DTSCU804
00038  ENVIRONMENT DIVISION.                                            DTSCU804
00039      SKIP3                                                        DTSCU804
00040  DATA DIVISION.                                                   DTSCU804
00041      SKIP3                                                        DTSCU804
00042  WORKING-STORAGE SECTION.                                         DTSCU804
000425 77  PAN-VALET PICTURE X(24) VALUE '002DTSCU804  08/12/98'.       DTSCU804
00043      SKIP3                                                        DTSCU804
00044  01  WRK-AREA.                                                    DTSCU804
00045      05  WRK-ABEND-CD                PIC  X(04)  VALUE 'U804'.    DTSCU804
00046      05  WRK-RESP-CD                 PIC S9(08)  COMP.            DTSCU804
00047      EJECT                                                        DTSCU804
00048  01  EMSG-LITERALS.                                               DTSCU804
00049      05  EMSG-NOT-ACTIVE-KEY.                                     DTSCU804
00050          10  FILLER                  PIC  X(04)  VALUE 'E096'.    DTSCU804
00051          10  EMSG-KEY                PIC  X(05).                  DTSCU804
00052          10  FILLER                  PIC  X(21)                   DTSCU804
00053            VALUE ' IS NOT AN ACTIVE KEY'.                         DTSCU804
00054      EJECT                                                        DTSCU804
00055  LINKAGE SECTION.                                                 DTSCU804
00056      SKIP3                                                        DTSCU804
00057  01  DFHCOMMAREA.                                                 DTSCU804
00058  ++INCLUDE DTSILCCM                                                  CL**2
00059      EJECT                                                        DTSCU804
00060  PROCEDURE DIVISION.                                              DTSCU804
00061      SKIP2                                                        DTSCU804
00062      IF LCCM-ENTER-88                                             DTSCU804
00063          MOVE 'ENTER' TO EMSG-KEY                                 DTSCU804
00064      ELSE                                                         DTSCU804
00065      IF LCCM-CLEAR-88                                             DTSCU804
00066          MOVE 'CLEAR' TO EMSG-KEY                                 DTSCU804
00067      ELSE                                                         DTSCU804
00068      IF LCCM-F01-88                                               DTSCU804
00069          MOVE '  F01' TO EMSG-KEY                                 DTSCU804
00070      ELSE                                                         DTSCU804
00071      IF LCCM-F02-88                                               DTSCU804
00072          MOVE '  F02' TO EMSG-KEY                                 DTSCU804
00073      ELSE                                                         DTSCU804
00074      IF LCCM-F03-88                                               DTSCU804
00075          MOVE '  F03' TO EMSG-KEY                                 DTSCU804
00076      ELSE                                                         DTSCU804
00077      IF LCCM-F04-88                                               DTSCU804
00078          MOVE '  F04' TO EMSG-KEY                                 DTSCU804
00079      ELSE                                                         DTSCU804
00080      IF LCCM-F05-88                                               DTSCU804
00081          MOVE '  F05' TO EMSG-KEY                                 DTSCU804
00082      ELSE                                                         DTSCU804
00083      IF LCCM-F06-88                                               DTSCU804
00084          MOVE '  F06' TO EMSG-KEY                                 DTSCU804
00085      ELSE                                                         DTSCU804
00086      IF LCCM-F07-88                                               DTSCU804
00087          MOVE '  F07' TO EMSG-KEY                                 DTSCU804
00088      ELSE                                                         DTSCU804
00089      IF LCCM-F08-88                                               DTSCU804
00090          MOVE '  F08' TO EMSG-KEY                                 DTSCU804
00091      ELSE                                                         DTSCU804
00092      IF LCCM-F09-88                                               DTSCU804
00093          MOVE '  F09' TO EMSG-KEY                                 DTSCU804
00094      ELSE                                                         DTSCU804
00095      IF LCCM-F10-88                                               DTSCU804
00096          MOVE '  F10' TO EMSG-KEY                                 DTSCU804
00097      ELSE                                                         DTSCU804
00098      IF LCCM-F11-88                                               DTSCU804
00099          MOVE '  F11' TO EMSG-KEY                                 DTSCU804
00100      ELSE                                                         DTSCU804
00101      IF LCCM-F12-88                                               DTSCU804
00102          MOVE '  F12' TO EMSG-KEY                                 DTSCU804
00103      ELSE                                                         DTSCU804
00104      IF LCCM-F13-88                                               DTSCU804
00105          MOVE '  F13' TO EMSG-KEY                                 DTSCU804
00106      ELSE                                                         DTSCU804
00107      IF LCCM-F14-88                                               DTSCU804
00108          MOVE '  F14' TO EMSG-KEY                                 DTSCU804
00109      ELSE                                                         DTSCU804
00110      IF LCCM-F15-88                                               DTSCU804
00111          MOVE '  F15' TO EMSG-KEY                                 DTSCU804
00112      ELSE                                                         DTSCU804
00113      IF LCCM-F16-88                                               DTSCU804
00114          MOVE '  F16' TO EMSG-KEY                                 DTSCU804
00115      ELSE                                                         DTSCU804
00116      IF LCCM-F17-88                                               DTSCU804
00117          MOVE '  F17' TO EMSG-KEY                                 DTSCU804
00118      ELSE                                                         DTSCU804
00119      IF LCCM-F18-88                                               DTSCU804
00120          MOVE '  F18' TO EMSG-KEY                                 DTSCU804
00121      ELSE                                                         DTSCU804
00122      IF LCCM-F19-88                                               DTSCU804
00123          MOVE '  F19' TO EMSG-KEY                                 DTSCU804
00124      ELSE                                                         DTSCU804
00125      IF LCCM-F20-88                                               DTSCU804
00126          MOVE '  F20' TO EMSG-KEY                                 DTSCU804
00127      ELSE                                                         DTSCU804
00128      IF LCCM-F21-88                                               DTSCU804
00129          MOVE '  F21' TO EMSG-KEY                                 DTSCU804
00130      ELSE                                                         DTSCU804
00131      IF LCCM-F22-88                                               DTSCU804
00132          MOVE '  F22' TO EMSG-KEY                                 DTSCU804
00133      ELSE                                                         DTSCU804
00134      IF LCCM-F23-88                                               DTSCU804
00135          MOVE '  F23' TO EMSG-KEY                                 DTSCU804
00136      ELSE                                                         DTSCU804
00137      IF LCCM-F24-88                                               DTSCU804
00138          MOVE '  F24' TO EMSG-KEY                                 DTSCU804
00139      ELSE                                                         DTSCU804
00140      IF LCCM-PA1-88                                               DTSCU804
00141          MOVE '  PA1' TO EMSG-KEY                                 DTSCU804
00142      ELSE                                                         DTSCU804
00143      IF LCCM-PA2-88                                               DTSCU804
00144          MOVE '  PA2' TO EMSG-KEY                                 DTSCU804
00145      ELSE                                                         DTSCU804
00146      IF LCCM-PA3-88                                               DTSCU804
00147          MOVE '  PA3' TO EMSG-KEY                                 DTSCU804
00148      ELSE                                                         DTSCU804
00149          MOVE '?????' TO EMSG-KEY.                                DTSCU804
00150      SKIP1                                                        DTSCU804
00151      MOVE EMSG-NOT-ACTIVE-KEY TO LCCM-MSG-AREA.                   DTSCU804
00152      SKIP2                                                        DTSCU804
00153      EXEC CICS                                                    DTSCU804
00154          RETURN                                                   DTSCU804
00155      END-EXEC.                                                    DTSCU804
00156      SKIP2                                                        DTSCU804
00157      GOBACK.                                                      DTSCU804
