'<PCODE "1DATIME">

<RPACKAGE "DOW"> 

<ENTRY DOW> 

<SETG DOW  %<RSUBR!- '[ %<PCODE!- "1DATIME" 143> DOW #DECL ("VALUE" FIX)]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DOW PGLUE ![0!]>> 


<ENDPACKAGE>