cobol => Операция MOVE

замечания

MOVE является рабочей лошадкой COBOL. Данные перемещаются из литерала или идентификатора в один или несколько идентификаторов. COBOL имеет различие между элементарным и групповым MOVE. Элементарные данные преобразуются по типу от источника к месту назначения. Групповые данные перемещаются в виде байтового массива без учета типов полей со структурой. Числовые поля перемещаются справа налево, усечение цифр высокого порядка с нулевой заполнением (обычно). Буквенно-цифровые символьные данные перемещаются влево и вправо, усечение символа правой стороны с заполнением пробела. Существует множество правил о том, как MOVE занимается своим бизнесом, как с формами данных BINARY, так и с PICTURE DISPLAY, и все иерархии групп учитываются.

Некоторые данные MOVE, есть много

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

Лицензировано согласно CC BY-SA 3.0

Не связан с Stack Overflow

cobol
Операция MOVE

Поиск…

замечания

Некоторые данные MOVE, есть много