* SCEPTRE AMENDMENT UCS_P550_009
*
* Release 5.5
* Date 16 June 1999
*
* UCS_MONITOR FAILS WITH PROGRAM ERROR 32/2
* IN PROCEDURE UCS471 WHEN MONITORING MORE THAN ONE
* IDMS SERVICE FROM THE SAME SERVICE LIBRARY
*
* This amendment corrects the error
*
* Please apply the amendment using the procedure described in the Software
* Notice issued with the Sceptre software.
* This amendment applies to both SCEPTRE and SCEPTRE-E.
*
* Module to be amended is: ICLRSIOMF.ICL8UCS4MONITOR
*
AREA(UCS093.PATCHES)
ALTER(009,X00,XF0,NAME=UCS_P550_009_P00)
POINT(UCS450.UCSALIASEDLOAD_C)
PATCH(X4CC,X64B37BD4,CODE        * LINE 706
    LSS.IC     X40               * NEXT_ALB
    JZ         X4EA              * JUMP OVER MOVE IF FIRST LIBRARY
    LSD.L      X33               * OVERWRITTEN
    LB.IC      X40               * OVERWRITTEN
    J          X4D2              * CONTINUE
END,NO,NAME=UCS_P550_009_P01)
PATCH(XAE2,X79940034,CODE        * LINE 385
    LSS.L      X101              * LNB
    ROT        8
    USH        -8
    ISB        1
    ST.L       X111
    LB         0
#A  CPB.L      X111
    STB.L      X107
    JG         #X
    LD.L       X3D
    MODD.L     X107
    LDB        1
    STD.L      X109
    LSD.IL     X109
    USH        -32
    MPSR       X11
    USH        -24
    UCP        XE5
    JNE        #B
    LB.L       X107
    LSD        -1
    ST.MIL     X3D
    LSS.L      X106
    IAD        1
    ST.L       X106
#B  LB.L       X107
    ADB        1
    J          #A
#X  LD.C       X34
END,YES,NAME=UCS_P550_009_P02)
CHE(C94CE5AF)