How to list all users defined in UAMS

Document ID : KB000122413
Last Modified Date : 05/12/2018
Show Technical Document Details
Introduction:
The UAMS Dataset contains all users of the specific SOLVE-Region. Beside the possibility to do online maintenance SOLVE provides an interface from an NCL to read and update the UAMS-Records.
Instructions:
Here is an example of a NCL which reads the complete UAMS from first to last User. Processing of the read record is done inside the &DOUNTIL-Loop:

-*-------------------------------------*

-* EXAMPLE OF READING COMPLETE UAMS    *
-*-------------------------------------*
-* SET KEYVALUE TO LOW VALUE           *
-*-------------------------------------*
&KEYVALUE = &HEXPACK 00                
-*-------------------------------------*
-* READ FIRST RECORD IN UAMS. THE LIST *
-* OF FIELDS RELATES TO THE STRUCTURED *
-* FIELDS; 0010 = USERID, 0011 = USER  *
-* NAME, ...                           *
-*-------------------------------------*
&SECCALL GET USERID=&KEYVALUE     +    
         FIELDS=(0010,0011,...)   +    
         OPT=KGT                       
&DOUNTIL .&RETCODE GT .0               
   -*----------------------------------*
   -* PROCESS READ RECORD AS DESIRED.  *
   -*----------------------------------*
    processing
   -*----------------------------------*
   -* SET VALUE FOR NEXT UAMS-RECORD   *
   -*----------------------------------*
   &KEYVALUE = &SEC0010                
   -*----------------------------------*
   -* READ NEXT RECORD UNTIL LAST      *
   -*----------------------------------*
   &SECCALL GET USERID=&KEYVALUE  +    
         FIELDS=(0010,0011,...)   +    
            OPT=KGT                    
&DOEND     
&END