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.