Submit Reports
FBL5N
loop at t_fbl5n into st_fbl5n
CALL 'LIST_FREE_MEMORY'.
SUBMIT rfitemar WITH dd_bukrs EQ st_fbl5n-bukrs
WITH dd_hkont EQ st_fbl5n-hkont
WITH x_opsel EQ 'X'
WITH pa_stida EQ vl_datum
WITH pa_vari EQ st_fbl5n-alv_layout
WITH x_norm EQ 'X'
WITH x_shbv EQ 'X'
EXPORTING LIST TO MEMORY
AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = list_tab
EXCEPTIONS
not_found = 1
OTHERS = 2.
CHECK sy-subrc = 0.
*Converting to ASCII
CALL FUNCTION 'LIST_TO_ASCI'
TABLES
listasci = t_tab2
listobject = list_tab
EXCEPTIONS
empty_list = 1
list_index_invalid = 2.
CHECK sy-subrc <> 0.
* Start of processing of the INTERNAL TABLE t_tab2.
ENDLOOP.
DATA: pt_list LIKE abaplist OCCURS 1 WITH HEADER LINE,
pt_data TYPE STANDARD TABLE OF text255.
SUBMIT rfitemar
WITH dd_bukrs = '5000' "will be vairable
with so_budat = sy-datum
EXPORTING LIST TO MEMORY
AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = pt_list.
CALL FUNCTION 'LIST_TO_ASCI'
* EXPORTING
* LIST_INDEX = -1
* WITH_LINE_BREAK = ' '
* IMPORTING
* LIST_STRING_ASCII =
* LIST_DYN_ASCII =
TABLES
listasci = pt_data
listobject = pt_list
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
********************************ROHINI KUMAR*********************************
Please support my work : sap.rohini988@gmail.com LinkedIn Link : https://www.linkedin.com/in/rohini-kumar-14647a13a/
********************************************************************************
Comments
Post a Comment