* SCEPTRE AMENDMENT : 621
* Date:  26 March, 1996
* Sceptre release:  5.00
*
* This amendment corrects a problem with the Sceptre monitor,
* that can cause a 32/2 program error when monitoring an IDMS
* service.
*
* Please apply this amendment using the procedure described in
* section 12 of SCEPTRE software notice 16.
*
* This amendment applies to both SCEPTRE and SCEPTRE-E.
*
* Module to be amended is: ICL8_UCS_4_MONITOR  ( 5000 )
*
POINT(UCS093.PATCHES)
ALTER(621,X00,XF0,NAME=UCS_P621/0_P00)
POINT(UCS460.UCS460_LT)
PATCH(JUMP=NO,DISP=0,TO=CODE
    !A
    %CTMSETVSATT
END,NAME=UCS_P621/0_P01)
POINT(UCS460.UCSNEWMONITORSUPPORT_C)
PATCH(X916,X75901277,CODE  * LINE 2206
    PRCL      4
    LSD       -1           * NIL
    ST.T
    LDRL.P    #X           * PROPERTIES
    STD.T
    LB.L      X10A         * I
    MYB       X16          * 22 ITEMS IN THE STRUCTURE
    ADB       X14          * ELEMENT 20
    LCT.L     4
    LD.C      X76          * SERV_AREAS
    MODD.B
    LDB       1
    STD.T                  * SERV_AREAS(I)(20)
    RALN      XB
    CALL.IC   X38          * CTM_WORK_AREA
    ST.L      X3A          * RES_CODE
    PRCL      4
    LB.L      X10A         * I
    MYB       X16          * 22 ITEMS IN THE STRUCTURE
    ADB       X14          * ELEMENT 20
    LCT.L     4
    LD.C      X76          * SERV_AREAS
    MODD.B
    LDB       1
    STD.T                  * SERV_AREAS(I)(20)
    LDRL.P    #Y           * PROPERTIES
    STD.T
    RALN      9
    CALL.IC   !A           * CTM_SET_VS_ATT
    J         X956         * LINE 2211
    ALIGN
#X  X28000009
    8
    1
    150000
    0
    5
    1
    0
    7
    150000
    0
#Y  X28000003
    8
    22
    0
    0
END,NO,NAME=UCS_P621/0_P02)
CHE(62A54BA4)