TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
Visual Studio 2017 Part7
２ちゃんねる互換P2P匿名掲示板の実装を考える １
php使ってる奴はアホ、これからはRuby on Rails!
【マック】Macintoshプログラミング質問箱
逆コンパイラCodeReverseを作る
今までみた絶望的なソースコード
次世代言語10[Rust Swift TypeScript Dart]
多言語でforループを列挙していくスレ
リファクタリングをただのコード修正と思ってる人へ
【初心者歓迎】C/C++室 Ver.102【環境依存OK】
【初心者歓迎】最新COBOLについての質問スレ
- 1 ：2014/07/12 ～ 最終レス ：2019/03/11
- みんなでCOBOLの話題をしましょう。
質問あったらどうぞ。
最新リリース COBOL 2002
http://ja.wikipedia.org/wiki/COBOL
■ フリーCOBOL
OpenCOBOL
http://jp.opencobol.org/
TinyCOBOL
http://tiny-cobol.sourceforge.net/index.php
第4次COBOL規格 COBOL2002のご紹介
http://www.cobol.gr.jp/knowledge/next_standard/standard002.html
COBOL2002では、全体で約150の追加変更が行われています。ただし、追加変更項目の互換性の保持には
十分に注意がはらわれており、従来のCOBOLプログラムから外れるものではありません。大きな追加機能項目として次の項目があります。
1. コンパイル時指示機能
2. 自由形式の正書法
3. ビット操作機能
4. 漢字等の多オクテット文字機能
5. 浮動小数点データ操作機能
6. ポインタ項目とアドレス付け機能
7. 利用者定義のデータ型機能
8. 利用者定義の関数機能
9. ファイルの共用と排他制御の機能
10. 画面処理機能
11. 例外割り込み処理機能
12. データの妥当性検査機能
13. オブジェクト指向機能
14. 言語間連絡の拡張
15. 標準算術演算と３１桁への拡張
16. その他（POSIＸのロケールに対応した地域・文化固有機能、既存プログラムとの互換）
- 2 ：
- 【コボル】COBOL不要論【ただのDSLだよね?】
http://peace.2ch.sc/test/read.cgi/tech/1316444803/
COBOL vs Java 2戦目
http://peace.2ch.sc/test/read.cgi/tech/1158154668/
【COBOLから】バッチ処理【Javaまで】
http://peace.2ch.sc/test/read.cgi/tech/1200123517/
COBOL？極めてやんよ シュッシュ!!
http://peace.2ch.sc/test/read.cgi/tech/1176986660/
- 3 ：
- 1>>様のCOBOL経験は何年ですか。
私は20年程やりました。
- 4 ：
- >>3
20年って凄いね。
20年前ってことはCOBOL85だと思うけど、
最近のCOBOLってどう？
- 5 ：
- >>3
Cのポインタと同じようなことができる外部モジュールとか
オブジェクト指向とか結構機能は拡張されてますけど、
使う側が保守的なので組み方は変わってないですねー。
- 6 ：
- >>5
実際に使ってる処理系は、最新のCOBOLに対応してるんですか？
つまり、ずっと古いものを使っているのか、
最新のものに入れ替えたのに、最新機能使わずに
なんのために最新に入れ替えたのか意味不明状態なのか。
- 7 ：
- >>5
対応しています。
保守的という言葉は悪かったかな。
従来のやり方を踏襲しているだけかも。
他所は知りませんけど。
- 8 ：
- 7です。
間違えました。
>>6でした。
対応しています。
保守的という言葉は悪かったかな。
従来のやり方を踏襲しているだけかも。
他所は知りませんけど。
- 9 ：
- >>7
そうなんだ。
プログラムなんて、新しいバージョンにしても
書き方を変えないと、生産性上がらないのにね。
俺だったら、これが今のCOBOLのやり方ですが？って言って
使っちゃうけど。
- 10 ：
- COBOL2002とか実務で使うことあるんだろうか。
- 11 ：
- http://www.buzzword.jp/img/face10.png
- 12 ：
- 高2のころにVBで初めてプログラミングやって、高3でCOBOL、大学2年でC言語をやってきたが、
未だにこの3つ以外のプログラム言語は苦手だな。
26にもなってやったことのないプログラム言語を一から覚えろといわれてもきついｗ
- 13 ：
- 何を覚えろと言われたのか知らんけど
変な仕様のいっぱい残ってるCOBOLやCを既にやったんなら
たいしたことはないと思うがな
- 14 ：
- Javaやっとるけどマジわけわかやでｗ
趣味でホームページ（HTML・CSS）作ってたからJavaScriptはまだ何とかなるが、
あれはJavaの名を冠した別物だからなあ。
上から順にソースを追っていけない時点でもうキツイｗ
- 15 ：
- お前さん、作り込んだC言語のソースを追ったことないだろ
- 16 ：
- ある区分Aについて処理をループさせて、そのなかで別の区分Bをまたループさせて・・・ 処理がある場合
配列つかって、
PERFORM UNTIL 区分Aの配列の数
・・・
PERFORM UNTIL 区分B配列の数
・・・
ってな感じでやるものかな？と思うのですが、うちの会社のソースみてると
こんな感じの定義をしておいて
01 区分
03 区分A
03 区分B
PERFORM UNTIL 区分Aについてエンドフラグが建つまで
if 区分Aが○○なら・・ （区分毎の処理いっぱいでここで区分を書き換えたりしてる）
PERFORM UNTIL 区分Bのエンドフラグが建つまで
if 区分Bが○○なら・・ （区分毎の処理いっぱいで・・略）
・・・
ってな感じの記載なんですが、こういう書き方のメリットってなんかあるんすかね？
- 17 ：
- >>16
逆に聞きたいが、その制御構成のデメリットは何だと考えてますか？
メリットを書くのは簡単だけど、書いても分かろうとしないでしょ。
だったら、デメリットと思う所を挙げてもらって、
それと対比した形でメリットを書きます。
- 18 ：
- こちらが思う所のデメリットの対を書くのなら簡単ですね、分からないのなら結構です
分かってる方だとしても、わざわざそのような人を小馬鹿にした文章を書くような人から教わる気はありません
- 19 ：
- >>18
そうじゃない。>>16で何を問題にしてるのか不明なんですよ。これの何処がデメリットと見てるのか。
その理由が分からなければまともに噛み合う返事は返せないだろう。
こっちが思いついた事だけ書いても、貴方がデメリットと感じてるのと的外れになったら不毛だろう。
例えばだ。
ループ制御に配列数を使うと、配列サイズの変更でかなりのロジック変更が起きる。
配列サイズの変更を繁茂に必要とする環境なら、考慮が必要だ。
UNTIL カウンタ > 配列数 じゃなく
UNTIL カウンタ > 区分A-TLB-END とか書く。
更には、テーブルエンドまで見ない場合もある。
テーブルサーチで見つければそこでループ脱出などの時も、
UNTIL カウンタ > エンドフラグ で抜ける。
提示したコードが曖昧なので、評価しようがないんだよ。
- 20 ：
- 数字タイプの項目Nにゼロを入れる場合って、
「MOVE ZERO TO N」も「COMPUTE N = ZERO」も同じ？
- 21 ：
- >>20
うん
- 22 ：
- >>16
その書き方でメリットがありそうなのって配列の数変わってもロジックそのものを修正する
必要がない、くらいじゃね？
仕事の場合、数字変えるだけだろって思うかもだがロジックそのものを変えない方に重きをおく
- 23 ：
- 質問して返事が来たなら、然るべきリアクションをするのが礼儀。
質問して返答が気に食わんと、捨てレスするのは、どっちが小馬鹿にしてるのか。
小僧の質問レスはこういうのが多くて嫌になる。
- 24 ：
- >>21
なるほど。数字項目に「数字または数字項目」を入れる場合は、
MOVE文とCOMPUTE文のどちらを使っても問題無いということか。
数字項目以外と書き方を合わせるならMOVE文、
他のプログラム言語と書き方を合わせるならCOMPUTE文だな。
少し上でも「エンドフラグ」って出てたけど、
フラグとかスイッチって初期値ゼロで条件満たしたら1を入れてループ脱出という使い方が多いのに、
何故か数字タイプではなく文字タイプ（PIC X(1)）にすることが多いイメージがある。
- 25 ：
- >>24
文字タイプのスイッチは危ないですよ。
初期化（INITIALIZE命令）しても空白になるので、”ON”、”OFF”、”１”、”０”とか入れとかなきゃならんのを失念すると、
スイッチをすっぽ抜ける事あります。
昔、初心者だった頃、それで数日悩んだ覚えが有ります。
基本、スイッチは数字タイプで取りましょう。
但し、スイッチがオンかオフか、明示的にコード化したい時もあります。（”ARI”、”NASI” みたいに読解生を高めたい時など）
副作用持たないならば、ロジックSECTIONの各先頭に初期化する習慣をつけると良いです。
- 26 ：
- スイッチならLOW-VALUE HIGH-VALUEの二択をオススメする
それ以外に複数の選択肢がいるなら表現にそったものを
- 27 ：
- COBOL2002って規格は作ったけど、実際使ってる企業はあるのかな？
- 28 ：
- 見たことないね。85ばかり。
- 29 ：
- うちのシステムのソース見ると85より古いな。
END-IFやEND-PERFORMさえまともに使ってない。
- 30 ：
- それらは省略できるから書いてないのでは
- 31 ：
- 一生懸命、俺は宮大工と自慢して、省略せず書いていたやつがいたが
その会社は一年後に倒産しましたｗ
- 32 ：
- >>30
書いた方が気持ちがいい、そういうもんだろコボラーなら
- 33 ：
- 昔のステップ数稼ぎ
- 34 ：
- COBOLの仕事がドッカンと出てきたな
- 35 ：
- ＩＢＭ汎用機でバッチＰＧＭのみの経験
汎用機でのＤＢ経験なし
情報処理旧２種
日商簿記２級
こんなんじゃ雇わんか
- 36 ：
- >>35
いや、年数がモノ言うところもあるからあながち無理でもない。
案件内容と面接時のアピール次第だな。
面接は合格しようと考えず、不合格にならないよう考えろ。要するに、
・筋道立てて経歴を説明する。
・アホな質問しない。
・マイナスになる事は一切言わない。
面接官は何十人と来るコボラーを、優れた者を採用しようと考えて面接はしてない。
使え無い要素有りな者は全て×、と消去法で面接してるのさ。
- 37 ：
- >>35
今後プログラマになる予定なら
Javaとかオブジェクト指向で作れるようになることを勧める。
COBOLだけだと、金融系COBOL案件しか回されなくなる。
結果仕事が全然面白くなくなるし、転職のつぶしもきかない。
- 38 ：
- 現在COBOL案件は金融以外でも多数あるのだけれど、下々の請負が取り合いw
- 39 ：
- 既存のCOBOLソース見るとELSEの中に丁寧にネスト構造にして新たにIF文作ってるケースがしばしばあるな。
確かにCOBOLはELSE IF（言語によってはelif）が出来ないから三択や四択の条件ならそうしたくなる気持ちも分からなくはないが、
せっかくEVALUATE TRUEなるものがあるのに使わないのは勿体無いなあと思ってしまう。
- 40 ：
- 昔はEVALUATEが無かったんだと思ってる。
- 41 ：
- >>40
どんくらい昔を言ってるのかは知らんが、少なくとも20年前にはすでにあったと思うが
- 42 ：
- 3月になってからものすごくCOBOL、コボルの求人が増えた
- 43 ：
- 頑張れ俺
COBOLのCODEを見たくない
- 44 ：
- ┏IF (A IS NOT NUMERIC) OR
┃ (B IS NOT NUMERIC) OR
┃ (C IS NOT NUMERIC) OR
┃ (A = ZERO)
┣THEN
┃ DISPLAY "ERROR!"
┣ELSE
┃ COMPUTE D = B ** 2 - 4 * A * C
┃┏EVALUATE TRUE
┃┣WHEN D > ZERO
┃┃ COMPUTE X1 = (- B + D ** 0.5) / (2 * A)
┃┃ COMPUTE X2 = (- B - D ** 0.5) / (2 * A)
┃┃ DISPLAY "X=" X1 "," X2
┃┣WHEN D = ZERO
┃┃ COMPUTE X1 = - B / (2 * A)
┃┃ DISPLAY "X=" X1
┃┣WHEN B = ZERO
┃┃ COMPUTE X1 = (- D) ** 0.5 / (2 * A)
┃┃ COMPUTE X2 = - (- D) ** 0.5 / (2 * A)
┃┃ DISPLAY "X=" X1 "i," X2 "i"
┃┣WHEN OTHER
┃┃ COMPUTE X1 = - B / (2 * A)
┃┃ COMPUTE X2 = (- D) ** 0.5 / (2 * A)
┃┃ COMPUTE X3 = - ((- D) ** 0.5) / (2 * A)
┃┃┏IF A > ZERO
┃┃┣THEN
┃┃┃ DISPLAY "X=" X1 "+" X2 "i," X1 X3 "i"
┃┃┣ELSE
┃┃┃ DISPLAY "X=" X1 X2 "i," X1 "+" X3 "i"
┃┃┗END-IF
┃┗END-EVALUATE
┗END-IF.
- 45 ：
- 俺がコーディング規約作るとしたら、新規プログラムでのIF文の使用は禁止（EVALUATE TRUEを使用）、
修正プログラムにおいても、IFを修正する際はEVALUATE TRUEに置き換えるようにしたいなｗ
てかCOBOLのIF文って存在意義無くね？
- 46 ：
- >>45
意義がないとまでは思わんよ、EVALUATEは多分岐しなきゃいかんときは積極的に使うけど
黒か白かだけならIFで十分
- 47 ：
- >>46
そりゃそうだけどさ、例えばコーディングした時点では二択で良かったけど、
それから暫くしてそのプログラムに修正を加えることになった際に三択や四択になった場合でも、
最初からEVALUATE TRUEにしとけば修正が楽になると思う。
最初はIF文にしておいて、三択や四択になった際にEVALUATE TRUEに書き換えるのでもいいんだけど、
そうすると意味的には同じでもソースに差異があるから分岐を全部テストしろとか言い出す頭の固い現場が多いしねぇ…。
- 48 ：
- COBOL85とNetCOBOLってどれくらい違うの？
- 49 ：
- 今からCOBOL独学で身につけるのに良いテキストとかある？
- 50 ：
- 動画が一番よ
- 51 ：
- コードを書くだけなら、COBOL85の古本で十分だと思う。作法以外は易しい言語だし。
処理系を作ろうとしてるなら、余りいい資料はないね。
- 52 ：
- サンクス
内定貰った所がCOBOL出来る人欲しいみたいで独学で少し勉強しようかと
- 53 ：
- FLG をENDみたいな文字列で管理するのって何か理由あるん？
- 54 ：
- わかりやすいからだとは思う
- 55 ：
- ディレード処理ってなに？
- 56 ：
- >>55 遅延処理。主に大量のリアルタイムデータが発生する場合の更新処理に使われる
株取引での例
証券会社別取引集計等、遅れて処理もいい場合
顧客マスター等に索引部があると障害復旧時に時間がかかる場合がある
リアルタイム処理用は別途、専用顧客ファイルを随時参照・更新しマスターへは後から更新したりする事をいう
- 57 ：
- オンライントランザクションの対極に位置する処理方法やね
クライアントはとにかくリクエストやメッセージをサーバに送ればそれで処理完了（サーバからの応答はいらない）
サーバ側はキューにたまっているリクエストやメッセージをどんどん処理していけばいいだけ
だから最悪の場合、通信回線やサーバが死んでいてもクライアントは処理が続けられる
そこはディレイド通信システムなんかのミドルウェアがうまく取り計らってくれるから
- 58 ：
- >>57
今はオンライントランザクションでは使わへんの？
株取引、銀行の送金(内為)システムでの取り扱い高集計処理なんかの多少遅延が発生しても良い部分は別プロセスにしてたけどなあ
- 59 ：
- 今でもあるっしょ！
たしかBMP処理とか言ってたなぁ。
ディレードは、同じ取引でも読込件数が多いとディレードに処理を移行させてた。
- 60 ：
- >>58
クライアントからメッセージを投げた時点でいったんトランザクションが終わるんだよね
サーバでメッセージを受信して処理するときはまた別のトランが発生している
分散トランとかじゃなくて全く何の関係もない２つのトランで１つの処理が完了すること
になるから、これとOLTPと呼んでいいのかと言われるとたぶん違う気がする
あくまでバッチ処理だね
- 61 ：
- >>60 うん、バッチだよ
> 分散トランとかじゃなくて全く何の関係もない２つのトランで１つの処理が完了すること
ここ、違う。一つのトランを別々、同期をとる為に即時処理する部分と多少遅延が発生してもいい部分に分けて処理する事
- 62 ：
- それはクライアントアプリの作りの話だね
つうか、ディレイド処理する時点で通常のDBMSとは別のリソースマネージャ
（たとえばIBM MQ）を使うことになるから、そこが２つのトランに分かれるのは当然の話
そこをあえて１つにしたければ、それこそ分散トランを使うしかないが
そんなことをすると性能が出ないから、普通はやんないだろうね
ちなみに俺が言ってたのはクライアントとバッチ処理するサーバでトランザクションが違うってことね
一般的なオンライン処理だとDBへの単独アクセスは1トランで済むが、
ディレイド通信を使うと最低でも2トラン発生するってこと（間に中継サーバがいるから）
だから君の言ってる処理だと、普通のDBアクセスで1回、ディレイド処理で1回、
バッチ処理サーバで1回と合計3回のトランザクションが発生することになる。
- 63 ：
- >>62 ？
ごめん、どんなシステムを想定しているのかわからない。通常サーバー側の仕様を指すものでクライアントアプリなんて関係ないと思うんだが
例えば、本来ライトスルーで処理したいところをアクセス頻度が高過ぎてメモリ上でライトバック処理にした
しかし、障害後や過去ログとして扱うにはＨＤに書き込まなきゃいけないわけで、そこの処理の部分を指すものと思って
- 64 ：
- >>53
> FLG をENDみたいな文字列で管理するのって何か理由あるん？
Ｃとか列挙型あるよね。COBOLだと88レベルというのがある。多分、実装者が設計者の意に反して利用しなかっただけ
使い方を知らなかった、全て大文字表記のために変数なのか条件項目なのかわかりづらい等…
- 65 ：
- 01 FLG PIC 9(1).
88 END VALUE 1.
IF END
STOP RUN.
こう書くんだっけ？
- 66 ：
- VBAでFLAGをENDって文字列で管理してる人が居るのだが、元コボラーなのかな
- 67 ：
- すみません、可変長ファイルをREADする時、その行の厳密なレコード長でREADすることはできますでしょうか?
最大レコード長より短いレコードの場合、次のレコードの先頭が後ろにくっついてきてしまうので困っています。
- 68 ：
- >>67
確かレコード長は調べられるよ
- 69 ：
- >>67
連投スマン
次のレコードを読み込むのは仕様。
レコード長が取得できるのは汎用機だけかも知れん。
レコード識別でどのレコードか判断するのが一般的な気がする
- 70 ：
- COBOLの可変長てLength付きレコードじゃなかったけ？(C形式はU:不定長)
レコード間にもギャップがついていたような…ラベルの定義(STANDARD or OMITED)がプログラムとファイルで違う為に認識してくれない？
- 71 ：
- >>70
各レコードの先頭には、レコード長をビッグエンディアン保持した4バイトのRDWが付くよ
- 72 ：
- 皆様、ご回答ありがとうございます。また返答が遅くなりましてすみません。
先頭に4バイトのレコード長情報が入っているのはわかったのですが、これを参照する方法がわかりませんでした。
どなたかご存知ないでしょうか?ちなみに富士通のOSⅣなのですが。
- 73 ：
- 連投ですみません。
LENGTH OF IN-DATAとしたら、最大レコード長が返されてしまい、読み込んだ行の実際のサイズにはなりませんでした。
- 74 ：
- OSⅣ MSP へぇ懐かしい
- 75 ：
- はい。未だこのようなものを使っております。
この資産をWindowsに移行するため、可変長ファイルをレコードの種類ごとにタブ区切りで書き出そうとしてつまずいています。
- 76 ：
- >>73
ＯＳＩＶなら、 どうやったか忘れたけどレコ長を調べられるよ。
マニュアルCOBOL利用手引書を調べるか、ＩＫＢの質問応答ページを検索してみて！
- 77 ：
- ＩＫＢ探してみたけど、情報ないなぁ
確か全銀協のマルチフォーマットファイルを振り分けるために、COBOLプログラム内でRDWを判定してた筈なんだけど。
もしかしたらシステムサブルーチンを呼び出してたかも知れん。
自分で作ってないから完全に忘れてしまってる
スマン
- 78 ：
- Ｆは使ったことないんで、間違えているだろうけどJCLのファイル定義で読取り方法をフィジカルにするとかかな？…
先ずはユーティリティでファイルコピーした？
- 79 ：
- >>75
ナカーマ！
うちのはXSPだけど、資産移行してるとこ。
レコード識別はないの？
COBOLソースの移行でLIBEの出力が可変長だった時は、システムユーティリティで固定長にしてからFEXPORTかけたけど
- 80 ：
- FEXPORTじゃなくて、FIMPORTだった
- 81 ：
- ソースならLOW-VALUEで初期化した固定長(80byte)のSFを作成して標準のエディタの外部への保存を行えばよくね？
- 82 ：
- そんなんユーザーに富士通からやりかたマニュアルを
くれているだろう
それみたらぜんぶわかる
- 83 ：
- 皆様、ご回答ありがとうございます。レコード識別はあるのですが、時期によって長さが違いまして、その確実な記録も残っていないので、データを全部調べなければなりません。
FIMPORTはCOMPの問題があるので難しいですね。
マニュアルは調べているのですが、RDWを扱える記述がまだ見つけられません。今日は本腰を入れて調べてみます。
- 84 ：
- >81
自分は、PFD でソースを表示させて、LISTAコマンドで表示用の一時ファイル(username.R9999)を調べて、そのファイルをimportしてた。
- 85 ：
- >>83
問い合わせ事例があるはずだから、 あっさりサポートに聞いたほうが早いかも。
FIMPORTはCOMPあってもBINARYなら転送可能だよ？でも可変長対応してないからなぁ。
あと、レコード長が調べられたとしても、結局その後、文字コードの移行しなきゃならんから、どのコピー句で変換させるかを完璧に押さえ込んでないと、本番移行が怖いよ（汗）
- 86 ：
- 皆様、ご回答ありがとうございます。
マニュアルを調べたものの、RDWがどういうものかの記述はあれど、どうすれば情報を取り出せるかがどうしても見つからず、現在担当CEに
調べてもらっています。
>79
目からうろこですね。CVTFILEというユーティリティを見つけたのですが、構文エラーでうまく行っていません。
>84
PFDの表示だとCOMPがドット表示となり、全角で文字化けしてしまいます。
>85
ご指摘のとおり、可変長なのでFIMPORTはダメでした。
- 87 ：
- >>86
CVTFILEはXSP専用だと思われます
MSPだと、GENERかGEM3ユーティリティ辺りが使えるかも。
ソートとかも簡易編集出来たりします。
PFDの表示は、GEM管理下のCOBOLソースをFIMPORTする裏ワザです
GEM管理下は直接FIMPORT出来ないので。
したがって、compなどを含む順編成ファイルは直接FIMPORTして、バイナリ指定にするだけで転送出来ますよ
- 88 ：
- データ部のレコード句、DEPENDING ON 変数名でREAD時のレコード長が変数名に設定されてくるんじゃなかったかな？
- 89 ：
- 皆様、ご回答ありがとうございます。
>88
その通りでした。RECORD句のVARYINGも調べていたのですが、RDWに関する記述がまったくなくて、まさかこれだとは思いませんでした。
先ほど実験してみたところ、きちんとレコード長が戻されました。
皆様、どうもご協力ありがとうございました。
- 90 ：
- 景気がよくなるとこれだけ情報投資があるんだな
デフレ時はCOBOLはほんの少ししか仕事がなかった
- 91 ：
- 消費落ち込んでるのに景気がよくなってるとか……
- 92 ：
- 経営者が2～3年先は上と思ってれば投資は伸びる
- 93 ：
- １レコード読み込むごとに出力するのではなく、
最後に一括して、ファイルに出力する方法を教えて下さい。
例）入力ファイルを最後まで読み込み、全レコードがえらーがない場合のみ、
入力ファイルの全レコードを出力ファイルに出力する。
よろしくお願いいたします。
- 94 ：
- >>93
君は下のスレにも、書き込んでいるけど、
2chではマルチポスト禁止だよ。
書き込むスレは、1つだけにすべし
くだすれPython(超初心者用) その27
ttp://peace.2ch.sc/test/read.cgi/tech/1441317912/633
- 95 ：
- >>93
全部チェックしたらCLOSE-OPENして、全件READ-WRITEすりゃいいじゃん
まぁそもそも俺ならそんな設計にしないけど。
- 96 ：
- >>94
すみません…
間違いました
- 97 ：
- >>95
どのような設計にされますか？
考えつかないので教えてください。
よろしくお願いします。
- 98 ：
- >>97
もっと大きなくくりで何をやりたいのか聞く必要があるが、
チェックエラーがある時だけ、RETURN-CODEに5点入れて終了
JOB制御で0点なら次の処理。とかにすれば、全件正常の時だけ次のステップが流れる。
- 99 ：
- 回答ありがとうございます。
ＲＥＴＵＲＮ－ＣＯＤＥで制御する方法もあるのですね。
今回やりたいことは、以下の通りです。
入力ファイルのチェック処理を行い、チェックエラー有無によって
出力ファイルの内容を可変にしたいです。
前提として、チェックエラーの有無に関わらず、次のステップを行うようにしたいです。
（これについては、ＪＯＢ制御でコードを判定すれば、
RETURN-CODEが0点でなくても大丈夫ということですね！）
大きな仕様としては
チェックエラーありの場合→０件ファイルを出力。
チェックエラーなしの場合→入力ファイルを全件出力
という感じです。
文章にすると単純なのですが、実際コーディングすると
良い実現方法が分かりませんでした。
- 100 ：
- そもそも正常、エラーの振り分けをやって、エラーのみリスト出力の方が綺麗だとおもう。
エラー有り時は、JOB正常終了させなければ、次の処理にも進まないし。
でも、あなたの仕様で一番簡単なのは、こんな感じかな？
OPENCLOSE技はあまりカッコいいとは言えないけど、内部テーブルやソート使うやり方よりシンプルに出来る気がする。
PROC-RTN.
IF エラーあり？
THEN MOVE 1TO ERROR-SW
MOVE "END" TO END-SW
END-IF
END-RTN
CLOSE FILE1.
*エラー時、出力データ削除
IF ERROR-SW = 1
THEN OPEN OUTPUT FILE1
CLOSE FILE1
END-IF
100～のスレッドの続きを読む
【.cmd】 バッチファイルスクリプト %13 【.bat】
ふらっと C#,C♯,C＃（初心者用） Part148
Excel VBA 質問スレ Part62
Java入門・初心者質問スレ Part.10
Google NaCl プログラミング 2mol
Androidプログラミング質問スレ revision49
Google NaCl プログラミング 2mol
☆★ Java の宿題ここで答えます Part 74 ★★
Excel VBA 質問スレ Part54
【統計分析】機械学習・データマイニング28
--------------------
【ゲーム実況】ニコニコ動画の女性実況者総合スレ173
60代のセックス Part.2
【維新】橋下徹・本スレ No.1【大阪】＠ニュース議論
【MHW】モンスターハンター：ワールド 反省会スレ ☆8
【テレビ】マツコが語る友達論「仕事仲間しかいないってそんなに悪いこと?」
なぜ林檎は糞漏らしながら無様に安室に敗北したのか
【ヲチ先触るな】ingress晒しスレpart74
【AKB48】木崎ゆりあ応援ｽﾚ☆172【ゆりあぴーす】
hibria6 防音 でググれですって。応援スレw
Nikon D3300/D3400/D3500 Part.13
スパロボ新作スレ part777
【UNIQLO】ユニクロトップス part418
【変態】ＳＭ好きの５０代【アブノーマル】
腐女子メーター松本美雪アンチスレ
成恵の世界
【太くて】0,9mmシャープペン 3【カタイの】
【しばゆー】しばなんアンチスレ【あやなん】part6
【Mrデリバィブ】フェアラインパートナーズはどうよ
【㈱ヘルス】コスモトロン part1
【モンド】新MONDO TV麻雀スレ
TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
