FUNCTION ccl_pos(p_str1,p_str2)

# Prog. Version..: '5.10.12-10.02.03(00002)'     #
#
# Library name...: ccl_pos
# Descriptions...: 傳入字串以及要比對的文字，傳回開始的位置，如果位置=0 表示不存在
# Input parameter: p_str1,p_str2
# RETURN code....: 字串的位置(0 字串不存在)
#                  
# Usage .........: if ccl_pos(p_str1,p_str2)
# Date & Author..: 2010/09/23 By Darren Shen
# Revise record..:

DATABASE ds        #FUN-6C0017

GLOBALS "../../config/top.global"

FUNCTION ccl_pos(p_str1,p_str2)
   DEFINE   l_pos integer
   DEFINE   l_str  base.StringBuffer
   define p_str1, p_str2 string


   LET l_str = base.StringBuffer.create()
   CALL l_str.append(p_str1)
   LET l_pos = l_str.getIndexof(p_str2,1)

  
   RETURN l_pos

END FUNCTION