TomLiotta Apr 20, 2010   9:41 PM GMT

A very cursory glance didn't uncover a combination date format and separator that is best. I won't be surprised if one exists and someone supplies it though. If no clear examples show up, I'd probably just go with the various CEE* APIs. My output date string would come from CEEDATE with a picture string like 'DD/MM/YYYY' or 'ZD/MM/YYYY' maybe. Tom

125,585 pointsBadges:

DanTheDane Apr 21, 2010   6:22 PM GMT

Your challenge hit me.. could it be done ? - Well here is a solution to discuss/improve in pure RPG: To output you need the edited date in a char-field; - a fairly straight forward task if it shall not be in the dd/mm/yyyy format. Alas one can only get a ddmmyy 6-digit fomat, which may be edited in an editword BUT, creating an editword with inserted constant '20' leave us with a zero in the editword, whisch has a special meaning. Hmmm. The following executable estpgm includes m solution:

d dato            s               d   inz(D'2010-04-20')             
d chardate        s              8                                   
d numdate         s              6  0                                
d dspdate         s             10                                   
c                                                                    
c                   eval      chardate = %char(dato:*dmy0)           
c                   eval      numdate  = %dec(chardate:6:0)          
c                   eval      dspdate  = %editw(numdate:'  /  /2x  ')
c     'x':'0'       xlate     dspdate       dspdate                  
c                                                                    
c                   eval      *inLR = *on                      

Debugging the progam shows this content o fields: CHARDATE = '200410 ' NUMDATE = 200410. DSPDATE = '20/04/2x10' DSPDATE = '20/04/2010' <--- Voila It could be done... DanF

2,555 pointsBadges:

TomLiotta Apr 22, 2010   0:00 AM GMT

Yeah, there are certainly ways to get it done. If the RPG is current, perhaps a simple EVAL-CORR would be "cleanest". I use the CEE* APIs a lot because they are so flexible. You can invent date formats on-the-fly if necessary and basic procedures over them are nicely usable by any other language. But I was surprised not to find a DD/MM/YYYY format. After Y2K, that need should be a no-brainer. Tom

125,585 pointsBadges:

ten2008 May 5, 2010   12:20 AM GMT

Hi Dan, what you have shown in the code is not working. I have tried the same code on the system. ANd it is giving the following eror. A character representation of a numeric value is in error (C G D F). This is happening at your 2nd C spec i.e: eval numdat=%dec(chardat:6:0). plz give the right code. thanks Ram

1,150 pointsBadges:

DanTheDane May 5, 2010   7:25 PM GMT

hi Ram, I re-tested my solution by copying the advised code to another machine running with V5R4 (My prod hw is on V6R1 soon going to V7R1 -I just recieved th CDs today :-). The program worked just fine. To help you through (..I wonder if Ricca has tested the solution?), you may 1. re-validate the code 2. cut/paste your version of my pgm, put it in an email and send it to my, and I'll report back. DanF dan@adfo.dk

2,555 pointsBadges:

Canuhp Mar 3, 2011   7:58 PM GMT

Thank you so much!!! I have been banging my head on the wall about this for a week!!

235 pointsBadges:

Canuhp Mar 3, 2011   8:01 PM GMT

LOL!! Posted the above comment to the wrong discussion. See the head banging is causing brain damage....

235 pointsBadges:

BigKat Mar 4, 2011   2:34 PM GMT

Try this

c                   eval      output = %xlate('.':'/':%char(%date():*eur))

9,110 pointsBadges:

BigKat Mar 4, 2011   2:39 PM GMT

if it is defined as date, replace the %date() with your date field if it is defined as character, replace %date() with %date(fld:*iso) note *iso is not required, but I like to include it

9,110 pointsBadges:

BigKat Mar 4, 2011   2:41 PM GMT

also, it looks like something is going funny with the quotes I pasted in. they should be just simple single quotes.

9,110 pointsBadges: