The beginning of a block as a jump destination

The INCLUDE-BLOCK command in a procedure jumps to the command line with the specified tag (tag:). The tag must mark the start of a BEGIN block (i.e. a BEGIN-BLOCK command must follow the tag). The execution of the procedure continues with the processing of the BEGIN block. When the end of the block is reached, processing continues with the command that follows the INCLUDE-BLOCK command.

Example

/ASSIGN-SYSLST TO=PROT.EINGABE,SYSLST-NUMBER=1
/...
/IF (EING='*START')
/ INCLUDE-BLOCK INFO-1
/END-IF     &* Continue here after executing the subprocedure INFO-1 
/...
/IF (EING='*END')
/ INCLUDE-BLOCK INFO-1
/END-IF     &* Continue here after executing the subprocedure INFO-1 
/...
/...
/...
/INFO-1: BEGIN-BLOCK    &* Start of the subprocedure INFO-1
/      WRITE-TEXT '&(TIME()): &(EING) was entered',OUTPUT=*SYSLST(1)
/END-BLOCK &*End and return to command line following INCLUDE-BLOCK