例
000001 @OPTIONS RCS(UTF8-UCS2)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3532I-W.
000004 ENVIRONMENT DIVISION.
000005 CONFIGURATION SECTION.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 DATA-1 PIC N(10).
000009 01 DATA-2 PIC X(15).
000010 PROCEDURE DIVISION.
000011 MOVE FUNCTION CAST-ALPHANUMERIC ( DATA-1 ) TO DATA-2.
000012 EXIT PROGRAM.
000013 END PROGRAM C3532I-W.
C3532I-W.cob (11) : JMN3532I-W 翻訳オプションRCS(UTF8-UCS2)またはRCS(SJIS-UCS2)指定の場合，FUNCTION CAST-ALPHANUMERICはFUNCTION DISPLAY-OFとして扱います．
詳細な説明
FUNCTION CAST-ALPHANUMERICは日本語データをコード変換することなく英数字データとして扱う関数であり，英数字と日本語のコード系が一致していることを前提としています．そのため，翻訳オプションRCSにより日本語データのコードをUnicode(UCS-2)に指定している場合には，英数字のコード系に合わせた適切なコード変換を実施するFUNCTION DISPLAY-OFの使用が適切です．
そこでNetCOBOLでは，日本語のコード系としてUnicodeが指定されている場合には，FUNCTION CAST-ALPHANUMERICはFUNCTION DISPLAY-OFとみなして翻訳するようにしています．