TAL Reference Manual

Compiler Directives
TAL Reference Manual—526371-001
16-84
SOURCE Directive
2. In this example, IFNOT tests a toggle for the off state, finds it is turned on, and
causes the compiler to skip the source text between IFNOT SCANNER and ENDIF
SCANNER:
?SETTOG scanner !Turn toggle SCANNER on
!Some code here
?IFNOT scanner !Test toggle for off state
PROC skipped; !Find it on; skip procedure
BEGIN
!More code here
END;
?ENDIF scanner !End of skipped procedure
3. In this example, SETTOG turns on toggle 1. IF tests the toggle, finds it is turned
on, and causes the compiler to compile the source text between IF 1 and ENDIF
1:
?SETTOG 1 !Turn toggle 1 on
!Some code here
?IF 1 !Test the toggle for on state
PROC some_proc; !Find it on; compile procedure
BEGIN
!More code here
END;
?ENDIF 1 !End of compiled portion
SOURCE Directive
SOURCE specifies source code to include from another source file.
file-name
specifies the name of a disk file from which the compiler is to read source code.
You can specify partial file names as described in Appendix E in the
TAL
Programmer’s Guide. The compiler uses TACL ASSIGN SSV information, if
specified, to complete the file name. Otherwise, the compiler uses the current
default volume and subvolume names as needed.
,
section-name
(
)
VST1656.vsd
SOURCE
assign-name
define-name
file-name