* SCEPTRE AMENDMENT UCS_P550_012
*
* Release: 5.5
* Date: 28 JUNE 1999
*
* ALLOWS UCS_FILE_PRINT TO SELECT A SINGLE SERVICE FROM A
* MULTI-SERVICE UCSTFILE
*
* 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.ICL8UCS4FP
*
POINT(UCS093.PATCHES)
ALTER(12,X00,XF0,NAME=UCS_P550_012_P00)
POINT(UCS422.SERVICE$FIND)
 
ALTER(X106,X02C00019,CODE * LINE 877 / 1041
    JE        X114        * LINE 880 / 1044
END,NAME=UCS_P550_012_P01)
 
POINT(UCS422.MAIN)
PATCH(X0,X1804658C,CODE   * LINE C3/1 / 492
    LSS.C     XFB         * W00-FIRST-TIME-MKR
    JZ        X84         * LINE 348 / 512
    PRCL      4           * OVER-
    LSD.X     X1AC        *     -WRITTEN
END,RET=6,NAME=UCS_P550_012_P02)
 
PATCH(X202,X4994016A,CODE * LINE 397 / 561
    ST.C      X16A        * OVERWRITTEN
    LB.IX     X4C         * IN-SERV-ID
    ST.MIX    X1AC        * W00-PROGRAM( )
END,RET=YES,NAME=UCS_P550_012_P03)
 
PATCH(X498,X7B94006F,CODE * LINE 517 / 681
    LB.IX     X4C         * IN-SERV-ID
    LB.MIX    X1AC        * W00-PROGRAM()
END,RET=YES,NAME=UCS_P550_012_P04)
 
CHE(X8E4900A2)