• 締切済み

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

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

みんなの回答

  • rootPC
  • ベストアンサー率53% (8/15)
回答No.1

末尾からスペースでなくなるまで検索する 後は引算

songs1965
質問者

補足

回答ありがとうございます。 追加で質問させて下さい。 入力した桁数が、定義したサイズよりも大きい(桁あふれ)のチェックはできますか?

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • COBOLの数字チェック

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

  • cobol コンソールからの入力

    accept文でコンソールからの入力を受け付け、通常は20文字を受け付けるが、EXITの4文字が入力された時にはstop runが実行される、という プログラムを作りたいのですが、EXITの4文字を入力後、残り16文字分の無駄打ちをさせずに済ませる方法はないでしょうか?

  • COBOLの文字列検索を教えて下さい。

    cobol初心者です。 「100バイトのレコードを複数件読み込み、決まった文字列を検索する」というPGMを作ろうとしています。 03 REC-1 PIC X(100) 03 REC-2 PIC X(05) という定義があるとき REC-1 = "abcdefghijklmnopqrstu…"       というデータに対して、 REC2 = "hijkl"                    の検索をしたい場合 どのようなコーディングで調べることができるのでしょうか? 何レコード目の何バイトでヒットしたかを表示したいので、 INSPECT命令は使用せず、REC-1を1バイト単位で取り出して、 1文字ずつ判定しようと思っています。 レコードを越えてのヒットは行いません。 この場合配列を使うという考え方は正しいですか? 読み込んだ100バイトのレコードを1バイト単位で取り出して比較するには、 REDEFINEを用いて再定義すると考えています。 その場合のREADでの読み込み方がよくわかりません。 コーディング例等を載せてもらえると助かります。 cobolをはじめたばかりで、基本的な知識が抜けているかもしれません・・・ よろしくお願い致します。

  • 入力チェック

    お世話になります。 JavaScriptでの正規表現で入力チェックをしたいのですが、うまくいきません。 以下のようなことをするのにはどうしたらよいのでしょうか? ■小数点のある数字の入力チェック 整数の最大桁数:6桁 少数の最大桁数:2桁 とします。 例:フィールドに以下を入力した場合 120.50 → OK 10000000.1 → NG 整数の桁数がオーバー 150.1478 → NG 小数の桁数がオーバー

  • ひらがなチェック

    Perl全くの初心者です。基本的なことかもしれませんが、お願いします。 テキストに入力されたデータが適当な値であるかどうかのチェックを行いたいと思っています。 ふりがなの項目にひらがな以外の文字が入っていないか調べたいのですが、参考になるサイトやサンプルコーディングなどあれば教えていただけますか? ひらがなのチェックは文字コードを用いてチェックしたいのですが、どのようにコーディングしたらよいのかわからず、困っています。

    • ベストアンサー
    • Perl
  • COBOL計算式の中間ワークについて

    今度「F」から「N」のマシンリプレースに伴い、業務アプリケーションを移行することになりました。言語はCOBOLでコードを移行することはできるのですが、COMPUTE命令等で計算していく過程で有効桁数や小数以下の桁数によって結果が変わってくることを懸念しています。どなたか、「F」と「N」の違い等についてご存知の方がいらっしゃいましたら教えてください。

  • 入力された文字を1文字ずつチェックする方法

    入力された文字列内に、ある特定の文字が存在するかチェックをしたいと思っています。 例えば、 "abcde~fghi" というように入力された場合、 入力された文字列の中に~(チルダ)があったらエラーにするというような感じです。 1文字ずつチェックできる方法を教えていただきたいと思います。 よろしくお願いします。

  • ループの途中でユーザーからの入力を受け付けるには?

    VBのVer.5.0です。 まったくの初心者なのでどなたか教えて下さい。 CSVファイルをEOFまで1件ずつ読み込んで、ある条件に該当したレコードの場合に、フォーム上で修正するようにしたいと思っています。 ループの途中でいったん手続きを中断し、ユーザーからの入力を受け付けるようにするにはどんな命令があるでしょうか。 SetFocusだけではフォーカスが移動するだけで入力できないまま次のレコードの読み込みへと手続きが流れてしまいます。 いったん全レコードを読み込んで変数の配列に格納してから処理するしかないのでしょうか。 以前はCOBOLのプログラミングをしていましたが、項目の入力を受け付けるのは、Acceptという命令でした。 VBでこれに該当するコマンドが何なのか知りたいと思っています。 検索してもどうしても見つけられませんでしたので、よろしくお願いします。

  • 入力された文字がIPアドレスかのチェック

    コンソール画面から入力をする方法を調べた所、以下のようにすればよいことが解かりました。 BufferedReader input = new BufferedReader(new InputStreamReader(System.in)); String a = input.readLine(); IPアドレスを入力したいので、IPアドレス以外の形式で入力された場合に エラーを表示して再入力をさせるようにしたいです。 入力された文字列がIPアドレスかどうかのチェックをどのようにすればよいでしょうか?

    • ベストアンサー
    • Java
  • COBOL サイン(符号)無しパック形式への変換

    テキストファイルで受け取った数字の文字列をCOBOLのプログラムでサイン無しパック形式に変換する必要があります。 100バイト(数字の羅列)から、50バイト(サイン無しパック)に変換しにするという内容です。 どんなコーディングをしたら、実現できるでしょうか。 分かる方は教えてください。