You will want to look in the <a href="http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/books/c092508602.htm">ILE RPG Reference</a> for details, but:
<pre>
dCurDate s d
/free
CurDate = %date();
dsply CurDate;
*inlr = *on;
return;
/end-free
</pre>
is one way to get the current system date.
Bruce Vining
<a href="http://www.brucevining.com/">http://www.brucevining.com/</a>
Integrated solutions for the System i user community
Last Wiki Answer Submitted: February 27, 2008 7:21 pm by bvining6,055 pts.
If you live outside the United States, by submitting your email address you consent to having your personal data transferred to and processed in the United States.
curdate S D INZ(*SYS)