/*
**  $VER: NachLogout.rexx 4.100 (11 Apr 1999)  **
**
**        © 1997/00 Gerald Froehlich
**
**  PROGRAMNAME:
**      NachLogout.rexx
**
**  FUNCTION:
**      Beendet, falls MIAMI für T-Online-Zugang genutzt wurde,
**      die Verbindung und beendet MIAMI
**
**  $HISTORY:
**
**  11 Apr 1999 : 004.100 :  MIAMI beenden
**   07 Aug 1997 : 0.01 : initial release
*/

IF (~show('l','rexxreqtools.library')) THEN
    call addlib('rexxreqtools.library',0,-30,0)

IF (~show('l','rexxsupport.library')) THEN
   CALL AddLib('rexxsupport.library',0,-30,0)

OPTIONS RESULTS
SIGNAL on error
SIGNAL ON break_c
SIGNAL ON break_d
SIGNAL ON break_e
SIGNAL ON break_f
SIGNAL ON failure
SIGNAL ON halt
SIGNAL ON ioerr
SIGNAL ON syntax

IF Show("P",'MIAMI.1') THEN DO
    ADDRESS "MIAMI.1"
    GETONLINETIME
    Sekunden = RESULT     /*für Zeitauswertung verwendbar*/
    OFFLINE
    QUIT
END
ADDRESS

EXIT

/*###################################
*** Debugging-Fehlerroutinen *******
###################################*/
syntax:
text =  'Syntax-Fehler' rc 'in Zeile' sigl '0A'x ErrorText(rc),
    '0A'x || SourceLine(sigl)
   CALL rtezrequest(text,"Alles klar!", "NachLogout-Miami",'rt_pubscrname='screen)
  ADDRESS "HB" FEHLER_END
  EXIT

failure:
ioerr:
ERROR:
text =  'Fehler' rc 'in Zeile' sigl '0A'x ErrorText(rc),
    '0A'x || SourceLine(sigl)
   CALL rtezrequest(text,"Alles klar!", "NachLogout-Miami",'rt_pubscrname='screen)
  ADDRESS "HB" END
  EXIT
halT:
break_c:
break_d:
break_e:
break_f:
text =  'User-Abbruch durch Halt!' || '0A'x || 'Wirklich abbrechen ?'
 ab = rtezrequest(text,"_Mach Schluss|_Neeiiin", "NachLogout-Miami",'rt_pubscrname='screen)
 IF ab = 1 THEN DO
   ADDRESS "HB" L1END
   EXIT
 END
 ELSE RETURN