例
000001 @OPTIONS 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3536. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X(8). 000008 01 B PIC N(8). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 MOVE FUNCTION NATIONAL-OF ( A N"##" ) TO B. 000012 END PROGRAM C3536.
C3536I-W.cob (11) : JMN3536I-S FUNCTION NATIONAL-OFの引数-2は,項類が日本語,かつ長さが1文字でなければなりません.