Examples of VIEW

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.