ＲＰＧについて

基礎的なことなのですが、ＣＨＡＩＮの書き方がわかりません。
今やっているのは、受注明細ファイルを出力するもので、
受注明細ファイルの商品コードをキーにして商品マスタを検索。
該当レコードがあれば、マスタの商品名称を出力ファイルの商品名称へ送るプログラムです。
ＣＨＡＩＮを使って検索するのはわかるのですが、それをどう書けばいいかがわかりません。
またまた図々しいですが、できればサンプルのソースコードがあるとありがたいです。
よろしくおねがいします；；

No.1 回答者： freesia 回答日時： 2001/11/29 13:04

こんにちは。

RPGと格闘している者です。RPGは何で学ばれているので
しょうか。IBMのテキストなどにサンプルコードはありませんか。私は下記
のように記述します。ご参考までに。的外れだったらごめんなさい。

項目１　　　演算命令　項目２　　 　　　　　　結果 　　　　 　 　　 HI
商品コード　CHAIN　　商品マスター　　　　　　 　　　　　　　　　 標識
　　　　　　 　MOVEL 　読んだ商品名称　　 名称出力フィールド

この回答へのお礼

ありがとうございます。
またいろいろありましたらよろしくお願いします。
ＩＢＭのテキスト等無い状況なのでとても辛いです；；

お礼日時：2001/11/29 13:36

No.2 回答者： morisyu42 回答日時： 2001/11/29 13:19

こんにちわ。

＃１のfreesiaさんの回答であっていますが、ＭＯＶＥＬは標識がＯＦＦ（対象レコードがある）
時だけにしましょう。何が入るかわからないので・・・＾＾；
標識の聞き方はいろいろ有るので、また聞いてください。
また、キーが複数の時はキーフィールドを切らないと行けません。

この回答へのお礼

ありがとうございます。
またよろしくお願いします。

お礼日時：2001/11/29 13:38

No.3 ベストアンサー 回答者： taranko 回答日時： 2001/11/29 13:24

freesiaさんが言われているので、freesiaさんの例を使わせてもらい追加です。

標識には大体数字２桁をするのですが、商品コードで商品マスタを
ＣＨＡＩＮで来た時は標識は’０’できなかったときは’１’となります。
その標識を後で条件の分岐に使用します。

項目１　　　演算命令　　　　　項目２　　 　　　　結果 　　　　 　 　　 HI
商品コード　ＣＨＡＩＮ　　　商品マスター　　　　　 　　　　　　　　　 ９９
＊ＩＮ９９　ＩＦＥＱ　’０’
　　　　　　ＭＯＶＥＬ 　　読んだ商品名称　　 名称出力フィールド
　　　　　　ＥＮＤＩＦ　　

この回答へのお礼

ありがとうございます。
わかりやすく書いていただき感謝です。
またよろしくお願いします。

お礼日時：2001/11/29 13:39