ＮＥＣのオフコン情報掲示板（ノウハウ系）
| ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
| ■▲▼ | ||
| 1 | ファイルの各種情報をファイルに出力したい | |
| ろろけい 2011-4-28 12:15:23
[返信] [編集] みなさま、いつもお世話になっております。 また質問させてください。 題名の通りなのですが、#MAPで下記のように指定して得られる情報を、 プリンタではなく、ファイルに出力することは可能でしょうか？ ACTION; ACT=FILE VOLUME NAME; VOL= DEVICE; DEV=MSD000 OWNER NAME; NAM= PRINT DEVICE; PRD=PRN999 DETAIL PRINT MODE; DPM=NO COMPANY ID; CID= SELECT FILE NAME; FIL=! MAP MODE; MOD=FILE やりたいことは、オフコン上のファイル情報を、Excel等で管理したいのです。 何らかの形でシーケンシャルファイル等にできれば、#NFCNVでWindows側に持っていき、 あとはどうにでも料理できるので便利だな、と思っているのです。 または、COBOLのプログラミングでファイル情報を取得する方法があれば、 そっちのほうがさらに自由度があるので嬉しいのですけど、無理ですかね…。 どなたか参考情報をお持ちでしたら、ご紹介していただけると幸いです。 よろしくお願いいたします。 | ||
| 5 | Re: ファイルの各種情報をファイルに出力したい | |
| 回転の達人 2011-4-29 22:15:42
[返信] [編集] 温泉好きのウサギ様、間違いを訂正してくれてありがとうございます。 昔の事を思い出して誤りを書いてしまいました。 | ||
| 6 | Re: ファイルの各種情報をファイルに出力したい | |
| ろろけい 2011-5-9 14:31:43
[返信] [編集] 温泉好きのうさぎさん、回転の達人さん １０連休をいただいていたことがバレバレな、遅い返事ですみません(^^; さらに詳しい情報、ありがとうございました。 マニュアル、確認しました。 実は、SYS@FDF（のコピー）の中身をみて、最初ぜんぜん見当がつかず、 その後、どうやら項目によっては１６進数らしい、 というところまではわかってきたのですが、 その後どうしたものか、悩んでいました。 このマニュアルの存在を知ったことで、さらに一歩前進です！ が、残念ながら、私のところのSYS@CULには、SYS@5Aは、ありませんでした(>_<)。 ですが、このマニュアルを元にレコードレイアウトを作れば、 なんとか思うような処理に持っていけそうな気がしてきました。 今回もまた、助かりました。 ありがとうございました！ | ||
| 7 | Re: ファイルの各種情報をファイルに出力したい | |
| ろろけい 2011-5-9 17:18:26
[返信] [編集] すみません。 できると思ったけど、まだできてません…。 続けてお聞きしたいのですが。 １６進で格納されている項目は、COBOLソース上、どう書けばよいのでしょうか？ たとえばSYS@FDFの「有効レコード数」の項目。 ４３桁目から６バイトが 00 00 00 00 1D 3E となっている場合、このファイルを#MAPで見ると、１０進で7486と表示されますよね。 これを、COBOLで実現させたいわけです。 仮にこの部分だけを取り出すためのレコードレイアウト（256バイト/Rec）を作るとして、 その場合、下記のような感じでよいかと思ったのですが、 アンダーバーの部分に書くべき数値やキーワードが、わからないのです。 FD FDF-FILE （中略） 01 FDF-REC. 02 FILLER PIC X(42). 02 RECCNT PIC 9(__) USAGE __________. 02 FILLER PIC X(208). そもそも、上記の考え方であっているのかどうかも、あまり自信がないのですが…(>_<) どうかもう少しお付き合いいただけると幸いです。 よろしくお願いいたします。 | ||
| 8 | Re: ファイルの各種情報をファイルに出力したい | |
| 温泉好きのうさぎ 2011-5-10 1:04:10
[返信] [編集] 2バイトの2進数項目は、COMP-1 4バイトの2進数項目は、COMP-2 で定義します。 従って、レコード長やブロック長、キーブロック長、キー長、キー位置などはCOMP-1 アロケートサイズや二次アロケートサイズ、エクステントのアドレスはCOMP-2 となります。 お尋ねの有効レコード数は6バイトの2進数項目ですが、それを表現できるCOBOLの書き方はありません。 ただし、4バイトの2進数項目のとる値の範囲は約21億なので、常識的なデータ数を扱うのであれば前2バイトを無視するというのが最も手っ取り早いです。 正確に6バイトの2進数項目を表現しようとすれば、前2バイトをCOMP-1、後4バイトをCOMP-2と定義し、それぞれの値から計算することは可能ですが、マイナスの値となった場合は2の補数として換算しなければならず、少々複雑になります。 書き方としては、 01 FDF-REC. 02 FILLER PIC X(44). 02 RECCNT COMP-2. 02 FILLER PIC X(208). となります。 COMP-1項目およびCOMP-2項目にはPICTURE句を書きません。 | ||
| 9 | Re: ファイルの各種情報をファイルに出力したい | |
| ろろけい 2011-5-10 10:42:16
[返信] [編集] 温泉好きのうさぎさん とてもわかりやすい解説、ありがとうございます！ 今までは、COMP-3しか使ったことがなかったのですが、 COMP-1、COMP-2の使い方がわかったので、とても嬉しいです！ この解説をいただいた後に、改めてマニュアルを読んで、それで初めて、理解できました(^^; そして、「前２バイトをカットする」というテクニックも教えてくださり、ありがとうございます。 先ほど、テストプログラムで、数値を正しく読み取れることを確認しました。 今回もほんとうに助かりました。 ありがとうございました。 | ||
| 10 | Re: ファイルの各種情報をファイルに出力したい | |
| ろろけい 2013-3-6 10:08:53
[返信] [編集] なんと２年ぶりのろろけいです。 引き続き、SYS@FDFから情報を取得する件なのですが。 ２年前は、とりあえず「有効レコード数」を得られればそれでよしとしていました。 ですが最近になって、#MAPで表示されるその他の項目も得られるとなおよいなと感じまして、 データ管理説明書から得られる情報をもとになんとか算出しようと試みたのですが、 残念ながら答えを導き出せずにいます。 下記の情報を得るのはどのようにすればよいか、ヒントを教えていただけると助かります。 USED RECORD COUNT : 15066 DELETED RECORD COUNT : 137 UNUSED RECORD COUNT : 14797 欲しいのは、この３項目（USEDは直接得られるのでその他の２項目）だけなのです。 ファイルの種類は、MIXのデータ部だけでＯＫです。 ファイル名がキーになっている「使用ファイルマスタ」みたいなものを用意して、 そこに、上記３項目を入れ込むプログラムを作れば、それを定期的にチェックすることで、 オーバーフロートラブルを防げるというわけです。 まぁ、上記３つを合計した「総レコード数」は、そうそう変動するものではないのだから、 「使用ファイルマスタ」にあらかじめ入れておけばいいだろ！ですし、 削除レコードだって、たとえば毎晩バッチで#MIXGNを実行しておけば、 そうそうたまることもないだろう！ではあるのですが…(^^; もしもSYS@FDFからこれらを得られるのであれば、それも知っておきたいなと思ったので、 質問させていただきました。 いかがでしょうか。 | ||
| 11 | Re: ファイルの各種情報をファイルに出力したい | |
| TOM 2013-3-6 11:57:34
[返信] [編集] SYS@FDF内の項目から「あと何件入るか」は計算できます。 例えば 順編成ファイルの時のSYS@FDFからは 1.ファイル編成=S 29バイト目 2.現在アロケートされている容量を計算する 217バイト目から257バイト目に第nエクステント終了、開始がありま す。この値はセクタ数かと思います。 3.レコード長とブロック長から2項のエクステント内に最大収容データ 件数を計算する。 4.有効レコード数 43バイト目を3項から減する。 結果が空いているレコード数が求められます。 5.MIXのデータ部も同じように求めることができます。 ただし、索引順編成場合は、3項にはキー部とデータ部が一緒に入っ ているため、ある程度のキー部容量を減してあげる必要があります。 昔々これらを計算し印刷するプログラムを作ったのですが、現時点で は所在が不明です。見付かればあげることが出来ますが。 | ||
| 12 | Re: ファイルの各種情報をファイルに出力したい | |
| ろろけい 2013-3-6 14:39:48
[返信] [編集] TOMさん 早速の返信ありがとうございます。 いただいた情報で計算してみたら、#MAPと同じ情報を得られました。 ありがとうございました。 ただ、ごめんなさい、この場合、削除レコードの数も「空き」側に入ってしまいますよね。 常時使われているファイルなので、あまり#MIXGNができない状態だったりするのです。 なので、削除レコードがたまってきたころに、タイミングを見計らって、 古いデータを削除したり#MIXGNを実行したりという運用なのです。 余談ですが、最近になってやっと、#AJOBCやA-VX自動運転管理ユーティリティの存在を知ったので、 先ほども述べたように、定期的に深夜にでも自動で#MIXGNを実行すれば、 削除レコードの心配はなくなりますよね。 なので、もはや「興味」の域に入ってしまっていますが。 #MAPで瞬時に削除レコード数が表示されるということは、その情報またはそれを導きだせる情報が、 SYS@FDF等のどこかに含まれているのかな？と思い投稿させていただいたというわけです。 | ||
| 13 | Re: ファイルの各種情報をファイルに出力したい | |
| TOM 2013-3-8 17:25:00
[返信] [編集] 削除レコード数が瞬時に出力される仕掛けは MISのデータを前提で 最終レコードアドレスが83バイト目にあります。データ部ですから、第1エクステント、第2エクステント・・と順番にデータはかかれます。 83バイト目には最終にデータを出力した位置を示しております。第1エクステントから最終にデータを出力した位置を計算すると、何レコードが作成されているかを知ることが出来ます。そこから有効レコード数を減算すれば、その差が削除レコード数となります。 | ||
| 14 | Re: ファイルの各種情報をファイルに出力したい | |
| ろろけい 2013-3-8 19:06:30
[返信] [編集] TOMさん なるほど！ そういうことなのですね！ よくわかりました！ まだプログラムは組んでいませんが、光が見えてきました。 助かりました。 ありがとうございました！ | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | マイグレーションについて | |
| ねこきち 2012-11-16 16:25:20
[返信] [編集] 現行システム（A-VX）のレベルアップですが、Express5800/600ｼﾘｰｽﾞにするか、オープンにするか悩みどころなのですが、現行システムをマイグレーションでオープン化された方いらっしゃいませんか？ 費用や、困った事、良かった事など経験談があれば、参考にしたいのですが。 宜しくお願いいたします。 | ||
| 2 | Re: マイグレーションについて | |
| TOM 2012-11-21 16:07:09
[返信] [編集] ITOSは1.0時代から触っています。最近このような相談に良く合いますが、最終的にCOBOL技術者の確保がキーではないでしょぅか?自社内に技術者(年も若い)が確保されているのであれば、ITOSからオープンCOBOLにマイグレーションしても良いんでしょうね。しかし技術者が確保できないような状況であれば作りなおしするしかないのではないでしょうか?或いはパッケージへいかれるかですね。しかしパッケージへいったとしてもEXECしか提供されていない場合は、ベンダーさんにおんぶにだっことなってしまいます。 今、標準的な機能を有して、且つ、ソース公開されているようなパッケージを探しています。(1個あるのですが) | ||
| 3 | Re: マイグレーションについて | |
| オフコン太郎 2012-11-26 12:58:09
[返信] [編集] 原則はExpress5800/600でしょう。 現システムに問題点/改善点がなければExpress5800/600です。 ある程度のスピードアップも望めますし、 なんといっても、費用と期間が圧倒的にかからない(オープンにくらべ) また、｢バグ｣もないですし、｢操作が同じ｣が一番です。 現システムに問題点/改善点があり、｢費用｣が発生する場合は、 オープンも候補でしょう。 また、改善点の内容によっては、オープンでしかできないこともあるかもしれません。 結論：オープンにして 費用： ・大きく掛かる 開発期間： ・大きく掛かる 困った事： ・操作がオフコンと違う(作り方によってはある程度踏襲できますが) ・セキュリティ関係が弱い？(オフコンはデータ構成が独自なため、 他者からは見ることが難しいが、オープンだと以外に弱い。 というよりは、Winをさわれる人が多いため、 セキュリティ関係に留意した設計/運用が望まれる) 良かった点： ・断然スピードアップ ・一般的(?)には、プレビュー画面が標準装備(?)になるため、用紙の節約になる Express5800/600の問題点： ・いずれ、ＮＥＣもオフコンから撤退するものと思われるので、 オフコンの選択は、｢オープン化｣の先送りでもありますが・・・ ・人員の確保もおおきな問題でしょう TOMさんもいっておられますが｢最終的にCOBOL技術者の確保がキーではないでしょぅか｣、・・・ 以上はソフト関係会社に従事している者の私的見解です。 ただし、当社においても、客先には、オフコンの人員確保困難/COBOLの人員確保困難などを理由に、 オーフンを押し進めています(上記と若干矛盾しますが)。 なお、オープンCOBOLへの移行は未経験のため、評価は控えます。 | ||
| 4 | Re: マイグレーションについて | |
| TOM 2012-11-26 16:55:24
[返信] [編集] やはりA-VXのCOBOL技術者の確保が一番の問題ではないでしょうか? やはりNECさんはA-VXをやめることになるんでしょうね。 盛んにIBM社はAS400は不滅です。だからAS400のCOBOLへのマイグレーションで今後とも安心してお使い続けることができますと。 富士通さんはPOWERCOBOLのマイグレーションで押してくるのではないでしょうか? 私の周りにある同業者さんは面白いサービスをしています。 | ||
| 5 | Re: マイグレーションについて | |
| TOM 2013-1-28 18:31:13
[返信] [編集] 私の知合いの販社さんでVB.netへマイグレーションしています。 その流れに乗って、今マイグレーションのためのツール作りがどの程度可能かをリサーチしております。 | ||
| 6 | Re: マイグレーションについて | |
| 山太 2013-2-1 14:36:29
[返信] [編集] 突然スミマセン、わたし達のところでも検討はじめました いくつか質問があります もしNECのオフコンクラウドサービスを利用されているところがあるよう でしたら、どのような使用感か教えて戴けないでしょうか 性能面が気になります オフコンCOBOLからマイクロフォーカスCOBOLへ変更されたところ があるようでしたら、どのような違いがあるのかも教えて戴けないでしょうか | ||
| 7 | Re: マイグレーションについて | |
| TOM 2013-2-4 16:47:05
[返信] [編集] 色々情報はあるのですが、この掲示板をお借りしての回答はちょっと腰が引けてしまいます。 質問だけに 当初一つのサービスとして「NECのオフコンクラウドサービス」の提供をすると聞きましたが、今はこの声えは聞こえてきません。クラウドと言っても所詮仮想化の上でA-VXを稼動させる方式ですから、COBOL技術者不足に対応する手法ではありませんね。 昔、ACUCOBOLがありました。今はMFCOBOLに買収されていますが。その時代には何社か行ったユーザさんはおられますね。 もし別なアドレスでお話ができるようでしたら、知っている情報(真偽?)をお教えいたします。 | ||
| 8 | Re: マイグレーションについて | |
| 山太 2013-2-8 10:20:17
[返信] [編集] ありがとうございます！！ 年末か年始に上司がどこからか聞いてきたみたいでいきなりオフコンクラウドサービスについて調査しろって言われたんですけど、ググってもどこにも書いてないんで困ってます ＴＯＭさんのところでは利用されているみたいなんですけど、使い方が今までと変わったりするんでしょうか サーバを買わなくてもよくなるんで今までより安くなるらしいんですけど何％ぐらいですか いろんな種類のCOBOLがあるんですね 今調べているのはマイクロフォーカスCOBOLなんですがやっぱりCOBOLを勉強しないとよくわかんないですよね | ||
| 9 | Re: マイグレーションについて | |
| konkon 2013-2-8 12:27:10
[返信] [編集] NEC製品の「OpenCOBOL」であれば、AVXのCOBOLをそのまま移行／稼働できますよね。 ファイルシステムは、IFAS(RDB)になりますが… | ||
| 10 | Re: マイグレーションについて | |
| TOM 2013-2-8 16:26:22
[返信] [編集] とりあえず下記のフリーメールまで連絡いただけますか? maxy0218@yahoo.co.jp その後仕事で使っているアドレスをご連絡いたします。 | ||
| 11 | Re: マイグレーションについて | |
| ターラヤン 2013-3-1 0:31:11
[返信] [編集] 雑誌に掲載された内容の転載なので、既にご存知かもしれませんが ＩＴＰＲＯというサイトに「COBOLからJavaの自動変換」の記事が載っていました。 http://itpro.nikkeibp.co.jp/article/COLUMN/20130220/457386/ 去年日立もCOBOLからJavaの無料セミナーをやっていたみたいですし、COBOLからJavaへの流れが急速に進んでいるのかもしれません。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | #NFCNVでのJ/操作登録について | |
| 岡 2013-2-23 11:18:43
[返信] [編集] 初めまして、の初めてWSIエミュレータ(Ver9)の＃NFCNVを使うこととなりました。 やりたいことは、A-VX形式⇒DOS形式の変換です。何度も行いたいので、操作登録を行いました。（登録されているのか？） そこで質問ですが、 ・登録したコマンドの呼び出し方法 ・登録したコマンドの修正方法 ・登録したコマンドの実行方法 については、どこにもコマンド（説明）が見当たりません？ もし、方法があるなら、お教えいただけるとありがたいです。 | ||
| 2 | Re: #NFCNVでのJ/操作登録について | |
| 森 2013-2-23 19:20:35
[返信] [編集] 操作登録の時にファイル名とパラメータ名を設定しましたよね。 パラメータ名,ファイル名;で実行でます。 編集はメンバー名（パラメータ名）ライブラリ（ファイル名）です。 | ||
| 3 | Re: 参照いろいろ（#NFCNVでのJ/操作登録について） | |
| 江須扇 2013-2-25 9:56:55
[返信] [編集] 江須扇と申します。 大変失礼ですが貴殿のＡ−ＶＸスキルが不明なので参考できるところをご紹介します。 ターラヤンさんが作られたこのサイトには情報がいっぱいあります。 なお、アップロード時エラーになりますので、＊が追加してありますので参照時には削除してください。 実行する方法は h*ttp://www.offcom.jp/modules/firststep/index.php/ouyo/rensyugasetu.html ＪＣＬの説明は h*ttp://www.offcom.jp/modules/firststep/index.php/ouyo/nfdcopyprg.html ＃ＮＦＣＮＶの説明は h*ttp://www.offcom.jp/modules/amanual/index.php/uti/at/nfcnv/nfcnv.html 自画自賛ですがインストールすると便利な開発統合ソフトは h*ttp://www.offcom.jp/modules/amanual/index.php/cobol/devlop/devlop.html h*ttp://www.offcom.jp/modules/bluesbb/thread.php?thr=504&sty=2&num=3 | ||
| 4 | Re: #NFCNVでのJ/操作登録について | |
| 岡 2013-2-25 14:58:30
[返信] [編集] 森さま 早々の回答ありがとうございました！！ Runの画面で、コマンド入力するとの事ですね。 引用：
| ||
| 5 | Re: 参照いろいろ（#NFCNVでのJ/操作登録について） | |
| 岡 2013-2-25 15:01:51
[返信] [編集] 江須扇様 詳細な情報、ありがとうございます。 ＞大変失礼ですが貴殿のＡ−ＶＸスキルが不明なので参考できるところをご紹介します。 まったく、初めて触ります。（触らないといけなくなった。。。） 記入されている、事項を、行っていこうと思います。 不明点がでれば、また、よろしくお願いいたします。 以 上 感謝！！ | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | 「メイン入力ファイル」「初期入力」なしで、SMARTでファイル更新処理はできますか？ | |
| gai 2013-1-29 11:57:21
[返信] [編集] こんにちは。 いつも大変お世話になっております。 「メイン入力ファイル」「初期入力」なしで、SMARTでファイル更新処理はできますか？ 処理を流すたびに、 ファイルＡの 項目bの値を 項目aにセットする。 その後項目bに今日の日付をセットする。 項目a,bは日付項目です。 単純な処理ですが、 cobolでコーディングするのがめんどくさいです。 SMARTでできますか？ できれば１つがいいのですが、無理でしたら ２つのsmart PROGRAMになってもかまいません。 すみませんご教授ください。 | ||
| 2 | Re: 「メイン入力ファイル」「初期入力」なしで、SMARTでファイル更新処理はできますか？ | |
| gai 2013-1-29 17:53:21
[返信] [編集] すみません自己完結レスです。 「メイン入力ファイル」を 「メインファイル」と同じにしたら、 更新できました。 素人なので、 「メイン入力ファイル」の意味がよくわかりませんが・・、 とりあえずできました。 入力ファイルですから、 ＤＢを更新するための、元ファイルの順編成ファイル のことかと思っていたのですが、 違うようですね・・・。 ともかく、 どうもありがとうございました。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | RDBで仮想表を使用していますか? | |
| TOM 2013-1-14 16:21:07
[返信] [編集] A-VXのRDB機能の一つである、仮想表を皆さん酷使されていますか? 基本表を使用していることは知っているのですが、仮想表をバリバリ使用しているのでしょうか? | ||
| 2 | Re: RDBで仮想表を使用していますか? | |
| オフコン太郎 2013-1-28 17:35:15
[返信] [編集] TOMさん がんばってますね。 レスがないので、私見として、載せます。 本掲示板で、あまり、否定的な意見を載せたくなかったので、 今まで、載せませんでしたが、小生はあまり使用していません。 以前は使用していましたが、 基本表を変更すると、仮想表が使用できなくなったように、記憶しています。 この、｢仮想表が使用できなく」が仮想表を使用時に(たいていの場合、後日)判明しますので、 保守が大変です。よって、だんだん使用しなくなりました。 一時的には使用しますが、継続的に使用することは避けています。 上記は運用/マニュアル化でカバーできるのですが・・・ 基本表は原則全てのファイルで定義しています。 下手に触ると困るファイルだけは表定義をしていません。 以上、参考になりますでしょうか？ | ||
| 3 | Re: RDBで仮想表を使用していますか? | |
| TOM 2013-1-28 18:22:23
[返信] [編集] 回答有難うございました。 今、オフコンのマイグレーションを可能/不可能を考えています。私もなかがったのですが、MIXどまりだったものですから。 今ではER MASTERとかER/STUDIOを使ってまぁー何とかなっているのですが。 マイグレーションの一番のキモはCOBOLのファイル定義をOPENのDB定義に自動化で流し込む機能です。 これが正確に行えれば、後は何とかなるであろうと考えています。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band