5 pts.
 How to get current date in DDS
is it possible to get the current date (CUR_DATE()). how? R SERFMT                    PFILE(BLUSOC)     K SERSN                                       S SERIND                    COMP(NE 0)           SEROTD                    VALUES(0 99999999) S SEROTD                    COMP(GE CURDAT())

Software/Hardware used:
A/S400
ASKED: April 9, 2010  1:25 AM
UPDATED: April 9, 2010  7:37 PM

Answer Wiki:
I have not seen it done. We get around a situation like this by using the OPNQRYF command. get date as a system variable and use that. Similar to this. OPNQRYF FILE((AFP)) FORMAT(*LIBL/AFP01) + QRYSLT('(AFDATE *GE ' || &DTYMD || *AND AFDATE *LE ' || &DT2YMD || ')
Last Wiki Answer Submitted:  April 9, 2010  7:37 pm  by  ToddN2000   3,915 pts.
All Answer Wiki Contributors:  ToddN2000   3,915 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _