37 lines
882 B
SQL
37 lines
882 B
SQL
SET PATH *LIBL ;
|
|
|
|
CREATE OR REPLACE FUNCTION CISTOOLS.GET_QUOTED (
|
|
IN_STRING CLOB(1048576) )
|
|
RETURNS CLOB(2097152)
|
|
LANGUAGE SQL
|
|
SPECIFIC CISTOOLS.GET_QUOTED
|
|
DETERMINISTIC
|
|
READS SQL DATA
|
|
RETURNS NULL ON NULL INPUT
|
|
SET OPTION ALWBLK = *ALLREAD ,
|
|
ALWCPYDTA = *OPTIMIZE ,
|
|
COMMIT = *NONE ,
|
|
DECRESULT = (31, 31, 00) ,
|
|
DYNDFTCOL = *NO ,
|
|
DYNUSRPRF = *USER ,
|
|
SRTSEQ = *HEX
|
|
BEGIN
|
|
-- Double up single quotes
|
|
RETURN '''' || REPLACE ( IN_STRING , '''' , '''''' ) || '''' ;
|
|
END ;
|
|
|
|
COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.GET_QUOTED
|
|
( IN_STRING IS 'Input String' ) ;
|
|
|
|
LABEL ON SPECIFIC FUNCTION CISTOOLS.GET_QUOTED
|
|
IS 'Get Quoted' ;
|
|
|
|
GRANT ALTER , EXECUTE
|
|
ON SPECIFIC FUNCTION CISTOOLS.GET_QUOTED
|
|
TO AMAPICS WITH GRANT OPTION ;
|
|
|
|
GRANT EXECUTE
|
|
ON SPECIFIC FUNCTION CISTOOLS.GET_QUOTED
|
|
TO PUBLIC ;
|
|
|