topic Internal table logic in Application Development and Automation Discussions

Internal table logic

Former Member — Fri, 02 May 2008 14:32:27 GMT

Hi all,

I want the Internal table

I want to print the data like every highest level compring with prevous level. if the Current and previous both are same< I want both the records.

output like

Re: Internal table logic

Former Member — Fri, 02 May 2008 14:44:43 GMT

Maybe this


DATA:
  BEGIN OF itab OCCURS 0,
    fl1 TYPE c,
  END OF itab,
  curr_hi.

START-OF-SELECTION.

  PERFORM build_table.

  CLEAR curr_hi.

  LOOP AT itab.
    IF itab-fl1 GT curr_hi.
      curr_hi = itab-fl1.
    ELSEIF itab-fl1 LE curr_hi.
      check curr_hi NE '1'.
      WRITE:/ curr_hi.
      curr_hi = itab-fl1.
    ENDIF.
  ENDLOOP.
  WRITE:/ curr_hi.

*&---------------------------------------------------------------------*
*&      Form  build_table
*&---------------------------------------------------------------------*
FORM build_table.
  itab-fl1 = '1'. APPEND itab.
  itab-fl1 = '1'. APPEND itab.
  itab-fl1 = '3'. APPEND itab.
  itab-fl1 = '2'. APPEND itab.
  itab-fl1 = '3'. APPEND itab.
  itab-fl1 = '4'. APPEND itab.
  itab-fl1 = '4'. APPEND itab.
  itab-fl1 = '1'. APPEND itab.
  itab-fl1 = '2'. APPEND itab.
  itab-fl1 = '3'. APPEND itab.
  itab-fl1 = '3'. APPEND itab.
ENDFORM.                    " build_table

and the Output

Re: Internal table logic

Former Member — Fri, 02 May 2008 14:48:04 GMT

hi do it like this:

data: tmp type i, x type i value 0.

loop at itab into wa.

if tmp = wa-value.

tmp = wa-value.

write: tmp.

flag = 1.

endif.

if x = 0.

tmp = wa-value.

x = 1.

continue.

endif.

at new value.

if flag = 1.

write: tmp.

flag = 0.

endif.

endat.

tmp = wa-value.

endloop.

if flag = 1.

write: tmp.

flag = 0.

endif.

reward if useful.