RosettaCodeData/Task/Variables/COBOL/variables-1.cobol

6 lines
113 B
COBOL

MOVE 5 TO x
MOVE FUNCTION SOME-FUNC(x) TO y
MOVE "foo" TO z
MOVE "values 1234" TO group-item
SET some-index TO 5