October 14


How to change MMDDYY to CYYMMDD in one line of RPGLE

By NickLitten

October 14, 2008

#date, #RPG, #snippet

Heres one to change a 6,0 numeric date in MMDDYY form to 7,0 numeric date in CYYMMDD form.

Eval INTERNAL_DATE = %dec(%char(%date(EXTERNAL_DATE:*mdy) :*cymd0):7:0)

INTERAL_DATE is the 7,0 CYYMMDD date.

EXTERNAL_DATE is the 6,0 MMDDYY date.

Convert RPG Datefield %DATE into a signed numericTo convert a RPG DATEFIELD to this numeric 8,0 field with no ‘/’ or ‘-‘ do this: D USADate 8s 0 US…Jul 11 2017www.nicklitten.com

add days to 100 Year date from EXCEL using RPGSo, we had a file coming in from an external partner today – containing a date in Julian Format. Or …Jul 11 2017www.nicklitten.com

RPG Code Snippet

{"email":"Email address invalid","url":"Website address invalid","required":"Required field missing"}

Join the IBM i Community for FREE Presentations, Lessons, Hints and Tips