OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

IBM AS/400 RPG

  • すぐに回答を!
  • 質問No.175039
  • 閲覧数1436
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 49% (69/140)

プログラミング歴1週間、RPG歴1週間の初心者です。
RPGについての本やサイトが少なく、サンプルコードも数えるほどしかわからない私にどうか救いの手を・・・。
今困っているのは初歩的なものなのですが、E仕様書のテーブル定義の仕方とC仕様書で検索キーを宣言してマスタファイルから検索をかける方法がわかりません。
たとえば受注明細ファイル(トランザクションファイル)を出力するのに商品コードしか記載されてないとします。
そこで商品マスタの商品コードをキーにして、検索をかけ、該当レコードが会った場合はその商品名称を出力し、なければブランクにする・・・という感じです。
文章がおかしいので理解しずらいとは思いますが、わかる方はサンプルコードをお願いします;;
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル9

ベストアンサー率 33% (17/51)

E仕様書のテーブル定義は SEU画面上でプロンプトを出せば直ぐに分かると思います。

マスターファイルからの検索は マスターファイルに商品コードがKEYとして定義してある 或いは商品コードをKEYとした論理ファイルが前提として。

F仕様書 のファイル制御欄 に K (キー順)

C仕様書

C SHNCD CHAIN MASTER 90
C *IN90 INEQ '1'
C MOVE *BLANK SHNNM
C ELSE
C MOVE MSHNNM SHNNM
C ENDIF

商品コードの入っているフィールドでマスターを読み
読めなければ 商品名にブランクを入れる,
読めればマスターのフィールドから商品名を入れる。

上記は 商品コード単一で読む場合です。
複数のキーを使う場合は C仕様書の頭でキーリストを
定義する必要があります。

簡単ですが 不明点があれば補足して下さい。
お礼コメント
hisajiro

お礼率 49% (69/140)

ありがとうございました。
おかげで助かりました^^
投稿日時 - 2001-11-27 15:28:33
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