00001  IDENTIFICATION DIVISION.                                         09/16/98
00002  PROGRAM-ID.             DTSCU899.                                DTSCU899
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV007
00004  DATE-WRITTEN.           NOVEMBER 1991.                           DTSCU899
00005  DATE-COMPILED.                                                   DTSCU899
00006      SKIP3                                                        DTSCU899
00007 *****                                                             DTSCU899
00008 *                                                                 DTSCU899
00009 *    FUNCTION:  ABEND PROCESSOR.                                  DTSCU899
00010 *                                                                 DTSCU899
00011 *                                                                 DTSCU899
00012 *    MODIFICATION LOG:                                            DTSCU899
00013 *                                                                 DTSCU899
00014 *    11/05/91  INITIAL DEVELOPMENT.                               DTSCU899
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSCU899
00016 *                                                                    CL**2
00017 *    08/11/1998  REVIEWED AND MODIFIED FOR DC.  LINK TO UCTRAN       CL**2
00018 *                TEMPORARILY COMMENTED OUT.  ALSO, PLEASE NOTE       CL**2
00019 *                THIS MODULE IS LIKELY TO REQUIRE SOME CUTTING       CL**2
00020 *                AND FITTING AS WE LEARN THE DETAILS OF THE DC       CL**2
00021 *                CICS ENVIRONMENT.                                   CL**2
00022 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**3
00023 *                                                                 DTSCU899
00024 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00025 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00026 *                REFERENCE:                     PROGRAMMER: XXX      CL**2
00027 *                                                                 DTSCU899
00028 *                                                                 DTSCU899
00029 *    DESCRIPTION:                                                 DTSCU899
00030 *                                                                 DTSCU899
00031 *    THE CICS DRIVER MODULE ISSUES A HANDLE ABEND COMMAND,        DTSCU899
00032 *    ESTABLISHING MACCU899 AS THE ABEND PROCESSOR FOR THE TASK.   DTSCU899
00033 *    AN ABEND ANYWHERE IN THE TASK WILL CAUSE CONTROL TO BE       DTSCU899
00034 *    PASSED TO MACCU899.                                          DTSCU899
00035 *                                                                 DTSCU899
00036 *    MACCU899 ISSUES AN ASSIGN ABCODE COMMAND TO PRESERVE THE     DTSCU899
00037 *    ABEND CODE; LINK'S TO MACCU898 (MACCU898 WILL DELETE ALL     DTSCU899
00038 *    TEMPORARY STORAGE AREAS ASSOCIATED WITH THE ABENDING         DTSCU899
00039 *    PSEUDO CONVERSATION); LINK'S TO UCTRAN TO ENSURE THE         DTSCU899
00040 *    TEMINAL UPPER CASE TRANSLATE FEATURE IS TURNED ON; AND       DTSCU899
00041 *    REISSUES THE ABEND.                                          DTSCU899
00042 *                                                                 DTSCU899
00043 *****                                                             DTSCU899
00044      SKIP3                                                        DTSCU899
00045  ENVIRONMENT DIVISION.                                            DTSCU899
00046      SKIP3                                                        DTSCU899
00047  DATA DIVISION.                                                   DTSCU899
00048      SKIP3                                                        DTSCU899
00049  WORKING-STORAGE SECTION.                                         DTSCU899
000495 77  PAN-VALET PICTURE X(24) VALUE '007DTSCU899  09/16/98'.       DTSCU899
00050      SKIP3                                                        DTSCU899
00051  01  WRK-AREA.                                                    DTSCU899
00052      05  WRK-ABEND-CD                PIC  X(04).                  DTSCU899
00053      SKIP1                                                        DTSCU899
00054      05  UCTRAN-COMM-AREA            PIC  X(01)  VALUE 'U'.          CL**7
00055      EJECT                                                        DTSCU899
00056  PROCEDURE DIVISION.                                              DTSCU899
00057      SKIP2                                                        DTSCU899
00058      EXEC CICS                                                    DTSCU899
00059          ASSIGN                                                   DTSCU899
00060              ABCODE (WRK-ABEND-CD)                                DTSCU899
00061      END-EXEC.                                                    DTSCU899
00062      SKIP3                                                        DTSCU899
00063 *****                                                             DTSCU899
00064 *                                                                 DTSCU899
00065 *    IF THIS ABEND IS A CICS GENERATED ABEND                      DTSCU899
00066 *        ABEND AID HAS ALREADY CAPTURED A DUMP, SO WE DON'T       DTSCU899
00067 *        NEED TO DUMP THE TASK                                    DTSCU899
00068 *    ELSE                                                         DTSCU899
00069 *        THIS ABEND IS AN APPLICATION GENERATED ABEND AND         DTSCU899
00070 *        ABEND AID HAS NOT YET CAPTURED A DUMP, SO WE NEED        DTSCU899
00071 *        TO DUMP THE TASK.                                        DTSCU899
00072 *                                                                 DTSCU899
00073 *****                                                             DTSCU899
00074                                                                   DTSCU899
00075 *****                                                             DTSCU899
00076 *                                                                 DTSCU899
00077 *     EFFECTIVE 5/9/95, IT LOOKS LIKE ABEND AID IS CAPTURING      DTSCU899
00078 *     DUMPS FROM APPLICATION GENERATED ABENDS.  THEREFORE, THE    DTSCU899
00079 *     FOLLOWING DUMP COMMAND IS COMMENTED OUT.                    DTSCU899
00080 *                                                                 DTSCU899
00081 *****                                                             DTSCU899
00082                                                                   DTSCU899
00083 *****IF WRK-ABEND-CD (1:1) = 'A'                                  DTSCU899
00084 *****    NEXT SENTENCE                                            DTSCU899
00085 *****ELSE                                                         DTSCU899
00086 *****    EXEC CICS                                                DTSCU899
00087 *****        DUMP                                                 DTSCU899
00088 *****            DUMPCODE (WRK-ABEND-CD)                          DTSCU899
00089 *****            TASK                                             DTSCU899
00090 *****    END-EXEC.                                                DTSCU899
00091      SKIP3                                                        DTSCU899
00092 *****                                                             DTSCU899
00093 *                                                                 DTSCU899
00094 *    CLEAN UP TEMPORARY STORAGE.                                  DTSCU899
00095 *                                                                 DTSCU899
00096 *****                                                             DTSCU899
00097                                                                   DTSCU899
00098      EXEC CICS                                                    DTSCU899
00099          LINK                                                     DTSCU899
00100              PROGRAM ('DTSCU898')                                    CL**6
00101      END-EXEC.                                                    DTSCU899
00102      SKIP3                                                        DTSCU899
00103 *****                                                             DTSCU899
00104 *                                                                 DTSCU899
00105 *    CALL UCTRAN TO MAKE SURE THAT THE UPPER CASE TRASALATE       DTSCU899
00106 *    FEATURE (WHICH IS TURNED OFF DURING PROCESSING BY            DTSCU899
00107 *    SELECTED SCREENS) IS TURNED ON.                              DTSCU899
00108 *                                                                 DTSCU899
00109 *                                                                    CL**2
00110 *****                                                             DTSCU899
00111                                                                   DTSCU899
00112      EXEC CICS                                                       CL**5
00113          LINK                                                        CL**5
00114              PROGRAM ('UCTRAN41')                                    CL**5
00115              COMMAREA (UCTRAN-COMM-AREA)                             CL**7
00116      END-EXEC.                                                       CL**5
00117      SKIP3                                                        DTSCU899
00118 *****                                                             DTSCU899
00119 *                                                                 DTSCU899
00120 *    ABEND THE TRANSACTION.  WE SHOULD ALREADY HAVE A DUMP,       DTSCU899
00121 *    THUS SPECIFY NONDUMP TO PREVENT A SECOND (REDUNDANT)         DTSCU899
00122 *    DUMP.                                                        DTSCU899
00123 *                                                                 DTSCU899
00124 *****                                                             DTSCU899
00125                                                                   DTSCU899
00126      EXEC CICS                                                    DTSCU899
00127          ABEND                                                    DTSCU899
00128              ABCODE (WRK-ABEND-CD)                                DTSCU899
00129              NODUMP                                               DTSCU899
00130      END-EXEC.                                                    DTSCU899
00131      SKIP2                                                        DTSCU899
00132      GOBACK.                                                      DTSCU899
