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.
 Zurück zu Acc-Cobol: Intrinsic Functions - Mathematische Funktionen
 Hoch zu Acc-Cobol: Intrinsic Functions - Übersicht
 Weiter zu Datumsfunktionen
|
Home