Tcode: se38
create new program.
REPORT ytest_program_ahs.
TABLES: vbak,abap.
TYPES: BEGIN OF ty_order,
vbeln type vbeln,
knumv type knumv,
kunnr type kunnr,
posnr type posnr,
matnr type matnr,
END OF ty_order.
DATA: it_order TYPE STANDARD TABLE OF ty_order.
DATA: wa_order TYPE ty_order.
PARAMETERS: order type vbak-vbeln OBLIGATORY.
START-OF-SELECTION.
PERFORM getdata.
PERFORM displayData.
FORM getdata.
SELECT v~vbeln, v~knumv, v~kunnr, p~posnr, p~matnr from vbak as v
INNER JOIN vbap as p
ON p~vbeln = v~vbeln
where v~vbeln = @order
into table @it_order.
ENDFORM.
FORM displayData.
LOOP AT it_order INTO DATA(wa_order).
write:/ 'OrderId: ', wa_order-vbeln,
'Document: ', wa_order-knumv,
'Customer: ', wa_order-kunnr,
'Item: ', wa_order-posnr,
'Material: ', wa_order-matnr.
ENDLOOP.
ENDFORM.