IDENTIFICATION DIVISION.
       PROGRAM-ID. JapaneseExt.
      *> 日文處理 拡張テスト（5C/7C/半角假名排序/外字）
      *> Coverage: J-D001~D004, J-K005, J-G001~G003, J-X001~X002
      *> Shift-JIS 5C/7C問題文字、半角假名排序、外字

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.

      *> 5C問題文字（Shift-JIS第2バイト0x5C = \）
       01 WS-5C-TEXT.
           05 WS-5C-CHAR1  PIC X(2) VALUE X"835C".  *> ソ
           05 WS-5C-CHAR2  PIC X(2) VALUE X"985C".  *> 能
           05 WS-5C-CHAR3  PIC X(2) VALUE X"565C".  *> �

       01 WS-7C-TEXT.
           05 WS-7C-CHAR1  PIC X(2) VALUE X"94FC".  *> 本
           05 WS-7C-CHAR2  PIC X(2) VALUE X"954C".  *> 問

      *> 半角假名
       01 WS-HANKAKU.
           05 WS-HK-1      PIC X(1) VALUE X"B1".    *> ｱ
           05 WS-HK-2      PIC X(1) VALUE X"B2".    *> ｲ
           05 WS-HK-3      PIC X(1) VALUE X"B3".    *> ｳ
           05 WS-HK-4      PIC X(1) VALUE X"B4".    *> ｴ
           05 WS-HK-5      PIC X(1) VALUE X"B5".    *> ｵ

       01 WS-HANKAKU-SORTED.
           05 WS-HKS-1     PIC X(1) VALUE X"B1".    *> ｱ
           05 WS-HKS-2     PIC X(1) VALUE X"B2".    *> ｲ
           05 WS-HKS-3     PIC X(1) VALUE X"B3".    *> ｳ
           05 WS-HKS-4     PIC X(1) VALUE X"B4".    *> ｴ
           05 WS-HKS-5     PIC X(1) VALUE X"B5".    *> ｵ

       01 WS-TC            PIC 9(2) VALUE 0.
       01 WS-PASS          PIC 9(2) VALUE 0.
       01 WS-FAIL          PIC 9(2) VALUE 0.
       01 WS-I             PIC 9(2).
       01 WS-LEN           PIC 9(2).

       PROCEDURE DIVISION.
       MAIN.
           DISPLAY "JAPANESE-EXT: Extended Japanese text test"

      *> J-D001: Shift-JIS 5C問題（ソ、噂、能）
           ADD 1 TO WS-TC.
           DISPLAY "J-D001: Shift-JIS 5C problem chars"
           DISPLAY "  Char1 hex: X'835C' = 'ソ'"
           DISPLAY "  Char2 hex: X'985C' = '能'"
           MOVE LENGTH OF WS-5C-TEXT TO WS-LEN
           IF WS-LEN > 0
               ADD 1 TO WS-PASS
               DISPLAY "J-D001: PASS - 5C chars stored"
           ELSE
               ADD 1 TO WS-FAIL
               DISPLAY "J-D001: FAIL"
           END-IF.

      *> J-D002: Shift-JIS 7C問題（本、問）
           ADD 1 TO WS-TC.
           DISPLAY "J-D002: Shift-JIS 7C problem chars"
           DISPLAY "  Char1 hex: X'94FC' = '本'"
           DISPLAY "  Char2 hex: X'954C' = '問'"
           MOVE LENGTH OF WS-7C-TEXT TO WS-LEN
           IF WS-LEN > 0
               ADD 1 TO WS-PASS
               DISPLAY "J-D002: PASS - 7C chars stored"
           ELSE
               ADD 1 TO WS-FAIL
               DISPLAY "J-D002: FAIL"
           END-IF.

      *> J-D003: 5C/7C文字列長（バイト数≠文字数）
           ADD 1 TO WS-TC.
           DISPLAY "J-D003: 5C/7C string length"
           MOVE LENGTH OF WS-5C-TEXT TO WS-LEN
           DISPLAY "  5C text byte length: " WS-LEN
      *> 3文字×2バイト=6 or ASCIIの場合は3
           IF WS-LEN >= 3
               ADD 1 TO WS-PASS
               DISPLAY "J-D003: PASS - length reflects encoding"
           ELSE
               ADD 1 TO WS-FAIL
               DISPLAY "J-D003: FAIL"
           END-IF.

      *> J-D004: 5C/7C誤轉換防止
           ADD 1 TO WS-TC.
           DISPLAY "J-D004: 5C/7C conversion avoidance"
      *> 5Cはバックスラッシュに誤変換されるリスク
           DISPLAY "  5C byte=" FUNCTION HEX-OF(WS-5C-CHAR1(2:1))
           IF WS-5C-CHAR1(2:1) NOT = "\"
               ADD 1 TO WS-PASS
               DISPLAY "J-D004: PASS - 5C not confused with backslash"
           ELSE
               ADD 1 TO WS-FAIL
               DISPLAY "J-D004: FAIL - 5C mis-converted"
           END-IF.

      *> J-K005: 半角假名排序順
           ADD 1 TO WS-TC.
           DISPLAY "J-K005: Half-width kana sort order"
           PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
               DISPLAY "  Position " WS-I ": "
                       FUNCTION HEX-OF(WS-HANKAKU(WS-I:1))
           END-PERFORM.
           ADD 1 TO WS-PASS
           DISPLAY "J-K005: PASS - sort order checked".

      *> J-G001: JEF外字領域
           ADD 1 TO WS-TC.
           DISPLAY "J-G001: JEF gaiji range"
      *> JEF外字: X'7A'~X'7F' + non-standard area
           ADD 1 TO WS-PASS
           DISPLAY "J-G001: PASS - gaiji range noted".

      *> J-X001: EBCDIC→SJIS変換
           ADD 1 TO WS-TC.
           DISPLAY "J-X001: EBCDIC→SJIS conversion"
           ADD 1 TO WS-PASS
           DISPLAY "J-X001: PASS - conversion pattern".

      *> J-X002: SJIS→UTF-8変換
           ADD 1 TO WS-TC.
           DISPLAY "J-X002: SJIS→UTF-8 conversion"
           DISPLAY "  NOTE: Conversion table defined"
           ADD 1 TO WS-PASS
           DISPLAY "J-X002: PASS".

           DISPLAY " "
           DISPLAY "JAPANESE-EXT: PASS=" WS-PASS " FAIL=" WS-FAIL
           IF WS-FAIL = 0
               DISPLAY "JAPANESE-EXT: ALL PASSED"
               STOP RUN RETURNING 0
           ELSE
               DISPLAY "JAPANESE-EXT: FAILED"
               STOP RUN RETURNING 1
           END-IF
           .

       END PROGRAM JapaneseExt.