Re: MIDRANGE-L Digest, Vol 12, Issue 2394

Thanks Tom

I neglected to mention that there might be numbers embedded in the string,
The numbers needs to remain intact.
Given a 'ab123cd' string, a simple reverse will get me cd321ba
instead of dc123ba .
Once upon a time I wrote a RPG programs that reverses entire string and
then reversing all
numeric substring within the (reversed) result string,
I guess I should start dusting old libraries...

Gad


On Thu, Dec 19, 2013 at 8:00 PM, <midrange-l-request@xxxxxxxxxxxx> wrote:

Send MIDRANGE-L mailing list submissions to
midrange-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/midrange-l
or, via email, send a message with subject or body 'help' to
midrange-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
midrange-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of MIDRANGE-L digest..."


*** NOTE: When replying to this digest message, PLEASE remove all text
unrelated to your reply and change the subject line so it is meaningful.

Today's Topics:

1. Re: SQL Reverse Function (Tom Stieger)


----------------------------------------------------------------------

message: 1
date: Thu, 19 Dec 2013 09:58:07 -0800
from: Tom Stieger <tom.stieger@xxxxxxxxx>
subject: Re: SQL Reverse Function

The following seemed to work for my on v6.1:


CREATE FUNCTION REVERSE
(INFIELD VARCHAR(128) )
RETURNS VARCHAR(128)
LANGUAGE SQL
BEGIN
DECLARE outField VARCHAR(128) DEFAULT '';
DECLARE i INTEGER DEFAULT 0;
DECLARE fieldLength INTEGER;
SET fieldLength = LENGTH(INFIELD);
WHILE i <= fieldLength DO
SET outField = outField || SUBSTR(INFIELD, fieldLength-i, 1);
SET i = i + 1;
END WHILE;
RETURN outField;
END;

Testing it:
VALUES(REVERSE('THOMAS'));

Results:
SAMOHT



On Thu, Dec 19, 2013 at 7:42 AM, Gad Miron <gadmiron@xxxxxxxxx> wrote:

Hello guys

Is there a SQL (scalar) function to reverse a string like in
Select name, reverse(name) from myFile
result
abc, cba

Tx
Gad
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

------------------------------

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) digest list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



End of MIDRANGE-L Digest, Vol 12, Issue 2394
********************************************