home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / pmsw.zip / PMSW / PMSWALL.ZIP / USER / WAITWHIL.CMD < prev   
OS/2 REXX Batch file  |  1993-11-05  |  293b  |  13 lines
  1. /* REXX */
  2. if 0 < RxFuncQuery('SysLoadFuncs') THEN DO;
  3.    Call rxfuncadd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs'; 
  4.    Call SysLoadFuncs;
  5. end  /* Do */
  6. parse arg TaskNameMask
  7. bLoop=1;
  8. do while bLoop;
  9.    '@pmsw' TaskNameMask '/r'
  10.    if rc\=1 then bLoop=0;
  11.    Call SysSleep 2;
  12. end;
  13.