Listausgabe auf x- Treffer begrenzen

Code: Alles auswählen.

PARAMETERS: p_ausg TYPE tbmaxsel DEFAULT 100.
...

WRITE: /  '|******************************************Beginn**********************************************|',
           /  '|*                                          CA1                                               *|',
           /  '|*              Es werden alle Änderung an Kreditoren-, Debitoren-Stammdaten                  *|',
           /  '|*                               und Konditionen angezeigt.                                   *|',
           /  '|**********************************************************************************************|'.
    SKIP.

    SKIP 1.

    LOOP AT i_str_usr INTO wa_str_usr.
      SELECT * FROM cdhdr
               INTO TABLE gt_cdhdr
               WHERE username EQ wa_str_usr
               AND udate GE p_von
               AND udate LE p_bis.
    ENDLOOP.

    LOOP AT gt_cdhdr INTO gs_cdhdr.

AT FIRST.
        WRITE: /
                 'Mdt',      "Mandant
               5 'Objkl',    "Objektklasse
              21 'Objektid', "Objektwert
             112 'Changenr', "Änderungsnummer des Belegs
             ...

ENDAT.
IF sy-tabix > p_ausg.
       WRITE: / 'Durch die Ausgabebegrenzung werden nur n-Zeilen angezeigt. Im System sind tatsächlich mehr Einträge vorhanden!'.
      EXIT.
      ENDIF.

        WRITE: /
               gs_cdhdr-mandant,
            5  gs_cdhdr-objectclas,
           21  gs_cdhdr-objectid,
          112  gs_cdhdr-changenr,
          ...

    ENDLOOP.

    IF sy-subrc NE 0.
      WRITE: / '-> No changes found!'..
    ELSE.
*  WRITE: / '-> End of list!'..
    ENDIF.
    FORMAT RESET.
    PERFORM block_ende.
  ENDIF.

Code: Alles auswählen.

SELECT * FROM cdhdr UP TO p_ausg ROWS
               INTO TABLE gt_cdhdr
               WHERE username = wa_str_usr
               AND udate > p_von
               AND udate < p_bis.