• ベストアンサー

COBOLの数字チェック

COBOLのコーディングで ある項目が数字かどうかのチェックをする記述はどのようでしたか? NUMERICチェックです。 久しぶりにコーディングしなければならないのですが、すでにマニュアル類も見当たりません・・・。

質問者が選んだベストアンサー

  • ベストアンサー
  • sanga12
  • ベストアンサー率39% (69/176)
回答No.2

たとえば 02 AAA  PIC 9(5). をCHECKするには、 PROCEDURE DIVISION で AAAに数字が入っていればZZZZに行く IF AAA NUMERIC GO TO ZZZZ. AAAに数字以外が入っていればZZZZに行く IF AAA NOT NUMERIC GO TO ZZZZ. ちなみに英字CHECKはNUMERICの代わりに ALPHABETICで

ogaki_3ok
質問者

お礼

ありがとうございました。 IF AAA = NUMERIC ・・・ IF AAA NOT = NUMERIC ・・・ で記述してました。ので、何度コンパイルしてもエラーでした。

その他の回答 (1)

回答No.1

回答を得る参考になるでしょうか? (COBOLは高校生時代に1年しか使っていないので、、) http://www.coboler.com/link.htm http://www2u.biglobe.ne.jp/~kobo/vbtips/vb04.html

ogaki_3ok
質問者

お礼

ありがとうございます。 別の意味で参考にさせていただきます。

関連するQ&A

  • COBOLの入力チェックについて

    COBOL初心者です。 コンソールから入力した文字列の桁数チェックをしたいのですが、どのようにコーディングすればよいですか? ACCEPT命令を使ってコンソールから入力しています。 是非よろしくお願いします。

  • COBOLについて

    COBOL初心者なのですが。 COBOLで 01 A.   03 B PIC 9(02).   03 C PIC X(02). MOVE  SPACE  TO  A. とした時、基本項目であるBには何が入っているのでしょうか? 数字項目にSPACEというのはありえないですよね。 どなたかわかる方、教えていただけませんか?

  • メーカーによるCOBOL相違について

    日立のCOBOLとIBMのCOBOLと富士通のCOBOLの相違を教えて下さい。記述面や操作面等の内容が分かれば有り難いです。Webやマニュアルの情報も分かればお願いします。

  • COBOLの文法

    COBOLの文法でたぶんシフトコードの一種だと思うのですが、 Nタイプの項目に付く'29'や'38'といった数字には どういう意味があるのでしょうか? '28''29'の組み合わせは解るのですが・・・。 よろしくお願いします。

  • COBOL97,Power-COBOLでの効率の良い書き方

    汎用機のCOBOLでは添字にはCOMP-1を使うと効率が良いとか、ベースレジスタ削減のために 01レベルのワーク領域の数を減らす(少数の01レベルの配下にワーク領域を定義する)などがマニュアルに記載されていました。 ところがパソコン/サーバ上で動くCOBOLの場合は、計算用にCOMP-3を使うと処理効率が悪い、計算用ではCOMP-3よりはDISPLAY項目、さらに良いのはCOMP-5である、などと言う記事もあり汎用機COBOLとはずいぶん違うようです。実際のところ、パソコン/サーバ上で動くCOBOLで実行時の効率が良いプログラムを書くためには、どのような事に注意すれば良いのでしょうか?

  • COBOL85のコーディングについて

    COBOL85のコーディングについて教えてください。 以下のようなレコードを持つテーブルで、CD1="B"のレコードを、(1)→(2)→(3)の降順で読み込むには、どのようにコーディングすれば可能でしょうか? コーディング例をお願いします。   CD1|CD2|DATE   ――――――――――――――――   A  |1  |20120101   A  |2  |20991231 (3) B  |1  |20120101 (2) B  |2  |20131231 (1) B  |3  |20991231   C  |1  |20120101   C  |2  |20991231

  • COBOLについて教えてください。

    助けてください。お願いします。 今COBOLを勉強しているのですが、1つのファイルに2つのキー項目があるのですが、どうやってその2つのキー項目をファイルから抜き出すのですか? 参考書を見てもあまりわからなかったので・・・

  • cobolの文法チェックソフト

    はじめまして。cobolの文法チェックするソフト探してます。ツリー構造も一緒に生成できればなおいいのですが...どなたかご存知ないでしょうか?

  • COBOLでのチェックデジット算出

    COBOL初心者です。 01 印刷領域. 03 Aコード PIC X(03). 03 Bコード PIC X(04). 03 Cコード PIC X(02). 03 チェックデジット PIC X(01). と定義した変数のA,B,Cコードだけをサブルーチンに渡して、チェックデジットを受け取りたいと思います。 このときチェックデジットを抜いた"印刷領域"を渡すことは可能でしょうか? 例) Aコード 102 Bコード 2001 Cコード 03 渡すデータ102200103 受け取るチェックデジット7 印刷領域 1022001037 という具合にしたいんですが… あと、A,B,Cコードは数字に変換しなければなりません。 すみませんがおしえてください(ToT)/~~~

  • COBOLの計算方法

    COBOLの計算方法について解らない事があり、 質問させて頂きます。 例えば、 111.112÷3=37.03733・・・ の計算で小数点第4位の切捨てまたは、切上をしたい場合、 どのようなコーディングをすればよろしいでしょうか?

専門家に質問してみよう