• 締切済み

COBOLの検索方法について

はじめまして。今、COBOLでプログラムを作成しているんですが初めて触る言語でわからない事が多いです。その中でデータを最後から検索して最初のスペースがあれば、それより前のデータをを出力するというのがあるのですが、やり方がよくわかりません。わかりやすく教えてもらえませんか? 図で表すと AAAAAA BBBBBB CCCCCCCC これをCから検索して、最初のスペース(BとCの間)から左側を出力するプログラムで

  • kat11
  • お礼率20% (1/5)

みんなの回答

  • maiko0318
  • ベストアンサー率21% (1483/6970)
回答No.1

01 flg x(1) value "1". 01 mojiretu. 02 moji x(1) occurs 30. とおき、 perform A-rtn varying i from 30 by -1 until i = 1. A-rtn. if flg = "1" and moji(i) not = space then flg = "2". if flg = "2" and moji(i) = space then 「moji(1)~moji(i-1) が答え」.

kat11
質問者

お礼

遅くなりましたが、ありがとうございました。

関連するQ&A

  • COBOLの学習方法?

    C,VB,PHPなどの言語でプログラミングはしたことがありますが、 COBOL言語でプログラムを書いた経験がありません。 富士通などのホスト?機のコボルの仕事をしたいと思っておりますが 書籍などで一般的なCOBOL?を学習したいので、良書を探しております。 コボラー?と呼ばれる方にお聞きしたいのですが、コボルは何が難しいのでしょうか?つまずき易い点など知りたいです。 また、コボルでオセロは作れますか?

  • COBOLのデータ型

    こんばんわ。 現在研修をしており、COBOLの勉強をしております。 COBOLを他言語に置き換える作業を後に担当することになるようです。何の言語かは聞いておりません。勉強している中いくつかわからない点がでました。ご教授いただければと思います。 S9(6)というデータ型は符号ありの整数ということは調べました。 ファイルレコード内に上記のデータ型が存在し、出力ファイルを調べると「00000A」 という値が出力されていました。 ここでふと思ったのがAって何だ?と思いました。そもそも10進数なのか?という疑問が出て 調べるとゾーン10進数という特殊な数値のようです。 ゾーン10進数を調べても全然意味がわかりません。ゾーン部を○○とする!とかゾーン10進数の説明している記載がありますがCOBOLにはそんな記述ないし・・・ とまぁ私が知りたいのはS9(6)というデータ型をどう他言語(C言語)でどう実現しようかという内容がしりたいです。また「00000A」は実際の10進数ではどういう数値かというのも知りたいです。 以上、お手数ですがどうかよろしくお願い致します。

  • COBOLの出力処理で簡潔に

    A、B、Cがあってそれぞれフラグがたっていたら出力する AorB両方たっていた場合はAのみで。 出力する位置もA、BがたってなくてCのみの場合は詰めて表示する これを簡潔に書けないでしょうか? 言語はCOBOLです。

  • EXCLEのマクロ データの絞り込み

    EXCELのマクロについてご教授願います。 数百件のデータで、C列は同じデータは複数あるが、A列に関して別のデータが入っている。B列もほぼ同じデータ ここで条件として C列が同じデータで、A列に特定のワードが入っているデータだけを残し、他のデータを削除するというマクロを組むことは可能でしょうか。 例えば下記のようなデータで、「abcd」だけ残し 他のデータは削除する    A         B        C 1  abcd      AAAAAA      BBBBBB 2  EFGA      AAAAAA      BBBBBB 3  hijk      AAAAAA      BBBBBB 4  lnms      AAAAAA      BBBBBB 5  abGG      PPPPPP      WWWWWW 6  EFTT      PPPPPP      WWWWWW 7  POII      PPPPPP      WWWWWW 2行目から4行目と6行目委から7行目を削除し以下のような データにする。常にA列のデータに ab というキーワードが 入っていて、Cが同じデータは、abが入っているデータのみ 残し他を削除する    A         B        C 1  abcd      AAAAAA      BBBBBB 5  abGG      PPPPPP      WWWWWW のみにする

  • COBOLのプログラムで・・。

    現在COBOLプログラムを作ってまして以下のプログラムで表示結果が「EQUAL」となるようにしたいのですがどうやったらいいでしょうか?回答のほうよろしくお願いします、以下がプログラムです。 IDENTIFICATION DIVISION. PROGRAM-ID. TEST9. DATA DIVISION. * WORKING-STORAGE SECTION. * 01 GR01. 02 DATA1 PIC N(2). * 01 DATA2 PIC N(2). 02 SPACE TO DATA2 * PROCEDURE DIVISION. * MOVE SPACE TO GR01. * MOVE SPACE TO DATA2. IF DATA1 = DATA2 THEN DISPLAY "EQUAL" ELSE DISPLAY "NOT EQUAL" END-IF. * * STOP RUN. * END PROGRAM TEST9.

  • COBOLやFORTRANは勉強するといいですか?

    いつも教わってばかりですみません。 今は「MySQLとPHP、JavaScript+αができればいいな。」と皆さんからのご意見で感じました。 まだ、MySQLを始めて数日です。 お話は変わりますが 以前お世話になっていた会社の情報システム部はCOBOLを使っていました。 検索してみると、 http://ja.wikipedia.org/wiki/COBOL http://ja.wikipedia.org/wiki/FORTRAN http://journal.mycom.co.jp/news/2010/01/12/022/index.html COBOLやFORTRANもいい言語のように書いてあります。 しかし、3つ目のURLでは上位に入っていません。 JAVAかC言語などができるようになったらCOBOLやFORTRANは不要なのでしょうか? それとも別物で他のメリットがあるのでしょうか? 蛇足ですがC言語をほんのチョットかじったことがあります。 何だかコンパイルがWindowsの場合とLinuxの場合とでエラーの出方が違うように感じました。 でもこの疑問は先の話です。 COBOLやFORTRANは勉強するといいですか? まったく急ぎませんがお返事待っております。 宜しくお願い致します。

  • COBOLのサブプログラムについて。

    学校の課題でCOBOLに関するレポートを書いています。そこでいろいろネット検索しましたが細かいことは良くわかりません。教えてください。 1.COBOLはサブプログラムをオーバーロードすることができますか? 2.サブプログラムが別のサブプログラムを呼ぶ、または別のサブプログラムの宣言をすることができますか? 3.データ型を曖昧にして一般的なプロシージャをつくることは可能ですか?(C++でいう<template>的なことです。) 全部答えなくてもいいんでよろしくお願いしまっす。プレゼンせまってて困ってますマジでお願いします。

  • 【COBOL】みずほ銀行の新MINORIシステムは

    【COBOL】みずほ銀行の新MINORIシステムはメインフレームの勧銀の富士通のSTEPS、興銀の日立のC-base、富士銀のIBMのTOPとのCOBOLをそのまま稼働させて動かしているそうですが、COBOLはクラス化までの構文しか書けなかったはずで、それほど命令があるプログラム言語でないはずなのになぜ新しいオープンシステム言語に置き換えが出来なかったのでしょうか?解読が不明の意味が分からないんですが、全てのライブラリにあるプログラムを置き換えただけでは動かないのでしょうか?

  • パソコンで、COBOL言語開発できますか?

    会社の業務で、自分独自のプログラムを作成して仕事をしたいのですがVBやアクセス、SQL言語を最初から勉強するのは大変です。 以前COBOL言語でプログラムを開発した事があるので、その知識を 使ってパソコンでプログラムを開発できないでしょうか>? 個人なので NET_COBOL等 高額なソフトを購入する予算もありません し 開発(画面設計含む)、デバック、コンパイル、最終的に動かす制御言語までの流れもパソコンではどうなるのか? 検討もつきません。 パソコンでコンパイルと言う概念があるのかさえ 解っていません! 会社の基幹系システム(SQL)よりODBCで一旦 自分PCに必要なデータだけダウンロード(データベースaccess)し、個人の環境だけで動作できれば良いのですが! やっぱし 安価、独学では難しいでしょうか? セミナーでもあれば 教えてください。

  • COBOLから呼ばれる時

    COBOLプログラムから呼び出され、ファイルのレコードを一行読んでレコードの内容を返すというcサブルーチンを作っているのですが、COBOL←→c間でのインタフェースの扱いかたがよくわからなくて困っています。(ちなみにこのモジュールはcからも呼ばれる事がある) COBOLはコピー句(test001.cbl, test002.cbl)に値を入れて、cサブルーチンにそれを渡しています。 テストはCOBOL85を使用してるので、cサブルーチンの中のデータを見ることができません。なので、返ってくるコピー句の中身を見るのですが、とにかく値が設定されてかえってこないのです。ただ単にロジックのバグと言う可能性もあるけど(^^; 私はインタフェース環境の事がまだ良く解っていないので、今回こちらに質問した次第です。経験者の方がいましたら、どうかおしえてください。 あ、それからCOBOLから渡される値は、c側では全てchar型で受け取らなければいけないような話しを聞いたのですが、本当でしょうか? もう一つ。 コピー句の中で「F-CODE PIC X(2)」のようにハイフンがあるのですが、cではハイフンが使えないからダメなんでしょうか? たくさん質問してしまいましたが、どうかよろしく。 /COBOL側/ -------------------------------------------------- CALL 'TEST1' USING BY VALUE TEST001 TEST002. -------------------------------------------------- /cサブルーチン側/ -------------------------------------------------- int TEST1(test001, test002) char *test001; char *test002; {     ・     ・     ・ return (0); } --------------------------------------------------

専門家に質問してみよう