home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / MULTIF42.DMS / in.adf / MultiFax / Rexx / Beispiel_1.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-01-11  |  1.8 KB  |  62 lines
  1. /* Beispiel 1: */
  2. /* Gibt die Datei S:user-startup über das Server-Modul in ein */
  3. /* Fax aus und betrachtet hinterher das erstellte Fax.        */
  4.  
  5. /* Vor jeder Befehlszeile steht die Beschreibung der Zeile. */
  6.  
  7.     /* Es folgen DOS-Befehle. */
  8. address command
  9.     /* Start des Servers. */
  10. 'Run MultiFax:Server'
  11.     /* Start des MultiFax-ARexx-Moduls. */
  12. 'Run MultiFax:MFRexx'
  13.     /* 10 Sekunden warten. */
  14. 'Wait' "10 secs"
  15.     /* Es folgen MultiFax-Befehle. */
  16. address 'MultiFaxRexx'
  17.     /* Wir möchten gerne Ergebnisse erhalten. */
  18. options results
  19.     /* Welche Version des MultiFax betreiben wir? */
  20. 'version'
  21.     /* Ausgabe der Versionszeichenkette. */
  22. say result
  23.     /* Server erst einmal auf PASSIV schalten. */
  24. serverstate 0
  25.     /* Telefaxeintrag des Empfängers setzen. */
  26. setphone "@Beispielfax@Vorname@Zusatz@Faxnummer@Strasse@PLZ/Ort@Anwender1@Anwender2@"
  27.     /* Server AKTIVieren. */
  28. serverstate 1
  29.     /* Das Fax soll als Faxdatei erstellt werden. */
  30. phonemode 0
  31.     /* Es folgen DOS-Befehle. */
  32. address command
  33.     /* Wir erstellen ein Fax aus der Datei 'S:user-startup'. */
  34. 'Type >PRT: S:user-startup'
  35.     /* Es folgen MultiFax-Befehle. */
  36. address 'MultiFaxRexx'
  37.     /* Server wieder auf PASSIV schalten. */
  38. serverstate 0
  39.     /* Welche Datei wurde gerade erstellt? */
  40. lastfaxfile
  41.     /* Merken des Namens. */
  42. lastresult = result
  43.     /* Ausgabe des Dateinamens. */
  44. say lastresult
  45.     /* Es folgen DOS-Befehle. */
  46. address command
  47.     /* Anzeige des gerade erstellten Faxes. */
  48. 'MultiFax:View >NIL: ' lastresult
  49.     /* Es folgen DOS-Befehle. */
  50. address command
  51.     /* 10 Sekunden warten. */
  52. 'Wait' "10 secs"
  53.     /* Es folgen MultiFax-Befehle. */
  54. address 'MultiFaxRexx'
  55.     /* Alle MultiFax-Module einschließlich des MFRexx-Moduls beenden. */
  56. exitall
  57.     /* Es folgen DOS-Befehle. */
  58. address command
  59.     /* Löschen des temporären Faxes, da es nur für diese */
  60.     /* Demonstration erstellt wurde. */
  61. 'Delete' lastresult
  62.