例題
[P2645.cob] 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系システムの固有機能です.