03 REC-DA PIC X(200)
03 CHR1 PIC X(30)
という定義があるとき
REC-DA = "あいうえおABC12345かきくけこさしすefg"
というデータに対して
CHR1 = "ABC" または "かきくけ" などがあるかどうかなどの検索をしたい場合
どのような命令で調べるのでしょうか?
まずCHR1の長さ3または8?4?をはかりREC-DAもこの長さに区切り順に検索していく・・・
とかいわれましたが、そんな無駄な作業が必要なんですか?
いままでC++,JAVAとかやっていたので
REC-DA.find(CHR1) = TRUE
とかそんな具合にできると思ったのですが。
良い方法を教えてください。
No.6ベストアンサー
- 回答日時:
#4,#5です。
INSPECTでは部分文字列参照が使えないかと思っていましたが、使えるようですね。len-chr1 と COUNT を数値型として、
move 0 len-chr1
inspect chr1 tallying len-chr1 for characters before " "
move 0 to COUNT
inspect REC-DA tallying COUNT for all chr1(1:len-chr1)
if COUNT = 0
then display "nakatta"
else display "atta"
end-if
No.5
- 回答日時:
#4です。
EXAMINEはINSPECTが出来る前の古い命令です。>うまい方法ないでしょうか?
そもそも、そのプログラムにおいてそういった可変長文字列のハンドリングが本当に必要か見直すことも考えられます(COBOLが得意な別の手段で解決できないか?)。可変長文字列の概念の無い言語なんですから。(オブジェクト指向の概念のない言語でオブジェクト指向プログラミングするよりはましかな)
とはいえ、現実には難しいでしょうから、面倒だけど部分文字列参照で正攻法で書くか、Cで書いてそれをCALLで呼ぶのが現実的な解でしょう。
固定長レコードを読み込みそこからユーザーが入力するものを含む
レコードを取り出したいのです。
東京都・・・・
などの固定長から例えば'5-1'を含むものとかです。
SQLが使えれば一瞬なんですが、なんとSQLすらないので
とても不便に思っています。
20バイト
"ABC123DEF456GHI789 "
から
5バイト
"123 "だと引っかからないようです。
TRIMして検索ができればいいのですが。
とっても不便に感じます。
No.4
- 回答日時:
move 0 to COUNT
inspect REC-DA tallying COUNT for all "ABC"
if COUNT = 0
then display "nakatta"
else display "atta"
end-if
で"ABC"の有無を検索できますが、chr1は固定長文字列なので、
move "ABC" to chr1
して chr1 を検索すると、"ABC" の後ろに27個の空白が続いた文字列を探すことになるので、これは目的の動作とは違うでしょう。
COBOLによっては、可変長文字列を扱えるよう拡張されたものもあるかもしれません。
なお、chr1 の文字列の長さを調べるのにinspectが使えます。
move 0 len-chr1
inspect chr1 tallying len-chr1 for characters before " ".
COBOLの文字列処理は、INSPECT,STRING,UNSTRINGの機能がうまくはまれば簡潔に書けますが、そうでないと標準関数が貧弱なので苦しいですね。
固定長ならできたようですが、可変長だとうまくいきませんね。
trimして検索とかできればいいのですが。
うまい方法ないでしょうか?
No.2
- 回答日時:
もう10年位COBOLからは離れているので記憶が薄いですが、
コンパイラによって「部分参照」ができるものがあり、
それなら文字列の一部の参照は可能です。
ただ、FIND...というわけにはいかないので、
自分で開始位置を変えながらループさせて探すことになります。
「部分参照」ができないコンパイラの場合は、
03 REC-DA
05 REC-DA-C PIC X(1) OCCURS 200
として文字列は集団名にセットして、
これを1バイト単位の配列で取り出して、
1文字ずつ判定することになるでしょう。
これだと相当時間かかりません?
ABC
abc
AbC
などを同様に扱う場合や
123
123
もいっしょに扱うとかそう言うのは標準関数で
常識的に使える物だと思いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでアルファベットか数...
-
C#で年月を比較する
-
EXCELで=より左の文字を一括で...
-
VBAでの Replace関数で、ワイル...
-
Excelで3E8を3.00E+8にしない方...
-
エクセルで文字列をtxtファイル...
-
Msgboxの×が押されたとき
-
エクセルで文字列の最大値を抽...
-
VBの「As String * 128」とは?
-
Excelで指数表現しないようにす...
-
文字列からタブコードを取り除...
-
同一セル内に関数と文字列を同...
-
16進数を10進数に簡単に変換す...
-
ダブルコーテーションでアンド...
-
【Excel VBA】複数ある特定の文...
-
VBA2005 16進を2桁で表示したい。
-
UNIX:縦一列のファイルを横一行...
-
VBA instr関数で文字列を途中か...
-
“丸(〇/○/◯)”に似た文字…
-
アクセスでのインポート時の改...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでアルファベットか数...
-
EXCELで=より左の文字を一括で...
-
文字列からタブコードを取り除...
-
VBAでの Replace関数で、ワイル...
-
Excelで指数表現しないようにす...
-
Excelで3E8を3.00E+8にしない方...
-
エクセルで文字列をtxtファイル...
-
【Excel VBA】複数ある特定の文...
-
Left関数とRight関数を合わせた...
-
同一セル内に関数と文字列を同...
-
アクセスで特定の数字以外(複...
-
MS SQLServer のSQLで文字列の...
-
エクセルで文字列の最大値を抽...
-
VBA2005 16進を2桁で表示したい。
-
ORCLEでの小数の表示方法の変更...
-
エクセル 数値データを桁をそ...
-
VBの「As String * 128」とは?
-
CStringの文字列検索&抜き出し...
-
エクセルでセル内の文字列の最...
-
Msgboxの×が押されたとき
おすすめ情報