RATE THIS ANSWER
+2
Click to Vote:
2
0
Last Answered:
Feb 27 2008 7:21 PM GMT
by Bvining
You will want to look in the
ILE RPG Reference for details, but:
dCurDate s d
/free
CurDate = %date();
dsply CurDate;
*inlr = *on;
return;
/end-free
is one way to get the current system date.
Bruce Vining
http://www.brucevining.com/ Integrated solutions for the System i user community