Hinweise zu Prozeduren

Hinweise zu Prozeduren

Die nachfolgend beschriebene DO-Prozedur realisiert eine Konsole, die die folgenden Funktionen ausführt:

1)	Systemdumps werden automatisch mit tsn.Y beantwortet.

2)	Über das Kommando /TYPE CFSCON:/cmd bzw. /TYPE CFSCON:tsn.xxxx können von Benutzertasks, die unter den Kennungen TSOS oder TT08 angeloggt sind, beliebige Konsoleingaben getätigt werden.

3)	Die DO-Prozedur wird durch Eingabe des Kommandos /TYPE TERMINATE CONSOLE beendet.

/PROC N

/SYSFILE SYSDTA=(SYSCMD)

/SETSW ON=(1,4)

/EXEC $CFS.CFS

*002 FILE=NO

OC9$CONSOLE,,,R

xxxxx,C'sssss'

*&STAM='Y'

*ON %OUT=($CFS.CFS.PROCLIB(X/SRCITEM)) RESUME

CC9/STA MSG

nachschauen, ob Anfragen ausstehen
*SKIP .SETTSN

.LOOP

*IF &STAM='N' SKIP .ONOUT

*SEND '/STA MSG'

.ONOUT

*ON %OUT

letzte *ON %OUT-Bedingung aktivieren



.SETTSN 

*&TEXT=%PTR(1,80)

Meldungstext merken



*WRITE '&TEXT'

Meldungstext ausgeben



*&TASK=%PTR(1,4)

*SKIP &SLABEL

.NOMSG

*&STAM='N'

*SKIP .LOOP

.SYSDUMP

*WRITE '-------->  &TASK..Y'

*SEND '&TASK..Y'

*SKIP .LOOP

.CFSCONSOLE

*IF %OUT=:1:'%' &TASK=%PTR(1,4)

*&VAR='USER-ID('&TASK.')'

*IF &&VAR='TSOS' SKIP .ALLOW-CONSINPUT

*IF &&VAR='TT08' SKIP .ALLOW-CONSINPUT

*WRITE '/MESS TSN=&TASK,USER-ID &&VAR. NICHT ZUR KONSOLEINGABE BERECHTIGT'

*SEND '/MESS TSN=&TASK,USER-ID &&VAR. NICHT ZUR KONSOLEINGABE BERECHTIGT'

*SKIP .LOOP

.ALLOW-CONSINPUT

*&TEXT2=&TEXT(1,50)

*WRITE 'KOMMANDO AUSGEFUEHRT: &TEXT2'

*SEND '&TEXT'

*SEND '/MESS TSN=&TASK,KOMMANDO AUSGEFUEHRT: &TEXT2'

*SKIP .LOOP

.EXIT

*ON %TIME=0 RETURN

Rückkehr in das Kommandofeld von CFS



DC9

END

CFS beenden



/SETSW OFF=(1,4)

/ENDP

Die Bedingungen, auf welche Konsolmeldungen reagiert werden soll, sind in dem Element X/SRC ITEM der PLAM-Bibliothek $CFS.CFS.PROCLIB gespeichert. In unserem Beispiel hat das Element den folgenden Inhalt:

'SYSTEMDUMP DESIRED'+:1-20:'?' .SYSDUMP

'CFSCON:' .CFSCONSOLE

'NO MESSAGE OUTSTANDING ON THE CONSOLE' .NOMSG

'TERMINATE CFSCONSOLE' .EXIT