COBOL4って

6:Re: x4: COBOL4って
温泉好きのうさぎ 03/04 13:53
はじめまして。

COBOL4では、PIC句の文字タイプとして N を使うことができません。 X タイプで漢字を表現します。



具体的には、COBOLでは、

PIC  N(2)  VALUE  NC”漢字”

PIC  N(2)  VALUE  NX”34413B7A”

というような書き方に対して、COBOL4では、

PIC  X(4)  VALUE  ””K34413B7A””

というようになります。



定数の指定は、二重の引用符の後に漢字を示す「K」をつけ、4桁のJISコード16進数で行います。



また、ワークステーションには120種類の簡易漢字を表示する機能があり、COBOL4でもこれを使用できますので、その場合は、例えば「伝票」という簡易漢字を表示するには、

PIC  X(4)  VALUE  ””EE000A00””

とします。



なにぶんにも約20年前の記憶で、かなりうろ覚えのため、間違っているかもしれません。



1-

BluesBB ©Sting_Band