Definition von Parameter Data

Dies ist eine ein- oder zweistellige Zahl im Bereich von 01 bis 99 (die vorangestellte 0 ist nicht erforderlich), die in Verbindung mit der Gruppierung von Feldern verwendet wird. Felder mit einer Level-Nummer von 02 an aufwärts werden als Teil einer unmittelbar vorangehenden Gruppe mit einer jeweils nächst-niedrigeren Level-Nummer betrachtet.

Durch die Definition einer Gruppe (die auch nur aus einem Feld bestehen kann) ist es möglich, durch Angabe lediglich des Gruppennamens eine ganze Reihe von aufeinanderfolgenden Feldern gleichzeitig zu referenzieren. Bei manchen Statements (CALL, CALLNAT, RESET, WRITE usw.) können Sie den Gruppennamen als Aufrufnamen angeben, um die in der Gruppe enthaltenen Felder zu referenzieren.

Eine Gruppe kann aus weiteren Gruppen bestehen. Bei der Vergabe von Level-Nummern für eine Gruppe darf kein Level ausgelassen werden.

• Namen von Benutzervariablen in der Dokumentation Natural benutzen.

• Datenstrukturen qualifizieren im Leitfaden zur Programmierung.

Mit redefinition können Sie eine Gruppe oder ein einzelnes Feld oder eine einzelne Variable (d.h. Skalar oder Array) redefinieren. Siehe Redefinition.

Anmerkung:
In einer Parameter Data Area ist eine Redefinition von Gruppen nur innerhalb eines REDEFINE-Blocks zulässig.

Je nachdem, ob der Call-By-Reference- oder Call-By-Value-Modus benutzt wird, gilt die betreffende Übertragungsart. Weitere Informationen siehe CALLNAT- Statement.

Ohne BY VALUE (gilt standardmäßig) wird ein Parameter durch Referenzierung seiner Adresse ("By Reference") an ein Subprogramm bzw. eine Subroutine übergeben; das bedeutet, dass ein in einem CALLNAT- bzw. PERFORM-Statement als Parameter angegebenes Feld dasselbe Format und dieselbe Länge haben muss wie das betreffende Feld in dem/der aufgerufenen Subprogramm/Subroutine.

Mit BY VALUE wird ein Parameter direkt als Wert (by value) an ein Subprogramm oder eine Subroutine übergeben; d.h. statt der Adresse des Parameters wird der Wert selbst übergeben. Das bedeutet, das Feld in dem Subprogramm bzw. der Subroutine braucht nicht dasselbe Format und dieselbe Länge zu haben wie der Parameter beimCALLNAT-/PERFORM-Statement. Das Format und die Länge der beiden muss lediglich datenübertragungskompatibel gemäß den Regeln für Datenübertragung/-zuweisung sein (siehe Leitfaden zur Programmierung).

Mit BY VALUE können Sie zum Beispiel die Länge eines Feldes in einem Subprogramm bzw. einer Subroutine vergrößern (falls eine Erweiterung des Subprogramms bzw. der Subroutine dies erforderlich machen sollte), ohne deswegen auch die Objekte, die das Subprogramm bzw. die Subroutine aufrufen, anpassen zu müssen.

* Program
DEFINE DATA LOCAL
1 #FIELDA (P5)
...
END-DEFINE
...
CALLNAT 'SUBR01' #FIELDA
...

* Subroutine SUBR01
DEFINE DATA PARAMETER
1 #FIELDB (P9) BY VALUE
END-DEFINE
...

Während BY VALUE für die Übergabe eines Parameters an ein Subprogramm oder eine Subroutine gilt, bewirkt die Angabe von BY VALUE RESULT die Übergabe des Parameterwertes in beide Richtungen; d.h. der Parameterwert selbst wird vom aufrufenden Objekt an das Subprogramm bzw. die Subroutine übergeben, und bei der Rückkehr zum aufrufenden Objekt wird der Parameterwert selbst von dem Subprogramm bzw. der Subroutine an das aufrufende Objekt zurückgegeben.

Wenn Sie BY VALUE RESULT verwenden, müssen Format und Länge der betreffenden Felder in beide Richtungen datenübertragungskompatibel sein.

Bei einem ohne OPTIONAL definierten Parameter (Standard) muss ein Wert vom aufrufenden Objekt übergeben werden.

Bei einem mit OPTIONAL definierten Parameter muss ein Wert vom aufrufenden Objekt an diesen Parameter nicht unbedingt übergeben werden. Im aufrufenden Objekt wird die Notation nX benutzt, um Parameter anzugeben, die übersprungen werden, d.h. für die keine Werte übergeben werden.

Bei der SPECIFIED-Option können Sie zur Laufzeit ermitteln, ob ein optionaler Parameter definiert worden ist oder nicht.