01 RECORD-AREA.
03 KOKYAKU-KBN PIC X(01).
    88 KOKYAKU-KBN--MAN VALUE "1".
    88 KOKYAKU-KBN--WOMEM VALUE "2".

03 KOKYAKU-AGE PIC 9(03).
    88 KOKYAKU-AGE--YOUNG VALUE 18 THRU 29.
    88 KOKYAKU-AGE--MIDDLE VALUE 30 THRU 49.
    88 KOKYAKU-AGE--ADULT VALUE 50 THRU 69.

* 判定で使用
IF KOKYAKU-KBN--MAN

* 設定で使用
SET KOKYAKU-KBN--MAN TO TRUE ：　”１”が設定される

SET KOKYAKU-AGE--YOUNG TO TRUE ： １８（最初に定義された値）が設定される

メリット　：　判定　及び　設定のためのコンスタントをとる必要がないので、プログラム作成時のミス減少になる。
　　　　　　　プログラム間Ｉ／Ｆエリア・レコードエリアに使用することでも、ミスの減少になる。

ご意見等をE-Mａｉｌで naka9604@mxb.mesh.ne.jp までお寄せ下さい。