Q&A
NECSTはNEXTのことですか。
※質問を訂正しました。
古いCOBOL資産の解析がありまして、わからない構文に直面しましたのでご教授いただきたいと思います。
条件式IF文について、以下のような記述の場合、どういう処理になるのでしょうか？
IF A=8500 AND 8600 AND 8700
NEXT SENTENCE
ELSE
～～～ 以下の処理 ～～～
この場合、変数Aは、8500,8600,8700以外の時に、ELSEに入るのでしょうか？
すみません、誤字でした。。。。
NEXT SENTENCEです。
a1,b1,c1は変数名ですか。リテラルでなければ、A=a1=b2=c1変数の内容が全て同じという意味。
a1,b1,c1は便宜上変数にしていましたが、実際は数値です。
IF A=8500 AND 8600 AND 8700
NEXT SENTENCE
ELSE
～～～ 以下の処理 ～～～
この場合、変数Aは、8500,8600,8700以外の時に、ELSEに入るのでしょうか？
すみません、ややこしくしてしまいまして。。。
常に FALSE。従って常にIF false THEN NEXT SENTENCE と読めます。ELSE部分に、どこかからGOTOしてこないですか。ELSEに異常処理が書いてあって...。想像ですが。<-- これは間違い、つねにELSEです。
常にFALSE。なるほど、そういうことでしたら、Aの値に関係なくELSEになるということですね。まず、こういう書き方ができること自体驚きでしたが、社内では、”実はコードミスなんじゃないの？”という結論に落ち着きそうです。10年以上前のソースなので、作成者すでにはいませんが。。。
気になるようならミニCOBOLプログラムを書いて検証されることをおすすめします。
(ALGOLでIF FALSE ブロックというテクニックがあり、通常は実行しないのですが、エラーのときだけGO TOでブロック内のラベルに飛んできてコードを実行するというのを思い出して、つい、余計なことを言ってしまいました)
回答3件
0
ベストアンサー
わからない構文に直面しましたので
探せばCOBOL文法はたくさん見つかるのではないでしょうか。COBOL文法書
この条件式は省略形です。この形式でORは記述しますがANDは記述しません。なぜか。
COBOL
1IF A=8500 AND 8600 AND 8700
こちらが省略しない条件式です。これがTRUEになりえないのは明らか。まともなプログラムにならないのでANDは記述しないのです。
COBOL
1IF (A=8500) AND (A=8600) AND (A=8700)
pizaでCOBOLを実行できるので試してください。piza COBOL online
COBOL
1IDENTIFICATION DIVISION. 2PROGRAM-ID. MULTIPLEANDS. 3ENVIRONMENT DIVISION. 4DATA DIVISION. 5WORKING-STORAGE SECTION. 601 WORK-AREA. 7 03 A PIC 9(04) VALUE 8500. 8PROCEDURE DIVISION. 900-SAMPLE01 SECTION. 10DISPLAY A. 11IF A = 8500 AND 8600 AND 8700 THEN 12 NEXT SENTENCE 13ELSE 14 DISPLAY "ELSE1" 15END-IF. 1601-SAMPLE02 SECTION. 17IF (A = 8500) AND (A = 8600) AND (A = 8700) THEN 18 NEXT SENTENCE 19ELSE 20 DISPLAY "ELSE2" 21END-IF. 2299-EXIT. 23 STOP RUN.
私はCOBOLは読めますが（ほぼ忘れていました）書かないので、誤りがあれば指摘してください。
投稿2019/06/13 09:57
編集2019/06/13 10:17総合スコア1089
丁寧なご回答ありがとうございます。省略形ということですっきりしました。頂いたソースコードも実行してみて、納得です。この省略形曲者といいますか、なんといいますか、ちょうどIF分でもTHENって省略できますね。END-IFがあったりなかったり、COBOL85と74が混在してたり、いろいろな意味で勉強になります。
0
IF A = a1 AND b1 AND c1 THEN
ANDというのが間違いなければ、b1 c1 は、88項目ではないですかね？
データ定義を確認して下さい。
COBOL
1 01 FOO. 2 88 B1 VALUE '1'. 3 01 BAR. 4 88 C1 VALUE '2'.
であれば、
COBOL
1 IF A = A1 AND FOO = '1' AND BAR = '2' THEN
という意味です。
投稿2019/06/12 08:59
編集2019/06/13 14:22
総合スコア85773
0
恐らく誤字。
'NECST SENTENCE'→’NEXT SENTENCE'でEND-IFの次に飛ぶです。
投稿2019/06/12 08:15
総合スコア3747
気になったのでググってみた。
https://akira2kun.hatenablog.com/entry/2018/09/11/065631
申し訳ありません。誤字の為、質問が変になってました。。。
質問は、IF文における、複数ANDがどのような扱いになるかがわかりません。最初は、ORの間違いだろう？と思ったのですが。。。
質問は修正できます。
コードは https://teratail.com/help#about-markdown の [コードを入力] に修正してください。
ありがとうございます。訂正できたのですね（汗
だから、、、質問を直しなさい。
いろいろご教示感謝いたします。ありがとうございました。
ここの掲示版も直せない人にまともにCOBOLが使えるとは思えませんね。
あなたの回答
tips
プレビュー
