Re: String concatenation in OnLine stored procedure - REPOSTED
Corrected and Reposted!
>How would one achieve what Andy wants to achieve using TRIM ?
--* PROCEDURE FOR inserting a string INTO a source string AT pos'th
position
--* DROP PROCEDURE ins_str;
CREATE PROCEDURE ins_str(sourcestr CHAR(20), insertstr CHAR(30),pos
smallint)
RETURNING CHAR(60);DEFINE p_ret_val CHAR(10);
DEFINE p_idx SMALLINT;
DEFINE p_trim CHAR(1);
DEFINE p_len INTEGER;
DEFINE p_fwd_str CHAR(30);
LET p_fwd_str = sourcestr[1,1];
LET p_ret_val = " ";
LET p_trim = sourcestr[1,1];
LET p_len = LENGTH(sourcestr);
FOR p_idx = 1 TO p_len
LET p_ret_val = TRIM(LEADING p_trim[1,1] FROM sourcestr) ;
LET p_trim = p_ret_val[1];
LET sourcestr = p_ret_val;
IF p_idx = pos - 1 THEN --* CORRECTED!!
LET p_fwd_str = TRIM(p_fwd_str) || TRIM(insertstr) ;
EXIT FOR;
END IF
LET p_fwd_str = TRIM(p_fwd_str) || p_trim;
END FOR
RETURN TRIM(p_fwd_str) || TRIM(sourcestr);
END PROCEDURE;
--* Test it!
EXECUTE PROCEDURE ins_str("GETINSERTED","(I GOT INSERTED)",3) ;Hope this helps you !
Harinath Venkata
New York.
--* Standard disclaimers apply *--------------
On Mon, 28 Jul 1997 14:07:04 -0700 (PDT) bfldc2@bfl.soft.net (BAZIC
Project Group) writes:
>>How would one achieve what Andy wants to achieve using TRIM ?
>
>Thanks in advance,
> Vinitha
>
>> Use TRIM function instead of CLIPPED!
>>
>> Hope this helps!
>>
>>
>> HARINATH VENKATA
>>
>>
>> On Fri, 25 Jul 97 14:34:17 GMT andy@kontron.demon.co.uk (andy
>lennard)
>> writes:
>> }Hi,
>> }Hope you can help me.
>> }I'm trying to concatenate strings in a stored procedure
>> }(Online 5.03, SunOS 4.1.3) and have found the || operator but
>> }how do you do :
>> }
>> } LET len_str = LENGTH(str1)
>> } LET str = str[1,len_str] || str2
>> }
>> }It won't let me put a variable within the character substring
>> }specification. [1,3], for example, is fine, but a variable, no!
>> }Alas, there is no CLIPPED operator either.
>> }
>> }Any and all suggestions gratefully received. Thankyou.
>> }
>> }Andy.
>> }
>> }--
>> }Andy Lennard andy@kontron.demon.co.uk
>> }
>> }
>>
>
>