topic Functionmodule exits in Application Development and Automation Discussions

Functionmodule exits

Former Member — Wed, 09 Dec 2009 18:53:39 GMT

Hi,

I am working on enhament

EXIT_SAPLESBP_001

importing parameter is

IMPORTING

*" VALUE(X_BPMODE) LIKE TE950-BPMODE DEFAULT SPACE

*" REFERENCE(X_DATA) TYPE ISU06_SPECIALS_LOG

this ISU06_SPECIALS_LOG contains componeent TPOS

and this TPOS contains EVER , V_EANL

Here I want to get information for Table Ever.

How should i wite loop statment

Loop at X_data-TPOS-EVER into wa. endloop.

How should wa declared.

Thanks,

Sonar

Re: Functionmodule exits

brad_bohn — Wed, 09 Dec 2009 19:05:32 GMT


data: wa type EVER.

Re: Functionmodule exits

Former Member — Wed, 09 Dec 2009 19:11:30 GMT

data: wa type ever.

loop at X_DATA-TPOS-EVER into wa.

error message dispalyed as

" The data object x_DATA does not have a component called 'TPOS-EVER'. "

Re: Functionmodule exits

RichHeilman — Wed, 09 Dec 2009 19:27:03 GMT

EVER is not a table, and you can not loop at that level. TPOS is a table, hence you can loop at that level.

data: wa type ISU06_SPECIALS_LOG_POS.


loop at X_DATA-TPOS into wa.

* Now you should have access to the EVER structure, and you can access its fields.
write:/   wa-ever-VERTRAG.
write:/   wa-ever-BUKRS.
write:/   wa-ever-KOSTL.

endloop.

Regards,

Rich Heilman

Re: Functionmodule exits

brad_bohn — Wed, 09 Dec 2009 19:38:56 GMT

EVER isn't a table though so your LOOP construct isn't correct...


DATA: wa_tpos TYPE isu06_specials_log_pos.

LOOP AT x_data-tpos INTO wa_tpos.

  IF wa_tpos-ever-bukrs EQ '0001'.
*  ... do something
  ENDIF.

ENDLOOP.

Re: Functionmodule exits

Former Member — Wed, 09 Dec 2009 19:44:19 GMT

Thanks Rich, Its Working fine.