締切済み

COBOLのＥＶＡＬＵＡＴＥ文

2008/09/18 11:39

COBOLのEVALUATE文について質問です。 EVALUATE文で 10 > A > 20 という条件を書く場合どういう書き方をすればよろしいのでしょうか？？すみませんが、宜しくお願いします。

TEZTIME
お礼率0% (0/1)

その他（プログラミング・開発）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

noname#258293

2008/09/18 23:53 回答No.1

条件は 10 < A < 20 の誤りだと勝手に判断させていただきます。 EVALUATE　TRUE 　WHEN　A　>　10　AND　A　<　20 　　: です。

関連するQ&A

COBOLのEVALUATE文について

COBOLのEVALUATE文についてですが、以下の場合の解釈はどうなるのでしょうか？ EVALUATE Ａ=O ALSO Ｂ=0 ALSO Ｃ=0 WHEN FALSE ALSO TRUE ALSO TRUE PERFORM 　Ｚ処理 (1)Ａ≠O かつＢ=0 かつＣ=0の場合のみＺ処理を行う。 (2)Ａ≠OであればＺ処理を行う。 (1)(2)のどちらが正解でしょうか？すいませんが、よろしくお願い致します。
COBOLについて

COBOLのEVALUATE文についてですが、 EVALUATE　TRUE WHEN A =B かつ C = D 処理 WHEN E =F かつ G = H 処理・　　・ END-EVALUATE. 上記のような条件で最初のWHENの式からいずれかの式に一致した場合、一致した以降の式は実行しないのでしょうか？ (例：'A =B かつ C = D'と'E =F かつ G = H'の両方の式が合致した場合) ・A =B かつ C = Dに合致した場合の処理を実行し、WHEN E =F かつ G = H以降の　処理は実行しないという事でしょうか？　EVALUATE　TRUEの場合、'A =B かつ C = D'と'E =F かつ G = H'の式が両方とも　一致した場合は両方の処理を実行すると思うのですが、どう処理されるのか教えて　下さい。　
COBOLのＰＥＲＦＯＲＭ文

COBOL初心者です。 COBOL97使用で、 02 VAL OCCURS 15 TIMES PIC 9(4). と定義して、 PERFORM TEST BEFORE VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > 15 のPERFORM文を書きました。エラーもなく起動したのですが、１５回過ぎても永遠処理が終わりません。無限ループというのでしょうか？ 15回目でバチッと終わるにはどういたらよいでしょうか？どなたかお助け下さい。
COBOL

全商情報処理検定の２級プログラミングのＣＯＢＯＬを勉強しています。模擬問題を多く解いているのですが全く理解することができません・・・。最初に何かを初期化するのは分かるんですが、何を初期化すればよいのでしょうか？また、ＰＥＲＦＯＲＭ文がありますが何を繰り返さなければならないのか分からないんです。初期化・ＰＥＲＦＯＲＭにしてもどこを見れば良いのでしょうか？やっぱり入力形式・出力形式・処理条件を見て判断するのでしょうか？質問を押し付けるみたいになって申し訳ないんですが、分かる方いらっしゃいましたら教えてくれないでしょうか。お願いします。
EvaluateでVlookupを使いたい

マクロ初心者です。 Range("F3:F7").value = Evaluate("VLOOKUP(A3:A7,$I$9:$J1$4,2)") 件数や関数が多いので、Evaluateで時間短縮を考えています。 VLOOKUPのはじめのセルの結果が下のセルにコピーされてしまい、うまくいきません(>_<) どうしたらいいでしょうか？
COBOLのCALL文について

普段ほとんどCOBOLには触らないCOBOL初心者です。暇つぶしに業務のCOBOLソースを読んでいたら下記のような記述があったのですが、REFERENCEとVALUEが何を意味しているのかよくわかりません。 CALL "abc" USING AAA REFERENCE BBB VALUE CCC http://www.tsh-world.co.jp/sp/support/manual/V701html/gtman3/gt3_163.htm 上のサイトなどで調べたところ、CALL文にはBY REFERENCEやBY VALUEなどが続く事があるようですが、それとは微妙に異なる気がします。それはBY REFERENCEは参照渡し、BY VALUEは値渡しを指定しているという認識ですので、２つを同時に指定するのはありえないという考えからです（BYの記述がないのも気になりますが）。何かわかる方おりましたらご教示お願いします。情報が足りなければ、その旨書いて頂ければ補足いたします。（といっても手元にソースがなかったり）
COBOL

