(**************************************************** STR RTL Routine Declarations ************************************************)

[EXTERNAL] FUNCTION STR$FIND_FIRST_NOT_IN_SET
			(%DESCR String		: VARYING [u] OF CHAR;
			 %DESCR Set_Of_Chars	: VARYING [v] OF CHAR):
			INTEGER; EXTERN;

[EXTERNAL] FUNCTION STR$TRIM
			(%DESCR Dst_Str		: VARYING [u] OF CHAR;
			 %DESCR Src_Str		: VARYING [v] OF CHAR;
			 %REF Out_Len		: INTEGER := %IMMED 0):
			INTEGER; EXTERN;

[EXTERNAL] FUNCTION STR$UPCASE
			(%DESCR Dst_Str		: VARYING [u] OF CHAR;
			 %DESCR Src_Str		: VARYING [v] OF CHAR):
			INTEGER; EXTERN;