CONSTANTS: C_AUTYP LIKE AUFK-AUTYP VALUE '10',
C_TRUE VALUE 'X',
C_FALSE VALUE ' ',
C_TECO(5) VALUE 'I0045',
C_DLV(5) VALUE 'I0012',
C_DELT(5) VALUE 'I0013'.
DATA: BEGIN OF I_JEST OCCURS 0,
OBJNR LIKE JEST-OBJNR,
STAT LIKE JEST-STAT,
END OF I_JEST.
DATA: I_TJ02T LIKE TJ02T OCCURS 0 WITH HEADER LINE.
CLEAR I_AUFK. REFRESH I_AUFK.
SELECT
AUFK~AUFNR AUFK~OBJNR AUFK~AUART
AFKO~GAMNG AFKO~PLNBEZ AFKO~GMEIN AFKO~AUFPL AFKO~RSNUM AFKO~DISPO
AFKO~GLTRP AFKO~GSTRP
INTO TABLE I_AUFK
FROM ( AFKO INNER JOIN AUFK
ON AFKO~AUFNR = AUFK~AUFNR )
WHERE AUFK~AUART IN S_AUART
AND AUFK~AUFNR IN S_AUFNR
AND AUFK~LOEKZ EQ SPACE
AND AUFK~WERKS IN S_WERKS
AND AFKO~PLNBEZ IN S_MATNR
and afko~FTRMI in s_FTRMS
AND AFKO~DISPO IN S_DISPO.