IBM OS/2 LAN Server REXX Utility DLL

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

NETFILECLOSE Close a fileid



The function performs a close on an opened file.   



Syntax 



MyRc = NetDelete(NETFILECLOSE, SrvName, FileId)




  



Parameters 



The parameters specified are: 



SrvName           The server computer name on which the file is opened 



FileId            The numeric file identifier of the file to be closed 
  



Note 



The server computer name can be specified as '' for a local server.   



Example   



/* Close an opened file on a server */
if RxFuncQuery('NetDelete') <> 0 then do
 call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
 call LoadLsRxutFuncs
end

NETFILECLOSE = 220
SrvName      = '\\ILIDC'
FileId       = 3

myRc = NetDelete(NETFILECLOSE, SrvName, FileId)

if myRc <> '0' then do
 say 'Got error from NetDelete() ' myRc
 exit 9
end
else do
 say 'File closed successfully'
 say
end

exit 0




  



Example Output   



File closed successfully









Inf-HTML End Run - Successful