3.64 SPRINTF: Zeichenketten ausgeben
| | | | | |
Format:
CALL SPRINTF USING Feld Format [Datenfeld1 ...]
| |
| | | |
Mit SPRINTF werden mit Hilfe der Formatangabe aus dem Feld Format die angegebenen Datenfelder in Feld übertragen. Mit Format können die Datenfelder mit %s (als String) oder %d (als Dezimalwert) angesprochen werden.
Zusätzlich zu dem %-Zeichen kann noch eine Länge angegeben werden (%nd oder %ns, wobei n die Anzahl der Stellen sind). Dabei wird das Cobolfeld als String behandelt, d.h. alle Leerzeichen am Ende des Datenfeldes werden entfernt.
Wird bei Dezimalzahlen eine führende 0 angeben, werden die nicht ausgefüllten Stellen durch dieses Zeichen ersetzt, also %0nd).
Siehe auch: DELSTRING SUBSTRING MOVSTRING GETSTRING FINDSTRING INSSTRING RSTRING TRIM
Beispiel:
identification division.
data division.
working-storage section.
77 pos pic 9999.
77 feld pic x(70).
77 len pic 9999.
77 sfeld1 pic x(40).
procedure division.
display 'Call sprintf - Beispiel'
display ' '.
display ' '.
move 'ein' to sfeld1.
call sprintf using feld 'Das ist %s Beispiel für sprintf'
sfeld1.
display feld.
move 12 to len.
call sprintf using feld
'Die Zahl %d als Beispiel ohne Längenangabe'
len.
display feld.
call sprintf using feld
'Die Zahl %5d mit der Länge 5 und Nullunterdrückung'
len.
display feld.
call sprintf using feld 'Die Zahl %05d mit der Länge 5'
len.
display feld.
call sprintf using feld 'Die Zahl %d und %s Text'
len sfeld1.
display feld.
call getchar.
Zurück zu SPOS
Hoch zu Funktionslibrary
Weiter zu STRINGLEN: Länge einer Zeichenkette ermittlen
|