REPORT Zsubmit_with_selection_table.
TABLES QMSM.
* Work area for internal table IQMSM
DATA: BEGIN OF WQMSM,
QMNUM LIKE QMSM-QMNUM,
MNGRP LIKE QMSM-MNGRP,
MNCOD LIKE QMSM-MNCOD,
ZZSTAT LIKE QMSM-ZZSTAT,
END OF WQMSM.
* WORK Area for internal table iseltab.
DATA: WSELTAB LIKE RSPARAMS.
*———————————————————————-*
* Internal tables
*———————————————————————-*
* selection table to pass to RIQMEL30
DATA: ISELTAB LIKE TABLE OF WSELTAB.
* Table of notification numbers selected – will be passed to riqmel30
DATA: IQMSM LIKE TABLE OF WQMSM.
*———————————————————————-*
START-OF-SELECTION.
*———————————————————————-*
REFRESH IQMSM.
SELECT QMNUM MNGRP MNCOD ZZSTAT
FROM QMSM INTO CORRESPONDING FIELDS OF TABLE IQMSM
WHERE MNGRP = ‘ACTION’
AND MNCOD = ‘CALL’
and ( zzqmart = ‘ZE’ or zzqmart = ‘ZI’ )
AND ZZSTAT = ‘ ‘.
* create selection table entries for field QMART
WSELTAB-SELNAME = ‘QMART’.
WSELTAB-KIND = ‘S’.
WSELTAB-SIGN = ‘I’.
WSELTAB-OPTION = ‘EQ’.
WSELTAB-LOW = ‘ZE’.
APPEND WSELTAB TO ISELTAB.
WSELTAB-LOW = ‘ZI’.
APPEND WSELTAB TO ISELTAB.
* Create selection table entries for QMNUM
CLEAR WSELTAB.
WSELTAB-SELNAME = ‘QMNUM’.
WSELTAB-KIND = ‘S’.
WSELTAB-SIGN = ‘I’.
WSELTAB-OPTION = ‘EQ’.
LOOP AT IQMSM INTO WQMSM.
WSELTAB-LOW = WQMSM-QMNUM.
APPEND WSELTAB TO ISELTAB.
ENDLOOP
*
* SUBMIT program with parameters passed in table ISELTAB
* Other parameters passed explicitly
SUBMIT RIQMEL30 WITH SELECTION-TABLE ISELTAB
WITH MNGRP = ‘ACTION’
WITH MNCOD = ‘CALL’
WITH DATUV = ‘00000000’
WITH DATUB = ‘99991231’
WITH STAI1 = ‘TSRL’.


Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP MM SD Consultant
Contact : serkurumsal@yandex.com