000000 IDENTIFICATION DIVISION.
000010 PROGRAM-ID. SAMPLE001.
000020 DATA DIVISION.
000030 WORKING-STORAGE SECTION.
000040 01 A004 PIC 9V99       VALUE 3.75.
000050 01 A005 PIC S9(5)V9(3) VALUE 123.456.
000060 01 A006 PIC V999       VALUE .987.
000070 PROCEDURE DIVISION.
000080 MAIN00.
000090     COMPUTE A004 = A004 * 10.
000100     DISPLAY "A004 = " A004.
000110     COMPUTE A005 = A005 - 10000.
000120     DISPLAY "A005 = " A005.
000130     ADD 1.013 TO A006.
000140     DISPLAY "A006 = " A006.
000150     STOP RUN.