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

RPGについて

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

お礼率 49% (69/140)

やりたいことなのですがまず一つは、前レコードの受注CD、得意先CD11桁と新しいレコードの受注CD、得意先CD11桁が違った場合何か処理を起こすようにしたいのですが・・・
この場合新しいレコードの11桁も前のレコードの11桁のようにi仕様書で設定しなければいけないのでしょうか?
前レコード11桁は以下のような形で行いました。

例)受注コード(6桁数字) 得意先コード(5桁数字)

(I仕様書)
DS
       1  110 OLDCD  ←(1)
       1   60 O@JHCD ←(2)受注コード
       7  110 O@TOCD ←(3)得意先コード
-------------------------------
(C仕様書)
Z-ADD受注コード  O@JHCD
Z-ADD得意先コード O@TOCD

もう一つはCHAIN命令で検索した場合、該当レコードがあった場合サブルーチン¥CALLへいき、該当レコードがなかった場合サブルーチン¥CALL2を行いたい場合どのように組めばいいのか教えてください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル14

ベストアンサー率 21% (516/2403)

OLDCDで比較したいのであれば新しいコードのほうも受注コードと
得意先コードをつなげておく必要があります。


検索コードCHAINファイル名     99
*IN99   IFEQ '0'
      EXSR \CALL
      ELSE
      EXSR \CALL2
      ENDIF

このような感じでよろしいでしょうか。
お礼コメント
hisajiro

お礼率 49% (69/140)

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

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

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

特集


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

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