home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / pmsw.zip / PMSW / PMSWALL.ZIP / CSOURCE / PMSW2 / MAIL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-04-21  |  1KB  |  57 lines
  1. /* REXX MAIL.CMD */
  2. 'SETLOCAL'
  3. 'C:'
  4. 'CD \CCMAIL'
  5. if 0 < RxFuncQuery('SysLoadFuncs') THEN DO;
  6.    Call rxfuncadd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  7.    Call SysLoadFuncs;
  8. END;
  9. CCMAIL='CCMAIL';
  10. RC=RXFUNCDROP('PMSW2');
  11. say 'RXFUNCADD RC='RC;
  12. RC=RXFUNCADD('PMSW2','PMSW2','PMSW2');
  13. say 'RXFUNCADD RC='RC;
  14. FirstName=""; LastName=""; ProcOpts=""; UserPassWord="";
  15. parse upper arg FirstName LastName UserPassWord;
  16. CCMAILServer='ccmail';
  17. MDRIVE.0=0;
  18. irc=SysFileTree('M:\CCMAIL\MAIL.*','MDRIVE','FSO');
  19. if MDRIVE.0<1 then do;
  20.    '@NET USE M: ' CCMAILServer;
  21.    RRC=RC;
  22. end;
  23. else do;
  24.   RRC=0;
  25. end;
  26. IF RRC=0 THEN DO; bREADY=0;
  27.    Result=PMSW2(ccmail,'/r');
  28.    say 'Result='Result;
  29.    if Result\='READY:' then do;
  30.       'START "CCMAIL" /C /MIN /WIN c:\CCMAIL\CCMAIL.BAT' FirstName LastName UserPassword;
  31.    end;
  32.    else do;
  33.       Result=PMSW2(ccmail); if Result='FOCUS:' then bREADY=1;
  34.    end;
  35.    do while (bREADY<1);
  36.       Result=PMSW2(ccmail,'/r');
  37.       say 'Result='Result;
  38.       if Result='READY:' then do;
  39.          Result=PMSW2(ccmail);
  40.          say 'Result='Result;
  41.          if Result='FOCUS:' then do;
  42.             bREADY=1;
  43.          end;
  44.       end;
  45.       else Call SysSleep(2);
  46.    end;
  47. END;
  48. else do;
  49.    if RRC=2 then do;
  50.       'net use m: /d';
  51.    end;
  52.    say "UNABLE TO ACCESS CCMAIL"
  53. end;
  54. byby:;
  55. RC=RXFUNCDROP('PMSW2');
  56. '@EXIT';
  57.