例題
[P2736.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2736. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RESULT PIC 1(1). 000007 88 OK VALUE B"1". 000008 88 NG VALUE B"0". 000009 PROCEDURE DIVISION. 000010 SET OK TO ON 000011 END PROGRAM P2736.
P2736.cob 10: JMN2736I-S SET文のTOの後は，TRUEでなければなりません．
詳細な説明
SET文に指定した条件名の条件名記述項（レベル番号が88）に書いたVALUE句の値を，条件名に関係付けた条件変数に設定します．
