Newsgroups: bit.listserv.jes2-l
Date:         Thu, 10 Sep 1992 12:33:00 EDT
From:         919 John Hamlet 677-8000 X7958 <SNOJRH@MVS.SAS.COM>
Subject:      Re: IEF287I - NOT CATLGD 2
Comments: To: JES2 discussion group <JES2-L%VTVM2.CC.VT.EDU@UNX.SAS.COM>

On Thu, 10 Sep 1992 AFC073%IRMFAO01.BITNET wrote:

...
> already.  Although the msg IEF287I is issued to warn the users, but
> it only appears in the job message and not everyone looks at the
> message dataset.

Johnny, we found this to be true also.

>
>    I looked around in MVS and found the message comes from IEFAB4A2,
> IEFAB4FD and IEFAB4M6.  I guess that I can put a WTO zap somewhere in
> these modules.  Would anyone have any suggestion?
>

The solution can be in a few different forms, let me list a few that I
am familiar with:

1) SMS environments avoid the problem by making sure the dataset with
   the DISP=(NEW,CATLG,...) does not exist at job step initiation. Thus
   jobs can be failed BEFORE the dataset is created. This is ideal but
   the cost is a conversion to SMS which may prohibit this solution
   at your shop.

2) If running at the appropriate levels of MVS/DFP your problem may
   be addressed by Apars OY28727 and/or OY33949. They are documented
   within the logic of the zap supplied below as a note to myself to
   get away from this modification. My particular implementations do
   not modify the abend disposition and do not abend the job, you may
   wish to do one or the other or both.

3) At the MVS/SP 4.1 or 4.2 levels the ALLOCxx parmlib member comes
   into play and can do what the mini-zap in 2) above does but via
   a simple parmlib change.
   get away from this modification.

4) The application of a ZAP to one or more of the modules (and then
   some) you mentioned. I've seen various forms of the zap with the
   intended results being the problem job is failed, abended, or
   terminated in some other fashion with the intended results. I
   believe a couple different solutions are distributed on the CBT
   MODS tape from Share. You may look there for those ideas of course.

    rea
