いったい一つのプログラムを組むのに何日かかって何度皆様にご迷惑をおかけしているのやら・・・。
内容は受注明細ファイルから1レコード読み、前のレコードと商品コードが一致しなかった場合、受注明細ファイルの商品コードをキーにし、商品マスタを検索。
該当レコードがあった場合商品マスタの商品名称(シフトコード含まないで)20桁を16桁に編集し、シフトコードの編集もしてから出力ファイルの商品名称にいれる。
もし商品マスタに該当レコードが無ければ、出力ファイルの商品名称に’未登録’を表示・・・
というものです。16桁編集はSUBプログラムとして補足資料に以下のものが書かれていました。
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'
以上パラメーターにデータをセットして、サブプログラムの実行(CALL)
CALL終了後、P#DATAに16桁に編集された文字列が返ってくる。
*オプションは、サブプログラム側で何かしらのエラーが発生した場合、’1’を返してくる。
以上です。
この場合どのようなプログラムになるのでしょうか?
お助けください;;
No.1
- 回答日時:
一つ疑問点があるのですが、商品マスタに登録されている品名は
IBMの漢字コードで登録されているのですよね。
それならサブプログラムまで使う必要が無いと思うのですが、
見た感じこのサブプログラムは通信などで他の漢字コードとして
入ってきた文字をIBM漢字コードに変換させる為の
プログラムの様に見えます。
IBMの漢字コードで入力している文字を20桁から16桁に
するのであれば、ただ単に適当な文字を1文字架空のフィールドに
入力してI仕様書でDSで区切って、1桁目と4桁目を取り出し
(シフトインとシフトアウト)20桁から16桁にしたときに
シフトインは入っているのでシフトアウトをいれてやるだけ
で大丈夫なはずです。
補足お願いします。
この回答への補足
仕様書にはその辺は全く記載されていません。
ファイルの設計書等もない状態です。
一応補足のプログラムを使えとだけは書いてありますが、
その他の注釈は全く皆無の状態です。
初心者にはお手上げです;;
No.2
- 回答日時:
お尋ねになりたいのは メインのコーディングですか それとも呼び出される「SUB0010R」のコーディングでしょうか? ご覧になっているのはどのような資料ですか。
社内の経験者や出入のSEさんは側にいらっしゃいませんか?
AS/400関連のメーカー情報誌には沢山サンプルがあるはずですので職場にあるものを見落としているのかもしれませんよ。
この回答への補足
メインです。
会社のサンプルですか・・・・
見れないんです;;
ユーザーがないのと、新しいマシーンへデータ移行中で使えないんです;;
No.3ベストアンサー
- 回答日時:
こんにちわ。
お書きになられているコーディングそのままでだいたい、使えると思われます。
さきほどの御質問と組み合わせると思ってらっしゃるものが出来るかと思います。
但し、サブプロでエラーの時(オプションが1以外の時)どうするかは確認されたほうがいいかと思います。
コードはわざと書きませんので、がんばってやってみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) vbaマクロについて シート1のA列にある商品コードが シート2のB列にある商品コードに該当する場合 2 2023/05/17 13:41
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Amazon アマゾン 7 2022/06/11 11:03
- Excel(エクセル) 【条件付き書式】countifsで複数条件を満たしたセルを赤くする方法 2 2023/02/09 23:53
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
ExcelのVBAコードについて教え...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
VB6のComboBox関連の書き方をVB...
-
HTML電卓で1文字消す方法
-
VLookup関数を使ってラベルに表...
-
access2003 クエリSQL文に...
-
Excel VBA素人です。VBAで図形...
-
pythonにてseleniumを使うも、...
-
ExcelVBAで「Shift_JIS(MS932)...
-
エクセルに見えない文字(JISX0...
-
レポートでグループレベルの変...
-
chatgptでつくってもらったコー...
-
JANコードとPOSコードは同じ?
-
ACCESSで、履歴事項を管理する...
-
1、Rstudioで回帰直線を求める...
-
videopadについて
-
VBAでファイルオープン後にコー...
-
CheckBoxのコントロール配列に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
COBOLの文法
-
VBAでファイルオープン後にコー...
-
Nullの使い方が不正です。
おすすめ情報