VMStimestamp display?

[Thomson, Martyn EST:EX]

Hello,
Can anyone enlighten me on how to display a VMSTIMESTAMP on a Quick screen?
I've tried the following approach, but can only get the date portion to
appear - 

define d_VMSTIMESTAMP vmsdate = VMSTIMESTAMP
define d_1999 date  = NCO("19991231")
define d_DECIMALTIME numeric = decimaltime(d_1999,d_VMSTIMESTAMP) * 100
...
...
FIELD d_VMSTIMESTAMP noid display label "VMSTIMESTAMP function" 
FIELD d_DECIMALTIME LABEL "DECIMALTIME() function - No. days to/since Dec
31,1999:" &
   noid display picture "^^^^^.^^" 


The output looks like this - 

   VMSTIMESTAMP function                                    1998-OCT-23
   DECIMALTIME() function - No. days to/since Dec 31,1999   433.41

so the variable d_VMSTIMESTAMP must contain the time since d_DECIMALTIME is
correct, but how to display it?
I've tried converting it to a string using ascii(), but that just displays
as '19981023'.

The dictionary system screen has - 
 Date Picture         "YYYY-MMM-DD"  
I know I can override that with the FORMAT option but how to display the
time?

Using PH 7.10F4 on OpenVMS 6.2

Regards,
Martyn Thomson
Ministry of Education,
Victoria, B.C.


 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.