COBOLプログラム２

質問

このプログラムは売り上げファイルを読み、最初に見出し印刷し、１レコード１行で印刷し、最後に数量、金額の合計を印刷するプログラムです。
どこが間違ってるでしょうか。教えてください。
PROCEDURE＿＿DIVISION.
HAJIME.
＿＿＿OPEN INPUT IN-F OUTPUT OU-F .
＿＿＿MOVE SHOHIN-CODE TO SHOHIN.
＿＿＿MOVE SURYOU TO SURYOU.
＿＿＿MOVE DENPYO-NO TO DENPYO-NO.
＿＿＿MOVE KINGAKU-W TO KINGAKU.
＿＿＿WRITE OU-R FROM MIDASHI.
NX.＿_READ IN-F AT END GO TO OWARI.
＿＿＿MOVE SPACE TO OU-R.
＿＿＿MOVE CORRESPONDING IN-R TO MEISAI.
＿＿＿COMPUTER KINGAKU-L=SURYOU OF IN-R*TANKA OF IN-R.
＿＿＿MOVE KINGAKU-L TO KINGAKU.
＿＿＿WRITE OU-R FROM MEISAI.
＿＿＿COMPUTER SURYOU-W=SURYOU-W+SURYOU.
＿＿＿COMPUTER KINGAKU-W=KINGAKU-W+KINGAKU.
＿＿＿GO TO NX.
OWARI.
＿＿＿MOVE SURYOU-W TO G-SURYOU.
＿＿＿MOVE KINGAKU-W TO G-KINGAKU.
＿＿＿WRITE OU-R FROM GOKEI.
＿＿＿CLOSE IN-F OU-F.
＿＿＿STOP RUN.

回答No.2

rvr3958

１．下の方もおっしゃるようにCOMPUTER命令ではなくCOMPUTE命令の誤りですね。

２．COMPUTER SURYOU-W=SURYOU-W+SURYOU.は「COMPUTE SURYOU-W=SURYOU-W+SURYOU OF IN-R」でしょうか？
「SURYOU」はOPEN後の見出しに使われている項目名ですよね？

３．「MOVE SURYOU TO SURYOU.」「MOVE DENPYO-NO TO DENPYO-NO.」何故転送元と転送先が同じ名前？

とにかく項目名の説明がないとなかなか理解し辛いものがあります。項目名はプログラムを作る上での前提条件です。ここの名前をもう少し統一されるとよろしいかと思います。

回答No.1

noname#5645

>COMPUTER
COMPUTEでは無いのでしょうか？
COMPUTERでも使えるコボルもあるのかな？

>MOVE
MOVE文のところで移送している相手の項目のレベルがちょっとわかり難い部分があるのですが・・・。

ちなみに各セクションを、PROCEDURE＿＿DIVISIONの中にPERFORM文によって呼び出してやったほうが、良いですよ。
PROCEDURE＿＿DIVISIONはC言語のMAIN関数のようなものだと思えれば、今後のためになると思います。
PROCEDURE＿＿DIVISIONの中で、各セクションの中にフラグをたてて終了条件をつくることや、その他処理の振分けなどが出来ますし。