Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]


Re: AT END が無視されて、再度、DELE... GAI 2015-7-17 15:57
Re: AT END が無視されて、再度、DELE... EXCHANGE 2015-7-19 16:24
Re: AT END が無視されて、再度、DELE... MAKI 2015-8-4 14:53

9 Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます
GAI 2015-7-17 15:57  [返信] [編集]

こんにちは。

ためしに、

MOVE HIGH-VALUE TO XXXX-KEY2.



MOVE 88888888 TO XXXX-KEY2.

とやったら、エラーにならなくなりました。

上位のロジックでは、

XXXX-KEY2 が 88888888 だったら、
処理修了的に手続きを仕込みました。

とりあえず無理やりですが、これで運用はできそうですが、
なんで HIGH-VALUE を入れたら
十進数エラーなのかは不思議です。







10 Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます
EXCHANGE 2015-7-19 16:24  [返信] [編集]

☆ 拝見させていただいて、前任者はかなり古風なソフト書法をご存じの方と思います。ひょっとしたらA−VX以外でのCOBOLを使っておられた経験者かも?low-value high-valueをendがらみで使われているところなんかそれっぽい感じがします)

☆それはともかく、私は江須扇さんのご指摘が(現在なら)妥当な書法ではないかと同感いたします。

以下、(江須扇氏より引用)
>それにしても旧100からCOBOLがあったのでそれを引き継いだプログラムが多いので
>GO TO ありありのプログラムはやむを得ないかもしれませんが
>新規であればCOBOL85はEND−XXXとPERFORM
を使った構造化プログラムが作成が可能になります。
>データベースのSELECTと命令と組み合わせると
かなりすっきりしたプログラムになります。
13 Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます
MAKI 2015-8-4 14:53  [返信] [編集]

HIGH-VALUEは内部コードはFFなんで数値項目にMOVEしようとすると
不正十進数エラーになっているということではないでしょうか。
わざとアボートさせてプログラムを終了させているなんてことは
ないでしょうね?

BluesBB ©Sting_Band