.st0{fill:#FFFFFF;}

IBM i, AS400, iSeries, Programming, RPG

How to change MMDDYY to CYYMMDD in one line of RPGLE 

 October 14, 2008

By  NickLitten

Share0
Tweet0
Share0

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

Share0
Tweet0
Share0
Author Image
Share0
Tweet0
Share0

NickLitten

IBM i Software Developer, Digital Dad, AS400 Anarchist, RPG Modernizer, Shameless Trekkie, Belligerent Nerd, Englishman Abroad 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 remember: If at first you don't succeed then skydiving probably isn't a hobby you should look into.

Nick Litten

related posts:

When to use EOF or FOUND in RPGLE?

Read More

RPG Old and New – Free Form Logic Example

Read More

Example RPG Email Validation program – SQLRPGLE ILE

Read More

Doing Loop the Do Loops in RPG3 and RPG /Free

Read More
{"email":"Email address invalid","url":"Website address invalid","required":"Required field missing"}
__CONFIG_colors_palette__{"active_palette":0,"config":{"colors":{"cff50":{"name":"Main Accent","parent":-1},"a344d":{"name":"Accent Transparent","parent":"cff50"}},"gradients":[]},"palettes":[{"name":"Default","value":{"colors":{"cff50":{"val":"var(--tcb-skin-color-0)"},"a344d":{"val":"rgba(46, 138, 229, 0.85)","hsl_parent_dependency":{"h":210,"l":0.54,"s":0.78}}},"gradients":[]},"original":{"colors":{"cff50":{"val":"rgb(0, 178, 255)","hsl":{"h":198,"s":1,"l":0.5}},"a344d":{"val":"rgba(0, 178, 255, 0.85)","hsl_parent_dependency":{"h":198,"s":1,"l":0.5}}},"gradients":[]}}]}__CONFIG_colors_palette__

Get In Touch

I’m always looking for awesome input, feedback and critique!

HELPDESK / SUPPORT
>