Comments on: RPG date retrieval

By: The Most-Watched IT Questions: September 20, 2011 - ITKE Community Blog

The Most-Watched IT Questions: September 20, 2011 - ITKE Community Blog — Tue, 20 Sep 2011 06:42:04 +0000

[...] Philpl1jb and CharlieBrowne offered the approved answer on RPG date retrieval. 6. Check out the community suggestions for what to do when critical storage lower limit is [...]

By: philpl1jb

philpl1jb — Wed, 07 Sep 2011 05:48:20 +0000

Please be much more specific about “it isn’t working”

If something is not “working” tell what is happening — compile error xxxxxx or run time error xxxxx or incorrect value xxxxxxx. You’ve told us you are on V4 but are you using RPG or RPGLE ????

Phil

By: philpl1jb

philpl1jb — Wed, 07 Sep 2011 05:44:32 +0000

then as Charlie Brown Suggests, use the adddur operation

D TodayP7 S D inz(*SYS) datfmt(*EUR)

c adddur 7:*days TodayP7

Phil

By: rajasekhar15

rajasekhar15 — Wed, 07 Sep 2011 05:04:11 +0000

this is procedure is not working in v4 version, plz advice me anyother method

By: philpl1jb

philpl1jb — Tue, 06 Sep 2011 16:06:32 +0000

My answer is for RPG/IV RPGLE not RPG
The build in function %date() returns todays date
+ %days(7) adds 7 days to the date
field: TodayPlus7 receives the date. It is a date type field displaying in European format dd.mm.yyyy

Phil

By: philpl1jb

philpl1jb — Tue, 06 Sep 2011 15:14:07 +0000

D TodayPlus7 S D DATFMT(*EUR)

c eval TodayPlus7 = %date() + %days(7)

Value in TodayPlus7 is 13.09.2011 not TodayPlus7 is a date type field.
Phil