RE: How do I retrieve today's date in CL?

Consider RTVSYSVAL instead as well as retrieving in separate values to
avoid date format issues

 DCL        VAR(&QMONTH) TYPE(*CHAR) LEN(2) 
 DCL        VAR(&QDAY) TYPE(*CHAR) LEN(2)   
 DCL        VAR(&QYEAR) TYPE(*CHAR) LEN(2)  
 DCL        VAR(&QTIME) TYPE(*CHAR) LEN(6)  

 RTVSYSVAL  SYSVAL(QMONTH) RTNVAR(&QMONTH)
 RTVSYSVAL  SYSVAL(QDAY) RTNVAR(&QDAY)    
 RTVSYSVAL  SYSVAL(QYEAR) RTNVAR(&QYEAR)  
 RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&QTIME)  
 
Hth,

Ken Slaugh (707) 795-1512 x118
Director of Technical Development
Chouinard and Myhre, Inc.
http://www.cm-inc.com/

DISCLAIMER: The information contained in this e-mail may be confidential
and is intended solely for the use of the addressee. Access, copying or
re-use of the e-mail or any information contained therein by any other
person is not authorized. If you are not the intended recipient, please
notify us immediately by returning the e-mail to the originator and
destroying all unauthorized copies.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Wednesday, February 07, 2007 3:31 PM
To: Midrange Systems Technical Discussion
Subject: How do I retrieve today's date in CL?

How do I retrieve today's date in CL?

I tried RTVJOBA DATETIME(&FIELD20A)  and it says it is not a valid
keyword?  I am confused yet again.