form build_fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'PO NUMBER'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-REF_TABNAME = 'EKKO'.
fieldcatalog-REF_FIELDNAME = 'EBELN'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'PO DATE'.
fieldcatalog-col_pos = 1.
fieldcatalog-REF_TABNAME = 'EKKO'.
fieldcatalog-REF_FIELDNAME = 'AEDAT'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EKGRP'.
fieldcatalog-seltext_m = 'PUR GRP/BUYER'.
fieldcatalog-col_pos = 2.
fieldcatalog-REF_TABNAME = 'EKKO'.
fieldcatalog-REF_FIELDNAME = 'EKGRP'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EKORG'.
fieldcatalog-seltext_m = 'PUR ORG.'.
fieldcatalog-col_pos = 3.
fieldcatalog-REF_TABNAME = 'EKKO'.
fieldcatalog-REF_FIELDNAME = 'EKORG'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'LIFNR'.
fieldcatalog-seltext_m = 'VENDOR NO'.
fieldcatalog-col_pos = 4.
fieldcatalog-REF_TABNAME = 'EKKO'.
fieldcatalog-REF_FIELDNAME = 'LIFNR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO LINE'.
fieldcatalog-col_pos = 5.
fieldcatalog-REF_TABNAME = 'EKPO'.
fieldcatalog-REF_FIELDNAME = 'EBELP'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'ORD QTY'.
fieldcatalog-col_pos = 6.
fieldcatalog-REF_TABNAME = 'EKET'.
fieldcatalog-REF_FIELDNAME = 'MENGE'.
<b>fieldcatalog-tabname = 'EKET'.</b>
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'UNIT'.
fieldcatalog-col_pos = 7.
fieldcatalog-REF_TABNAME = 'EKPO'.
fieldcatalog-REF_FIELDNAME = 'MEINS'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'MATERIAL'.
fieldcatalog-col_pos = 8.
fieldcatalog-REF_TABNAME = 'EKPO'.
fieldcatalog-REF_FIELDNAME = 'MATNR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'TXZ01'.
fieldcatalog-seltext_m = 'DESCRIPTION'.
fieldcatalog-col_pos = 9.
fieldcatalog-REF_TABNAME = 'EKPO'.
fieldcatalog-REF_FIELDNAME = 'TXZ01'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'IDNLF'.
fieldcatalog-seltext_m = 'VEND MAT'.
fieldcatalog-col_pos = 10.
fieldcatalog-REF_TABNAME = 'EKPO'.
fieldcatalog-REF_FIELDNAME = 'IDNLF'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'LGPBE'.
fieldcatalog-seltext_m = 'ST.LOC SHELF BIN'.
fieldcatalog-col_pos = 11.
fieldcatalog-outputlen = 6.
fieldcatalog-REF_TABNAME = 'MARD'.
fieldcatalog-REF_FIELDNAME = 'LGPBE'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'LGOBE'.
fieldcatalog-seltext_m = 'ST.LOC DESCRIPTION'.
fieldcatalog-col_pos = 12.
fieldcatalog-REF_TABNAME = 'T001L'.
fieldcatalog-REF_FIELDNAME = 'LGOBE'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
IF BLIND = ' '. " if the check box is not checked.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'QTY TO RECEIVE'.
fieldcatalog-col_pos = 13.
fieldcatalog-REF_TABNAME = 'EKES'.
fieldcatalog-REF_FIELDNAME = 'MENGE1'.
*fieldcatalog-rollname = 'MENGE_D'.
<b>fieldcatalog-tabname = 'EKES'.</b>
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'WEMNG'.
fieldcatalog-seltext_m = 'QTY RECEIVED'.
fieldcatalog-col_pos = 14 .
fieldcatalog-REF_TABNAME = 'EKET'.
fieldcatalog-REF_FIELDNAME = 'WEMNG'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endif.
endform. " build_fieldcatalog