Re: Conveting the time in a cl

DCL        VAR(&QTIME) TYPE(*CHAR) LEN(6)
DCL        VAR(&QTIMEHMS) TYPE(*CHAR) LEN(8)

RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&QTIME)
CHGVAR     VAR(&QTIMEHMS) VALUE(%SST(&QTIME 1 2) || ':' || +
                                %SST(&QTIME 3 2) || ':' || +
                                %SST(&QTIME 5 2))


From: Chris Beck <CBeck@good-sam.com>
> What is the easiest way to convert the system time retrieved in a cl
program to HH:MM:SS
> The convert date is real easy but i cant think of of to do this in cl.

> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Thousands of Stores.  Millions of Products.  All in one place.
Yahoo! Shopping: http://shopping.yahoo.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---