PP_ABAP Relation - PP ORDER STATUS

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.

Posted in: PP_ABAP Relation