COBOLなら、オレに聞け!<2>
■ このスレッドは過去ログ倉庫に格納されています
0594あべんど
NGNG�@既存PGMのアウトレコードの定義はこんな感じ。
01 OUT-REC-AREA.
03 OUT-REC PIC X(80).
03 FILLER PIC X(50).
�A修正対応で以下のようにエリアを追加します。(COPY句修正)
01 OUT-REC-AREA.
03 OUT-REC PIC X(80).
03 OUT-NAME-CD PIC 9(10).
03 OUT-BUSH-CD PIC 9(04).
03 OUT-GAKU-AREA.
05 OUT-GAKU-CD OCCURS 10
PIC 9(03).
03 FILLER PIC X(06).
ここで、追加したOUT-NAME-CDとOUT-BUSH-CDとOUT-GAKU-CDを初期化後、
値をセットしないとノーマルエンド。
数字をセットするとアベンドしてしまう。
アベンドコードは「0C7」。
どの部分が悪い可能性が高そうでしょうか?
曖昧な質問ですいません。
■ このスレッドは過去ログ倉庫に格納されています