例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1401. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(19). 000007 01 B PIC *(19). 000008 01 C PIC 9(10)P(9). 000009 END PROGRAM C1401.
C1401.cob (6) : JMN1401I-S PICTURE文字列で,数字のけた数は1以上18以下でなければなりません.PICTURE 9とみなします.
C1401.cob (7) : JMN1401I-S PICTURE文字列で,数字のけた数は1以上18以下でなければなりません.PICTURE 9とみなします.
C1401.cob (8) : JMN1401I-S PICTURE文字列で,数字のけた数は1以上18以下でなければなりません.PICTURE 9とみなします.