++ USERMOD(TIAT801)     /* REWORK(20050811) */             .
++ VER (Z038)
   FMID(EJS1102)
   PRE  (UZ25145,UZ25611,UZ27057,UZ29907,UZ31616,UZ31793,
         UZ32893,UZ35104,UZ36277,UZ47724,UZ51947,UZ53739,
         UZ54361,UZ54871,UZ55317,UZ55519,UZ59726,UZ65482,
         UZ71177,UZ74858,UZ75878,UZ76859,UZ77834,UZ79188,
         UZ79204)
 /*
   PROBLEM DESCRIPTION(S):
     TIAT801 -
       Set SSCTSSID to SSCTJES3 (X'03') to indicate that this
       subsystem is JES3.
       (1) Set SSCTSSID to SSCTJES3 (X'03') during JES3 initialization
           to indicate that the SSCVT is for a JES3 subsystem.
       (2) Set SSIBSSID to SSIBJES3 (X'03') when a job is selected
           to indicate that the selecting subsystem is JES3.

   COMPONENT:  5752-SC1BA-EJS1102

   APARS FIXED: TIAT801

   SPECIAL CONDITIONS:
     ACTION:  An IPL with CLPA is required after installation of
       this user modification.

   COMMENTS:
     LAST CHANGE:  2005/08/11

     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:

     MACROS
       IATINIT
       IATSIJS
 */.
++ SRCUPD   (IATINIT ) DISTLIB(AJES3SRC).
++ SRCUPD   (IATSIJS ) DISTLIB(AJES3SRC).