abap2xlsx - XXL_FULL_API

SAP sample: XXLTTEST, XXLFTEST.

TYPES: BEGIN OF LTY_DATA,
         F1 TYPE C LENGTH 20.
TYPES END OF LTY_DATA.

DATA LV_NAME TYPE GXXLT_F-FILE.
DATA LT_DATA TYPE TABLE OF LTY_DATA.

LT_DATA = VALUE #( ( F1 = '1234567890123456' )
                   ( F1 = '1234567890123456000' )
                   ( F1 = '1234567890123456789' ) ).

LV_NAME = 'G:\abc.xls'.

DATA: LT_HKEY  TYPE TABLE OF GXXLT_H,
      LT_ONL   TYPE TABLE OF GXXLT_O,
      LT_PRINT TYPE TABLE OF GXXLT_P,
      LT_SEMA  TYPE TABLE OF GXXLT_S,
      LT_VKEY  TYPE TABLE OF GXXLT_V.

LT_ONL = VALUE #( ( LINE_NO = '1' INFO_NAME  = 'Created by' INFO_VALUE = 'XXX' ) ).
LT_PRINT = VALUE #( ( HF = 'H' LCR = 'L' LINE_NO = '1' TEXT = 'Header' )
                    ( HF = 'F' LCR = 'C' LINE_NO = '1' TEXT = 'Footer' ) ).
*LT_VKEY = VALUE #( ( COL_NO = '1' COL_NAME = 'F1' ) ).
*LT_HKEY = VALUE #( ( ROW_NO = '1' COL_NO = '1'  ) ).
LT_SEMA = VALUE #( ( COL_NO = '1' COL_TYP = 'STR' COL_OPS = 'DFT' ) ).

CALL FUNCTION 'XXL_FULL_API'
  EXPORTING
*   DATA_ENDING_AT    = -1
*   DATA_STARTING_AT  = 1
    FILENAME          = LV_NAME
*   HEADER_1          = ' '
*   HEADER_2          = ' '
   NO_DIALOG         = 'X'
*   NO_START          = 'X'
    N_ATT_COLS        = 1
    N_HRZ_KEYS        = 0
    N_VRT_KEYS        = 0
    SEMA_TYPE         = 'X'
*   SO_TITLE          = ' '
  TABLES
    DATA              = LT_DATA
    HKEY              = LT_HKEY
    ONLINE_TEXT       = LT_ONL
    PRINT_TEXT        = LT_PRINT
    SEMA              = LT_SEMA
    VKEY              = LT_VKEY
  EXCEPTIONS
    CANCELLED_BY_USER = 1
    DATA_TOO_BIG      = 2
    DIM_MISMATCH_DATA = 3
    DIM_MISMATCH_SEMA = 4
    DIM_MISMATCH_VKEY = 5
    ERROR_IN_HKEY     = 6
    ERROR_IN_SEMA     = 7
    FILE_OPEN_ERROR   = 8
    FILE_WRITE_ERROR  = 9
    INV_DATA_RANGE    = 10
    INV_WINSYS        = 11
    INV_XXL           = 12
    OTHERS            = 13.

*BREAK-POINT.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.