March 12


another as400 jba date conversion routine

By NickLitten

March 12, 2010

date, JBA, SYSTEM21

Here’s the other date conversion – It’s a JBA date (7,0 numeric) to 8 character alpha in JIS format (YYYYMMDD) with no separators.

If you want separators in your result then simply expand the result field by 2 characters (to 10) and replace the “0” in the “*jis0” with what ever separator you prefer.

Eval F30_EDLDAT=(%char(%date(F1_DTLP40:*cymd):*jis0))
{"email":"Email address invalid","url":"Website address invalid","required":"Required field missing"}

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