000000 IDENTIFICATION DIVISION.
000010 PROGRAM-ID. SAMPLE.
000020 DATA DIVISION.
000030 WORKING-STORAGE SECTION.
000040* 1桁の数字(0-9)
000050 01 A001   PIC  9       COMP-3 VALUE 9.
000060* 2桁の数字(-999～+999)
000070 01 A002   PIC  S999    COMP-3 VALUE -999.
000080* 符号付きの数字(整数部3桁、小数部2桁)(-999.99～+999.99)
000090 01 A003   PIC  S999V99 COMP-3 VALUE -123.45.
000100 PROCEDURE DIVISION.
000110 MAIN00.
000120* 01 A001 PIC 9 COMP-3.
000130     MOVE 1  TO A001.
000140     DISPLAY "A001=" A001.
000150* 01 A002 PIC S999 COMP-3.
000160     DISPLAY "A002=" A002.
000170     SUBTRACT 1 FROM A002.
000180     DISPLAY "A002=" A002.
000190* 01 A003 PIC S999V99 COMP-3.
000200     DISPLAY "A003=" A003.
000210     STOP RUN.