topic Re: Error message. (urgent) in Application Development and Automation Discussions

topic Re: Error message. (urgent) in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/error-message-urgent/m-p/3065489#M726395 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>LOOP AT it_return INTO wa_return.</P><P>IF <CONDITION> "Condition goes here.</P><P>MESSAGE s001(Z9).</P><P>leave list-processing.</P><P>ENDIF.</P><P>ENDLOOP.</P></BODY></HTML> Mon, 19 Nov 2007 10:08:59 GMT Former Member 2007-11-19T10:08:59Z Error message. (urgent) https://community.sap.com/t5/application-development-and-automation-discussions/error-message-urgent/m-p/3065488#M726394 <HTML><HEAD></HEAD><BODY><P>Hi All,</P><P> I am calling a bapi which includes a internal table. In this internal table i have populated the error messages. now i want to display the eroor messages on to the same screen following is my code.</P><P></P><P></P><P>*&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Report ZBAPI_AS1 *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT zbapi_as1 .</P><P></P><P>TABLES : bse_clr,bkpf.</P><P></P><P>TYPE-POOLS : slis.</P><P></P><P></P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.</P><P></P><P></P><P>PARAMETER : p1 LIKE bse_clr-bukrs_clr,</P><P> p2 LIKE bse_clr-gjahr_clr.</P><P></P><P>SKIP.</P><P></P><P>PARAMETERS : p_detail RADIOBUTTON GROUP disp DEFAULT 'X',</P><P> p_sum RADIOBUTTON GROUP disp.</P><P></P><P>SELECTION-SCREEN END OF BLOCK b1.</P><P></P><P>DATA : BEGIN OF zstruct,</P><P> bukrs_clr LIKE bse_clr-bukrs_clr,</P><P> gjahr_clr LIKE bse_clr-gjahr_clr,</P><P> END OF zstruct.</P><P></P><P></P><P>DATA : it_amt TYPE STANDARD TABLE OF zbapi_itab.</P><P></P><P>DATA : wa_amt TYPE zbapi_itab.</P><P></P><P>DATA : it_return TYPE STANDARD TABLE OF bapireturn.</P><P></P><P>DATA : t_return TYPE STANDARD TABLE OF bapireturn.</P><P></P><P>DATA : wa_return LIKE LINE OF it_return.</P><P></P><P>*zstruct-bukrs_clr = p1.</P><P>*zstruct-gjahr_clr = p2.</P><P></P><P>DATA : itab TYPE STANDARD TABLE OF zbapi_itab.</P><P></P><P>DATA : wa TYPE zbapi_itab.</P><P>DATA : wa1 TYPE zbapi_itab.</P><P></P><P>*LOOP AT itab INTO wa.</P><UL><LI level="1" type="ul"><P> WRITE <span class="lia-unicode-emoji" title=":confused_face:">😕</span> wa-bukrs,wa-belnr,wa-gjahr,wa-bukrs_clr,wa-belnr_clr,</P></LI><LI level="1" type="ul"><P> wa-gjahr_clr,wa-usnam.</P></LI></UL><P>*ENDLOOP.</P><P></P><P>DATA : w_flag TYPE flag VALUE 'X'.</P><P></P><P>DATA : report LIKE sy-repid.</P><P></P><P>DATA : it_header TYPE slis_t_listheader,</P><P> it_events TYPE slis_t_event,</P><P> it_catalog TYPE slis_t_fieldcat_alv,</P><P> it_catalog1 TYPE slis_t_fieldcat_alv.</P><P></P><P>DATA : wa_header LIKE LINE OF it_header,</P><P> wa_events LIKE LINE OF it_events,</P><P> wa_catalog LIKE LINE OF it_catalog,</P><P> wa_catalog1 LIKE LINE OF it_catalog1,</P><P></P><P> wa_layout TYPE slis_layout_alv.</P><P></P><P></P><P>START-OF-SELECTION.</P><P></P><P>zstruct-bukrs_clr = p1.</P><P>zstruct-gjahr_clr = p2.</P><P></P><P></P><P> report = sy-repid.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '1'.</P><P> wa_catalog-fieldname = 'BUKRS_CLR'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'Company Code'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '2'.</P><P> wa_catalog-fieldname = 'BELNR_CLR'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'Acctng Doc.No.'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '3'.</P><P> wa_catalog-fieldname = 'GJAHR_CLR'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'Fiscal Year'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '4'.</P><P> wa_catalog-fieldname = 'BUKRS'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'Company Code 1'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '5'.</P><P> wa_catalog-fieldname = 'BELNR'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = ''.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '6'.</P><P> wa_catalog-fieldname = 'GJAHR'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'Fiscal Year 1'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '7'.</P><P> wa_catalog-fieldname = 'WRBTR'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'amount'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P></P><P> CLEAR wa_catalog.</P><P> wa_catalog-col_pos = '8'.</P><P> wa_catalog-fieldname = 'USNAM'.</P><P> wa_catalog-tabname = 'itab'.</P><P> wa_catalog-seltext_m = 'User Name'.</P><P> APPEND wa_catalog TO it_catalog.</P><P></P><P></P><P></P><P> CLEAR wa_layout.</P><P> wa_layout-zebra = 'X'.</P><P></P><P> wa_events-name = 'TOP-OF-PAGE'.</P><P> wa_events-form = 'zbapi_top_of_page'.</P><P> APPEND wa_events TO it_events.</P><P></P><P></P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '1'.</P><P> wa_catalog1-fieldname = 'BUKRS'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = 'Company Code'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '2'.</P><P> wa_catalog1-fieldname = 'BELNR'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = 'Acctng Doc.No.'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '3'.</P><P> wa_catalog1-fieldname = 'GJAHR'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = 'Fiscal Year'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '4'.</P><P> wa_catalog1-fieldname = 'BUKRS_CLR'.</P><P> wa_catalog1-tabname = 'IT_AMT'.</P><P> wa_catalog1-seltext_m = 'Company Code 1'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '5'.</P><P> wa_catalog1-fieldname = 'BELNR_CLR'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = ''.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '6'.</P><P> wa_catalog1-fieldname = 'GJAHR_CLR'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = 'Fiscal Year 1'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '7'.</P><P> wa_catalog1-fieldname = 'WRBTR'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = 'amount'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P></P><P> CLEAR wa_catalog1.</P><P> wa_catalog1-col_pos = '8'.</P><P> wa_catalog1-fieldname = 'USNAM'.</P><P> wa_catalog1-tabname = 'it_amt'.</P><P> wa_catalog1-seltext_m = 'User Name'.</P><P> APPEND wa_catalog1 TO it_catalog1.</P><P></P><P></P><P> CLEAR wa_layout.</P><P> wa_layout-zebra = 'X'.</P><P></P><P> wa_events-name = 'TOP-OF-PAGE'.</P><P> wa_events-form = 'zbapi_top_of_page'.</P><P> APPEND wa_events TO it_events.</P><P>**</P><P></P><P></P><P> IF w_flag = 'X'.</P><P></P><P> IF p_detail = 'X'.</P><P></P><UL><LI level="1" type="ul"><P> CALL FUNCTION 'Z_AVS_BAPI_AS1'</P></LI><LI level="1" type="ul"><P> EXPORTING</P></LI><LI level="1" type="ul"><P> zbapi_struct_as1_import = zstruct</P></LI><LI level="1" type="ul"><P> IMPORTING</P></LI><LI level="1" type="ul"><P> return = it_return</P></LI><LI level="1" type="ul"><P> TABLES</P></LI><LI level="1" type="ul"><P> zbapi_itab_table = itab.</P></LI></UL><P></P><P> CALL FUNCTION 'Z_AVS_BAPI_AS1'</P><P> EXPORTING</P><P> zbapi_struct_as1_import = zstruct</P><P> TABLES</P><P> zbapi_itab_table = itab</P><P> return = it_return.</P><P></P><P> IF zstruct-bukrs_clr eq space.</P><P></P><P></P><P> LOOP AT it_return INTO wa_return.</P><P></P><P> WRITE <span class="lia-unicode-emoji" title=":confused_face:">😕</span> wa_return-message.</P><UL><LI level="1" type="ul"><P> leave list-processing.</P></LI></UL><P></P><P> ENDLOOP.</P><P></P><P> ELSE.</P><P></P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER = ' '</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE = ' '</P></LI></UL><P> i_callback_program = report</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_USER_COMMAND = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_END_OF_LIST = ' '</P></LI><LI level="1" type="ul"><P> I_STRUCTURE_NAME =</P></LI><LI level="1" type="ul"><P> I_BACKGROUND_ID = ' '</P></LI><LI level="1" type="ul"><P> I_GRID_TITLE =</P></LI><LI level="1" type="ul"><P> I_GRID_SETTINGS =</P></LI></UL><P> is_layout = wa_layout</P><P> it_fieldcat = it_catalog</P><UL><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT = it_sort</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI><LI level="1" type="ul"><P> I_SAVE = ' '</P></LI><LI level="1" type="ul"><P> IS_VARIANT =</P></LI></UL><P> it_events = it_events</P><UL><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> IT_ALV_GRAPHICS =</P></LI><LI level="1" type="ul"><P> IT_HYPERLINK =</P></LI><LI level="1" type="ul"><P> IT_ADD_FIELDCAT =</P></LI><LI level="1" type="ul"><P> IT_EXCEPT_QINFO =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_TOP =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_END =</P></LI><LI level="1" type="ul"><P> IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> TABLES</P><P> t_outtab = itab</P><UL><LI level="1" type="ul"><P> EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><UL><LI level="1" type="ul"><P> IF sy-subrc <> 0.</P></LI><LI level="1" type="ul"><P> LEAVE TO SCREEN 110.</P></LI><LI level="1" type="ul"><P> ENDIF.</P></LI></UL><P>*</P><P> ENDIF.</P><P></P><P> ELSEIF p_sum = 'X'.</P><P></P><P> CALL FUNCTION 'Z_AVS_BAPI_AS1'</P><P> EXPORTING</P><P> zbapi_struct_as1_import = zstruct</P><P> IMPORTING</P><P> return = it_return</P><P> TABLES</P><P> zbapi_itab_table = itab.</P><P></P><UL><LI level="1" type="ul"><P>Loop at itab INTO WA.</P></LI><LI level="1" type="ul"><P> move-corresponding WA TO WA2.</P></LI><LI level="1" type="ul"><P> append WA2 TO ITAB2.</P></LI></UL><P>*endloop.</P><P>*</P><P>*loop at itab2 into wa2.</P><UL><LI level="1" type="ul"><P> WRITE <span class="lia-unicode-emoji" title=":confused_face:">😕</span> wa2-bukrs,wa2-belnr,wa2-gjahr,wa2-bukrs_clr,wa2-belnr_clr,</P></LI><LI level="1" type="ul"><P> wa2-gjahr_clr,wa2-usnam.</P></LI></UL><P>*endloop.</P><P></P><P></P><P> CLEAR it_amt.</P><P></P><P> LOOP AT itab INTO wa.</P><P></P><P> MOVE wa TO wa1.</P><P> wa_amt-wrbtr = wa_amt-wrbtr + wa-wrbtr.</P><P> AT END OF belnr_clr.</P><P> MOVE wa1-bukrs_clr TO wa_amt-bukrs_clr.</P><P> MOVE wa1-belnr_clr TO wa_amt-belnr_clr.</P><P> MOVE wa1-gjahr_clr TO wa_amt-gjahr_clr.</P><P> MOVE wa1-bukrs TO wa_amt-bukrs.</P><P> MOVE wa1-belnr TO wa_amt-belnr.</P><P> MOVE wa1-gjahr TO wa_amt-gjahr.</P><P> MOVE wa1-usnam TO wa_amt-usnam.</P><P> APPEND wa_amt TO it_amt.</P><P> CLEAR wa_amt.</P><P> ENDAT.</P><P> ENDLOOP.</P><P></P><P></P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER = ' '</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE = ' '</P></LI></UL><P> i_callback_program = report</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_USER_COMMAND = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_END_OF_LIST = ' '</P></LI><LI level="1" type="ul"><P> I_STRUCTURE_NAME =</P></LI><LI level="1" type="ul"><P> I_BACKGROUND_ID = ' '</P></LI><LI level="1" type="ul"><P> I_GRID_TITLE =</P></LI><LI level="1" type="ul"><P> I_GRID_SETTINGS =</P></LI></UL><P> is_layout = wa_layout</P><P> it_fieldcat = it_catalog1</P><UL><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT = it_sort</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI><LI level="1" type="ul"><P> I_SAVE = ' '</P></LI><LI level="1" type="ul"><P> IS_VARIANT =</P></LI></UL><P> it_events = it_events</P><UL><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> IT_ALV_GRAPHICS =</P></LI><LI level="1" type="ul"><P> IT_HYPERLINK =</P></LI><LI level="1" type="ul"><P> IT_ADD_FIELDCAT =</P></LI><LI level="1" type="ul"><P> IT_EXCEPT_QINFO =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_TOP =</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_END =</P></LI><LI level="1" type="ul"><P> IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> TABLES</P><P> t_outtab = it_amt.</P><UL><LI level="1" type="ul"><P> EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><UL><LI level="1" type="ul"><P> IF sy-subrc <> 0.</P></LI><UL><LI level="2" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="2" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><LI level="1" type="ul"><P> ENDIF.</P></LI></UL><P>*</P><P> ENDIF.</P><P> ENDIF.</P><P></P><P>END-OF-SELECTION.</P><P></P><P></P><P>Help me where to include </P><P></P><P><b>leave list-processing</b></P><P></P><P></P><P>Thanx .</P><P></P><P>Amruta.</P></BODY></HTML> Mon, 19 Nov 2007 09:46:52 GMT https://community.sap.com/t5/application-development-and-automation-discussions/error-message-urgent/m-p/3065488#M726394 Former Member 2007-11-19T09:46:52Z Re: Error message. (urgent) https://community.sap.com/t5/application-development-and-automation-discussions/error-message-urgent/m-p/3065489#M726395 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>LOOP AT it_return INTO wa_return.</P><P>IF <CONDITION> "Condition goes here.</P><P>MESSAGE s001(Z9).</P><P>leave list-processing.</P><P>ENDIF.</P><P>ENDLOOP.</P></BODY></HTML> Mon, 19 Nov 2007 10:08:59 GMT https://community.sap.com/t5/application-development-and-automation-discussions/error-message-urgent/m-p/3065489#M726395 Former Member 2007-11-19T10:08:59Z