         DEF      GETUSER#:
GETUSER#: EQU     %
         SYSTEM   UTS
         REF      SMUIS
         REF      UH:FLG,UB:US
         REF      SNULL
         DEF      GETUSER#
         REF      PLB:USR
         REF      PLH:SID,LPART
*        PAGE
*                 BAL,7
*                 NO FIND           ABN RT
*                 FIND              NORM RT R5= USER#
*        INPUT    R6= USER# OR SID
*        OUTPUT   R5= USER#
GETUSER# RES      0
         CI,6     SMUIS
         BLE      GETUS1            ON LINE # = USER #
         LI,5 LPART
         CH,6     PLH:SID,5
         BE       %+3
         BDR,5    %-2
         B        0,7               NO FIND
         LB,6     PLB:USR,5         USER #
         LB,5     UB:US,6           STATE
         CI,5     SNULL             REAL USER
         BE       0,7
         B        GETUS2
GETUS1   LB,5     UB:US,6
         CI,5     SNULL             REAL USER
         BE       0,7
         LH,5     UH:FLG,6
         CI,5     BAT
         BANZ     0,7
GETUS2   EQU      %
         LW,5     6
         B        1,7
         END