こんにちわ。COBOLプログラムの解析をしています。現状不可解な問題に直面しています。 IF A=189 AND B=200 or 201 or 202 プログラム内に上記のような判定文があります。プログラムを実行するとこの判定分が真になる場合があります。真になった際の変数A及び変数Bの中身を見てると以下の２通りでした。 (1)A=189 B = 200 (2)A= 299 B= 202 (1)は正しいと思いますが、(2)の場合に真になるということがありえるのでしょうか？いや実際に、なったのですがどういう原因が考えられるしょうか？注：会社で使用しているプログラムの為本文は出せません。
COBOLでのBIT操作

質問です。 COBOL(COBOL85)でBITを扱うことはできるのでしょうか？例えば、PL/IではBIT属性があり DCL xxx BIT(n) のような定義ができますが、 COBOLでは、BIT属性の定義ができるのでしょうか？また、合わせてCOBOL2002(?)では、上記のようなことができるのでしょうか？ COBOL2002のマニュアル本で、 xxx PIC 1(m) BIT(n) の定義文をみたことがありますが。。。
COBOLについて

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

シートＡのＡ１に商品名を入れたら、シートＢのＡ列（ｎ個）にある商品一覧のマッチングさせて、Ｂ列の単価をシートＡのＢ１に表示したいと思っています。セルの中に、EVALUATEみたいなのが入れられれば、もっと簡単にできるのでは？？と思っていますが。。。何か良い方法はありませんか？
Evaluateを[ ]で代用するときの範囲指定

質問を見ていただき、ありがとうございます。 VBAで、Evaluateを[ ]で代用して計算を行っています。たとえばA1からA3のセルに数値が入っているとき、 A1からA3までの合計をメッセージボックスに出したければワークシート関数を利用して、以下のように書けます。 Sub Sum1() Dim Ans Ans = [SUM(A1:A3)] Call MsgBox(Ans) End Sub このとき、もし範囲を変数で指定したいならばどのように書けばよいのかが解らず、困っております。たとえば、[ ]を使わずにEvaluateを使うのであれば以下のようにできるのですが、あまり美しくない気がします。 Sub Sum2() Dim Ans, R R = "A1:A3" Ans = Evaluate("sum(" & R & ")") Call MsgBox(Ans) End Sub どなたか、ぜひ良い方法をご教授ください。
COBOLの動的SQLについて

COBOLにおいて、動的にSQLを組みたいのですが、取得する方法も含めてご教授願いませんでしょうか？例) 条件によりコード＝1の場合、 SELECT A.ID,B.NAME FROM ID A,NAME B コード＝2の場合、 SELECT A.ID,B.NAME,C.ADDRESS FROM ID A,NAME B,ADDRESS C のように条件により取得する項目も数もテーブルも違います。この場合でのSQLの組み方とデータを取得する(FETCHの方法)がわかりません。また、取得する件数も1件ではありません。よろしくお願い致します。
COBOLで文字変数Aと絶対に一致しない特殊値は？

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

COBOLを最近学び出してわからないのですが、IF文の中のIF文はピリオドが要るのですか？それとも最初のIF文の終わりに（フローチャ－トの交わるところ）までピリオドは打たないのですか？初歩的な質問ですいませんがお願いします。
　cobolのカーソルについて

　cobolのカーソルについて　初投稿させていただきます。ですので体裁やルールを守れていない場合は、ご指摘願います。　cobolにおいて埋め込みSQL文によるカーソルをオープンし、fetchでテーブルを読み込む作業についてなんですが、一度のプログラム起動において同じテーブルを複数回読むにはどのようなソースを描けばよいのでしょうか。　具体的にはあるテーブルの５個のレコードを上から順に何度も読むといった次第です。　お分かりになられる方がいましたら、ご指導願います。よろしくお願いします。
COBOL

