000000 IDENTIFICATION DIVISION.
000010 PROGRAM-ID. SAMPLE.
000020 DATA DIVISION.
000030 WORKING-STORAGE SECTION.
000040* 1桁の数字(0-9)
000050 01 A001   PIC  9.
000060* 2桁の数字(00-99)
000070 01 A002   PIC  99.
000080* 符号付きの数字(3桁の場合)
000090 01 A003   PIC  S9(3).
000100 PROCEDURE DIVISION.
000110 MAIN00.
000120* 01 A001 PIC 9.
000130     MOVE 1  TO A001.
000140     DISPLAY "A001=" A001.
000150     MOVE 10 TO A001.
000160     DISPLAY "A001=" A001.
000170* 01 A002 PIC 99.
000180     MOVE 12 TO A002.
000190     DISPLAY "A002=" A002.
000200     ADD   1 TO A002.
000210     DISPLAY "A002=" A002.
000220* 01 A003 PIC S9(3).
000230     MOVE 123 TO A003.
000240     DISPLAY "A003=" A003.
000250     MOVE -123 TO A003.
000260     DISPLAY "A003=" A003.
000270     MOVE -1234 TO A003.
000280     DISPLAY "A003=" A003.
000290     STOP RUN.