Home > IT Answers > AS/400 > Current Date
Vids
285 pts.
 Current Date
AS/400, RPG
Which opcode in RPG can be used to retrieve current date along with century?

Software/Hardware used:
ASKED: December 14, 2007  5:49 AM
UPDATED: March 13, 2010  2:27 AM
RELATED QUESTIONS
Answer Wiki:
The TIME opcode with a 14-digit result field, the %DATE built-in, or the %TIMESTAMP built-in are three that come to mind. ================================================== The DATE positions 191-198 of the program status data structure provides a 4-digit year. Tom
Last Wiki Answer Submitted:  March 7, 2010  10:46 am  by  bvining   6,055 pts.
All Answer Wiki Contributors:  bvining   6,055 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

*DATE

Try
 35 pts.
 

This will return today’s date as CYYMMDD. Just modify the *CYMD0 parm to get other date formats.

D Today70 S 7 0

C/Free
Today70 = %int(%char(%date():*CYMD0)) ;

WoodEngineer
 5,525 pts.
 

at V5R3+

Today70 = %dec(%date():*CYMD0) ;

BigKat
 7,185 pts.
 

To expand slightly on the examples provided:

D ISO  S  8 0 

ISO = %dec(%date():*ISO0) ;

Assuming you’re looking for the full, four digit year.

Splat
 5,670 pts.