IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NETAPPSEL Get Info

The function retrieves information about all types of applications 
contained in the specified userid desktop application folders.   

Syntax 

MyRc = NetGetInfo(NETAPPSEL, 'appSelInfo', SrvName, UserId)

Parameters 

The parameters specified are: 

'appSelInfo'      The REXX variable receiving the result. The variable is 
                  divided into: 

   o appSelInfo.count 

     The count of application selector entries returned 

   o appSelInfo.i.appname 

     The application name. The variable i has a value 1 to 
     appSelInfo.count 

   o appSelInfo.i.apptype  The application type. The variable i, see above 
                  

SrvName           The server computer name of the domain controller 

UserId            The name of the userid 
  

Note 

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

Example   

/* Get application selector information */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETAPPSEL = 32
SrvName   = '\\ILIDC'
UserId    = 'FMAM'

myRc = NetGetInfo(NETAPPSEL, 'appSelInfo', SrvName, UserId)

if myRc <> '0' then do
 say 'Got error from NetGetInfo() ' myRc
 call DropLsRxutFuncs
 exit 9
end

if appSelInfo.count <> 0 then do
 say 'Number of entries: ' appSelInfo.count

 do i=1 to appSelInfo.count
  say
  say 'Application entry: ' i
  say 'Application Name:  ' appSelInfo.i.appname
  say 'Application type:  ' appSelInfo.i.apptype
 end

end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

Example Output   

Number of entries:  2

Application entry:  1
Application Name:   ALLAPPS
Application type:   Public OS/2 application

Application entry:  2
Application Name:   THENEW
Application type:   Public OS/2 application

Inf-HTML End Run - Successful