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