home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / RESUME.MKR < prev    next >
Encoding:
Text File  |  1997-06-05  |  943 b   |  34 lines
  1. #   ----------------------------------------
  2. #   - Beispielmakro fuer den Befehl resume -
  3. #   ----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Fehlerbehandlung aktivieren
  10. #   ACHTUNG!!! Nach Ausfuerung dieses Befehls wird
  11. #   bei *ALLEN* Fehlern zum Label Fehler verzweigt !!! 
  12. #   z.B. bei Verwendung einer nichtinitialisierten Variable
  13. onerror Fehler
  14.  
  15. #   nichtinitialisierte Variable Hugo
  16. debug "Erzeuge Fehler: 1 Sekunde warten auf DCT\n"
  17. waitdcttime "1"
  18.  
  19. debug "Makro laeuft weiter ...\n"
  20.  
  21. goto Ende
  22.  
  23.  
  24. #   ========================
  25. #   Fehlerbehandlungsroutine
  26. Fehler:
  27. set Text = "Es ist ein Fehler aufgetreten (Fehlercode = ", ERRNO, ")\nSoll das Makro trotzdem fortgesetzt werden ?"
  28. messagebox Antwort : "Fehler im Makro", Text, "YESNO"
  29. if Antwort == "NO" goto Ende
  30. resume
  31.  
  32. Ende:
  33. debug "Makro beendet ...\n"
  34. end