AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます

10:Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます
EXCHANGE 07/19 16:24
☆ 拝見させていただいて、前任者はかなり古風なソフト書法をご存じの方と思います。ひょっとしたらA−VX以外でのCOBOLを使っておられた経験者かも?low-value high-valueをendがらみで使われているところなんかそれっぽい感じがします)

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

以下、(江須扇氏より引用)
>それにしても旧100からCOBOLがあったのでそれを引き継いだプログラムが多いので
>GO TO ありありのプログラムはやむを得ないかもしれませんが
>新規であればCOBOL85はEND−XXXとPERFORM
を使った構造化プログラムが作成が可能になります。
>データベースのSELECTと命令と組み合わせると
かなりすっきりしたプログラムになります。

1-

BluesBB ©Sting_Band