MACRO                                                                  
&NAME    GETUSER &A                                                             
         LCLC  &LAB                                                             
         AIF   (K'&A NE 0).LABOK                                                
&LAB     SETC  'ASLUSERI'                                                       
         MNOTE 0,'***** NO AREA NAME SPECIFIED, ASLUSERI USED ********'         
         AGO   .LABCNT                                                          
.LABOK   ANOP                                                                   
&LAB     SETC  '&A'                                                             
.LABCNT  ANOP                                                                   
* ******************************************************************* *         
*                                                                     *         
*                         G E T U S E R                               *         
*                                                                     *         
*        Get the userid of the user executing the program into a      *         
*        storage area.                                                *         
*                                                                     *         
&NAME    L     1,548               PSAAOLD                            *         
         L     1,108(1)            ASCB                               *         
         L     1,200(1)            ASXB                               *         
         MVC   &LAB,21(1)          MOVE IN USERID                     *         
         B     $USREXIT            AND EXIT                           *         
         AIF   ('&LAB' NE 'ASLUSERI').SKIPA                                     
&LAB     DS    CL8                                                    *         
.SKIPA   ANOP                                                                   
$USREXIT DS    0H                                                     *         
*                                                                     *         
*  Copyright - Abbydale Systems LLC.                                  *         
* ******************************************************************* *         
         MEND