Anwendungsgebiet: String-Funktionen/Konvertierungsfunktionen
Die Funktion UPPER-CASE( ) setzt alle Kleinbuchstaben im angegebenen String in Großbuchstaben um.
Der Zeichensatz (CCS), der als Basis für die Umsetzung dienen soll, ist wählbar.
Format
UPPER-CASE( ) |
STRING =string_ausdruck ,TRANSLATE = *ALL / *OUTSIDE-QUOTES-ONLY / *INSIDE-QUOTES-ONLY ,CODED-CHARACTER-SET = *STD / *EDF03IRV / *CURRENT / string_expression |
Ergebnistyp
STRING
Eingabeparameter
STRING = string_ausdruck
Bezeichnet den umzusetzenden String.
TRANSLATE =
Bezeichnet, welche Zeichen umzusetzen sind.
TRANSLATE = *ALL
Bezeichnet, dass alle Zeichen umzusetzen sind.
TRANSLATE = *OUTSIDE-QUOTES-ONLY
Bezeichnet, dass nur Zeichen außerhalb von Hochkommas umzusetzen sind.
TRANSLATE = *INSIDE-QUOTES-ONLY
Bezeichnet, dass nur Zeichen innerhalb von Hochkommas umzusetzen sind.
CODED-CHARACTER-SET =
Gibt den CCS an, der bei der Umsetzung in Großschreibung verwendet werden soll. Die Verwendung eines CCS ungleich EDF03IRV ist nur möglich, wenn das Subsystem XHCS-SYS verfügbar ist.
Der CCS muss ein 8-Bit-Code sein, 16-Bit-Codes (UTFE, UNICODE) werden nicht unterstützt.
CODED-CHARACTER-SET = *STD
Voreinstellung. Innerhalb einer Prozedur wird - wie bei *CURRENT - der über das Kommando SET-PROCEDURE-OPTIONS eingestellte TRANSLATION-CCS verwendet. Außerhalb von Prozeduren kann das Verhalten über einen optionalen Rep für SDF-P-BASYS gesteuert werden: Im Auslieferungszustand, also ohne Einsatz dieses Reps, wird kompatibel der Standardzeichensatz EDF03IRV verwendet, mit dem Rep ist (wie in Prozeduren) *STD gleichbedeutend mit *CURRENT.
CODED-CHARACTER-SET = *EDF03IRV
Nur die Zeichen, die im Standardzeichensatz definiert sind, werden übersetzt (kompatibles Verhalten)
CODED-CHARACTER-SET = *CURRENT
Die Zeichen werden entsprechend des für die Task eingestellten Coded-Character-Sets übersetzt.
CODED-CHARACTER-SET = string_expression
Die Zeichen werden entsprechend des angegebenen Coded-Character-Sets übersetzt.
Hinweis
String-Literale aus Prozeduren werden vom System bereits beim Einlesen in ein EBCDIC-kompatibles Format gebracht. Die Angabe eines CCS (expliziter Name oder implizit über Task-Einstellung) ist daher nur sinnvoll, wenn es sich um einen (erweiterten) EBCDI-Code wie z.B. EDF041 handelt, oder wenn statt String-Literalen z.B. Variableninhalte verarbeitet werden, die tatsächlich im angegeben CCS codiert wurden (z.B. mit der vordefinierten Funktion FROM-X-LITERAL).
Ergebnis
Nur aus Großbuchstaben, Ziffern und Sonderzeichen bestehender String
Fehlermeldung
SDP0539 CODED-CHARACTER-SET '(&00)' NICHT UNTERSTUETZT
SDP0540 CODED-CHARACTER-SET '(&00)' UNGUELTIG
SDP0541 CODED-CHARACTER-SET '(&00)' UNBEKANNT
SDP0542 CODED-CHARACTER-SET-FUNKTION WIRD VON DER AKTUELLEN VERSION
DES SUBSYSTEMS 'XHCS-SYS' NICHT UNTERSTUETZT
SDP0543 SUBSYSTEM 'XHCS-SYS' NICHT VERFUEGBAR
Beispiel
/A = 'abcd123' // 'gHI' /B = UPPER-CASE(STRING = A) /SHOW-VARIABLE B B = ABCD123GHI