はじめまして。cobol(easy)でマッチングしたいのですが、うまくいきません.jclデータなので
ファイル内に重複はあります(ソートしても結果うまくいかず)
下記のようにPGしてます。
マスタは修正はいることはないので
1:N N:1マッチングです。
大小(=,<,>)比較ではうまくいかないので
(=と^=)でマッチングしないとだめでしょうか?
cobol、vbaの命令でも意味わかりますので
ロジックのアドバイスいただけないでしょうか?
よろしくお願いします。
======PG===========
初期リード(マスタ、トラン)
メイン処理
do key1 ^= 999999 and key2 ^= 99999
key1 < key2(マスタ:トラン)
マスタ出力
マスタ読み込み
key1 > key2(マスタ:トラン)
トラン出力
トラン読み込み
key1 = key2(マスタ:トラン)
do key1 = key2 ← key1 not key2 で抜ける
マスタリード
end-do
トランリード
end-do
=======データ===========
変更前(マスタ)
0001 //d0001 dd ssssssssss
0002 //dddd2 dd dddddddddd
0003 //d00003 dd 1111111111
0004 //d55454 dd 4444444444
--------------------------------
変更後(トラン)
0001 //d0001 dd ssssssssss
0002 //dddd33 dd aaaaaaaa
0003 //d00099 dd 88888888
0005 //dd0000 dd 444444444
結果
--------------------------------------
0002,0003のレコードは変更されている
0005は追加されている
No.1ベストアンサー
- 回答日時:
ロジックのアドバイスということで!
修正されていないであろう読み込んだマスタで、新たなコピー区を作成!それが、1対Nの1ということですね?
N個あるファイルとマッチングをする際の記述例は、あらかじめ処理を定義しておくのです。
PERFORM UNTIL key1 ^= 999999
AND key2 ^= 99999
IF key1 > key2
PERFORM A
IF key1 < key2
PERFORM B
IF key1 = key2
PERFORM C
END PERFORM.
大小(=,<,>)比較で条件分岐が発生するわけですから、自ずから違う処理も発生するハズかと思われます。はじき出すデータを確保する場所も、異なるでしょうし。
ありがとうございます
データがJCLでキーの比較(<>=)できないので
一度テーブルを作って
=とnot =で判定したら結果でました。最後の
レコード(// )がうまくいきませんが
影響はないのでなんとかなりそうです。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server AccessのInsertクエリのあとつづけてDeleteクエリを行いたいがSQLでどう書いたらいい 3 2023/05/27 14:12
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Excel(エクセル) IFERROR、SMALL関数について 2 2022/08/22 23:40
- JavaScript Json のキーと値の出力の違いについて 2 2022/06/14 20:22
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- MySQL エラー 1068 (42000): 複数の主キーが定義されていますエラー 2 2022/11/17 04:36
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
smartyのforeachの使い方
-
3つの連想配列を交互に代入し...
-
添え字が全て文字列のPHPの多次...
-
foreachのなかで次のキーを参照...
-
スカラーのベクトル微分
-
forとかで連番の変数を一気に格...
-
PHP 多次元配列変数のデータ受...
-
CSVデータのn番目だけの値を取...
-
$_SESSIONに二次元配列を使える...
-
While文を使って配列の中身を全...
-
多次元配列をソートする綺麗な...
-
CSVデータの行数カウントをした...
-
プルダウンメニューにDBの内容...
-
unset使用時の利点
-
配列の書き方
-
多次元配列の一次元目の最大値...
-
String だと「 ByRef引数の型が...
-
ログファイルが一定行数を超え...
-
multiple属性のPOSTを配列で受...
-
ヒアドキュメントの中のfor文
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
foreachで上限回数指定方法また...
-
VB.NET で 二次元のハッシュは...
-
PHP、{}記号の意味
-
マッチング処理(1:N)
-
sqlのデーターを『あ行』『か行...
-
3つの連想配列を交互に代入し...
-
smartyのforeachの使い方
-
Smartyでインクリメント
-
Excel VBAでフィルター後の対象...
-
連想配列でキーを利用して一部...
-
ラジオボタンをランダムに表示...
-
ftokが動かない?
-
配列からプルダウン用のHTMLを生成
-
リストボックス複数選択抽出方法
-
関数の引数に配列を初期化なしで。
-
foreachの間にテーブルの<TR>を...
-
smartyでtplファイルでの2次元配列
-
PHPで変数名にハイフンを使うに...
-
PHPでJSONを扱うときに配列の参...
-
PHPで連想配列のプルダウンメニ...
おすすめ情報