Code for Program of move clause in Cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. decmove.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 src PIC x(6) value"123.45".
01 dest PIC 9(3)v99 value 123.45.
PROCEDURE DIVISION.
movedec.
MOVE src TO dest.
DISPLAY "MOVE SRC TO DEST".
DISPLAY "SOURCE " src.
DISPLAY "DESTINATION " dest.
MOVE 123.45 TO dest.
MOVE dest TO src.
DISPLAY "MOVE DEST TO SRC".
DISPLAY "SOURCE " src.
DISPLAY "DESTINATION " dest.
STOP RUN.