0.9b (c) 1995 Peter Childs
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