Title : IMS 2.2 usermod to authorise the nonswap DLIBATCH parameter
        through RACF


Submitter : Paul Wells
            Tesco Stores Ltd
            Computer Services
            Armitage House
            PO Box 18
            Delamere Road
            Cheshunt
            Herts
            EN8 9SL

Phone : 0992-27687

Release Submitter Details - Y

Text :-

++ USERMOD (TIM0002).
++ VER (P115) FMID (HMH2202) PRE(UL10927).
++ SRCUPD(DFSDLN00) DISTLIB(DBSOURCE) .
./  CHANGE LIST=ALL,NAME=DFSDLN00
*                                                              @TIM0002 00205000
* MODIFIED BY TESCO USERMOD TIM0002 TO AUTH NONSWAP VIA RACF   @TIM0002 00210000
*                                                              @TIM0002 00215000
         RACHECK MF=(E,RCHKL)                                  @TIM0002 27401100
         C     R15,=F'8'                                       @TIM0002 27401600
         BL    NSWPOK                                          @TIM0002 27402100
         LA    R1,NSWPMSG1                                     @TIM0002 27402600
         IWTO  MF=(E,(1))                                      @TIM0002 27403100
         B     LOGINP2                                         @TIM0002 27403600
NSWPOK   DS    0H                                              @TIM0002 27404100
RACFENTY DC    CL8'NONSWAP'        RACF ENTITY                 @TIM0002 32710000
RCHKL    RACHECK ENTITY=(RACFENTY),                            @TIM0002X32720000
               CLASS='OIMS',                                   @TIM0002X32730000
               ATTR=READ,                                      @TIM0002X32740000
               MF=L                                            @TIM0002 32750000
NSWPMSG1 IWTO  'TESI0005 NONSWAP SUPPRESSED, NOT AUTHORISED',  @TIM0002X32760000
               MF=L                                            @TIM0002 32770000

<END>