度々ＲＰＧについて

質問

いったい一つのプログラムを組むのに何日かかって何度皆様にご迷惑をおかけしているのやら・・・。
内容は受注明細ファイルから１レコード読み、前のレコードと商品コードが一致しなかった場合、受注明細ファイルの商品コードをキーにし、商品マスタを検索。
該当レコードがあった場合商品マスタの商品名称（シフトコード含まないで）２０桁を１６桁に編集し、シフトコードの編集もしてから出力ファイルの商品名称にいれる。
もし商品マスタに該当レコードが無ければ、出力ファイルの商品名称に’未登録’を表示・・・
というものです。１６桁編集はＳＵＢプログラムとして補足資料に以下のものが書かれていました。

C P#010 PLIST
C PARM P#LEN 2 桁数
C PARM P#DATA 80 文字列
C PARM P#OPT 1 オプション
以上パラメーターの定義

C MOVEL'16' P#LEN
C MOVEL*BLANK P#DATA
C MOVEL****** P#DATA
C MOVEL*BLANK P#OPT
C CALL 'SUB0010R'
以上パラメーターにデータをセットして、サブプログラムの実行（ＣＡＬＬ）
ＣＡＬＬ終了後、P#DATAに１６桁に編集された文字列が返ってくる。
＊オプションは、サブプログラム側で何かしらのエラーが発生した場合、’１’を返してくる。

以上です。
この場合どのようなプログラムになるのでしょうか？
お助けください；；

回答No.3

morisyu42 · ベストアンサー

こんにちわ。
お書きになられているコーディングそのままでだいたい、使えると思われます。
さきほどの御質問と組み合わせると思ってらっしゃるものが出来るかと思います。
但し、サブプロでエラーの時（オプションが１以外の時）どうするかは確認されたほうがいいかと思います。

コードはわざと書きませんので、がんばってやってみてください。

回答No.2

miria

お尋ねになりたいのは メインのコーディングですか それとも呼び出される「SUB0010R」のコーディングでしょうか？ ご覧になっているのはどのような資料ですか。
社内の経験者や出入のＳＥさんは側にいらっしゃいませんか？
AS/400関連のメーカー情報誌には沢山サンプルがあるはずですので職場にあるものを見落としているのかもしれませんよ。

補足

メインです。
会社のサンプルですか・・・・
見れないんです；；
ユーザーがないのと、新しいマシーンへデータ移行中で使えないんです；；

回答No.1

taranko

一つ疑問点があるのですが、商品マスタに登録されている品名は
ＩＢＭの漢字コードで登録されているのですよね。
それならサブプログラムまで使う必要が無いと思うのですが、
見た感じこのサブプログラムは通信などで他の漢字コードとして
入ってきた文字をＩＢＭ漢字コードに変換させる為の
プログラムの様に見えます。
ＩＢＭの漢字コードで入力している文字を２０桁から１６桁に
するのであれば、ただ単に適当な文字を１文字架空のフィールドに
入力してＩ仕様書でＤＳで区切って、１桁目と４桁目を取り出し
（シフトインとシフトアウト）２０桁から１６桁にしたときに
シフトインは入っているのでシフトアウトをいれてやるだけ
で大丈夫なはずです。

補足お願いします。

補足

仕様書にはその辺は全く記載されていません。
ファイルの設計書等もない状態です。
一応補足のプログラムを使えとだけは書いてありますが、
その他の注釈は全く皆無の状態です。
初心者にはお手上げです；；