Re: Date variables in Xy III

[marc@xxxxxxxx]

Robert

This is probably a silly question...how do I convert your code at the bottom of
this posting back into an XPL 3+ program?
I am very interested to see how it works.
Is there a routine to convert the {}[]<> etc into the approporate characters?

Thanks

Marc


Quoting Robert Holmgren :

> ** 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{>}{<}S X
> 01,1{>}{<}EI{>}[NO_]{>}{<}PV05{>}{<}IF{<}PV01{>}>0{>}{<}PV04{
> >}{<}E X{>}{<}EI{>}[BC_]ca con[XC_][BC_]wait[XC_]{<}PV05{>}{<}
> IF{<}PV01{>}>0{>}[BC_]ab[XC_][BC_]w ait[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[D O_][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{>}{<}S X04,{<}PV01{>}+{<}PV06{>}+({<}PV05{>}*2)
> +{<}PV10{>}+{<}PV11{>}+({<}PV1 2{>}*3)/5+2-{<}PV03{>}{>}{<}SX0
> 4,{<}IS04{>}{>}{<}XS04,02,11,03,12{>}{< }SX04,{<}PV11{>}/7{>}{
> <}SX04,{<}IS04{>}{>}{<}XS04,02,13,03,12{>}{<}SX1 3,{<}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{>}+{<}I S05{>}+{<}IS02{>}{>}[BC_
> ] {<}PV07{>}{<}PV11{>}day {<}PV08{>} a.k.a. {<}PV09{>}{<}GT09
> {>}[DO_][FF_]{<}EX{>}[cr|lf][cr|lf]
> -nd
> XPLeNCODE
>
> -----------------------------
> Robert Holmgren
> holmgren@xxxxxxxx
> -----------------------------
>
>