Rsdri Infoprov Read
Rsdri Infoprov Read
Rsdri Infoprov Read
REPORT
YTEST_09.
**RSDRI_INFOPROV_READ
TYPES:BEGIN OF GT_S_DATA, 0FISCPER TYPE /BI0/OIFISCPER, 0FISCVARNT TYPE /BI0/OIFISCVARNT, END OF GT_S_DATA. DATA: IT_GT_S_DATA TYPE STANDARD TABLE OF GT_S_DATA, LD_GT_S_DATA TYPE GT_S_DATA.
G_S_SFC TYPE RSDRI_S_SFC, G_TH_SFC TYPE RSDRI_TH_SFC, G_S_SFK TYPE RSDRI_S_SFK, G_TH_SFK TYPE RSDRI_TH_SFK, G_S_RANGE TYPE RSDRI_S_RANGE, G_T_RANGE TYPE RSDRI_T_RANGE, G_END_OF_DATA TYPE RS_BOOL, G_FIRST_CALL TYPE RS_BOOL, RS_C_FALSE RS_C_TRUE TYPE RS_BOOL TYPE RS_BOOL VALUE ' ', VALUE 'X',
G_S_SFC-CHANM = '0FISCPER'. *G_S_SFC-CHAALIAS = '0FISCPER'. *G_S_SFC-ORDERBY = 0. INSERT G_S_SFC INTO TABLE G_TH_SFC .
G_S_SFC-CHANM = '0FISCVARNT'. *G_S_SFC-CHAALIAS = '0FISCPER'. *G_S_SFC-ORDERBY = 0. INSERT G_S_SFC INTO TABLE G_TH_SFC .
G_S_SFK-KYFNM = ''.
CALL FUNCTION 'RSDRI_INFOPROV_READ' EXPORTING I_INFOPROV I_TH_SFC I_TH_SFK IMPORTING E_T_DATA * * * * * E_END_OF_DATA E_AGGREGATE E_SPLIT_OCCURRED E_T_MSG E_STEPUID CHANGING C_FIRST_CALL = G_FIRST_CALL. = IT_GT_S_DATA = END_OF_DATA = = = = = INFOCUBE = G_TH_SFC = G_TH_SFK
IF SY-SUBRC
0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * ENDIF. WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.