Felder: Feld, Datentyp, -element und Beschreibung ausgeben


Getting started ... Alles für einen gelungenen Start.

Moderatoren: Jan, Steff

Felder: Feld, Datentyp, -element und Beschreibung ausgeben

Beitragvon Kai999 » 18.04.2017, 10:45

Hallo,
ich habe ein Programm in der ich Einträge der bestimmten Felder einer Tabelle ausgebe. Als Lösung kriege ich nur das Feld: "Feld" und die Anzahl der Einträge.
Ich möchte, dass die Felder: Feld, Datenelement, Datentyp, Kurzbeschreibung und die Anzahl der Einträge ausgegeben werden. Anbei auch mein Code.
Code: Alles auswählen
  TYPES: BEGIN OF ty_counter,
           fieldname TYPE dd03l-fieldname,
           counter   TYPE i,
         END OF ty_counter,
         tt_counter TYPE STANDARD TABLE OF ty_counter,
         strucdfies TYPE dfies.

  DATA:  gv_tabname TYPE dd02l-tabname,
         gt_dd03l   TYPE TABLE OF dd03l,
         gs_dd03l   TYPE dd03l,
         gt_counter TYPE tt_counter,
         gs_counter TYPE ty_counter,
         where_cond TYPE STRING,
         it_table TYPE TABLE OF strucdfies.

  PARAMETERS p_tab TYPE dd02l-tabname.

  START-OF-SELECTION.

    SELECT SINGLE tabname FROM dd02l INTO gv_tabname
      WHERE tabname = p_tab.
    IF sy-subrc <> 0.
      WRITE: / 'Tabelle', p_tab, 'ist unbekannt'.
      RETURN.
    ENDIF.

    SELECT * FROM dd03l INTO TABLE gt_dd03l
      WHERE tabname = p_tab
      AND   fieldname LIKE 'ZZ%'.

    IF gt_dd03l IS INITIAL.
      WRITE: / 'Keine ZZ_Felder vorhanden'.
    ENDIF.

    LOOP AT gt_dd03l INTO gs_dd03l.
      gs_counter-fieldname = gs_dd03l-fieldname.
      "where Bedingung dynamisch aufbauen
      CLEAR where_cond.
      CONCATENATE gs_dd03l-fieldname `> ''` INTO where_cond SEPARATED BY SPACE.

      "Select Count Abfrage
      SELECT COUNT(*) FROM (p_tab) INTO gs_counter-counter WHERE (where_cond).


      APPEND gs_counter TO gt_counter.
      CLEAR gs_counter.
    ENDLOOP.

    LOOP AT gt_counter INTO gs_counter.
      WRITE: / gs_counter-fieldname, gs_counter-counter.

    ENDLOOP.

CALL FUNCTION 'DDIF_FIELDINFO_GET'
          EXPORTING
            tabname        = gv_tabname
            langu          = sy-langu
            all_types      = 'X'
          TABLES
            dfies_tab      = it_table
          EXCEPTIONS
            not_found      = 1
            internal_error = 2
            OTHERS         = 3.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
 
Kai999
ForumUser
 
Beiträge: 22
Registriert: 12.04.2017, 08:23
Dank erhalten: 0 mal
Ich bin: Student/in

Sponsor

Alte ABAP-Entwicklerweisheit: Weißt du weder aus noch ein, baust du einen BADI ein

Re: Felder: Feld, Datentyp, -element und Beschreibung ausgeb

Beitragvon ralf.wenzel » 18.04.2017, 10:51

Dann musst du das im LOOP über die DD03L mit abgreifen und in deiner internen Tabelle mit abspeichern. Die Texte stehen in DD03T.


Ralf
Bild Ralf WenzelHeuristika
SAP-Development • Datenschutzberatung
PublikationenUngarische NotationXing
ralf.wenzel
Top Expert
 
Beiträge: 2429
Registriert: 18.09.2004, 13:03
Wohnort: Hamburg
Dank erhalten: 103 mal
Ich bin: Freiberufler/in

Re: Felder: Feld, Datentyp, -element und Beschreibung ausgeb

Beitragvon Kai999 » 18.04.2017, 11:02

Also ist meine CALL-Fkt. überflüssig?
Kai999
ForumUser
 
Beiträge: 22
Registriert: 12.04.2017, 08:23
Dank erhalten: 0 mal
Ich bin: Student/in

Re: Felder: Feld, Datentyp, -element und Beschreibung ausgeb

Beitragvon ralf.wenzel » 18.04.2017, 11:04

Genau.
Bild Ralf WenzelHeuristika
SAP-Development • Datenschutzberatung
PublikationenUngarische NotationXing
ralf.wenzel
Top Expert
 
Beiträge: 2429
Registriert: 18.09.2004, 13:03
Wohnort: Hamburg
Dank erhalten: 103 mal
Ich bin: Freiberufler/in


Zurück zu ABAP® für Anfänger

  Aktuelle Beiträge   
Ungelesene Beiträge
vor 2 Stunden von gtoXX 0 Antw.
Laden von Dateien
vor 4 Stunden von fr-g 2 Antw.
SAP Workflow
vor 7 Stunden von SAP_ENTWICKLER 0 Antw.
Tabellen mit Adobe forms
vor 7 Stunden von jocoder 1 Antw.
Inhalt einer internen Tabelle in ein Field Symbol übertragen
vor 4 Stunden von gtoXX 7 Antw.

  Ähnliche Beiträge beta
Dictionary-Datentyp für JA-/NEIN-Felder
17.08.2003, 17:53 von ewx 4 Antw.
Voranstehendes INT2-Feld bei Datentyp
15.09.2008, 19:33 von ereglam 1 Antw.
gelöst User-Exit Beschreibung
10.01.2017, 11:37 von hmaxi96 0 Antw.
F1-Hilfe mit eigener Beschreibung füllen ?
13.04.2005, 11:33 von ewx 1 Antw.
Beschreibung zu den Objekten im Object Navigator hinzufügen
27.06.2004, 13:44 von Blueshape 4 Antw.

 

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder

Feedback ...?

Was können wir verbessern? Hinterlasse deine Kontaktdaten, wenn du eine direkte Antwort möchtest.

... Absenden!
cron