相當於Left函式 [@more@]FUNCTION ZFN_PB_W_0107.
*"----------------------------------------------------------------------
*"*"區域介面：
*" IMPORTING
*" REFERENCE(IP_TEXT)
*" REFERENCE(IP_LEN) TYPE I
*" EXPORTING
*" REFERENCE(OP_TEXT)
*"----------------------------------------------------------------------
DATA: ILEN TYPE I.

IF IP_TEXT = ' OR IP_TEXT IS INITIAL OR IP_LEN = 0.
OP_TEXT = '.
RETURN.
ENDIF.

ILEN = STRLEN( IP_TEXT ).

IF ILEN < IP_LEN.
OP_TEXT = IP_TEXT.
RETURN.
ENDIF.

OP_TEXT = IP_TEXT+0(IP_LEN).

ENDFUNCTION.

取字串左邊指定長度的子字串

相關文章