COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-131
MOVE TO
PROCEDURE DIVISION.
BEGIN-PROCESSING.
MOVE ITEM-A TO TEMP1
* TEMP1 is set to "AAAA"
MOVE ITEM-A TO TEMP2
* TEMP2 is set to "AAAAA "
MOVE ITEM-B TO TEMP3
* TEMP3 is set to 00002v380
* where "v" marks the decimal location
MOVE ITEM-B TO TEMP4
* TEMP4 is set to 2v3
* where "v" marks the decimal location
MOVE SPACES TO RECORD-IN
* RECORD-IN is set to " "
* (9 spaces)
MOVE ZEROS TO ITEM-B
* ITEM-B is set to 00v00
* where "v" marks the decimal location
MOVE 5280 TO ITEM-C.
* ITEM-C is set to " 5,280.00"
MOVE ITEM-C TO TEMP-3.
* TEMP-3 is set to 05280v000
* where "v" marks the decimal location
MOVE ZEROS TO TEMP-5.
* Each 2-digit T in TEMP-5 is set to
* the 2-character value "00". Do not
* move ZEROS to any group containing
* COMP or NATIVE-n items, because the
* operation delivers characters.
* Do not move LOW-VALUES to a group
* of numeric items -- instead use
* INITIALIZE ...
* REPLACING NUMERIC DATA BY ZERO
Example 9-44. MOVE TO Statements (page 2 of 2)