רועי זלוף

/***************************REVERSE STRING*********************/
:ST1 =The Original String;
:ST2 = ";
:ST3 = ";
:TEMP = ";
:PIECE = ";
:STR = 0;
:AGAIN = 12;
LABEL 1;
:ST2 = ";
:PIECE = STRPIECE(:ST1,' ',:AGAIN,1);
:AGAIN = :AGAIN – 1;
:STR = STRLEN(:PIECE);
LABEL 2;
:TEMP = SUBSTR(:PIECE,:STR,1);
SELECT STRCAT(:ST2,:TEMP) INTO :ST2 FROM DUMMY;
:STR = :STR – 1;
LOOP 2 WHERE :STR > 0;
SELECT STRCAT(:ST3,' ',:ST2) INTO :ST3 FROM DUMMY;
LOOP 1 WHERE :AGAIN > 0;
/*************************************************************/