25 lines
1.2 KiB
Mathematica
25 lines
1.2 KiB
Mathematica
XBVL ; IHS/ADC/GTH - LOCAL VARIABLE LISTER FRONT END ; [ 10/29/2002 7:42 AM ]
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
|
|
; XB*3*9 IHS/SET/GTH 06/05/2002 Cache' mods.
|
|
;
|
|
; This is the front end for listing local variables.
|
|
; Implementation specific routines are called from this
|
|
; routine. Those routines are in the ZIBVL* namespace.
|
|
;
|
|
; I '$L($T(@$P(^%ZOSF("OS"),"-",1))) W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"-",1),"' NOT SUPPORTED." Q ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
|
|
; G @$P(^%ZOSF("OS"),"-",1) ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
|
|
I ($$VERSION^%ZOSV(1)["Cache")!($$VERSION^%ZOSV(1)["MSM") G ^ZIBVL ;IHS/SET/GTH XB*3*9 10/29/2002
|
|
; I $P(^%ZOSF("OS"),"^",1)["MSM" G MSM ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err. ;IHS/SET/GTH XB*3*9 10/29/2002
|
|
W !,*7,"OPERATING SYSTEM '",$P(^%ZOSF("OS"),"^",1),"' NOT SUPPORTED." ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
|
|
Q ; XB*3*4 IHS/ADC/GTH 05-22-97 Prevent <INDER> err.
|
|
;
|
|
MSM ; Micronetics Standard MUMPS.
|
|
G ^ZIBVLMSM
|
|
;
|
|
MESSAGE ;EP - Tell user of limitations.
|
|
W !!?5,"DO routine ^XBVL from programmer mode."
|
|
W !?5,"Not all local variables are available thru the XB menu.",!!
|
|
Q
|
|
;
|