home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / MULTIF42.DMS / in.adf / MultiFax / Rexx / Beispiel_2.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-11  |  1.9 KB  |  63 lines
  1. /* Beispiel 2: */
  2. /* Gibt die Datei S:user-startup über das Desk-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. call open out,"RAM:TMP",write
  10. call writeln out,'Stack 20000'
  11. call writeln out,'MultiFax:Desk'
  12. call close out
  13.     /* Start des Desk-Moduls über die temporäre Datei, */
  14.     /* da eine Erhöhung des Stapelspeichers notwendig war.. */
  15. 'Run Execute RAM:TMP'
  16.     /* Start des MultiFax-ARexx-Moduls. */
  17. 'Run MultiFax:MFRexx'
  18.     /* 10 Sekunden warten. */
  19. 'Wait' "10 secs"
  20.     /* Es folgen MultiFax-Befehle. */
  21. address 'MultiFaxRexx'
  22.     /* Wir möchten gerne Ergebnisse erhalten. */
  23. options results
  24.     /* Welche Version des MultiFax betreiben wir? */
  25. 'version'
  26.     /* Ausgabe der Versionszeichenkette. */
  27. say result
  28.     /* Erst einmal die Liste löschen. */
  29. clearlist
  30.     /* Die Datei 'S:user-startup' in die Liste aufnehmen. */
  31. addfile "S:user-startup"
  32.     /* Telefaxeintrag des Empfängers setzen. */
  33. setphone "@Beispielfax@Vorname@Zusatz@Faxnummer@Strasse@PLZ/Ort@Anwender1@Anwender2@"
  34.     /* Das Fax soll als Faxdatei erstellt werden. */
  35. phonemode 0
  36.     /* Das Fax dem Versand übergeben. */
  37. sendfax
  38.     /* Welche Datei wurde gerade erstellt? */
  39. lastfaxfile
  40.     /* Merken des Namens. */
  41. lastresult = result
  42.     /* Ausgabe des Dateinamens. */
  43. say lastresult
  44.     /* Es folgen DOS-Befehle. */
  45. address command
  46.     /* Anzeige des gerade erstellten Faxes. */
  47. 'MultiFax:View >NIL: ' lastresult
  48.     /* Es folgen DOS-Befehle. */
  49. address command
  50.     /* 10 Sekunden warten. */
  51. 'Wait' "10 secs"
  52.     /* Es folgen MultiFax-Befehle. */
  53. address 'MultiFaxRexx'
  54.     /* Alle MultiFax-Module einschließlich des MFRexx-Moduls beenden. */
  55. exitall
  56.     /* Es folgen DOS-Befehle. */
  57. address command
  58.     /* Löschen der temporären Datei. */
  59. 'Delete RAM:TMP'
  60.     /* Löschen des temporären Faxes, da es nur für diese */
  61.     /* Demonstration erstellt wurde. */
  62. 'Delete' lastresult
  63.