[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

Re: Variable ^MD



** Reply to message from "Patricia M. Godfrey"  on Thu, 03
Nov 2005 11:48:24 -0500

Here's how you transform a freestanding PM into a U2 frame. This was the
freestanding version:

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}IF{<}VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX01
,{<}VA$XD{>}{>}[BX_]d XD=0[Q2_]{<}SX02,{<}VA$FP{>}{>}[BX_]dir
 {<}PV02{>}[Q2_][DL_]{<}SV02{>}{<}SX03,{<}VA$WN{>}{>}[BX_]ab/
nv[Q2_]{<}IF{<}VA$WN{>}=={<}PV03{>}&{<}VA$WO{>}>1{>}[BX_]rs[Q
2_]{<}EI{>}[BX_]d XD={<}PV01{>}[Q2_]{<}SV01,{>}{<}SX03,29{>}{
<}CUA,03{>}{<}SX01,{<}IS01{>}+"{027}X"{>}{<}LBA{>}{<}XS02,01,
,01,01{>}{<}SV02, {>}{<}XS01,02,02,,03{>};*;[cr|lf]{<}PR@02{>
};*; Test it[cr|lf]{<}EX{>}
-nd
XPLeNCODE

Here it is, altered to actually put the date in text, and formatted for U2:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5GetFDate}} Get File Date RJH 11/2/05[cr|lf]{002}{<}IF{<}
VA$WA{>}<1{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX01,{<}VA$X
D{>}{>}[BX_]d XD=0[Q2_]{<}SX02,{<}VA$FP{>}{>}[BX_]dir {<}PV02
{>}[Q2_][DL_]{<}SV02{>}{<}SX03,{<}VA$WN{>}{>}[BX_]ab/nv[Q2_]{
<}IF{<}VA$WN{>}=={<}PV03{>}&{<}VA$WO{>}>1{>}[BX_]rs[Q2_]{<}EI
{>}[BX_]d XD={<}PV01{>}[Q2_]{<}SV01,{>}{<}SX03,29{>}{<}CUA,03
{>}{<}SX01,{<}IS01{>}+"{027}X"{>}{<}LBA{>}{<}XS02,01,,01,01{>
}{<}SV02, {>}{<}XS01,02,02,,03{>}[GT_]{<}GT02{>}{002}[cr|lf][
cr|lf]
-nd
XPLeNCODE

Compare the two. A very simple transformation, isn't it? Note that if we had
used the command  at the end, you would need to check first whether you
are in Insert mode, in order not to overwrite existing text when putting the
date. But if we use , it inserts automatically, regardless of the
Insert/Overwrite state.

Command "GetFDate" to run the frame.

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