置換文字
LET l_wc=change_string(l_wc,"ima01","tlf01") FUNCTION change_string(old_string, old_sub, new_sub) DEFINE query_text VARCHAR(300) DEFINE AA VARCHAR(1) DEFINE old_string VARCHAR(300) , xxx_string VARCHAR(300) , old_sub VARCHAR(128) , new_sub VARCHAR(128) , first_byte VARCHAR(01), nowx_byte VARCHAR(01), next_byte VARCHAR(01), this_byte VARCHAR(01), length1, length2, length3 smallint, ...