split 分割字符串

*---------紧急联系人及电话 OUT_JJLXRDH

    DATA:L_FANAM TYPE STRING,L_TELNR TYPE STRING.

    SELECT SINGLE FANAM TELNR INTO  (L_FANAM,L_TELNR ) FROM PA9001 WHERE PERNR = I_PERNR.

    CONCATENATE L_FANAM '-' L_TELNR INTO OT_GRXX-OUT_JJLXRDH.

    DATA:BEGIN OF GT_JJ OCCURS 0,

           CONTACTER(20),

         END OF GT_JJ.

    SPLIT OT_GRXX-OUT_JJLXRDH  AT '-' INTO TABLE GT_JJ.

    LOOP AT GT_JJ.

      IF SY-TABIX = 1.

        OT_GRXX-OUT_JJLXR = L_FANAM.

      ELSEIF SY-TABIX = 2.

        OT_GRXX-OUT_JJDH = L_TELNR.

      ENDIF.

    ENDLOOP.