Radio Shack TRS-80 Model 4 - Page 322

If (PR1) is not specified on the DO command line, then the IIIF test is
false and the 132 characters per line is selected.
Using IISET and IIRESET
JCL provides the IISET and IIRESET macros to reduce the number of
tokens
in the DO command line.
One basic use for
IISET is to let one token set the value of another.
For example:
IIIFKI
IISETPi
IIEND
This JCL file specifies that if KI is true, then P1 is set to a true
condition also.
Suppose that the token P2 is already SET and you want to give it a
new value. Consider this example:
IIIF KI
IIRESET P2
IIEND
This JCL file specifies that if KI is true, then P2 is reset to a false
condition.
Consider the JCL file named MENU/JCL:
• MENU/JCl. revision 1
SET *FF TO FORMS/FlT
FILTER *PR *FF
IIIF Pi
IIRESET P2
FORMS (CHARS=80)
IIElSE
IISET P2
FORMS (CHARS=132)
IIEND
If you issue either one of the following commands:
DO MENU (Pi) (ENTER)
DO MENU (Pi .P2) (ENTER)
the IIIF macro tests P1 as true; therefore P2 is reset to false, and the
*FF and 80-character mode are applied.
If you issue either one of the following commands:
DO MENU (ENTER)
DO MENU (P2) (ENTER)
the IIIF macro tests false so the IIELSE macro sets P2 to true and the
132-character mode
is applied.
A-17