IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NetMisc(NETACCESSAPPLY) (LS40)

The function replicates a defined permission record, applying it to all 
subdirectories under the directory specified. 

The function updates the access permission for any file within the 
directory tree that already has an access permission record. It does not 
create a record for a file that does not already have one. 

This function does not replace existing audit trail settings, but it does 
apply the audit settings of the specified directory to any of its 
subdirectories that have no audit settings. 

This function will not apply an access permission record to any of the 
following OS/2 LAN Server system subdirectories: 

\IBMLAN
\IBMLAN\DCDB and its subdirectories
\IBMLAN\NETPROG and its subdirectories
\IBMLAN\DOSLAN and its subdirectories

Syntax 

MyRc = NetMisc(NETACCESSAPPLY, 'applyInfo', SrvName, DirResource)

Parameters 

The parameters required and returned are: 

'applyInfo'       The access control profile error information variable, 
                  which is valid only in case of apply errors 

   o applyInfo.error_buf 

     A string specifying the complete path name of the resource that 
     contributed to the failure of the apply function 

   o applyInfo.error_code 

     The error code returned when the ACL for resource specified in 
     applyInfo.error_buf was changed 

SrvName           The computer name of the server where the directory 
                  resource resides 

DirResource       The directory resource specification 
  

Example   

/* Apply access control profile to resource */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETACCESSAPPLY = 520
SrvName        = '\\DOMAIN_CONTRLR'
DirResource    = 'C:\TEST'        /* Resource on the server */

myRc = NetMisc(NETACCESSAPPLY, 'applyInfo', SrvName, DirResource)

if myRc <> '0' then do
 say 'Got error from NetMisc() ' myRc
 say 'Error Code from Apply' applyInfo.error_code
 say 'Apply function failed at'
 say applyInfo.error_buf
 exitRc = 9
end
else do
 say 'Apply function was successfull'
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit exitRc

Example Output   

Apply function was successfull

Inf-HTML End Run - Successful