Reading Deep Structures

[Former Member]

Hi Abappers,

I have a deep structure as

Workarea->workarea->workarea->Internal table.

The values are in Internal Table.

How i will print those values into our screen using Write statement.

Please reply.

Thanks,

Rahul

[Former Member]

Hi Rahul,

Could u please explain the exact scenario....

Thanks & Regards

Ashu SIngh

[Former Member]

just loop at workarea-workarea-workarea-itab into wa and print values.

[Former Member]

Hi try this:

loop at Workarea-workarea-workarea-Internal table into

work area of the internal table(say wa ).

write /: wa-com1, wa-com2....

.....

endloop.

Regards,

Joy.

[Former Member]

Hi,

Check out this sample code.

REPORT z_sdn.

INCLUDE <icon>.
DATA:
  BEGIN OF fs_sub,
   sub(12) TYPE c,
   mark TYPE i,
  END OF fs_sub.
DATA:
  t_sub LIKE
  TABLE OF
        fs_sub.
DATA:
 BEGIN OF fs_stud,
  stud_id(3) TYPE n,
  stud_nm(10) TYPE c,
  stud_mark LIKE t_sub,
 END OF fs_stud.

 DATA:
  t_stud LIKE
   TABLE OF
         fs_stud.

         START-OF-SELECTION.

PERFORM populate USING 'HINDI'(001) 55.
PERFORM populate USING 'ENGLISH'(002) 65.
PERFORM populate USING 'MATHEMATICS'(003) 80.
PERFORM fill_data USING '001'(010) 'RAVI'(009) t_sub.

LOOP AT t_stud INTO fs_stud.
  WRITE: /10 fs_stud-stud_id,
          20 fs_stud-stud_nm.
  LOOP AT t_sub INTO fs_sub.
    WRITE:  30 fs_sub-sub,
            49 fs_sub-mark.
    IF fs_sub-mark LT 40.
      WRITE: icon_led_red AS ICON.
    ELSE.
      WRITE: icon_led_green AS ICON.
    ENDIF.                             " IF fs_sub-mark LT 40
    SKIP.
  ENDLOOP.                             " LOOP AT t_sub..
ENDLOOP.                               " LOOP AT t_stud..
CLEAR: t_stud, t_sub, fs_sub, fs_stud.

FORM populate  USING l_sub
                     l_mark.
  CLEAR fs_sub.
  fs_sub-sub = l_sub.
  fs_sub-mark = l_mark.
  APPEND fs_sub TO t_sub.
ENDFORM.                    " POPULATE

FORM fill_data  USING  l_studid
                       l_studnm
                       l_sub.
  CLEAR fs_stud.
  fs_stud-stud_id = l_studid.
  fs_stud-stud_nm = l_studnm.
  fs_stud-stud_mark = l_sub.
  APPEND fs_stud TO t_stud.
ENDFORM.                    " FILL_DATA

Regards

Abhijeet

[Former Member]

LOOP AT WORKAREA1-WORKAREA2-WORKAREA3-ITAB INTO WA4.

WRITE:/ WA4-FIELDNAME.

ENDLOOP.

[Former Member]

Check the sample code...

REPORT  ztest_deep.

DATA: BEGIN OF it_data OCCURS 0,
       vbeln TYPE vbeln,
       item TYPE vbap_t,

      END OF it_data.
DATA: wa_item TYPE vbap.
SELECT vbeln FROM vbak
 INTO CORRESPONDING FIELDS OF TABLE it_data
 UP TO 10 ROWS.

IF sy-subrc EQ 0.
  LOOP AT it_data.
    SELECT * FROM vbap
     INTO TABLE it_data-item
     WHERE vbeln EQ it_data-vbeln.
    MODIFY it_data.
  ENDLOOP.
ENDIF.

BREAK-POINT.

LOOP AT it_data.

  WRITE:/ it_data-vbeln.

  LOOP AT it_data-item INTO wa_item.
    WRITE:/ wa_item-posnr.
  ENDLOOP.

ENDLOOP.

[Former Member]

hi

do this

loop at Workarea1.

wirte:Workarea1-workarea2-workarea3-Internal table1-field1.

endloop.

Cheers

Snehi.

[Former Member]

Thanks for your answers