7.1 Anwendung Intrinsic Functions
Intrinsic Functions können überall als Argumente verwendet werden. Aufgerufen werden sie durch
| | | | | |
Format:
FUNCTION name ([arg1 [arg2 ...]])
| |
| | | |
Als Argumente können beliebige Felder verwendet werden.
Eine Besonderheit stellt die Verwendung von Tabellen-Elementen in Verbindung mit ALL und Funktionen dar, die mehr als 2 Elemente verarbeiten können. Anstatt alle Elemente einzeln anzugeben, reicht der Aufruf
| | | | | |
Format:
FUNCTION name(table-element(all))
| |
| | | |
Beispiel:
01 table.
02 monat-summe pic 9(5)v99 occurs 12 indexed i.
compute summe = function sum(monat-summe(all)).
oder
display function sum(monat-summe(all)).
Durch Verwendung von variablen Tabellen können die Bereiche verändert werden.
Beispiel: Anzeigen aller Summen
01 cnt pic 99.
01 table.
02 monat-summe pic 9(5)v99 occurs 5 to 12 depending cnt
indexed i.
move 1 to cnt.
loop.
display function sum(monat-summe(all)).
add 1 to cnt.
if cnt < 13 go to loop.
Zurück zu Beispielprogramme Drucken
Hoch zu Acc-Cobol: Intrinsic Functions - Übersicht
Weiter zu Winkelfunktionen
|