Re: Date variables in Xy III

["Robert Holmgren" holmgren@xxxxxxxx]

** Reply to message from Patricia M Godfrey  on Mon, 20 Oct
2003 11:49:29 -0400


> Is there any way to get a text date in Xy III ...
> in a purely numeric format (e.g., 20031020)?

Patricia:

Your query about grabbing the date in Xy3+ rang a distant
bell; back when Iapetus was an ocean, I wrote a routine that
does that (and somewhat more, e.g. derives the name of the
weekday, which is a nifty piece of [incredibly prolix] Xy3-
style math -- the same concept is quite terse when ported to
Xy4). Anyway, check this bugger out. Gotta DECODE in Xy4,
but run in v3.54+ (the routine won't run in Xy4, because you
can't CAll the CON[sole] device in Xy4). I made it
put the YYYYMMDD result into text at the current , which
I guess is your goal. If the _only_ thing you wanted was
YYYYMMDD in text, you could abbreviate this drastically
[duh]! Xy3 sucks, BTW. Looking back at this old stuff, I'm
reminded -- ugh!


XPLeNCODE v2.0
b-gin [UNTITLED]
{<}LB Show current time|weekday(!)|date on CM line (v3.54+ on
ly) RJH before 1991[cr|lf]{>}{<}SX01,0{>}{<}SX02,{<}VA$NW{>}
{>}{<}SX03,{<}VA$DT{>}{>}{<}SU04,[BC_]d nw={<}PV02{>},dt={<}P
V03{>}[XC_][BC_] No window available[GT_]{>}[BC_]d nw=1,dt=0[
XC_]{<}SU05,{<}SX06,{<}VA$FS{>}{>}{<}IF{<}PV06{>}>510{>}{<}SX
01,1{>}{<}EI{>}[NO_]{>}{<}PV05{>}{<}IF{<}PV01{>}>0{>}{<}PV04{
>}{<}EX{>}{<}EI{>}[BC_]ca con[XC_][BC_]wait[XC_]{<}PV05{>}{<}
IF{<}PV01{>}>0{>}[BC_]ab[XC_][BC_]wait[XC_]{<}PV04{>}{<}EX{>}
{<}EI{>}[BC_][DX_]now[XC_]|[BC_]da dd mm yyy[XC_][BC_]tys[XC_
][BC_][DX_]wait[XC_][TF_][BC_]se |[XC_][DF_][BC_]seb {252} {
252}[XC_][XC_][CR_][DF_]{<}SV07{>}[XD_][BC_]se |[XC_][DF_][B
C_]se [WS_][XC_][XC_][XC_][CL_][DF_]{<}SV08{>}{<}SX09,{<}IS0
8{>}{>}[BC_]ab[DO_][FF_][XC_][BC_]wait[XC_][DX_]{<}SV04, {>}{
<}XS08,04,01,10,11{>}{<}XS11,04,05,10,06{>}[TF_][DF_][BF_][DF
_][RD_][BC_]today[XC_][TF_][DF_][BF_][DF_]{<}SV08{>}[BC_]ab[D
O_][FF_][XC_][BC_]wait[XC_][BC_][DX_]d nw={<}PV02{>},dt={<}PV
03{>}[XC_]{<}IF{<}PV05{>}<3{>}{<}SX05,{<}PV05{>}+12{>}{<}SX06
,{<}PV06{>}-1{>}{<}EI{>}{<}SV02,.{>}{<}SX04,{<}PV06{>}/4{>}{<
}SX04,{<}IS04{>}{>}{<}XS04,02,10,11,03{>}{<}SX04,{<}PV06{>}/4
00{>}{<}SX04,{<}IS04{>}{>}{<}XS04,02,11,03,12{>}{<}SX04,{<}PV
06{>}/100{>}{<}SX04,{<}IS04{>}{>}{<}XS04,02,03,12,13{>}{<}SX1
2,{<}PV05{>}+1{>}{<}SX04,{<}PV01{>}+{<}PV06{>}+({<}PV05{>}*2)
+{<}PV10{>}+{<}PV11{>}+({<}PV12{>}*3)/5+2-{<}PV03{>}{>}{<}SX0
4,{<}IS04{>}{>}{<}XS04,02,11,03,12{>}{<}SX04,{<}PV11{>}/7{>}{
<}SX04,{<}IS04{>}{>}{<}XS04,02,13,03,12{>}{<}SX13,{<}PV11{>}-
{<}PV13{>}*7{>}{<}IF{<}PV13{>}<2{>}{<}SX13,{<}PV13{>}+7{>}{<}
EI{>}{<}SX13,{<}PV13{>}-1{>}{<}IF{<}PV13{>}<2{>}{<}SV11,Mon{>
}{<}GLB{>}{<}EI{>}{<}IF{<}PV13{>}<3{>}{<}
SV11,Tues{>}{<}GLB{>}{<}EI{>}{<}IF{<}PV13{>}<4{>}{<}SV11,Wedn
es{>}{<}GLB{>}{<}EI{>}{<}IF{<}PV13{>}<5{>}{<}SV11,Thurs{>}{<}
GLB{>}{<}EI{>}{<}IF{<}PV13{>}<6{>}{<}SV11,Fri{>}{<}GLB{>}{<}E
I{>}{<}IF{<}PV13{>}<7{>}{<}SV11,Satur{>}{<}GLB{>}{<}EI{>}{<}S
V11,Sun{>}{<}LBB{>}{<}SV01, {>}{<}XS09,01,02,03,04{>}{<}XS04,
01,05,03,06{>}{<}SX09,{<}IS06{>}+{<}IS05{>}+{<}IS02{>}{>}[BC_
] {<}PV07{>}{<}PV11{>}day {<}PV08{>} a.k.a. {<}PV09{>}{<}GT09
{>}[DO_][FF_]{<}EX{>}[cr|lf][cr|lf]
-nd
XPLeNCODE

-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------