例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2645.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM PIC S9(18).
000007 PROCEDURE DIVISION.
000008 EXAMINE WNUM
000009 TALLYING ALL -9
000010 END PROGRAM P2645.
P2645.cob (9) : JMN2645I-W EXAMINE文の数字定数は，符号なしでなければなりません．符号は，無効となります．
詳細な説明
EXAMINE文は，OSIV系システムの固有機能です．