Wie erhalte ich Subfelder einer qualifizierten externen Datenstruktur in RPGLE?

[coolie]

Hallo Birgitta,

zuerst mal ein dickes "Danke schön" für die letzten Hilfen.

Der Hinweis mit dem overlay wäre mir ja die liebste Lösung, aber funktioniert leider nicht so wie's sollte.

Nochmals in Kürze:

Datei BUCHUNGEN enthält ein Feld FLDNUM in Länge 7P 0, welches ein Datum im Format CYYMMDD enthält.

Für diese Datei existiert im Programm eine qualifizierte externe Datenstruktur.

Ich möchte vom Feld FLDNUM die rechten 6 Stellen erhalten, also YYMMDD.

Die vorgeschlagene Overlay-Definition (NEWFLD2 5P 0 overlay(FLDNUM: 2) wird zwar vom Compiler umgewandelt, ergibt aber als Ergebnis den falschen Feldinhalt "YMMDD".

Definiere ich aber

d BU e ds extname(Buchungen) qualified
d NewFld2 6p 0 overlay(FldNum : 2)

so erhalte ich die Fehlermeldung:

*RNF7303 Mit dem Schlüsselwort OVERLAY definiertes Unterfeld NEWFLD2 ist zu groß; die Bestimmung wird ignoriert.

Was mache ich denn da falsch??

Grüße
coolie

[Fuerchau]

Einfach rechnen !
6p 0 beginnt an der Stelle 1, nur die linke Tetrade wird ignoriert. Ob zur Laufzeit aber das richtige Ergebnis kommt, kann ich nicht sagen.
Vorsichtig dann bei Zuweisungen. Die linke Tetrade wird dann immer auf 0 gesetzt !