例
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の後は,指標名,指標データ項目,整数項目または正の整数でなければなりません.