Type-Definition zur Laufzeit bestimmen
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hallo Leute,
ich möchte ein Programm schreiben, das einen Tabellennamen als Eingabe bekommt und mir diese ausgibt. Der eigentliche Sinn des Progs ist bißchen komplizierter. Naja, jedenfalls soll erst nachdem ich die Eingabe habe eine Workarea mit dem eingegebenen Tabellentyp erstellt werden.
Dieses Programm soll also für beliebige Tabellen sein, somit kann ich auch nicht im Programm 1000 Workareas machen.
Der ASSIGN funktioniert dan leider nicht und somit ist <wa> nicht zugewiessen und so kann auch nicht in <wa> geschrieben werden.
Hier mein Code:
ich möchte ein Programm schreiben, das einen Tabellennamen als Eingabe bekommt und mir diese ausgibt. Der eigentliche Sinn des Progs ist bißchen komplizierter. Naja, jedenfalls soll erst nachdem ich die Eingabe habe eine Workarea mit dem eingegebenen Tabellentyp erstellt werden.
Dieses Programm soll also für beliebige Tabellen sein, somit kann ich auch nicht im Programm 1000 Workareas machen.
Der ASSIGN funktioniert dan leider nicht und somit ist <wa> nicht zugewiessen und so kann auch nicht in <wa> geschrieben werden.
Hier mein Code:
Code: Alles auswählen.
PARAMETERS: p_table TYPE tabname.
FIELD-SYMBOLS: <wa>.
DATA: rc TYPE sysubrc.
* Check auf Tabellen-Existenz
CALL FUNCTION 'DD_EXIST_TABLE'
EXPORTING
tabname = p_table
status = 'M'
IMPORTING
subrc = rc.
if rc <> 0.
exit.
endif.
ASSIGN (p_table) TO <wa>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
SELECT * FROM (p_table) into <wa>.
WRITE:/ <wa>.
ENDSELECT.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
wieder was gelernt. So gehts:
Code: Alles auswählen.
PARAMETERS: p_table TYPE tabname.
FIELD-SYMBOLS: <wa> TYPE ANY.
DATA: rc TYPE sysubrc,
dref TYPE REF TO data.
* Check auf Tabellen-Existenz
CALL FUNCTION 'DD_EXIST_TABLE'
EXPORTING
tabname = p_table
status = 'M'
IMPORTING
subrc = rc.
IF rc <> 0.
EXIT.
ENDIF.
CREATE DATA dref TYPE (p_table).
ASSIGN dref->* TO <wa>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
SELECT * FROM (p_table) INTO <wa>.
WRITE:/ <wa>.
ENDSELECT.
Jetzt wollte ich grad loswerden, dass ich es geschafft habe mit dem Tipp. DANKE! Und hier ist mein Code:
Code: Alles auswählen.
* Variablen
PARAMETERS: p_table TYPE tabname.
FIELD-SYMBOLS: <wa>.
DATA: rc TYPE sysubrc,
dref TYPE REF TO data.
* Check auf Tabellen-Existenz
CALL FUNCTION 'DD_EXIST_TABLE'
EXPORTING
tabname = p_table
status = 'M'
IMPORTING
subrc = rc.
IF rc <> 0.
EXIT.
ENDIF.
* Work-Area wird definiert
CREATE DATA dref TYPE (p_table).
ASSIGN dref->* TO <wa>.
IF sy-subrc <> 0.
EXIT.
ENDIF.
* Select/Update der Tabelle mit Hilfe der TWX2
SELECT * FROM (p_table) INTO CORRESPONDING FIELDS OF <wa>.
WRITE:/ <wa>.
ENDSELECT.
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
2167
Views
Views
Zugriff auf Type-definition aus PUBLIC Sector einer programm
von Thomas R. » 13.06.2006 16:03 • Verfasst in ABAP Objects®
von Thomas R. » 13.06.2006 16:03 • Verfasst in ABAP Objects®
4
Antw.
Antw.
622
Views
Views
2
Antw.
Antw.
3698
Views
Views
1
Antw.
Antw.
2081
Views
Views
Definition FNC1
von vwaadenm » 19.02.2007 12:15 • Verfasst in Material Management & Produktionsplanung
von vwaadenm » 19.02.2007 12:15 • Verfasst in Material Management & Produktionsplanung
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1096
vor 2 Tagen von DeathAndPain 4 / 1096
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1096
vor 2 Tagen von DeathAndPain 4 / 1096