例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3533. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(8). 000007 01 B PIC X(8). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 MOVE FUNCTION DISPLAY-OF ( A ) TO B. 000011 END PROGRAM C3533.
C3533.cob (10) : JMN3533I-S FUNCTION DISPLAY-OFの引数-1は,字類が日本語でなければなりません.