Inhalt
Index
Support Über uns
Home

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


© 1980-2017 Acc Computertechnik GmbH All rights reserved.