cobol
MOVE-Anweisung

.NET Framework C Language C# Language C++ Java Language GNU/Linux Python Language Ruby Language SQL Microsoft SQL Server
Suche…


Bemerkungen

MOVE ist das Arbeitspferd von COBOL. Daten werden vom Literal oder Bezeichner zu einem oder mehreren Bezeichnern verschoben. COBOL unterscheidet zwischen elementar und Gruppe MOVE. Elementare Daten werden vom Typ in die Quelle konvertiert. Gruppendaten werden ohne Rücksicht auf Feldtypen mit einer Struktur als Byte-Array verschoben. Numerische Felder werden von rechts nach links verschoben, das Abschneiden von Ziffern höherer Ordnung mit Nullfüllung (normalerweise). Alphanumerische Zeichendaten werden von links nach rechts verschoben und die Zeichen werden mit Leerzeichen gefüllt. Es gibt eine Reihe von Regeln, wie MOVE mit seinen BINARY- und PICTURE DISPLAY-Datenformularen und den Gruppenhierarchien rechnet.

Geben Sie hier die Bildbeschreibung ein

Einige MOVE-Details gibt es viele

01 a PIC 9.
01 b PIC 99.
01 c PIC 999.

01 s PIC X(4).

01 record-group.
   05 field-a PIC 9.
   05 field-b PIC 99.
   05 field-c PIC 999.
01 display-record.
   05 field-a PIC Z.
   05 field-b PIC ZZ.
   05 field-c PIC $Z9.

*> numeric fields are moved left to right
*> a set to 3, b set to 23, c set to 123
MOVE 123 TO a b c

*> moves can also be by matching names within groups
MOVE a TO field-a OF record-group
MOVE b TO field-b OF record-group
MOVE c TO field-c OF record-group
MOVE CORRESPONDING record-group TO display-record

*> character data is moved right to left
*> s will be set to xyzz
MOVE "xyzzy" TO s


Modified text is an extract of the original Stack Overflow Documentation
Lizenziert unter CC BY-SA 3.0
Nicht angeschlossen an Stack Overflow