in eine interne tabelle schreiben mit where bedingung.

Code: Alles auswählen.

*---------------------------------------------------------------------*
* interne tabelle 1
*---------------------------------------------------------------------*
Data: begin of infpz occurs 0,
      MANDT like nfpz-mandt,
      EINRI like nfpz-einri,
      EARZT like nfpz-earzt,
      FALNR like nfpz-falnr,
      PERNR like nfpz-pernr,
      LFDNR like nfpz-lfdnr,
      LFDbw like nfpz-lfdbw,
      zaehler(4),
      orgfa like nbew-orgfa,
      orgpf like nbew-orgpf,
      end of infpz,
      ITAB LIKE TABLE OF infpz WITH HEADER LINE.


*---------------------------------------------------------------------*
*   interne tabelle 2
*---------------------------------------------------------------------*
Data: begin of i_nfpz occurs 0,
      MANDT like nfpz-mandt,
      EINRI like nfpz-einri,
      FALNR like nfpz-falnr,
      PERNR like nfpz-pernr,
      LFDNR like nfpz-lfdnr,
      LFDbw like nfpz-lfdbw,
      zaehler(4),
      end of i_nfpz,
      ITAB20 LIKE TABLE OF i_nfpz WITH HEADER LINE.



*---------------------------------------------------------------------*
*   Selektionsbildschirm
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK AUSWAHL WITH FRAME
                                             TITLE TEXT-S01.

SELECT-OPTIONS: 
                S_falnr for nfpz-falnr obligatory,
                S_EARZT for nfpz-earzt.

PARAMETERS:     
                ORGFA     LIKE nbew-orgfa,
                ORGPF     LIKE nbew-orgpf.

SELECTION-SCREEN END OF BLOCK AUSWAHL.




 loop AT itab.

    clear i_nfpz.

    loop AT itab INTO i_nfpz where EARZT in S_EARZT
                               AND falnr in s_falnr
                               AND orgfa = ORGFA
                               AND orgpf = ORGPF.
      move-corresponding infpz to itab20.
      modify itab20.
    endloop.

  endloop.

Code: Alles auswählen.

SORT itab ASCENDING BY falnr.

LOOP AT itab INTO i_nfpz

              WHERE falnr BETWEEN S_falnr-low AND S_falnr-high.
  APPEND i_nfpz.

ENDLOOP.