home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / pmsw.zip / PMSW / PMSWALL.ZIP / CSOURCE / PMSW2 / TPMSW2.CMD < prev   
OS/2 REXX Batch file  |  1993-04-20  |  769b  |  32 lines
  1. /* REXX */
  2. if 0 < RxFuncQuery('SysLoadFuncs') THEN DO;
  3.    Call rxfuncadd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  4.    Call SysLoadFuncs;
  5. END;
  6. parse arg PgmName
  7. say 'Arguments:' PgmName
  8. lq=0; BQ=0;
  9. lq=pos('/r',PgmName); BQ=pos('/R',PgmName);
  10. Count='';
  11. if (lq>0|BQ>0) then do;
  12.    PgmName=substr(PgmName,1,(lq+BQ)-1);
  13.    Count='/r';
  14.    say '/r: args='PgmName;
  15. end;
  16. else say 'args='PgmName;
  17. RC=RXFUNCDROP('PMSW2');
  18. say 'RxFuncDrop RC='RC;
  19. RC=RXFUNCADD('PMSW2','PMSW2','PMSW2');
  20. say 'RxFuncAdd  RC='RC;
  21. if (lq>0|BQ>0) then  do;
  22.    say 'Call with' PgmName ',/R'
  23.    Result=PMSW2(PgmName,Count);
  24. end;
  25. else do;
  26.    say 'Call with' PgmName;
  27.    Result=PMSW2(PgmName);
  28. end;
  29. say 'PMSW2 returned' Result;
  30. RC=RXFUNCDROP('PMSW2');
  31. say 'RxFuncDrop RC='RC;
  32.