Re: differences between RPGLE and SQLRPGLE

No. But why are you using numerics for dates and times and why are you
still using MOVE? And why are you using a program that needs two
parameters: System time and date, and system date?


D sysdatetime S Z
D systime s t
D sysdate s d
D Month s 5i 0
D Day s 5i 0
D Year s 5i 0
D hh s 5i 0
D mm s 5i 0
D ss s 5i 0
D NumberDate s 8p 0
/free
*inlr=*on;
sysdatetime=%timestamp(); // retrieve current timestamp
systime=%time(sysdatetime); // get time part of timestamp
sysdate=%date(sysdatetime); // get date part of timestamp
Month=%subdt(sysdatetime : *months);
Day=%subdt(sysdatetime : *days);
Year=%subdt(sysdatetime : *years); // yyyy
hh=%subdt(sysdatetime : *hours);
mm=%subdt(sysdatetime : *minutes);
ss=%subdt(sysdatetime : *seconds);
NumberDate=%dec(sysdate); // yyyymmdd
return;
/end-free

Rob Berendt