IDENTIFICATION DIVISION.
PROGRAM-ID. SYSUAF.
ENVIRONMENT DIVISION.
DATA DIVISION.                       
WORKING-STORAGE SECTION.
01      item-list-getuai.
	02 uai_def_dev.                        
	   03 date_len			PIC S9(4) comp value 16.   
	   03 PIC S9(4) comp VALUE external uai$_defdev.    
	   03 pointer value reference uai_defdev. 
           03 pointer value reference ret-addr.
	02 terminator PIC S9(9)	COMP VALUE 0.	    

01      item-list-getjpi.
	02 jpi_username_list.                     
	   03 name_len			PIC S9(4) comp value 12.   
	   03 PIC S9(4) comp VALUE external jpi$_username. 
	   03 pointer value reference jpi_username.  
           03 pointer value reference ret-addr.
	02 terminator PIC S9(9)	COMP VALUE 0.	

01      return_value			PIC S9(9) COMP.
01      jpi_username                    PIC X(12).
01      uai_defdev                      PIC X(16) VALUE SPACES.
01      ret-addr                        PIC S9(4) COMP.
01      symbol_name                     PIC X(7)
					  VALUE "DEFDISK".
01      user_name                       PIC X(7)
					  VALUE "USRNAME".

PROCEDURE DIVISION.
               
UAF-MAIN.                                               

GET-DATA.                   
	display "Enter The Username For The User You Want : " 
		at line number 1 erase screen.             
	accept jpi_username
	Display " " at line number 5.
*
* get the process default device                            
*
        call "sys$getuai" using by value 0,
                              by value 0,
                              by descriptor jpi_username,
                              by reference item-list-getuai,
			      by value 0,
			      by value 0 ,
			      by value 0 ,
			      giving return_value.

	call "lib$set_symbol" 
			using by descriptor user_name,jpi_username.

	call "lib$set_symbol" 
			using by descriptor symbol_name,uai_defdev.

*	exit.