topic Re: Internal table in OO in Application Development and Automation Discussions

Internal table in OO

Former Member — Tue, 18 Nov 2008 14:16:37 GMT

I have a requirement to create and implement Badi.

The following is code:

method IF_EX_NOTIF_EVENT_SAVE~CHANGE_DATA_AT_SAVE.

DATA: l_progname TYPE sy-repid,

l_dynnum TYPE sy-dynnr.

types: BEGIN of itab.

INCLUDE dynpread.

types: END of itab.

data: dynpread_tab like table of itab.

l_progname = sy-repid.

l_dynnum = sy-dynnr.

CLEAR dynpread_tab.

REFRESH dynpread_tab.

dynpread_tab-fieldname = 'ZZACNUM'.

APPEND dynpread_tab.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = l_progname

DYNUMB = l_dynnum

TRANSLATE_TO_UPPER = ' '
REQUEST = ' '
PERFORM_CONVERSION_EXITS = ' '
PERFORM_INPUT_CONVERSION = ' '
DETERMINE_LOOP_INDEX = ' '
START_SEARCH_IN_CURRENT_SCREEN = ' '
START_SEARCH_IN_MAIN_SCREEN = ' '
START_SEARCH_IN_STACKED_SCREEN = ' '
START_SEARCH_ON_SCR_STACKPOS = ' '
SEARCH_OWN_SUBSCREENS_FIRST = ' '
SEARCHPATH_OF_SUBSCREEN_AREAS = ' '

TABLES

DYNPFIELDS = dynpread_tab

EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
DOUBLE_CONVERSION = 9
STEPL_NOT_FOUND = 10
OTHERS = 11

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF sy-subrc = 0.

LOOP AT dynpread_tab.

ENDLOOP.

ENDIF.

endmethod.

It is giving me error: INCLUDE report "DYNPREAD" not found.

Any idea?

Thanks in advance.

Re: Internal table in OO

Former Member — Tue, 18 Nov 2008 14:19:48 GMT

Try

types: BEGIN of itab.

INCLUDE structure dynpread.

types: END of itab.

Regards,

Mohaiyuddin

Re: Internal table in OO

Former Member — Tue, 18 Nov 2008 14:31:48 GMT

U should remember the internal table is without header line:

DATA: l_progname TYPE sy-repid,
          l_dynnum TYPE sy-dynnr.

*types: BEGIN of itab.
*INCLUDE dynpread.
*types: END of itab.

*data: dynpread_tab like table of itab.
DATA: dynpread_tab TYPE TABLE OF DYNPREAD.
DATA: dynpread_wa TYPE DYNPREAD.

*dynpread_tab-fieldname = 'ZZACNUM'.
*APPEND dynpread_tab.

dynpread_wa-fieldname = 'ZZACNUM'.
APPEND dynpread_wa to dynpread_tab.

CALL FUNCTION 'DYNP_VALUES_READ'
..................................
IF SY-SUBRC = 0.
* LOOP AT dynpread_tab.
*ENDLOOP.
LOOP AT dynpread_tab into .
ENDLOOP.

Re: Internal table in OO

Former Member — Tue, 18 Nov 2008 15:09:53 GMT

Hi Max,

Thanks for your help.

An internal table is created. Now I am facing another problem.

If I specify:

dynpread_wa-fieldname = 'ZZACNUM'.

(Which is custom field in my screen (tcode-iw52)

it gives me runtime error.

The error is " raise invalid_dynprofield "

Any idea where I am wrong?

Thanks

Re: Internal table in OO

Former Member — Tue, 18 Nov 2008 15:56:56 GMT

I resolved the problem.

Thanks for great help.