Anzahl Felder einer Struktur ermitteln
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo,
ich möchte folgendes realisieren.
Ich habe eine komplexe selbstprogrammierte Lösung geerbt. Wenn ich ganz ehrlich bin, gehört das Teil massiv überarbeitet, aber dazu fehlt die Zeit. Also muss ich erstmal mit dem leben, was ich vorfinde.
Nun gibt es eine Struktur mit sieben Feldern, die alle entweder 1 oder 0 sein können. Ich ermittle nun mit folgenden Coding auf Basis der dadurch entstehenden Binärzahl eine entsprechende Dezimalzahl, damit ich in einem Feld weiß, wie die Struktur gefüllt ist.
Nun die entscheidene Frage: jetzt habe ich die 7 hart in der Schleife codiert. Wie bekomme ich das ganze etwas dynamischer hin, wenn morgen ein achtes Feld hinzukommen sollte?
Ich steh da ein wenig auf dem Schlauch...
ich möchte folgendes realisieren.
Ich habe eine komplexe selbstprogrammierte Lösung geerbt. Wenn ich ganz ehrlich bin, gehört das Teil massiv überarbeitet, aber dazu fehlt die Zeit. Also muss ich erstmal mit dem leben, was ich vorfinde.
Nun gibt es eine Struktur mit sieben Feldern, die alle entweder 1 oder 0 sein können. Ich ermittle nun mit folgenden Coding auf Basis der dadurch entstehenden Binärzahl eine entsprechende Dezimalzahl, damit ich in einem Feld weiß, wie die Struktur gefüllt ist.
Code: Alles auswählen.
TYPES: BEGIN OF t_pruef,
feld1 TYPE irgendwas,
feld2 TYPE irgendwas,
feld3 TYPE irgendwas,
feld4 TYPE irgendwas,
feld5 TYPE irgendwas,
feld6 TYPE irgendwas,
feld7 TYPE irgendwas,
END OF t_pruef.
DATA wa_erg TYPE t_pruef.
wa_erg = '0101000'.
DATA lf_counter TYPE i VALUE '1'.
DATA lf_potenz TYPE i.
DATA lf_ergebnis TYPE i.
DATA lf_rest TYPE i.
FIELD-SYMBOLS: <test> TYPE t_pruef,
<field> TYPE any.
ASSIGN wa_erg TO <test>.
*--------------------------------------------------------------------*
* Codieren
*--------------------------------------------------------------------*
DO 7 TIMES.
ASSIGN COMPONENT lf_counter OF STRUCTURE <test> TO <field>.
lf_ergebnis = lf_ergebnis + ( <field> * ( 2 ** lf_potenz ) ).
ADD 1 TO lf_potenz.
ADD 1 TO lf_counter.
ENDDO.
Ich steh da ein wenig auf dem Schlauch...
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von jensschladitz (Specialist / 417 / 0 /
56
)
»
Sali,
mit folgendem Coding ist es egal wieviele Felder die Struktur erst einmal hat - wenn der Schleifenindex (Sy-index) grösser als die Anzahl Felder dann geht der Assign auf die Bretter und in der Schleife erfolgt dann der Ausstieg wenn sy-subrc <> 0
do.
assign component sy-index of structure t_pruef to <fs_any>.
if sy-subrc <> 0.
exit.
endif.
---> hier alles was du dann machen willst
if <fs_any> is assigned.
endif.
enddo.
Gruss
mit folgendem Coding ist es egal wieviele Felder die Struktur erst einmal hat - wenn der Schleifenindex (Sy-index) grösser als die Anzahl Felder dann geht der Assign auf die Bretter und in der Schleife erfolgt dann der Ausstieg wenn sy-subrc <> 0
do.
assign component sy-index of structure t_pruef to <fs_any>.
if sy-subrc <> 0.
exit.
endif.
---> hier alles was du dann machen willst
if <fs_any> is assigned.
endif.
enddo.
Gruss
Folgende Benutzer bedankten sich beim Autor jensschladitz für den Beitrag:
Barney
thanks Jens
Beitrag
von MrBojangles (Specialist / 367 / 3 /
30
)
»
Hallo,
lass doch einfach den Zusatz 7 Times weg und frag nach dem ASSIGN den SY-SUBRC ab. Wenn die Felder "aus" sind, gibt's nen RC <> 0, dann mit EXIT raus. Kleiner Tipp noch dazu. Statt eines eigenen Zählers kannst Du auch die System-Variable SY-INDEX verwenden, die wird autom. bei jedem Schleifendurchlauf um 1 inkrementiert.
EDIT: (wieder mal) zu spät
lass doch einfach den Zusatz 7 Times weg und frag nach dem ASSIGN den SY-SUBRC ab. Wenn die Felder "aus" sind, gibt's nen RC <> 0, dann mit EXIT raus. Kleiner Tipp noch dazu. Statt eines eigenen Zählers kannst Du auch die System-Variable SY-INDEX verwenden, die wird autom. bei jedem Schleifendurchlauf um 1 inkrementiert.
EDIT: (wieder mal) zu spät
Folgende Benutzer bedankten sich beim Autor MrBojangles für den Beitrag:
Barney
Weiterhin viel Freude mit SAP...
Cheers
MrB.
Cheers
MrB.
Beitrag
von jensschladitz (Specialist / 417 / 0 /
56
)
»
MrBojangles hat geschrieben:Hallo,
lass doch einfach den Zusatz 7 Times weg und frag nach dem ASSIGN den SY-SUBRC ab. Wenn die Felder "aus" sind, gibt's nen RC <> 0, dann mit EXIT raus. Kleiner Tipp noch dazu. Statt eines eigenen Zählers kannst Du auch die System-Variable SY-INDEX verwenden, die wird autom. bei jedem Schleifendurchlauf um 1 inkrementiert.
EDIT: (wieder mal) zu spät
... wer zu spät kommt den bestraft das Leben (M.Gorbatschow)
nichts für ungut
thanks Jens
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
3858
Views
Views
FI-TV: Reisekosten - Anzahl der Abzüge ermitteln ?
von Matthias_L. » 07.12.2006 12:58 • Verfasst in Financials
von Matthias_L. » 07.12.2006 12:58 • Verfasst in Financials
1
Antw.
Antw.
565
Views
Views
Felder einer dynamischen Struktur "der Reihe nach" in eine andere Struktur schreiben
von Der Formulator » 05.01.2022 18:44 • Verfasst in ABAP® Core
von Der Formulator » 05.01.2022 18:44 • Verfasst in ABAP® Core
8
Antw.
Antw.
8272
Views
Views
generische Objektdienste (BOR) - Ermitteln Anzahl Anlagen
von Kaiwalker » 25.02.2008 09:15 • Verfasst in ABAP Objects®
von Kaiwalker » 25.02.2008 09:15 • Verfasst in ABAP Objects®
2
Antw.
Antw.
28619
Views
Views
Anzahl der im String enthaltener Zeichen ermitteln
von wexpress » 13.01.2005 15:50 • Verfasst in ABAP® Core
von wexpress » 13.01.2005 15:50 • Verfasst in ABAP® Core
2
Antw.
Antw.
4417
Views
Views
Anzahl DB-Elemente in Funktionsbaustein Ermitteln(gelöst)
von beterman » 15.11.2011 19:07 • Verfasst in ABAP® für Anfänger
von beterman » 15.11.2011 19:07 • Verfasst in ABAP® für Anfänger
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
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 11 Stunden von DeathAndPain 4 / 735
vor 11 Stunden von DeathAndPain 4 / 735
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 11 Stunden von DeathAndPain 4 / 735
vor 11 Stunden von DeathAndPain 4 / 735