[orca-dev:00286] [ 解決 ]Re: Re: [MONPE]inc ファイルが生成できない。

[ichikawa kayoko <kayoko@xxxxxxxxx>]

On Tue, 17 Dec 2002 14:39:46 +0900
Koji SHIMIZU <shimizu@xxxxxxxxx> wrote:
 
>> お疲れ様です、市川です
>>
>> とある帳票ファイルが、INC生成できません。
>>
>> 1:::: red2inc で生成する
>>  red2inc ./monpe/03-kaihatu-jyutyuuhyou.red RED -o ./03.inc
>>
>> 2:::: ./03.inc をEMACSで見てみる。
>>
>> token = 260 []
>> /tmp/red-ps15004.0.rec:20:syntax error
>> /tmp/red-ps15004.0.rec:20:; missing
>>
>> ------------------
>> 略
>> ------------------
>> というのがばばばばばっと書かれていて、
>> INCが生成できていません。
>> なにかまずりましたでしょうか？
>> 
>> MONPEのバージョンは、0.4.6、
>> WOODYです。
>
>
> まず，red2rec -i <red> -r RED -o /tmp/hoge.rec を実行してみて下さい．
> すると，/tmp/hoge.rec というファイルができます．
> 
> そのファイルに変なところがないか確認して下さい．
> それでも分からなければ，/tmp/hoge.rec の内容をメールに書いて送って下さ
> い．

たびたびありがとうございました、
原因が分かりましたので書きます。

簡単に言ってしまうと、配列の名前のつけ忘れでした。
./monpe/03-kaihatu-jyutyuuhyou.red の構造は下のようになっているのですが、

        01  RED.
            02  RED-YUZAR.
              03  RED-TOU-NEN PIC X(2).
              03  RED-TOU-TUKI    PIC X(2).
              03  RED-TOU-HI  PIC X(2).
            02  RED-NAKAMI.
              03  RED-KOKYAKU PIC X(100).
              03  RED-BUTUMEI PIC X(100).
              03  RED-BUTU    PIC X(100).
              03  RED-KIKAN   PIC X(50).
              03  RED-NOUKI   PIC X(50).
              03  RED-SIUNTEN PIC X(50).
              03  RED-SEIKYU  PIC X(50).
              03  RED-NYUKIN  PIC X(50).
              03  RED-SEISAKU PIC X(50).
              03  RED-NAISEI  PIC X(50).
              03  RED-MIKOMI  PIC X(50).
              03  RED-SONOTA  PIC X(50).
              03  RED-NAKAMI1     OCCURS  4 TIMES.
                04  RED-GAITYU  PIC X(24).
                04  RED-YOTEI   PIC X(24).
                04  RED-SIHARAI PIC X(24).
                04  RED-TEKIYOU PIC X(24).
              03  RED-NAKAMI2     OCCURS  4 TIMES.
                04  RED-SIIRE   PIC X(24).
                04  RED-YOTEI   PIC X(24).
                04  RED-TEKIYOU PIC X(24).
            02  RED-KEIRI.
              03  RED-BANGOU  PIC X(100).
              03  RED-SIHARAI PIC X(100).
              03  RED-GENZAIRYOU  PIC X(100).
              03  RED-URIAGE  PIC X(100).

この RED-NAKAMI1 と RED-NAKAMI2 の名前をつけわすれていて、
6-2,6-3という名前になっていました。(自動的になった？もしくは無意識につけた？)
その場合、
$red2rec -i ./monpe/03-kaihatu-jyutyuuhyou.red -r RED -o /tmp/hoge.rec
を叩いて、/tmp/hoge.recを見てみると、

RED	{
	YUZAR	{
		TOU_NEN	varchar(2);
		TOU_TUKI	varchar(2);
		TOU_HI	varchar(2);
	};
	NAKAMI	{
		KOKYAKU	varchar(100);
		BUTUMEI	varchar(100);
		BUTU	varchar(100);
		KIKAN	varchar(50);
		NOUKI	varchar(50);
		SIUNTEN	varchar(50);
		SEIKYU	varchar(50);
		NYUKIN	varchar(50);
		SEISAKU	varchar(50);
		NAISEI	varchar(50);
		MIKOMI	varchar(50);
		SONOTA	varchar(50);
		6_2	{
			GAITYU	varchar(24);
			YOTEI	varchar(24);
			SIHARAI	varchar(24);
			TEKIYOU	varchar(24);
		}[4];
		6_3	{
			SIIRE	varchar(24);
			YOTEI	varchar(24);
			TEKIYOU	varchar(24);
		}[4];
	};
	KEIRI	{
		BANGOU	varchar(100);
 		SIHARAI	varchar(100);
		GENZAIRYOU	varchar(100);
		URIAGE	varchar(100);
	};
};

と表示されました。
エラーが出ていたのは、6_2,6_3の部分です。
「;がない」って言われていたみたいです。
名前をつけたら通りました。

以上です。

ちなみに、変数名にも数字で始まる名前をつけたところ、
おんなじようなエラーがでました。


清水さん、ありがとうございました。