%TIME Rückkehr aus Connection nach einem Zeitintervall
*ON %TIME=s RETURN
Diese Bedingung setzt ein Zeitintervall, nach dessen Ablauf CFS aus einer Connection in die Grundebene (Kommandofeld) zurückkehrt. Damit ist es selbst im Prozedurmodus möglich, aus einer "aktiven" Connection nach CFS zurückzukehren, ohne daß in der Connection eine Eingabeaufforderung besteht. So kann CFS auch bei Programmen mit freilaufenden Ausgaben bzw. bei Anwendungen ohne direkte Eingabeaufforderung (z.B. $CONSOLE) die Steuerung zurückbekommen.
s Elapsed Time in Sekunden (0 <= s <= 9999).
Beispiele:
Die folgende Prozedur eröffnet eine Connection zu $CONSOLE und setzt zuerst das Kommando /STA MSG und danach /STA P ab. Nach Rückkehr in die Grundebene durch K2 + R wird die Connection durch die Prozedur automatisch abgebaut.
OC9$CONSOLE,,,R R: Rückkehrschalter. Nach erfolgreichem Eröffnen der Konsole kehrt
CFS in den Grundprozeß zurück.
xxxxx,C'sssss' Eingabe der Benutzerkennung und des Passworts nach Rückkehr aus
CC9B der Connection: K2 für die Konsole
*ON %TIME=1 RETURN Nach einer Sekunde: Rückkehr in die Grundebene von CFS
STA MSG Eingabe für Konsole
CC9B nach Rückkehr in die Grundebene (*ON %TIME=1):
erneut K2 für die Konsole generieren
*ON %TIME=1 RETURN Timer für Rückkehr wieder initialisieren.
STA P Eingabe an Konsole
*ON %CMD CONTINUE Nach Rückkehr in die Grundebene von CFS durch den Benutzer
soll der automatische Prozedurablauf wieder aufgenommen werden.
*DIA Umschaltung der Eingabequelle auf Benutzerdialog
DC9 Beenden der Connection
Unter der Benutzerkennung TSOS soll eine Connection zum Hostrechner VAR2 eröffnet werden. Mit SM2 werden Statistikdaten zur Systemauslastung gesammelt.
/PROC N
/SYSFILE SYSDTA=(SYSCMD)
/SETSW ON=(1,4)
/EXEC $CFS
*002 FILE=NO
OC1,,VAR2/LOGON TSOS,...
EXEC $SM2
*ON %TIME=10 RETURN nach 10 Sekunden: automatische Rückkehr in die Grund-ebene von CFS
HC SM2.STATISTIK,N Die folgenden Ausgaben werden in die Hardcopydatei protokolliert
START Beginn der Statistikausgabe durch SM2. Die Statistik-informationen
                          werden im Intervall von 120 Sekunden ausgegeben
                          Nachdem nur Interesse an der ersten Ausgabe besteht, wird die
                          Connection nach 10 Sekunden verlassen. Dies gibt die Möglichkeit,
                          neue CFS-Kommandos abzusetzen.
CC1B K2-Taste für Connection 1. Dadurch wird die weitere Ausgabe
der Statistikinformationen durch SM2 beendet.
NHC Ausschalten des Hardcopy-Modus.
LOGOFF Beenden der Connection.
END Beenden von CFS.
/SETSW OFF=(1,4)
/ENDP