Skip to Content
author's profile photo Former Member
Former Member

whether thid data declration is correct or not

if my declaration part is not correct plz modify it.

TABLES: ZFM_HANDY , PA0002.

TYPE-POOLS : SLIS.

DATA: G_REPID LIKE SY-REPID,

GS_PRINT TYPE SLIS_PRINT_ALV,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GT_LIST_END_OF_PAGE TYPE SLIS_T_LISTHEADER,

GT_EVENTS TYPE SLIS_T_EVENT,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GS_LAYOUT TYPE SLIS_LAYOUT_ALV,

GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

FIELDCAT_LN LIKE LINE OF GT_FIELDCAT,

COL_POS TYPE I.

data : BEGIN OF ty_MOBLIST occurs 0.

include structure zfm_handy.

data : NACHN type pa0002-nachn,

VORNA type pa0002-vorna,

END OF ty_MOBLIST.

data : BEGIN OF ty_zfm_handy occurs 0.

include structure zfm_handy.

data : END OF ty_zfm_handy.

data : BEGIN OF ty_pa0002 occurs 0,

NACHN type pa0002-nachn,

VORNA type pa0002-vorna,

END OF ty_pa0002.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

2 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jan 16, 2007 at 05:24 PM

    Hi Narendra,

    I copied this and pasted in my system, this is perfectly working

    Regards

    Sudheer

    Add a comment
    10|10000 characters needed characters exceeded

    • Former Member

      this is the extension part of above program plz check it if u find any mistakes plz sent it

      data : it_MOBLIST like table of ty_MOBLIST,

      wa_MOBLIST like ty_MOBLIST ,

      it_zfm_handy like table of ty_zfm_handy,

      wa_zfm_handy like ty_zfm_handy ,

      it_pa0002 like table of ty_pa0002,

      wa_pa0002 like ty_pa0002 .

      INITIALIZATION.

      G_REPID = SY-REPID.

      PERFORM PRINT_BUILD USING GS_PRINT. "Print PARAMETERS

      START-OF-SELECTION.

      SELECT * from

      zfm_handy

      into table it_zfm_handy.

      if not it_zfm_handy[] is initial.

      select NACHN

      VORNA

      from pa0002

      into table it_pa0002

      for all entries in it_zfm_handy

      where pernr = it_zfm_handy-pernr.

      endif. " not it_zfm_handy

      loop at it_zfm_handy into wa_zfm_handy.

      read table it_pa0002 into wa_pa0002 with key pernr = wa_zfm_handy-pernr.

      if sy-subrc = 0.

      clear wa_MOBLIST.

      move wa_zfm_handy to wa_MOBLIST.

      move wa_pa0002 to wa_MOBLIST.

      append wa_MOBLIST to it_MOBLIST .

      endif. " sy-subrc

      endloop.

  • author's profile photo Former Member
    Former Member
    Posted on Jan 16, 2007 at 05:31 PM

    Hi,

    The code looks good..

    Please try the code that I mentioned in the other thread and let me know if you were to able to display the records in the ALV..

    how to read data

    Thanks,

    Naren

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.