home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / lpt197.zip / MULTI.CMD < prev   
OS/2 REXX Batch file  |  1996-02-21  |  503b  |  24 lines
  1. /* Execute multiple LPTEST commands, separated by '#'       JvW 28-01-96     */
  2.  
  3.    trace off
  4.  
  5.    Parse arg params
  6.    say 'MULTI.CMD, rexx env = "'Address()'"  Parameters = "'params'"'
  7.  
  8.    Parse Source with . procname .
  9.  
  10.    if Address() <> 'LPT' then
  11.    do
  12.       Address cmd '@LPT runq' procname params
  13.    end; else
  14.    do
  15.       rest = params
  16.       do while rest <> ''
  17.          parse value rest with LPT_cmd '#' rest
  18.          LPT_cmd
  19.          rc = result
  20.       end
  21.    end
  22. exit rc
  23.  
  24.