++USERMOD (SZ00142)                                                     00010000
 /********************************************************************* 00020000
 * TITLE: IEF287I - NOT CATLGD 2 SUPPORT                              *
 *                                                                    *
 * MODULE(S) AFFECTED: IEFAB445                                       *
 *                                                                    *
 * COMPONENT: 5752-SC1B4-HBB4420                                      *
 *                                                                    *
 * MICROFICHE USED: <NONE>                                            *
 *                                                                    *
 * APARS ADDRESSED: OY28727, OY33949                                  *
 *                                                                    *
 * DESCRIPTION: THIS IS NOW AN INSTALLATION OPTION PROVIDED BY THE    *
 *        ABOVE MENTIONED APARS.                                      *
 *                                                                    *
 * PURPOSE: THE PURPOSE OF THIS MODIFICATION IS TO REDUCE THE CULTURE *
 *        SHOCK OF MOVING THE INSTALLATION INTO A SYSTEM MANAGED      *
 *        STORAGE ENVIRONMENT (SMS) BY REMOVING AS MANY POSSIBLE      *
 *        KNOWN PROBLEM AREAS AHEAD OF TIME.                          *
 *                                                                    *
 * CONSIDERATIONS: WE ARE USING OPTION 3 MENTIONED IN OY33949.        *
 *                                                                    *
 *        IEF377I JOBNAME STEPNAME PROCNAME DSNAME NOT CATLGD XX      *
 *                    OR                                              *
 *        IEF377I JOBNAME STEPNAME PROCNAME DSNAME NOT RECTLGD XX     *
 *                                                                    *
 *        IEF378I JOBNAME STEPNAME PROCNAME - JOB FAILED -            *
 *                TIME=HH.MM.SS CATALOG DISPOSITION ERROR             *
 *                                                                    *
 *        IEF379I JOBNAME STEPNAME PROCNAME - JOB ENDED BECAUSE OF    *
 *                CATALOG ERROR                                       *
 *                                                                    *
 * ****************************************************************** *
 * <<<<<<<<<<<<<<<<< START OF OY33949 DOCUMENTATION >>>>>>>>>>>>>>>>> *
 * ****************************************************************** *
 *     GIVE CUSTOMERS THE OPTION TO HAVE THE JOB TERMINATE AS A       *
 *     RESULT OF MESSAGE IEF287I WITH MESSAGE TEXT OF 'NOT CATLGD' OR *
 *     "NOT RECTLGD' AND AN OPTION TO HAVE A MESSAGE ISSUED DIRECTLY  *
 *     TO THE OPERATOR TO ALLOW IMMEDIATE RESPONSE TO THIS SITUATION. *
 *                                                                    *
 *     NOTES:                                                         *
 *                                                                    *
 *     - MESSAGE IEF287I WILL CONTINUE TO BE ISSUED TO THE JOB LOG    *
 *       REGARDLESS OF WHETHER THESE NEW OPTIONS ARE SPECIFIED.       *
 *     - THESE CHANGES DO NOT AFFECT ANY VARIATION OF MESSAGE IEF287I *
 *       WHEN THE CATALOG FAILS TO BE UPDATED AS A RESULT OF...       *
 *                                                                    *
 *     - A DSCB TTR CHANGE.                                           *
 *     - A VOLUME IS SUCCESSFULLY ADDED, IN OTHER WORDS, THE VOLUME   *
 *       LIST IS CHANGED.                                             *
 *                                                                    *
 *     SYSTEM DEFAULTS:                                               *
 *                                                                    *
 *       - DEFTERMJ = 0                                               *
 *       - DEFWTOCF = 0                                               *
 *                                                                    *
 *     ALLOCATION DOES NOT TERMINATE THE JOB BUT CONTINUES AS BEFORE  *
 *     (ISSUING MESSAGE IEF287I TO THE JOB LOG).                      *
 *     NEW MESSAGE IEF377I WILL BE WRITTEN TO THE CONSOLE IF          *
 *     MSGLEVEL=(,1) IS SPECIFIED ON THE JOB CARD OR THE JES INSTAL-  *
 *     LATION DEFAULT, SPECIFIED AT INITIALIZATION, SETS THIS MESSAGE *
 *     LEVEL.                                                         *
 *                                                                    *
 *     SYSTEM OPTIONS:                                                *
 *     OPTION SETTINGS                                                *
 *                                                                    *
 *     THE SYSTEM OPTIONS ARE INITIALIZED TO AN 'OFF' CONDITION.      *
 *     THEY CAN BE ALTERED BY 'ZAPPING' THE ALLOCATION DEFAULTS       *
 *     TABLE (LOAD MODULE/CSECT IEFAB445) AT OFFSET 29 DECIMAL        *
 *     (1D HEX) FOR ALL MVS/XA AND MVS/ESA RELEASES.  THE OFFSET      *
 *     INTO THE DEFAULTS TABLE FOR MVS/370 IS AT OFFSET 21 DECIMAL    *
 *     (15 HEX).  AN '80'X AT THIS OFFSET WILL SET THE DEFTERMJ       *
 *     FLAG, '40'X AT THIS OFFSET WILL SET THE DEFWTOCF FLAG,         *
 *     AND 'C0'X AT THIS OFFSET WILL SET BOTH FLAGS.                  *
 *                                                                    *
 *     OPTION 1                                                       *
 *                                                                    *
 *       - DEFTERMJ = 1                                               *
 *       - DEFWTOCF = 0                                               *
 *                                                                    *
 *     ALLOCATION WILL TERMINATE THE JOB AND IN ADDITION TO THE       *
 *     IEF287I MESSAGE, NEW MESSAGE IEF379I WILL BE WRITTEN TO THE    *
 *     JOB LOG AND NEW MESSAGE IEF378I WILL BE WRITTEN TO THE CON-    *
 *     SOLE.  NEW MESSAGE IEF377I WILL BE WRITTEN TO THE CONSOLE IF   *
 *     MSGLEVEL=(,1) IS SPECIFIED ON THE JOB CARD OR THE JES INSTAL-  *
 *     LATION DEFAULT, SPECIFIED AT INITIALIZATION, SETS THIS MESSAGE *
 *     LEVEL.                                                         *
 *                                                                    *
 *     OPTION 2                                                       *
 *                                                                    *
 *       - DEFTERMJ = 0                                               *
 *       - DEFWTOCF = 1                                               *
 *                                                                    *
 *     ALLOCATION DOES NOT TERMINATE THE JOB BUT CONTINUES AS BEFORE  *
 *     (ISSUING MESSAGE IEF287I TO THE JOB LOG), AND IN ADDITION      *
 *     WRITES NEW MESSAGE IEF377I TO THE CONSOLE.                     *
 *                                                                    *
 *     OPTION 3                                                       *
 *                                                                    *
 *       - DEFTERMJ = 1                                               *
 *       - DEFWTOCF = 1                                               *
 *                                                                    *
 *     ALLOCATION WILL TERMINATE THE JOB AND IN ADDITION TO THE       *
 *     IEF287I MESSAGE, NEW MESSAGE IEF379I WILL BE WRITTEN TO THE    *
 *     JOB LOG AND NEW MESSAGES IEF377I AND IEF378I WILL BE           *
 *     WRITTEN TO THE CONSOLE.                                        *
 * ****************************************************************** *
 * <<<<<<<<<<<<<<<< END OF OY33949 DOCUMENTATION >>>>>>>>>>>>>>>>>>>> *
 * ****************************************************************** *
 *                                                                    *
 * NOTE: JCL FOR RE-INSTALL IS "SSD.MESA.CNTL(SZ00142)". THIS USER    * 00132700
 *       MODIFICATION CONSISTS OF A ZAP AND THUS MUST BE RESTORED     * 00132800
 *       PRIOR TO REAPPLICATION.                                      * 00132800
 *                                                                    * 00133000
 * MODIFICATION LOG                                                   *
 * ****************                                                   *
 *   DATE  TAG             DESCRIPTION OF CHANGE                      *
 * ******* *** ****************************************************** *
 * 13OCT90 N/A -GENESIS. DEVELOPED AT THE UY46792 (9003) LEVEL OF THE *
 *              HBB4420 FUNCTION.****************************<SNOJRH> *
 *             %NOTE: WE SHOULD TRAP THE "NOT CATLGD 4" CONDITION     *
 *              HERE ALSO TO HIGH_LIGHT A MESSAE ON THE MASTER        *
 *              CONSOLE THAT TELLS THE OPERATIONS STAFF TO CONTACT    *
 *              THE SYSTEMS PROGRAMMING STAFF IMMEDIATELY. MICRO-     *
 *              FICHE USED AT THIS LEVEL WAS LDY1-4015 FOR 5685-001   *
 *              (PUT 9003 LEVEL), PART-OF-LBOF-2816 (CARD# 525052).   *
 *              *********************************************<SNOJRH> *
 * 17OCT90 N/A -IMPLEMENTED IN A TEST MODE. WTO IS ISSUED BUT THE JOB *
 *              IS NOT FAILED. THIS HAS BEEN DONE FOR MONITORING PUR- *
 *              POSES.***************************************<SNOJRH> *
 * 29JAN91 @01 -ENFORCEMENT MODE CODE.***********************<SNOJRH> *  0211000
 * 05NOV91 N/A -PTF UY69688 PICKED UP NEEDED APARS TO ALLOW THE USE   *  0211000
 *              OF A STANDARD ZAP THAT IS DOCUMENTED. THIS USER MODI- *  0211000
 *              FICATION HAS BEEN CHANGED TO IMPLEMENT THE NEW METHOD *  0211000
 *              OBSOLETING THE NEW FOR THE OLD METHOD OF ZAPPING CODE *  0211000
 *              INTO THE IEFAB4A2 CSECT OF THE IEFW21SD LOAD MODULE   *  0211000
 *              IN ORDER TO FORCE A JCL ERROR CONDITION.*****<SNOJRH> *  0211000
 *                                                                    *
 ********************************************************************/. 00133700
