Having header line in the structure inside another structure

Question

How can I have a header line in a structure within a structure?
(I have posted a question before...but seems to be unclear..so I closed that thread and open a new one)
Thanks!
When compiling the below codes, I got error message stating that 'The internal table "IT_SALES_ORDER-DETAIL" has no header line - explicit specification of an output area with "INTO wa" or "ASSIGNING <fs>" is required'.
I know that the problem can be solved by using field symbols... but I wonder I can have a header line declared in a structure within another structure.
types: begin of ty_header,
         vbeln like vbak-vbeln,
         erdat like vbak-erdat,
         audat like vbak-audat,
         vkorg like vbak-vkorg,
         vtweg like vbak-vtweg,
         spart like vbak-spart,
         kunnr like vbak-kunnr,
         netwr like vbak-netwr,
         end of ty_header.
types: begin of ty_detail,
         posnr like vbep-posnr,
         edatu like vbep-edatu,
         etenr like vbep-etenr,
         ettyp like vbep-ettyp,
         wmeng like vbep-wmeng,
         bmeng like vbep-bmeng,
         vrkme like vbep-vrkme,
         mbdat like vbep-mbdat,
         lddat like vbep-lddat,
       end of ty_detail.
types: begin of ty_sales_order,
           header type ty_header,
           detail type ty_detail occurs 0,
       end of ty_sales_order.
data: it_sales_order type standard table of ty_sales_order
      with header line initial size 0.
data: it_selected_order type standard table of ty_header
      with header line initial size 0.
select *
  into corresponding fields of table it_selected_order
  from vbak
where erdat > '01.01.2005' and erdat < '31.12.2005'.
write :/ sy-subrc.
loop at it_selected_order.
  clear: it_sales_order-header, it_sales_order-detail.
  move-corresponding it_selected_order to it_sales_order-header.
  select *
    into corresponding fields of table it_sales_order-detail
    from vbep
   where vbeln = it_sales_order-header-vbeln.
  append it_sales_order.
endloop.
loop at it_sales_order.
  write :/ it_sales_order-header-vbeln.
  loop at it_sales_order-detail.
  endloop.
endloop.

Answer 1

You have to use a work area here, no header lines.
report zrich_0002 no standard page heading.
types: begin of ty_header,
vbeln like vbak-vbeln,
erdat like vbak-erdat,
audat like vbak-audat,
vkorg like vbak-vkorg,
vtweg like vbak-vtweg,
spart like vbak-spart,
kunnr like vbak-kunnr,
netwr like vbak-netwr,
end of ty_header.
types: begin of ty_detail,
posnr like vbep-posnr,
edatu like vbep-edatu,
etenr like vbep-etenr,
ettyp like vbep-ettyp,
wmeng like vbep-wmeng,
bmeng like vbep-bmeng,
vrkme like vbep-vrkme,
mbdat like vbep-mbdat,
lddat like vbep-lddat,
end of ty_detail.
types: begin of ty_sales_order,
header type ty_header,
detail type ty_detail occurs 0,
end of ty_sales_order.
data: it_sales_order type standard table of ty_sales_order
with header line initial size 0.
data: it_selected_order type standard table of ty_header
with header line initial size 0.
<b>data: wa_detail type ty_detail.</b>
select *
into corresponding fields of table it_selected_order
from vbak
where erdat > '01.01.2005' and erdat < '31.12.2005'.
write :/ sy-subrc.
loop at it_selected_order.
  clear: it_sales_order-header, it_sales_order-detail.
  move-corresponding it_selected_order to it_sales_order-header.
  select *
  into corresponding fields of table it_sales_order-detail
  from vbep
  where vbeln = it_sales_order-header-vbeln.
  append it_sales_order.
endloop.
loop at it_sales_order.
  write :/ it_sales_order-header-vbeln.
<b> loop at it_sales_order-detail into wa_detail.</b>
  endloop.
endloop.
Regards,
Rich Heilman
Message was edited by: Rich Heilman