例題
[C3371.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3371. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 CHARS PIC X(1) VALUE "4". 000007 01 I PIC 9(2). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 INSPECT FUNCTION INTEGER-OF-DAY(5) 000011 TALLYING I FOR ALL CHARS. 000012 END PROGRAM C3371.
C3371.cob 10: JMN3371I-S INSPECT文の検査対象として,整数関数および数字関数は指定できません.