例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2868.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WPX POINTER.
000007 88 ZOKPX VALUE ZERO.
000008 88 ZNGPX VALUE 1.
000009 PROCEDURE DIVISION.
000010 END PROGRAM P2868.
P2868.cob (8) : JMN2868I-S 条件変数がポインタデータ項目である条件名のVALUE句には,表意定数ZEROまたはNULLを指定しなければなりません.