SAP SPLIT将字符串分割成3个子字符串

 
FORM SPLIST_THREE USING VALUE(_STRALL) TYPE STRING VALUE(_STRCOLS) 
TYPE I
      CHANGING _STR1 TYPE STRING _STR2 TYPE STRING _STR3 TYPE STRING.
  CLEAR:_STR1,_STR2,_STR3.
  DATA:_STRLEN TYPE I.
  DATA:_POSI TYPE I VALUE '0'.
  DATA:_POSILEN TYPE I VALUE '0'.
  CONDENSE _STRALL NO-GAPS.
  _STRLEN = STRLEN( _STRALL ).
  IF _STRCOLS >= _STRLEN.
    _STR1 = _STRALL.
  ELSE.
    _STR1 = _STRALL+0(_STRCOLS).
  ENDIF.
  IF _STRLEN > _STRCOLS.
  _POSILEN = _STRLEN - _STRCOLS.
  IF _POSILEN >= _STRCOLS.
    _POSILEN = _STRCOLS.
  ENDIF.
  _STR2 = _STRALL+_STRCOLS(_POSILEN).
  IF _POSILEN >= _STRCOLS.
    _POSI = _STRCOLS * 2.
    _POSILEN = _STRLEN - _POSI.
    IF _POSILEN > 0.
    _STR3 = _STRALL+_POSI(_POSILEN).
    ENDIF.
  ENDIF.
ENDIF.
ENDFORM.