Example 1:
GTM>KILL A
GTM>VIEW "NOUNDEF"
GTM>WRITE A,?10,$L(A)
0
GTM>
This demonstrates how a VIEW that specifies NOUNDEF prevents UNDEFined errors.
Example 2:
GTM>ZL "NOSENSE"
%GTM-E-LABELMISSING Label referenced but
not defined:lab
%GTM-I-SRCNAM in source module USR.[WORK] NOSENSE.M
GTM>
GTM>ZPRINT ^NOSENSE
NOSENSE;
DO lab
QUIT
LABWRITE !,"THIS IS NOSENSE"
QUIT
GTM>VIEW "LABELS":"UPPER"
GTM>ZLINK "NOSENSE.M"
GTM>DO ^NOSENSE
THIS IS NOSENSE
GTM>
This demonstrates use of VIEW "LABELS" to make label handling case insensitive. Notice that the routine was ZLINKed with a type of .M to force a recompile and ensure that the object code and the run-time handling of labels is the same.
Example:
GTM>WRITE $ZDIR
USER:[WORK.TEMP]
GTM>VIEW "ZDIR_FORM":1
GTM>WRITE $ZDIR
[WORK.TEMP]
GTM>SET $ZDIR="OTHER:[DATA.JOURNAL]"
GTM>WRITE $ZDIR
[DATA.JOURNAL]
This example demonstrates use of VIEW "ZDIR_FORM" to exclude device specification from $ZDIR.