2.5.163 JMN5593I-S

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

引数の説明

@1@:

FUNCTION UTF8-OFまたはFUNCTION UCS2-OF．

例

      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の場合に使用できます．