やりたいことなのですがまず一つは、前レコードの受注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を行いたい場合どのように組めばいいのか教えてください。

A 回答 (1件)

OLDCDで比較したいのであれば新しいコードのほうも受注コードと


得意先コードをつなげておく必要があります。


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

このような感じでよろしいでしょうか。
    • good
    • 0
この回答へのお礼

ありがとうございました。
おかげで助かりました^^

お礼日時:2001/12/17 16:16

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報