REPORT  ZPP_PLANORDER                           .

DATA: T_PLAF LIKE PLAF OCCURS 0 WITH HEADER LINE.

DATA: HD LIKE  BAPIPLAF_I2 ,
      HDX LIKE BAPIPLAF_I2X,
      RET LIKE  BAPIRETURN1,
      CT TYPE I.

SELECT-OPTIONS: PLNUM FOR T_PLAF-PLNUM.
PARAMETERS: WERKS LIKE PLAF-PLWRK.


START-OF-SELECTION.
  CLEAR: T_PLAF, T_PLAF[].
  SELECT * FROM PLAF APPENDING TABLE T_PLAF
          WHERE PLNUM IN PLNUM AND PLWRK = WERKS.
CT = 0.
CLEAR: HD, HDX.
HD-FIRMING_IND = SPACE.
HDX-FIRMING_IND = 'X'.

LOOP AT T_PLAF.
   CLEAR: RET.
   CALL FUNCTION 'BAPI_PLANNEDORDER_CHANGE'
     EXPORTING
       PLANNEDORDER              = T_PLAF-PLNUM
       HEADERDATA                = HD
       HEADERDATAX               = HDX
    IMPORTING
       RETURN                    = RET.

    ADD 1 TO CT.

ENDLOOP.
COMMIT WORK AND WAIT.
WRITE:/ 'Обработано ', CT, ' плановых заказов'.