Re: Sunday Moment ...

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 05/24/2016 03:33:06
PM:

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

That is soooo cool! Love it.

dcl-c FromFormat 'ABCDEFGHIJ';
dcl-c ToFormat '(ABC) DEF-GHIJ';
dcl-c InputString '1234567890';
dcl-s ResultString varchar(50);

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

DSPLY ResultString '*EXT';

*inlr = *on;
return;

Sincerely,

Dave Clark