例題
[P2552.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2552. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WDA1 PIC X(20). 000007 01 WDA2 PIC X(20). 000008 PROCEDURE DIVISION. 000009 SET WDA1 TO ALL "A" 000010 END PROGRAM P2552.
P2552.cob 9: JMN2552I-S SET文のTOの後は，指標名，指標データ項目，整数項目または正の整数でなければなりません．
