*
* $Id: getusr.s,v 1.1.1.1 1996/03/08 15:44:22 mclareni Exp $
*
* $Log: getusr.s,v $
* Revision 1.1.1.1  1996/03/08 15:44:22  mclareni
* Cspack
*
*
#if defined(CERNLIB_IBMVM)
         PRINT GEN
GETUSR   EDCPROL
         BALR 12,0
         USING *,12                      R12 <-- REGISTER BASE
*********************************************************************
         LA    2,EXTRACT                                            2
         LA    3,2
         DC    X'83',X'23',XL2'0180'     DIAGNOSE X'180'            2
*********************************************************************
         SR    1,1                       INDEX
         L     4,=F'1'                   INCREMENT
         L     5,=F'7'                   LIMIT
         LA    15,RESULT                 STRING ADDR
         LA    6,RESULT-1                POINTER (I NEED IT FOR CLI)
BUCLE    EQU   *
         A     6,=F'1'                   UPDATE POINTER
         CLI   0(6),C' '                 FIRST BLANK ?
         BE    PUTNUL
         TR    0(,6),TAB                 Translate to lowercase
         BXLE  1,4,BUCLE
         A     6,=F'1'                   UPDATE POINTER
PUTNUL   SR    4,4
         STC   4,0(6)
FIN      EDCEPIL
         LTORG *
EXTRACT  DC    CL8'USER    '
RESULT   DS    CL8
         DS    C                         NULL HOLDER
TAB       EQU  *
          DC        X'000102030405060708090A0B0C0D0E0F'
          DC        X'101112131415161718191A1B1C1D1E1F'
          DC        X'202122232425262728292A2B2C2D2E2F'
          DC        X'303132333435363738393A3B3C3D3E3F'
          DC        X'404142434445464748494A4B4C4D4E4F'
          DC        X'505152535455565758595A5B5C5D5E5F'
          DC        X'606162636465666768696A6B6C6D6E6F'
          DC        X'707172737475767778797A7B7C7D7E7F'
          DC        X'808182838485868788898A8B8C8D8E8F'
          DC        X'909192939495969798999A9B9C9D9E9F'
          DC        X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'
          DC        X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
          DC        X'C0818283848586878889CACBCCCDCECF'
          DC        X'D0919293949596979899DADBDCDDDEDF'
          DC        X'E0E1A2A3A4A5A6A7A8A9EAEBECEDEEEF'
          DC        X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
         END   GETUSR
#endif