Copier une variante d'affichage

Créé par dpaven le 18 October 2020 ABAP

Comment copier rapidement des variantes d'affichages d'un programme vers un autre (en supposant bien sûr les que les affichages sont compatibles).

REPORT ZBC_LAYOUT_VARIANT_COPY.
DATA lt_ltdx LIKE ltdx OCCURS 0 WITH HEADER LINE.
DATA lt_ltdxt LIKE ltdxt OCCURS 0 WITH HEADER LINE.

PARAMETERS report1 LIKE ltdx-report OBLIGATORY.
PARAMETERS report2 LIKE ltdx-report OBLIGATORY.
"copy layout of report1 to report2.

START-OF-SELECTION.
  SELECT * INTO TABLE lt_ltdx FROM ltdx
                WHERE report = report1.
  SELECT * INTO TABLE lt_ltdxt FROM ltdxt
                WHERE report = report1.

  LOOP AT lt_ltdx.
    lt_ltdx-report = report2.
    MODIFY ltdx FROM lt_ltdx.
  ENDLOOP.

  LOOP AT lt_ltdxt.
    lt_ltdxt-report = report2.
    MODIFY ltdxt FROM lt_ltdxt.
  ENDLOOP.

  MESSAGE 'Copy Complete.' TYPE 'I'.