Verwendung von Programmzeigern

Programmzeiger können wie folgt verwendet werden:

1. als das zu rufende Programm in der CALL-Anweisung

2. als formale Parameter in der PROCEDURE DIVISION USING-Angabe

3. als aktuelle Parameter in der CALL- oder INVOKE-Anweisung

4. in der SET-Anweisung: Zuweisen von Programmzeigern oder Programmadressbezeichnern

5. in der INITIALIZE-Anweisung, um Programmzeiger-Datenfelder vorzubesetzen

6. in Vergleichsbedingungen: vergleichen mit der vordefinierten Adresse NULL, mit einem Programmadressbezeichner und anderen Programmzeigern auf Gleichheit und Ungleichheit

7. in der LENGTH-Funktion: diese Funktion liefert den Wert 4 für FUNCTION LENGTH (programmzeiger). FUNCTION LENGTH (ADDRESS OF PROGRAM ...) wird derzeit nicht unterstützt.

Beispiel 12-30

Aufruf eines Programmes mittels Programmzeiger:

01 pgmptr USAGE PROGRAM-POINTER.
SET pgmptr TO ADDRESS OF PROGRAM "UPROGP".
CALL pgmptr.

Beispiel 12-31

Aufruf eines Unterprogrammes mit einem Programmzeiger als Parameter:

01 pgmptr USAGE PROGRAM-POINTER.
SET pgmptr TO ADDRESS OF PROGRAM "UPROGP".
CALL "UNTER" USING pgmptr.