*&---------------------------------------------------------------------*
*& Report ZSR_ASSIGN12
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZSR_ASSIGN12.
TABLES: VBAK.
Data : t_vbak type vbak,vbeln like vbak-vbeln.
Select-options : T_vbeln for vbak-vbeln , T_Cust for vbak-kunnr.
Select * from vbak into t_vbak where vbeln in T_vbeln AND kunnr in T_Cust.
Write: / 'Sales order --' ,T_vbak-vbeln.
Write: / 'Customer purchase order --' ,T_vbak-bstnk.
Write: / 'Customer purchse order date --',T_vbak-bstdk.
Write: / 'Sales order creation date --',T_vbak-erdat.
Endselect.
If sy-subrc ne 0.
Message i999(zw) with 'No records found'.
Endif.
Sales order 5145
Customer purchase order DG-19970801-1
Customer purchse order date 01.08.1997
Sales order creation date 01.08.1997
Sales order 5180
Customer purchase order DG-19970905-3
Customer purchse order date 05.09.1997
Sales order creation date 05.09.1997