++ VER(Z038) FMID(HBB4420)    PRE(UY52513) /* SP 3.1.3 AT 9007 */ .
++ ZAP(IEFAB445).
 NAME IEFAB445 IEFAB445
 VER 001D 00
 REP 001D C0
++USERMOD (SZ00142)                                                     00010000
 /********************************************************************* 00133700
 * MODIFICATION LOG                                                   *
 * ****************                                                   *
 *   DATE  TAG             DESCRIPTION OF CHANGE                      *
 * ******* *** ****************************************************** *
 * 17OCT90 N/A -IMPLEMENTED IN A TEST MODE. WTO IS ISSUED BUT THE JOB *
 *              IS NOT FAILED. THIS HAS BEEN DONE FOR MONITORING PUR- *
 *              POSES.***************************************<SNOJRH> *
 ********************************************************************/. 00133700
++ VER(Z038) FMID(HBB4420) PRE(UY46792) /* SP 3.1.0E AT 9003 */ .
++ ZAP(IEFAB4A2).
 NAME IEFW21SD IEFAB4A2
 VER 1DDE 5080,91D4                     ST @8,MRETCODE
 VER 20BA A09A,A09C,A09E,A0A0
 REP 1DDE 47F0,A09A                     B     @PSPACE
 REP 20BA 5080,91D4            @PSPACE  ST    @8,MRETCODE
 REP 20BE 9502,91D7                     CLI   MRETCODE+3,X'02'
 REP 20C2 4770,BDC1                     BNE   RETURN
 REP 20C6 5870,0224                     L     @7,PSAAOLD-PSA
 REP 20CA D503,7000,A120                CLC   0(L'ASCBASCB,@7),=C'ASCB'
 REP 20D0 4770,BDC1                     BNE   RETURN
 REP 20D4 BF7F,70AC                  ICM   @7,B'1111',ASCBJBNI-ASCB(@7)
 REP 20D8 4780,BDC1                     BZ    RETURN
 REP 20DC 5870,9050                     L     @7,@PC00001+8
 REP 20E0 4B70,A124                     SH    @7,=H'360'
 REP 20E4 D502,71FD,A126                CLC   509(3,@7),=CL3'LCT'
 REP 20EA 4770,BDC1                     BNE   RETURN
 REP 20EE 0700                          CNOP  0,4
 REP 20F0 4510,A118                     BAL   1,IHB0001A
 REP 20F4 003F                          DC    AL2(63)
 REP 20F6 8000                          DC    B'1000000000000000'
 REP 20F8 C9C5C6F2F8F7C940              DC    C'IEF287I '
 REP 2100 6040E2E9F0F0F1F4              DC    C'- SZ0014'
 REP 2108 F2406040D5D6E340              DC    C'2 - NOT '
 REP 2110 C3C1E3D3C7C461D9              DC    C'CATLGD/R'
 REP 2118 C5C3E3D3C7C440F2              DC    C'ECTLGD 2'
 REP 2120 40C3D6D5C4C9E3C9              DC    C' CONDITI'
 REP 2128 D6D540C4C5E3C5C3              DC    C'ON DETEC'
 REP 2130 E3C5C4                        DC    C'TED'
 REP 2133 0000                          DC    B'0000000000000000'
 REP 2135 0004                          DC    B'0000000000000100'
 REP 2138 0A23                 IHB0001A SVC   35
 REP 213A 47F0,BDC1                     B     RETURN
 REP 2140 C1E2C3C2                            =C'ASCB'
 REP 2144 0168                                =H'360'
 REP 2146 D3C3E3                              =CL3'LCT'
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU