Dataara Free Form RPG

[B.Hauser]

Du gibts den Namen der Data-Area in der Definition, innerhalb der Hoch-Komata in Groß/Klein-Buchstaben an.
Das kann er nicht finden.
M.E. müsste die Definition wie folgt lauten:

DCL-DS MyDtaFld DTAARA(*AUTO : *USRCTL : ’MYDTA’);

Birgitta

[camouflage]

Danke Baldur und Birgitta,

Hab beide Varianten versucht.

Lösung:
dcl-ds MYDTA dtaara('MYDTA');
myDtaFld zoned(3:0);
end-ds;

ergibt zumindest keinen Fehler.

@Birgitta:
die GrossKleinSchreibe hab ich nur hier im Forum verwendet.

Interessanterweise funktioniert ein direkter Zugriff auf die DS, wenn Charakter angegeben sind, wie im ET beschrieben, aber mit numerischen Daten = Bauchlandung.

[Fuerchau]

Das ist ja auch kein Wunder.
Eine DS ist vom Typ her grundsätzlich Character!
Der DS-Name ist nur für die IN/OUT relevant, der Zugriff erfolgt über den Variablennamen.
Numerische DTAARA's lassen sich nun mal nicht unterstrukturieren.
Eine Zeichen-DTAARA kann mittels Positionierung und Länge explizit auf bestimmte Bereiche zugreifen (z.B. *LDA), daher ist hier eine DS der bessere Weg.
Ggf. sollte auch eine Single-Variable (DCL-S) für numerische DTAARA's funktionieren, dann klappt ggf. auch Birgittas Referenzbeispiel.

[camouflage]

Dachte, ich informier euch noch wie's richtig funktioniert:

dcl-s MYDTAFLD packed(3:0) dtaara('MYDTA');
in MYDTAFLD;

[Fuerchau]

Wie gesagt, es klappt auch mit einer DS und der korrekten benannten Unterdefinition.
Schließlich nutze ich das durchaus in Triggern.