INCLUDE <LINE>. * Tables used in the program TABLES: LQUA, ??????? MBEW, ??????? MARA, ??????? MAKT, ??????? T001, ??????? T001K, ??????? T001W, ??????? T134T, ??????? MARD, ??????? MKPF, ??????? MSEG.
* Constants used in the program. *CONSTANTS: const_yes(3) TYPE c VALUE "YES".
* Data variables used in the program. DATA: SEL1 LIKE LQUA-WERKS,????? "PLANT ????? SEL2 LIKE MARA-MTART,????? "MATERIAL TYPE ????? SEL3 LIKE MARA-MATKL,????? "MATERIAL GROUP ????? SEL4 LIKE MARA-MATNR,????? "MATERIAL NO. ????? SERNO(4) TYPE C, ????? PLANT LIKE LQUA-WERKS, ????? MTYPE LIKE MARA-MTART, ????? MATNO LIKE MARA-MATNR, ????? COMPANY LIKE T001-BUTXT, ????? FDATE(10) TYPE C, ????? MTYPET LIKE T134T-MTBEZ, ????? PLANTT LIKE T001W-NAME1, ????? TMESSAGE(40) TYPE C, ????? ERR_DESC(60) TYPE C, ????? LINENO LIKE SY-LINNO, ????? PAGENO LIKE SY-PAGNO, ????? RIND TYPE C.
* Internal tables used in the program. DATA: BEGIN OF T_RPTMAIN OCCURS 0, ???????? DURATION TYPE I, ???????? BAND TYPE C, ???????? STKVALUE LIKE MBEW-STPRS, ???????? ERR_CODE(2) TYPE C, ???????? MTART LIKE MARA-MTART, ???????? MATKL LIKE MARA-MATKL, ???????? MAKTG LIKE MAKT-MAKTG, ???????? VPRSV LIKE MBEW-VPRSV, ???????? PEINH LIKE MBEW-PEINH, ???????? VERPR LIKE MBEW-VERPR, ???????? STPRS LIKE MBEW-STPRS, ???????? BWART LIKE MSEG-BWART. ???????? INCLUDE STRUCTURE LQUA. DATA: END OF T_RPTMAIN.
DATA: BEGIN OF T_MAKT OCCURS 0. ???????? INCLUDE STRUCTURE MAKT.