home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxlbox13.zip / sample3.cmd < prev    next >
OS/2 REXX Batch file  |  1998-03-01  |  4KB  |  84 lines
  1. /* ------------------------------------------------------------------ */
  2. /*                                                                    */
  3. /*             sample program to show the use of RXLBOX               */
  4. /*                                                                    */
  5. /*            This program uses the menu file SETVARS.INI             */
  6. /*                                                                    */
  7. /* The menu file used in this sample is a real world sample. It's a   */
  8. /* menu file we're using in our CID installations.                    */
  9. /* ------------------------------------------------------------------ */
  10.  
  11.                     /* names of the environment variables used to     */
  12.                     /* pass data between RxLBox and SAMPLE3.CMD       */
  13.   envVars = ,
  14.     'M_MACHINETYPE',
  15.     'M_LOCATION',
  16.     'M_LANGUAGE',
  17.     'M_FDISKFILE',
  18.     'M_DISPLAY',
  19.     'M_CDROM',
  20.     'M_SOUNDCARD',
  21.     'M_TRAdapter',
  22.     'M_CDROM',
  23.     'M_TCPID',
  24.     'M_MODEL_NUM',
  25.     'M_SERIAL_NUM',
  26.     'M_PLANT_MFG',
  27.     'M_MACHINE_TYPE',
  28.     ''
  29.  
  30.                     /* do some initializations (set the default       */
  31.                     /* values)                                        */
  32.                     /*                                                */
  33.                     /* (In our CID installation MINIMENU executes the */
  34.                     /* section INITMINIMENU from the menu file to     */
  35.                     /* init the variables)                            */
  36.   call value 'M_LOCATION',        'ESCHBORN',                     'OS2ENVIRONMENT'
  37.   call value 'M_LANGUAGE',        'German',                       'OS2ENVIRONMENT'
  38.   call value 'M_FDISKFILE',       '1_GB_HD_(200/rest)',           'OS2ENVIRONMENT'
  39.   call value 'M_MACHINETYPE',     'Desktop PC',                   'OS2ENVIRONMENT'
  40.   call value 'M_DISPLAY',         'VGA',                          'OS2ENVIRONMENT'
  41.   call value 'M_CDROM',           'SCSI',                         'OS2ENVIRONMENT'
  42.   call value 'M_SOUNDCARD',       'MULTIMEDIA_WITHOUT_SOUND',     'OS2ENVIRONMENT'
  43.   call value 'M_TRAdapter',       '3COM',                         'OS2ENVIRONMENT'
  44.   call value 'M_CDROM',           'DETECT_CDROM',                 'OS2ENVIRONMENT'
  45.   call value 'M_TCPID',           '123',                          'OS2ENVIRONMENT'
  46.   call value 'M_MACHINE_TYPE',    'P166',                         'OS2ENVIRONMENT'
  47.   call value 'M_MODEL_NUM',       'ATI',                          'OS2ENVIRONMENT'
  48.   call value 'M_SERIAL_NUM',      'R000',                         'OS2ENVIRONMENT'
  49.   call value 'M_PLANT_MFG',       '55',                           'OS2ENVIRONMENT'
  50.  
  51.                     /* fully qualified name of the menu file          */
  52.   menuFile = directory() || '\setvars.ini'
  53.  
  54.                     /* call RxLBox                                    */
  55.   thisRC = rxlbox( menuFile )
  56.  
  57.                     /* print the results to the screen                */
  58.                     /*                                                */
  59.                     /* (In our CID installation MINIMENU uses the     */
  60.                     /* section ALIASSE and the other sections to      */
  61.                     /* create the file SETVARS.CMD)                   */
  62.  
  63.   say
  64.   say
  65.   say 'RC = "' || thisRC || '"'
  66.  
  67.                     /* print the user choosen values to the screen    */
  68.   do i = 1 to words( envVars )
  69.     curEnvVar = word( envVars,i )
  70.     say curEnvVar || '="' || value( curEnvVar,, 'OS2ENVIRONMENT' ) || '"'
  71.   end /* do i = 1 to words( envVars ) */
  72.  
  73.                     /* delete the environment variables used to pass  */
  74.                     /* data between RxLBox and SAMPLE3.CMD            */
  75.                     /*                                                */
  76.                     /* (In our CID installation MINIMENU executes the */
  77.                     /* section EXITTMINIMENU from the menu file to    */
  78.                     /* delete the variables)                          */
  79.   do i = 1 to words( envVars )
  80.     curEnvVar = word( envVars,i )
  81.     call value curEnvVar, '', 'OS2ENVIRONMENT'
  82.   end /* do i = 1 to words( envVars ) */
  83. exit 0
  84.