GETUSER 
.PROC,GETUSER*I,
JOB1    ' 1 TO 6 CHARACTERS OF JOB NAME        '=(*N=,*F),
USERF   ' USER FILE NAME OR U_JOB1             '=(*N=,*F),
. 
  
.*
.* IF A USER FILE IS DESIRED, THERE ARE TWO WAYS
.* TO SPECIFY IT.  THESE VALUES SHOULD BE CONTROLLED
.* BY CHANGING DECK COMUSER IN COMMOD.
.*
.* 1.  IF THE USERF PARAMETER IS SET TO THE DEFAULT (NULL), 
.*     A USER FILE IS SEARCHED FOR ONLY IF THE SITE USES
.*     THE USERF PARAMETER ON THE INSTALLATION PROCEDURE
.*     CALL.  EX. BEGIN,AAM2,INSTALL,USERF=AAM2MOD.  IF 
.*     THE FILE IS NOT FOUND, THE INSTALLATION PROCEDURE
.*     ABORTS.  THE SITE MAY CHOOSE ANY FILE NAME TO BE 
.*     THE USER FILE.  IF YOU SPECIFY USERF=UJOBNAM, IT 
.*     OVERRIDES THE NULL VALUE.
.*
.* 2.  IF THE USERF PARAMETER IS SET TO *UJOBNAM*, EVERY
.*     INSTALLATION PROCEDURE SEARCHES FOR A USER FILE
.*     AUTOMATICALLY.  THE FILE NAME IS A U CONCATENATED
.*     WITH THE FIRST SIX CHARACTERS OF THE INSTALLATION
.*     PROCEDURE NAME (E.G., UTERMLI OR UFTN5).  IF NO FILE 
.*     OF THAT NAME IS FOUND, THE INSTALLATION PROCEDURE
.*     EXECUTES AS USUAL AND NO USER CODE IS APPLIED.  IF 
.*     YOU SPECIFY USERF=FILENAME, IT OVERRIDES THE UJOBNAM 
.*     VALUE. 
.*
  
*************** G E T U S E R ********************
  
.IF,$USERF$.NE.$$,GETUSR1.
  .IF,$USERF$.NE.$UJOBNAM$,GETUSR2. 
    .IF,FILE(USERF,AS),GETUSR3. 
       RENAME(USER=USERF) 
    .ELSE,GETUSR3.
       GET(USER=USERF/NA) 
       IF,FILE(USER,.NOT.AS),GETUSR4. 
         ATTACH(USER=USERF) 
         COPYEI(USER,USERTMP) 
         RENAME(USER=USERTMP) 
       ENDIF,GETUSR4. 
    .ENDIF,GETUSR3. 
  .ELSE,GETUSR2.
     GET(USER=U_JOB1/NA)
     IF,FILE(USER,.NOT.AS),GETUSR5. 
       ATTACH(USER=U_JOB1/NA) 
       IF,FILE(USER,AS),GETUSR6.
         COPYEI(USER,USERTMP) 
         RENAME(USER=USERTMP) 
       ENDIF,GETUSR6. 
     ENDIF,GETUSR5. 
  .ENDIF,GETUSR2. 
.ENDIF,GETUSR1. 
REVERT. GETUSER **********************************
EXIT. GETUSER 
REVERT(ABORT) GETUSER ****************************
*WEOR 
