Go to your procedures document and issue /Document Expand (/DE) and then cursir down to the first procedure listed in your books and press the insert key which will insert a blank line. Type the following on this line:

AUTOEXEC Sets the Current Date

Again issue /Document Expand (/DE) and then /Document View P for Procedures (/DVP.) and cursor down twice. This will put below description in the procedure view of AUTOEXEC. Type the following lines:

@declare date =0
@dosdate date
~gh ~wu
@exec date ~er

Once done, issue /Document Shut (/DS) and then re-enter the books. The current system date will be displayed next to Today’s Date in these books.