FORM get_exit_titles TABLES etab.
DATA: BEGIN OF exits OCCURS 50,
name(5) TYPE c,
param LIKE c_exit_param_none,
title(60) TYPE c,
END OF exits.
exits-name = 'U100'.
exits-param = c_exit_param_none.
exits-title = text-100. "Cost center from CSKS
APPEND exits.
exits-name = 'U101'.
exits-param = c_exit_param_field.
exits-title = text-101. "Cost center from CSKS
APPEND exits.
* begin of insertion "wms092357
exits-name = 'U200'.
exits-param = c_exit_param_field.
exits-title = text-200. "Cons. transaction type
APPEND exits. "from xref1/2
* end of insertion "wms092357
*{ INSERT D01K902705 2
exits-name = 'U902'. "matrix validation:
exits-param = c_exit_param_none. "complete data used in exit.
exits-title = text-902. "Example EIS
APPEND exits.
*} INSERT
************************************************************************
* PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINES *
* IF THE ACCOUNTING MODULE IS INSTALLED IN YOUR SYSTEM: *
* EXITS-NAME = 'U102'.
* EXITS-PARAM = C_EXIT_PARAM_CLASS.
* EXITS-TITLE = TEXT-102. "Sum is used for the reference.
* APPEND EXITS.
***********************************************************************
** EXIT EXAMPLES FROM PUBLIC SECTOR INDUSTRY SOLUTION
**
** PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINE
** TO ENABLE PUBLIC SECTOR EXAMPLE SUBSTITUTION EXITS
***********************************************************************
INCLUDE rggbs_ps_titles.
REFRESH etab.
LOOP AT exits.
etab = exits.
APPEND etab.
ENDLOOP.
ENDFORM. "GET_EXIT_TITLES
*{ INSERT D01K902705 2
FORM U902 .
DATA GT_EKKO TYPE TABLE OF EKKO WITH HEADER LINE .
DATA GT_ADRC TYPE TABLE OF ADRC WITH HEADER LINE .
DATA TDID TYPE TABLE OF TDID WITH HEADER LINE .
DATA TLINE TYPE TABLE OF TLINE WITH HEADER LINE .
DATA TDNAME TYPE TDOBNAME .
FIELD-SYMBOLS <S_DATA> TYPE RM08M.
IF BSEG-LIFNR = 'ONETIME'.
ASSIGN ('(SAPLMR1M)RM08M') TO <S_DATA> .
IF SY-SUBRC = 0.
CLEAR GT_EKKO .
SELECT SINGLE ADRNR INTO GT_EKKO-ADRNR FROM EKKO
WHERE EBELN = <S_DATA>-EBELN
.
CLEAR GT_ADRC .
SELECT SINGLE * INTO CORRESPONDING FIELDS OF GT_ADRC FROM ADRC
WHERE ADDRNUMBER = GT_EKKO-ADRNR
.
BSEG-SGTXT = GT_ADRC-NAME1 && GT_ADRC-NAME2.
ENDIF.
ENDIF.
ENDFORM.
*} INSERT