another as400 jba date conversion routine

AS400

Mar 12

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))
Follow

About the Author

IBM i Software Developer, Digital Dad, AS400 Anarchist, RPG Modernizer, Alpha Nerd and Passionate Eater of Cheese and Biscuits. Nick Litten Dot Com is a mixture of blog posts that can be sometimes serious, frequently playful and probably down-right pointless all in the space of a day. Enjoy your stay, feel free to comment and in the words of the most interesting man in the world: Stay thirsty my friend.