すごい簡単な問題なんで恐縮します。COBOL超初心者です。通信学習で学んでるのですが、テキストに詳しく載っていないので行き詰っています。下記A, B, Cの値を求めなさい。 MOVE 9 TO A. COMPUTE B = A / 3 COMPUTE C = A + B COMPUTE A = A * 2 で、私が考えた答は、 A = 18 B = 3 C = 12 　　　です。自分の出した答に全く自信がありません。どなたか、合っているか教えて下さいませんか？そして、間違っている場合、答の求め方を教えて下されば幸いです。宜しくお願いいたします。
COBOLで、Shellを起動するには？

UNIX上で、COBOLプログラムからShellを起動したいのですが、その方法が判りません。 CALL文を使うのかな？と思ったのですが、翻訳時にLinkエラーになってしまいます。その時書いた文 => CALL "TEST.sh" ひょっとして、出来ないのでしょうか？ COBOLが詳しくないので、単純に書き方が悪いのかも知れませんが．．．申し訳ありませんが、ご教授願います。
！！！「コボル」！！！教えてください！！！

こんにちは！今日ある会社のＰＧの面接にいってきました。中途採用です。言語はコボルを使うらしいことが求人票にかいてありました。私はまったくプログラミングの経験がありませんが、「必要経験等は特にありません」との表記がありましたので面接にいきました。ところが即戦力（もしくはある程度理解してる方）希望と言われました。そしてあなたの力を知りたいので課題を出します。といわれました。課題はまだ頂いていないのですが早速今から基礎の勉強をしようかと思っていますがまったくわからないので何からしていいのかわかりませんｗ初心者用の良いサイトご存知の方いらっしゃいましたら教えてください！あと質問がいくつかあります。よろしくお願いします！！１、教えてgooのカテゴリにはなぜ、コボルの欄がないのでしょうか？２、コボルって難しいですか？３、コボルは時代遅れで廃れてると聞きますがほんとですか？よろしお願いします！
COBOL 2002 でデータベースの接続

COBOL 2002 for .netを使っています。 COBOLが初心者で、データベースへの接続方法がわかりません。データベースはSQLServer2000です。ミドルウエアはODBCでもADO.NETでもかまいません。まずは、CONNECT文をどのようにして書くのかというところから教えていただけませんでしょうか。
COBOLのRETURN-CODE

メインフレームのCOBOLでは、RETURN-CODE特殊レジスタにリターン・コードを設定し、親のプログラムやOSで拾うことができました。引数で受け渡しした方が、詳細情報をやり取りできるため、利用頻度は高いとは言えませんでしたが。 http://oshiete1.goo.ne.jp/qa3192627.html の質問＆回答では、「COBOLのCALL文で呼ばれたプログラムから、戻り値は返却できない」といった回答がありました。Windows版のCOBOLでは、RETURN-CODEは未サポートなのでしょうか？

COBOLのＥＶＡＬＵＡＴＥ文

みんなの回答

関連するQ&A

COBOLのEVALUATE文について

COBOLについて

COBOLのＰＥＲＦＯＲＭ文

COBOL

EvaluateでVlookupを使いたい

COBOLのCALL文について

COBOL

COBOLでのBIT操作

COBOLについて

エクセルでEVALUATEみたいなこと

Evaluateを[ ]で代用するときの範囲指定

COBOLの動的SQLについて

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

COBOLのIFの入れ子について

cobolのカーソルについて

COBOL

COBOLで、Shellを起動するには？

！！！「コボル」！！！教えてください！！！

COBOL 2002 でデータベースの接続

COBOLのRETURN-CODE

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

COBOLのＥＶＡＬＵＡＴＥ文

みんなの回答

関連するQ&A

COBOLのEVALUATE文について

COBOLについて

COBOLのＰＥＲＦＯＲＭ文

COBOL

EvaluateでVlookupを使いたい

COBOLのCALL文について

COBOL

COBOLでのBIT操作

COBOLについて

エクセルでEVALUATEみたいなこと

Evaluateを[ ]で代用するときの範囲指定

COBOLの動的SQLについて

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

COBOLのIFの入れ子について

cobolのカーソルについて

COBOL

COBOLで、Shellを起動するには？

！！！「コボル」！！！教えてください！！！

COBOL 2002 でデータベースの接続

COBOLのRETURN-CODE

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

　cobolのカーソルについて

カテゴリ
一覧

専門家に質問してみよう
専門家登録