Люди добрые, подскажите!

Как программно получить номер ошибки после submit?
После вызова через submit ошибка выдается на экран, а sy-msgno остается пустым!

Можно повесить транзакцию на вызываемую прогу (ZPROGRAM)
и вместо submit вызывать :
DATA: BDCDATA TYPE TABLE OF BDCDATA.
DATA: MESSTAB TYPE TABLE OF BDCMSGCOLL.

CALL TRANSACTION 'ZPROGRAM' USING BDCDATA MODE 'N'
MESSAGES INTO MESSTAB .

конечно, можно лишиться некоторых преимуществ submit...

может есть и другой способ

Нет, мне нужно чтобы способ подходил для любых отчетов, не изменяя их и не вешая ничего на них.

ДЛЯ ЛЮБЫХ ОТЧЕТОВ


REPORT ZTEST .
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

PARAMETERS: PROGA LIKE TRDIR-NAME MATCHCODE OBJECT PROGNAME.


PERFORM BDC_DYNPRO USING 'SAPMS38M' '0101'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RS38M-PROGRAMM'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=STRT'.
PERFORM BDC_FIELD USING 'RS38M-PROGRAMM'
PROGA.
CALL TRANSACTION 'SA38' USING BDCDATA MODE 'N' MESSAGES INTO MESSTAB .

LOOP AT MESSTAB.
WRITE:/ MESSTAB-MSGTYP, MESSTAB-MSGID, MESSTAB-MSGNR.
ENDLOOP.

FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.
FORM BDC_FIELD USING FNAM FVAL.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDFORM.

Ну ты гений!

Ну, извини... Найдешь лучше - скажи.

Проще использовать фунциональный модуль
SUBMIT_REPORT с EXCEPTIONS ERROR_MESSAGE = ...