IBM OS/2 LAN Server REXX Utility DLL


Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs


GetLogonAsnAcp()


This function returns the logon assignment access control profiles. 
To function correctly, the administrator must be logged on one domain only 
and not have any value specified in the othdomains = parameter in 
IBMLAN.INI.   
Syntax 


MyRc = GetLogonAsnAcp(userid, asnType, acpList)

  
Parameters 
The parameters specified and returned are: 
userid            The userid 
asnType           The logon assignment type. Use: 

                  'D='  for device type logon assignment
                  'A='  for public application type assignment
                  'ALL' for both device and public application type assignments
                  
                  
acpList.0         The number of logon assignments found. It has a value of 
                  '-none-' if no assignments are found 
acpList.i         The returned assignment list. i has a value from 1 to 
                  acpList.0 The returned values are divided into: 

                  type  name  access
                  
                  For example:
                  
                  D= ALLDILES  RWC
                  
                  
                  See for example  NetGetInfo(NETACCESS)  for more 
                  information about the access values. 
                  The returned values contains a list of all referenced 
                  alias used by an public application. Multiple entries 
                  for one public application may therefore occur. 
  
Note 
The function works only on a single domain. The function will fail if the 
administrator has a value specified in the othdomains = parameter in 
IBMLAN.INI.   
Example   


/* List device and application assignment ACP a userid */

call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

userId = 'WS222B'

MyRc = GetLogonAsnAcp(userId, 'ALL', acpList)

if MyRc = '0' then do
 say 'userid=' userId
 if acpList <> '-none-' then do
  do i=1 to acpList.0
   say acpList.i
  end
 end
end
else do
 say 'GetLogonAsnAcp() failed with return code' MyRc
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

  
Example Output   


userid= WS222B
A=        BOOKS             RWCXD
A=      BOOKMST No working directory specified
D=     ALLFILES                RX



Inf-HTML End Run - Successful