Re: Sunday Moment ...

On 24-May-2016 13:54 -0500, dlclark wrote:

On 24-May-2016 12:57 -0500, dlclark wrote:

On 24-May-2016 12:53 -0500, Carel wrote:

When
My input = 1234
My FromFormat = ABCD
My ToFormat = AB-C=D
then
output = %xlate(FromFormat:ToFormat:input) will be 12-3=4

Try it. I used this technique (learned from Ted Holt) to
reformat dates.

Cool! I like it -- love learning new, nifty things. ;-)

Well, I gave it a try and I can't get it to work.

dcl-c FromFormat 'ABCD';
dcl-c ToFormat 'AB-C=D';
dcl-c InputString '1239';
dcl-s Result varchar(50);

Result =
'Result is: ' + %xlate(FromFormat: ToFormat: InputString);

DSPLY Result '*EXT';

*inlr = *on;
return;

Try the following revision to the above:

Result =
'Result is: ' + %xlate(FromFormat: InputString: ToFormat);

FWiW, the reference\allusion made to /the technique/ to rearrange the digits and add separators [from the mask], to which no link was provided:

[http://www.itjungle.com/fhg/fhg030106-story02.html]
Omit Commas from Numeric Dates
Published: March 1, 2006 by Ted Holt