*++
*
*  Read username for *TEXTFORM.
*
*  Loaded with:
*  <load uname &uname f='ets4:uname' -
*     takes stype null returns stype len string>
*
*  Called with:
*  <def &name, &uname(&name)>
*
*  <&name> will now insert the UNAME.
*
*  By John Wilson, April 25, 1988.
*
*--
UNAME    CSECT
         ENTER 12,SA=REGS
         LA    1,GULIST            ;pt at list
         L     15,=V(GUINFO)       ;pt at routine
         BASR  14,15               ;call GUINFO
         LA    1,=A(BUF+6)         ;pt at parm list
         EXIT  ,RESTORE=2          ;catch you later
*
GULIST   DC    A(ITEM,BUF)         ;GUINFO call list
ITEM     DC    F'298'              ;USERNAME
BUF      DC    A(64+8)             ;max username is 64
         DS    F                   ;length returned here
         DS    64C                 ;name returned here
*
REGS     DS    18F                 ;R13 area for GUINFO call
*
         END