RPG IV allows you to initialize a date/time/timestamp field to the current system date/time. Using *JOB in place of *SYS on the INZ() keyword causes the date field to be initialized to the date value from the job (in short using *DATE). INZ(*JOB) is not valid with time and timestamp fields.
Code
D SysDate S D DATFMT(*ISO) INZ(*SYS)
D SysTime S T DATFMT(*HMS) INZ(*SYS)
The block of code above is the same as doing using the bock of code below.
D DS INZ
D sysdattim 14 0
D sysdate 8 0 OVERLAY(sysdattim:7)
D systime 6 0 OVERLAY(sysdattim:1)
.
.
.
C TIME SysDatTim
==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
