Title : IMS 2.2 usermod to show signed on userid in output of
        /DIS NODE SIGN output


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 (TIM0001).
++ VER (P115) FMID (JMH2223)
   PRE(UL16259,UL16389,UL18147,UL18475,UL35873,UL38082)
  /*
  PROBLEM DESCRIPTION(S):
    IMSSIGN -PROBLEM SUMMARY:
               PRIOR  TO 8507 APAR  PP42288 (UP60596), AND SINCE
              APAR PP32459 (UP49291) THE  /DISPLAY NODE  COMMAND
              WOULD SHOW  "SIGN(USERID)"  FOR  SIGNED ON  NODES.
              APAR PP42288 MISGUIDEDLY REMOVED THE USERID,  ONLY
              SHOWING "SIGN", TO  'ALLOW A USER TO MAKE  SIGN ON
              VERIFICATION SECURITY EFFECTIVE' (?!?).

              THIS USERMOD REVERSES PP42288, TO SHOW THE USERID.

  COMPONENT:  5740-XX214-JIM1324

 */.
++ SRCUPD(DFSIDPB0) DISTLIB(DCSOURCE) .
./ CHANGE NAME=DFSIDPB0
*                                                              TIM0001  00003100
* This CSECT modified by TESCO usermod TIM0001                 TIM0001  00003200
*                                                              TIM0001  00003300
         MVC   0(8,R3),CTBUSID         MOVE IN USER ID         TIM0001  01998100
         LA    R3,8(,R3)               INCR BUFFER POINTER     TIM0001  01998200
         MVC   0(2,R3),=C') '          MOVE IN CLOSING PAREN   TIM0001  01998300
         LA    R3,2(,R3)               ADD PAREN LNGTH+BLANK   TIM0001  01998400
STATSIGN DC    C'SIGN('                                        TIM0001  02345000

<END>