fmylf if e k disk
d ds
d now 1 20 0
d date 1 8 0
d time 9 14 0
d zzzzzz 15 20 0
c/free
now = %dec(%timestamp());
setll date mylf;
reade date mylf;
dow not %eof(mylf);
// Do your processing here.
reade date mylf;
enddo;
*inlr = *on;
c/end-free
And here's a version you may be more comfortable with:
FMYLF IF E K DISK
DYYYYMMDD S 8 0
D DS
D TIME 1 6 0
D DATE 7 12 0
D MM 7 8 0
D DD 9 10 0
D YYYY 11 14 0
D TIMEDATE 1 14 0
C TIME TIMEDATE
C EVAL YYYYMMDD = (YYYY*10000) + (MM*100) + DD
C YYYYMMDD SETLL MYLF
C YYYYMMDD READE MYLF 99
C DOW *IN99 = *OFF
C* Do your processing here
C YYYYMMDD READE MYLF 99
C ENDDO
C EVAL *INLR = *ON