Inhalt
Index
Support Über uns
Home

7.4 Charakterfunktionen





7.4.1 NUMVAL




 
Format:
function numval(argument)


Der Inhalt des Arguments wird auf folgendes Format überprüft

[Vorzeichen] String [Vorzeichen]

wobei String eine Zusammensetzung aus den Ziffern 0-9, Tausenderpunkten und Komma ist.


Numval gibt den numerische Wert zurück.


Siehe char.cob



7.4.2 NUMVAL-C




 
Format:
function numval-c(argument1 [argument2])


Der Inhalt von Argument1 wird auf folgendes Format überprüft

[argument2] [Vorzeichen] String [Vorzeichen] [argument2]

wobei String eine Zusammensetzung aus den Ziffern 0-9, Tausenderpunkten und Komma ist.

Argument2 kann z.B. die Währungsbezeichnung EUR sein.

Siehe char.cob


7.4.3 CHAR




 
Format:
function char(argument)


Erzeugen eines Charakters (PIC X), dessen numerischer Wert dem Argument entspricht.

Function char ist die Umkehrung von Function ord.

Siehe char.cob


7.4.4 ORD




 
Format:
function ord(argument)


Gibt den numerischer Wert des Charakters zurück, der als Argument übergeben wird.

Function ord ist die Umkehrung von Function char.

Siehe char.cob


7.4.5 LENGTH




 
Format:
function length(argument)


Gibt die Anzahl Bytes zurück, die das Cobolprogramm für die Variable Argument im Speicher reserviert hat.

Siehe char.cob


7.4.6 REVERSE




 
Format:
function reverse(argument)


Gibt die Charakterfolge des Arguments in umgekehrter Reihenfolge zurück.

Siehe char.cob


7.4.7 UPPER-CASE




 
Format:
function upper-case(argument)


Erzeugt die Charakterfolge des Arguments mit Großbuchstaben.

Siehe char.cob



7.4.8 LOWER-CASE




 
Format:
function lower-case(argument)


Erzeugt die Charakterfolge des Arguments mit Kleinbuchstaben.

Siehe char.cob


7.4.9 Beispielprogramm für Charakterfunktionen




 Beispielprogramm char.cob:


       identification division.
       data division.
       working-storage section.
        01 cval        pic 999 value 200.
        01 xval        pic x.
       procedure division.


         display 'Charakter-Funktionen'
         display ' '
         display 'Numval von ' ' - 1,23 und 200,50- ' 
               function numval(' - 1,23 ') ' '
               function numval('200,50+').


         display 'Numval-c von EUR 5.120,00 ist ' function
                 Numval-c('EUR 5.120,00','EUR').


         display 'Sonderzeichen von 200 bis 220: ' with no advance.
        loop.
         display function char (cval) with no advance.
         add 1 to cval.
         if cval < 221 go to loop.
         move function char (253) to xval.
         display ' '.
         display 'Ord von ' xval ' ist ' function ord (xval).
         display 'Reverse von abcde  ist ' function reverse('abcde').
         display 'Das Feld cval belegt ' function length(cval) ' Bytes'.
         display 'Upper-Case von abcde ist ' 
                       function upper-case('abcde').
         display 'Lower-Case von ABCDE ist ' 
                       function lower-case('ABCDE').


         call getchar.






Charakterfunktionen: Ausgabe des Beispielprogramms char.cob




Zurück zu Acc-Cobol: Intrinsic Functions - Mathematische Funktionen    Hoch zu Acc-Cobol: Intrinsic Functions - Übersicht    Weiter zu Datumsfunktionen
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.