Comments on: Opcode in RPG that retrieves current date

By: splat

splat — Sat, 13 Mar 2010 02:27:31 +0000

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.

By: bigkat

bigkat — Thu, 11 Mar 2010 12:43:26 +0000

at V5R3+

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

By: woodengineer

woodengineer — Mon, 08 Mar 2010 17:42:12 +0000

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)) ;

By: try

try — Mon, 14 Jan 2008 17:43:26 +0000

*DATE