• 締切済み

COBOLで文字変数Aと絶対に一致しない特殊値は?

COBOLでプログラミングをしています。ある変数AとBがあり、どちらも領域はPIC X(1)です。 この変数Aを、いかなるときでも変数Bと一致させたくないとき、Bに入れる「END OF FILE」のような特殊な値って無いのでしょうか? そのような値が存在するならば、AかBにその特殊な値を入れておけばいいと思うのですが、 もし無いとすれば、以下のような処理をスマートにCOBOLで作るには、どのように作るのが一般的ですか? PERFORM文を用いて終了条件がA=Bのとき、 最初の処理では必ずPERFORMの中の処理を行い、 2回目からは終了条件で実行するかどうかを判定するような処理 よろしくお願いします。

みんなの回答

回答No.4

TEST AFTERを指定すればいいだけでは? 省略すると、TEST BEFOREです。 内PERFORMでの記述例 PERFORM TEST AFTER [VARYING ・・・] UNTIL 条件 1個以上命令 END-PERFORM

  • Tacosan
  • ベストアンサー率23% (3656/15482)
回答No.3

perform でできると思う. with test after ってないかな?

  • bajutsu
  • ベストアンサー率20% (139/693)
回答No.2

後判定じゃだめなのん?

  • PXU10652
  • ベストアンサー率38% (777/1993)
回答No.1

「この変数Aを、いかなるときでも変数Bと一致させたくないとき、Bに入れる「END OF FILE」のような特殊な値って無いのでしょうか?」  COBOL特有の値としては、「LOW-VALUE」や「HIGH-VALUE」があります。↓ http://ja.wikipedia.org/wiki/%E4%BA%88%E7%B4%84%E8%AA%9E_(COBOL)#.E4.BA.88.E7.B4.84.E8.AA.9E.E3.81.AE.E5.88.86.E9.A1.9E