Re: The value of $X

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Mon, 13 Oct
2008 15:26:04 -0400

Harry and anyone else using U2 routine $X:

It's been a few weeks since I made any revisions to frame $X. In
fact, the frame is stable and virtually error-free. This revision,
though, is important. It works around a rare but critical problem,
which happens when $X is used to RUN an XPL PrograM and that PrograM
uses Save/Get 02 or 03 (which was creating a conflict with values
established for these S/Gs in frame $X). Fixed.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5$X}} Issue COMMAND[ arg(s)] or U2_FRAMENAME[ arg(s
)] with the same key [CLD rev.11/1/08][cr|lf]{002}{<
}SX01,{<}IS00{>}{>}{<}IF{<}VA$KC{>}==28!{<}VA$KC{>}==104{>}{<
}IF{<}VA$SM{>}>0{>}[JM_]2.null[Q2_]{<}EI{>}{<}IF{<}VA$TX{>}>0
&{<}VA$WS{>}<2{>}[255+048+068]{<}EX{>}{<}EI{>}{<}EI{>}{<}IF{<
}VA!620{>}<1&{<}VA|01{>}>0{>}[JM_]2.$S[Q2_]{<}EI{>}{<}IF{<}IS
01{>}=="?"!{<}VA|01{>}>1&"HELP"{238}@upr({<}IS01{>})<>0{>}{<}
SX02,{<}VA$EB{>}{>}{<}SX03,{<}VAWA{>}{>}[BX_]d wa=0[Q2_]{<}SX
02,"[BX_]es 1[Q2_][BX_]d eb="+{<}IS02{>}+"[Q2_]"{>}{<}SX03,"[
BX_]d wa="+{<}IS03{>}+"[Q2_]"{>}{<}IF"D EB"{238}@upr({<}IS01{
{062}})==0!"DEFAULT EB"{238}@upr({<}IS01{>})==0!"D $EB"{238}@upr(
{<}IS01{>})==0!"DEFAULT $EB"{238}@upr({<}IS01{>})==0!"VA/NV E
B"{238}@upr({<}IS01{>})==0!"VA/NV $EB"{238}@upr({<}IS01{>})==
0{>}{<}SV02,[BX_]es 1[Q2_]{>}{<}EI{>}{<}IF"D WA"{238}@upr({<}
IS01{>})==0!"DEFAULT WA"{238}@upr({<}IS01{>})==0{>}{<}SV03,{>
}{<}EI{>}{<}IF{<}VA|02{>}>10{>}[BX_]d eb=0,0[Q2_]{<}EI{>}{<}I
F"VA/NV WA"{238}@upr({<}IS01{>})==0{>}{<}PV03{>}{<}SV03,{>}{<
}EI{>}{<}IF"RUN"{238}@upr({<}IS01{>})==0&"RUNC"{238}@upr({<}I
S01{>})<0{>}{<}PV02{>}{<}PV03{>}[XC_]{<}EX1{>}{<}EI{>}[XC_]{<
}IF@not({<}ER{>})!{<}VA$ER{>}<>12{>}{<}PV02{>}{<}PV03{>}{<}EX
{>}{<}EI{>}[BX_]wait[Q2_]{<}PV02{>}{<}PV03{>}{<}EI{>}{<}SV01,
{>}{<}IF{<}VA$MG{>}<>""{>}{<}SX01,{<}VA$MG{>}{>}{<}EI{>}{<}PR
@01{>}[BX_]es[Q2_][JM_]2.PrsCMline[Q2_]{002}[cr|lf]
-nd
XPLeNCODE


--
Carl Distefano
cld@xxxxxxxx