[SAP ABAP] Convert ITAB to STRING

FUNCTION ZFM_MMODS_ITAB_STRING.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  EXPORTING
*"     REFERENCE(E_STRING) TYPE  STRING
*"  TABLES
*"      T_ITAB TYPE  TABLE
*"----------------------------------------------------------------------


  FIELD-SYMBOLS  TYPE ANY.
  DATA lv_str TYPE string,
         lv_len TYPE i,
         j TYPE i,
         lv_blanks TYPE string.

  CLEAR E_STRING.
  LOOP AT T_ITAB ASSIGNING .
    EXIT.
  ENDLOOP.
  IF sy-subrc EQ 0.

    DESCRIBE FIELD  LENGTH lv_len IN CHARACTER MODE.
    SHIFT lv_blanks RIGHT BY lv_len PLACES.

    LOOP AT T_ITAB ASSIGNING .
      lv_str .
      j lv_len STRLENlv_str ).
      IF EQ 0.
        CONCATENATE E_STRING lv_str INTO E_STRING.
      ELSE.
        CONCATENATE E_STRING lv_str lv_blanks(jINTO E_STRING.
      ENDIF.
    ENDLOOP.

  ENDIF.


ENDFUNCTION.

Comments

Popular posts from this blog

SAP Overview (Indonesia)