IBM OS/2 LAN Server REXX Utility DLL


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


NETAPP Add


The function creates a public or private application.   
Syntax 


MyRc = NetAdd(NETAPP, 'AppInfo', SrvName)
MyRc = NetAdd(NETAPP, 'AppInfo', SrvName, UserId)

  
Parameters 
The parameters required are: 
'AppInfo'  The REXX variable holding the application information. The 
           variable is divided into: 
   o AppInfo.name 
     The application name 
   o AppInfo.remark 
     The application remark or description. A remark must be provided 
   o AppInfo.command 
     The command that starts the application 
   o AppInfo.command_parms 
     The application start parameters if required 
   o AppInfo.app_alias_or_drv 
     The alias or drive where the application resides. It specifies a 
     drive letter, followed by a colon (:), if the application resides on 
     the user's local machine or it specifies an existing alias if the 
     application resides on a server 
   o AppInfo.app_drive 
     Applies to DOS public applications only. It is used to specify the 
     drive that is current when the application runs. Valid letters are A 
     through X. A value of * indicates that the system should choose a 
     drive letter 
   o AppInfo.app_path_to_dir 
     The remaining path to the application 
   o AppInfo.wrkdir_alias_or_drv 
     Specifies the directory that is made current when the application 
     runs. If the working directory is on the local machine, it specifies 
     the drive, where the directory is located. If the working directory 
     is remote, it specifies an existing alias where the directory is 
     located 
   o AppInfo.wrkdir_drive 
     Specifies the drive that the working directory is to be assigned to 
     when the application is started. For OS/2 applications, this can be 
     any letter D through Z. For DOS applications, this can be any letter 
     A through X. A value of * indicates that the system should choose a 
     drive when the application is started. 
   o AppInfo.wrkdir_path_to_dir 
     The remaining path to the working directory 
   o AppInfo.prompt 
     Prompt for parameters. The following values can be used: 

     Prompt for parameters            Value
     ---------------------            -----
     Yes                              'Prompt user for parameters'
                                      'Yes'
     
     No                               'Do not prompt user for parameters'
                                      'No'
     
     
     
     The default value is 'No'. 
   o AppInfo.interface 
     The interface type. The values can be: 

     Interface type                   Value
     --------------                   -----
     Presentation Manager             'Presentation Manager'
                                      'PM'
     
     OS/2 Fullscreen                  'Fullscreen'
                                      'FS'
     
     OS/2 Windowed                    'Windowed'
                                      'WIN'
     
     
     
     The default value is 'Presentation Manager'. 
   o AppInfo.type 
     The application type. The following values are used: 

     Application type                 Value
     ----------------                 -----
     Public DOS                       'Public DOS application'
                                      'PUBLIC_DOS'
     
     Public OS/2                      'Public OS/2 application'
                                      'PUBLIC_OS2'
     
     Private OS/2                     'Private OS/2 application'
                                      'PRIVATE_OS2'
     
     
     
     The default value is 'Public OS/2 application'. 
   o AppInfo.res_count 
     The number of application resource list entries that follows. A value 
     of zero indicates that the application does not require any 
     redirected devices when it runs. 
   o AppInfo.i.arl_alias 
     The alias for the resource required by the application. The variable 
     i must have a value from 1 to AppInfo.res_count 
   o AppInfo.i.arl_device 
     The device assigned to the resource specified. 
     If AppInfo.i.arl_alias specifies a files alias, AppInfo.i.arl_device 
     must be a drive letter followed by a colon (:). Valid drive letters 
     for OS/2 applications are D: through Z:. Valid drive letters for DOS 
     applications are A: through X:. 
     If AppInfo.i.arl_alias specifies a print alias, valid values are LPT1 
     through LPT9. 
     If AppInfo.i.arl_alias specifies a serial device alias, valid values 
     for AppInfo.i.arl_device are LPT1 through LPT9 and COM1 through COM9. 
     
     Additionally, each application resource list entry must have a unique 
     value for its AppInfo.i.arl_device field. For example, if 
     AppInfo.i.arl_alias specifies a files alias, the drive letter 
     specified in the AppInfo.i.arl_device field must be different from 
     AppInfo.app_drive, AppInfo.wrkdir_drive, and any other 
     AppInfo.i.arl_device fields for files aliases. 
     The variable i must have a value from 1 to AppInfo.res_count 
SrvName    The server computer name of the domain controller 
Application The application name 
UserId     The name of the userid. The name of the userid must be 
           specified for private applications 
  
Note 
The server computer name can be specified as '' for a local domain 
controller.   
Example   


/* Add a public application */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETAPP  = 30
SrvName = '\\ILIDC'

AppInfo.name                = 'BOOKREAD'
AppInfo.remark              = 'Shared Bookmanager Read/2'
AppInfo.command             = 'BOOKMGR.EXE'
AppInfo.command_parms       = ''
AppInfo.app_alias_or_drv    = 'BOOKMGR' /* Bookmanager programs alias */
                                        /* AppInfo.app_drive not used */
AppInfo.app_path_to_dir     = '\'
AppInfo.wrkdir_alias_or_drv = 'BOOKMGR'
AppInfo.wrkdir_drive        = 'R'       /* Make R: the working dir    */
AppInfo.wrkdir_path_to_dir  = '\'       /* Remaining path             */
AppInfo.prompt              = 'Do not prompt user for parameters'
AppInfo.interface           = 'Presentation Manager'
AppInfo.type                = 'Public OS/2 application'

/* The additional resources */
AppInfo.res_count    = 3
AppInfo.1.arl_alias  = 'SHAREDLL'
AppInfo.1.arl_device = 'Y:'
AppInfo.2.arl_alias  = 'THEBOOK'
AppInfo.2.arl_device = 'Q:'
AppInfo.3.arl_alias  = 'PRINTIT'
AppInfo.3.arl_device = 'LPT4'

myRc = NetAdd(NETAPP, 'AppInfo', SrvName)

if myRc <> '0' then do
 say 'Got error from NetAdd() ' myRc
 call DropLsRxutFuncs
 exit 9
end
else do
 say 'Application added successfully'
 say
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

  
Example Output   


Application added successfully



Inf-HTML End Run - Successful