2.6.148 JMN5593I-S

@1@は，実行時のコード系がUNICODEの場合に使用できます．

埋め込みの説明

@1@ : FUNCTION UTF8-OFまたはFUNCTION UCS2-OF．

例題

[P5593.cob]
000001 @OPTIONS RCS(SJIS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P5593.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WCHR        PIC X(20).
000008 01 WNCHR       PIC N(10).
000009 PROCEDURE      DIVISION.
000010     MOVE FUNCTION UCS2-OF (WCHR)
000011                           TO WNCHR
000012     MOVE FUNCTION UTF8-OF (WNCHR)
000013                           TO WCHR
000014 END PROGRAM    P5593.

P5593.cob 10: JMN5593I-S FUNCTION UCS2-OFは，実行時のコード系がUNICODEの場合に使用できます．

P5593.cob 12: JMN5593I-S FUNCTION UTF8-OFは，実行時のコード系がUNICODEの場合に使用できます．