cobol
Déclaration MOVE
Recherche…
Remarques
MOVE est le cheval de bataille de COBOL. Les données sont déplacées d'un littéral ou d'un identificateur à un ou plusieurs identificateurs. COBOL a une distinction entre élémentaire et groupe MOVE. Les données élémentaires sont converties de type source en destination. Les données de groupe sont déplacées sous forme de tableau d'octets, sans tenir compte des types de champ avec une structure. Les champs numériques sont déplacés de droite à gauche, les troncations de chiffres d'ordre élevé avec un remplissage nul (normalement). Les caractères alphanumériques sont déplacés de gauche à droite, la troncation des caractères d'extrémité droite avec remplissage d'espace. Il y a pas mal de règles sur la façon dont MOVE fait ses affaires, avec les formulaires de données BINARY et PICTURE DISPLAY et les hiérarchies de groupe.
Certains détails de déplacement, il y a beaucoup
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