Inhalt
Index
Support Über uns
Home

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
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.