Blockanfang als Sprungziel

Das Kommando INCLUDE-BLOCK springt in einer Prozedur zu der Kommandozeile mit der angegebenen Marke (marke:), wobei die Marke den Anfang eines BEGIN-Blockes kennzeichnen muss (d.h. auf die Marke muss ein BEGIN-BLOCK-Kommando folgen). Der Prozedurlauf wird mit der Abarbeitung des BEGIN-Blockes fortgesetzt. Bei Erreichen des Blockendes wird die Bearbeitung mit dem Kommando fortgesetzt, das auf das INCLUDE-BLOCK-Kommando folgt.

Beispiel

/ASSIGN-SYSLST TO=PROT.EINGABE,SYSLST-NUMBER=1
/...
/IF (EING='*START')
/ INCLUDE-BLOCK INFO-1
/END-IF     &* Hier geht es nach Ausführung der Unterprozedur INFO-1 weiter
/...
/IF (EING='*END')
/ INCLUDE-BLOCK INFO-1
/END-IF     &* Hier geht es nach Ausführung der Unterprozedur INFO-1 weiter
/...
/...
/...
/INFO-1: BEGIN-BLOCK    &* Beginn der Unterprozedur INFO-1
/      WRITE-TEXT '&(TIME()): Es wurde &(EING) eingegeben',OUTPUT=*SYSLST(1)
/END-BLOCK &*Ende + Rücksprung zur Kommandozeile, die auf INCLUDE-BLOCK folgt