COBOL에서 반각 가타카나 문자 확인

Question

저는 RedHat6에서 COBOL을 사용하고 있습니다. 반 폭이라면 변수의 모든 자릿수를 확인하고 싶습니다. -> 계속, 기타 -> 디스플레이 오류. 기본적으로 EVALUATE 문의 WHEN 절에 모든 반자 문자를 나열합니다. 이렇게 :

PERFORM VARYING WK-IX FROM 1 BY 1 UNTIL WK-IX > WK-LENGTH 
    EVALUATE WK-FORMAT-CHK-VALUE(WK-IX:1) 
     WHEN 'A' 
     WHEN 'B' 
     WHEN 'C' 
      CONTINUE 
     WHEN OTHER 
      DISPLAY 'ERROR' 
    END-EVALUATE 
END-PERFORM. 

모든 것이 정상이지만 컴파일 할 때 나는 반자 가형 문자에 문제가 있습니다. 그것은 말했다 : "리터럴의 끝 인용 부호가 누락되었습니다. 영역 B의 끝에있는 문자는 리터럴로 간주됩니다"모든 문자는 다음 문자를 검사합니다.

툴 테니 니누 네노 하히フ ヘ ホ マ ミ モ メ モ ヤ ユ ヨ ラ ル ル レ ロ ワ ヲ ン

코드 줄이없는 것은 분명하지만 끝 인용 부호가 누락되었습니다. 이처럼 :

WHEN 'ﾂ' 
WHEN 'ﾃ' 
WHEN 'ﾄ' 

그러나이 문자는 OK 내가 모르는 이유 :

ア イ ウ エ オ カ キ ク ケ コ サ シ ス セ ソ タ チ

사람이 할 수있는 도와주세요? 부디! 나쁜 영어로 죄송합니다!

Answer 1

가타카나 문자 집합이 멀티 바이트 문자 집합으로 간주되므로 (Bill Woodger에서 언급 한 바와 같이) NSYMBOL 및 DBCS 컴파일 옵션이 활성화되어 있어야합니다. 그 후, 당신은 다음과 같이 리터럴을 정의 할 수 있어야한다 : 같은 멀티 바이트로

EVALUATE WK-FORMAT-CHK-VALUE(WK-IX:1)  
    WHEN N'ﾂ' 
    WHEN N'ﾃ' 
    WHEN N'ﾄ' 
     do something 
    WHEN OTHER 
     do something else 
END-EVALUATE 

N이 국민 문자 프로그램을 말할 것이다.

평가 절 입력은 PIC X 대신 PIC N으로 정의해야합니다. PIC X 필드는 2 바이트 문자를 인식하지 못합니다.