19 lines
529 B
Mathematica
19 lines
529 B
Mathematica
|
XBTM15 ; IHS/ADC/GTH - TECH MANUAL : KILL UNSUBSCRIPTED GLOBALS; [ 02/07/97 3:02 PM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;
|
||
|
|
NEW A
|
||
|
|
F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
|
||
|
|
Q:$D(DUOUT)
|
||
|
|
D ^DIWW
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
PR(X) NEW A D PR^XBTM(X) Q
|
||
|
|
;;|SETTAB("C")||TAB|
|
||
|
|
;;|SETTAB("C")||TAB|
|
||
|
|
;;|SETTAB("C")||TAB|Unsubscripted Globals, KILL'd in the package.
|
||
|
|
;;|SETTAB("C")||TAB|
|
||
|
|
;;|SETTAB("C")||TAB|
|
||
|
|
;; Routine Line Global
|
||
|
|
;; ----------------- ------------------ ----------------
|
||
|
|
;;###
|