Ausgabe von Idocs

Um einen Gesamtüberblick über mehrere IDOCs zu bekommen, dient das folgende Programm. Es gibt die Daten von zu selektierenden IDOCs strukturiert aus.

Das Programm lässt sich einfach so modifzieren, dass die Idoc-Felder sowie der zugehörige Wert ausgegeben werden. In dieser Version wird der Feldname Quickinfo ausgegeben, wenn man mit dem Mauszeiger auf ein Feld zeigt.

Coding

REPORT  zz_idoc_show LINE-SIZE 1000.
DATA gtc              TYPE STANDARD TABLE OF edidc.
FIELD-SYMBOLS <c>     TYPE edidc.
DATA gtd              TYPE STANDARD TABLE OF edid4.
FIELD-SYMBOLS <d>     TYPE edid4.
DATA gv_segnam        TYPE ddobjname.
DATA gt_dfies         TYPE STANDARD TABLE OF dfies.
FIELD-SYMBOLS <dfies> TYPE dfies.y

SELECT-OPTIONS s_docnum FOR <c>-docnum.
SELECT-OPTIONS s_mestyp FOR <c>-mestyp.
SELECT-OPTIONS s_idoctp FOR <c>-idoctp.

START-OF-SELECTION.

  SELECT * FROM edidc INTO TABLE gtc UP TO 100 ROWS
   WHERE docnum IN s_docnum
     AND mestyp IN s_mestyp
     AND idoctp IN s_idoctp.

  IF sy-subrc = 0.

    SELECT * FROM edid4 INTO TABLE gtd
      FOR ALL ENTRIES IN gtc
     WHERE docnum = gtc-docnum.

    LOOP AT gtc ASSIGNING <c>.
      FORMAT COLOR COL_HEADING.
      ULINE.
      WRITE: / ‘|’,
               <c>-docnum,
               <c>-mestyp,
               <c>-idoctp,
               <c>-cimtyp.
      ULINE.
      FORMAT COLOR OFF.
      LOOP AT gtd ASSIGNING <d> WHERE docnum = <c>-docnum.
        WRITE: / ‘|’ NO-GAP.
        gv_segnam = <d>-segnam.
        CLEAR gt_dfies.
        CALL FUNCTION ‘DDIF_FIELDINFO_GET’
          EXPORTING
            tabname   = gv_segnam
          TABLES
            dfies_tab = gt_dfies
          EXCEPTIONS
            OTHERS    = 3.
        IF sy-subrc = 0.
          LOOP AT gt_dfies ASSIGNING <dfies>.
            WRITE: <d>-sdata(<dfies>-outputlen)
                   QUICKINFO <dfies>-fieldname NO-GAP, ‘|’ NO-GAP.
            SHIFT <d>-sdata BY <dfies>-outputlen PLACES LEFT.
          ENDLOOP.
        ENDIF.
      ENDLOOP.
    ENDLOOP.
    ULINE.
  ENDIF.

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024