cobol
MOVE uttalande

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


Anmärkningar

MOVE är arbetshästen för COBOL. Data flyttas från bokstavliga eller identifierare till en eller flera identifierare. COBOL har en distinktion mellan elementär och grupp MOVE. Elementära data konverteras från källa till destination. Gruppdata flyttas som en byte-grupp, utan hänsyn till fälttyper med en struktur. Numeriska fält förflyttas från höger till vänster, hög ordning med siffra avkortning med nollfyllning (normalt). Alfanumeriska teckenuppgifter flyttas från vänster till höger, höger ändteckenavkortning med mellanslag. Det finns en hel del regler för hur MOVE går till sin verksamhet, med både BINARY och PICTURE DISPLAY-dataformulär och grupphierarkier som alla står för.

ange bildbeskrivning här

Vissa flytta detaljer, det finns många

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
Licensierat under CC BY-SA 3.0
Inte anslutet till Stack Overflow