submit ZWIB_STAFFELKALK with SO_MATNR = P_IDNRK
with P_WERKS = P_WERKS
with P_MSGTYP = P_MSGTYP
with P_BWDAT = P_BWDAT
with P_STORE = P_KALKST
exporting list to memory and return.
CLEAR: T_OUTLIST[].
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
LISTOBJECT = T_OUTLIST
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
.
IF SY-SUBRC = 0.
CALL FUNCTION 'WRITE_LIST'
TABLES
LISTOBJECT = T_OUTLIST.
CALL FUNCTION 'LIST_FREE_MEMORY'. „/// freigebeb
ENDIF.
Gefällt mir Wird geladen …