ＮＥＣのオフコン情報掲示板（ノウハウ系）
| ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
| Re:ＳＭＡＲＴ２ＥＸ | |
| コボラー 2010-6-21 14:42:00
[返信] [編集] ご回答ありがとうございます。 マニュアルを調べてＵＰＳＴＳまでは、行き着いて 組み込んだところ、例えば変更モードでデータが 表示される時点では、表示されていますが、 その前の キー項目の入力時点で表示されないと 言う現象にはまっております。 | |
| Re:ＳＭＡＲＴ２ＥＸ | |
| 温泉好きのうさぎ 2010-6-21 0:33:00
[返信] [編集] 予約語の *UPSTS を表示項目として定義してやれば確認することは可能です。 ただ、表示される値が 0,1,2 という数字なので、見出し等に工夫したほうがよいでしょう。 なお、0のときは「追加」、1のときは「変更」などと条件をつけた生成項目を定義してこの項目を表示させると、生成項目生成のタイミングのズレによりうまく表示されないことがあります。 | |
| Re:FLCNV使用のJSLにて | |
| TK 2010-6-18 1:15:00
[返信] [編集] こんにちは。 このパターンのJSLは、昔はISファイルの再編成で よく使用していました。 既に指摘が有りましたが、私の場合の主目的は、 キー部よりはデータ部のDELETEレコードのクリア でした。 ISファイルは、DELETEしても空きにならないので WRITE/DELETEが多いISファイルだと、総レコード数 の半分くらいがDELETEレコードってケースもあり ました。 ただ、MIXファイルのKEYファイル名をISファイル名 と同一にしておけば、基本的にPG変更も不要なので、 リプレース等のタイミングで一気にMIXファイルへ 移行し、再編成も#MIXGN 変えてしまいましたので、 しばらくこのパターンのJSLは余り見なくなりましたね。 | |
| ＳＭＡＲＴ２ＥＸ | |
| コボラー 2010-6-16 18:50:00
[返信] [編集] ＳＭＡＲＴ２で１ファイル変更の入力プログラムを 形式指定で作成したところ、変更モードを入力して、 キー部の入力に入ったところで、変更モードが消えてしまい ます。現在の変更モードが画面上で確認できない為、凄い 不安になります。何かいい方法はないでしょうか？ | |
| Re:FLCNV使用のJSLにて | |
| クロスケ 2010-6-11 19:40:00
[返信] [編集] 返信有難うございます。 間違い無くSTEP�◆�STEP��の抽出条件はありません。 マニュアルもありませんので調査が中途半端に なってしまいますが、システム自体がかなり古い時期のものに バージョンアップを重ねてきておりますので、再編成を目的に 当初は実施されており、現在もその部分が踏襲されていると 考えるととても合点がいきます。 その部分を削除するのも一つの考えとして調査致します。 いつも助けて頂いて有難うございます。 又、何かありましたら宜しく御願い致します。 | |
| Re:FLCNV使用のJSLにて | |
| 富山清風 2010-6-11 13:03:00
[返信] [編集] こんにちは 本当に、抽出条件がないのですか？ step�△泙燭�step��でSEL=(X,X,C,EQ,XXXX)などがありませんか？ SEL=があれは不要データを削除していることになりますが・・・ 本当に、抽出条件がないのであれば、確かなことはいえませんが、 「ISファイルの再編成」をおこなっているものと思われます。 「ISファイルの再編成」とは： ISファイルの索引部は｢データの追加｣で分割しながら、 索引部を構成し、レベル４(注*1)段階までで、 それ以上になろうとすると、オーバーフローする。 そのため、再編成し、レベル５以上に極力ならないように している。のかも？ step2:IS-->SEQでデータをキー順にコピーし、 Step3:SEQ-->ISで整列されたデータをISファイルに コピーすることにより、以降のプログラムの実行で 索引部の分割の極力少なくしているのでは？ (注*1)以前のOSのマニュアルには｢レベル４まで｣と 書いてあったような気がしますが、 現在(A-VX01)のマニュアルでは｢レベル２５５｣までと 書いてあります。 そうなれば、ほとんど本処理は不要かも (あくまで小生の理解があっておればの話しですが) 参考マニュアル: データ管理説明書--> 索引順編成ファイル--> ファイルの構造 あたり？ | |
| Re:FLCNV使用のJSLにて | |
| rupa 2010-6-11 4:04:00
[返信] [編集] ＃ＡＢＣで簡単に登録できたと思います。 確か、９８で作成できます。 注意することは、 �，離侫．ぅ襪�ディスク上に存在していない。 �△裡稗咼侫．ぅ襪魯妊�スク上に存在している。 作成時点で、ファイル有無を聞いてくるので、ファイルがないとエラーになる。 架空のファイルで作成してから後でファイル名を変更してもいいかもしれません。 | |
| Re:FLCNV使用のJSLにて | |
| クロスケ 2010-6-10 20:22:00
[返信] [編集] 申し訳ありません。 ４ステップの内容の説明で正確でなかったので再度 説明させて頂きます。 ＊JSLのステップは４ステップです。 � �SEQファイルのアロケート �◆�ISファイルを�，離侫．ぅ襪肪蟒佚�条件無しでコピー （FLCNV使用） �� �△�SEQファイルを元のISファイルに抽出条件無しでコピー （FLCNV使用） �ぁ´，�SEQファイルのデアロケート 以上が正確な手順です。 宜しく御願い致します。 | |
| FLCNV使用のJSLにて | |
| 初心者 2010-6-10 20:18:00
[返信] [編集] いつも参考にさせて頂いております。 現在、システム分析中ですが、JSLにて実施している ステップの意味が理解できておりません。 このJSLだけであれば修正ミスという事もあるのでしょうが 同じ内容のJSLがかなりあるもので投稿させて頂きました。 ＊JSLのステップは４ステップです。 � �SEQファイルのアロケート �◆�ISファイルを�，離侫．ぅ襪肪蟒佚�条件無しでコピー （FLCNV使用） �� �△離侫．ぅ襪鮓気�ISファイルに抽出条件無しでコピー （FLCNV使用） �ぁ´，�SEQファイルのデアロケート 以上です。 このステップに深い意味はあるのでしょうか？ 何度調査しても解せず、どなたかアドバイス頂ければ幸いです。 宜しく御願い致します。 | |
| コンバートの件 | |
| のぶ 2010-6-7 10:33:00
[返信] [編集] 富山清風さん、連絡遅くなり申し訳ございません。 ＃ＮＦＣＮＶ研究してみます。 | |
| Re:CBLASGN | |
| クロスケ 2010-5-25 19:55:00
[返信] [編集] 御返信有難うございます。 色々調査頂き恐縮です。 御返信下さった内容を参考にし、業務オペレーション等再度確認 してもう少し掘り下げて調査してみます。 マニュアルもそろっておらず手探りですが、いつもこの掲示板に 助けられています。 又、調査結果報告させて頂きます。 有難うございました。 | |
| Re:CBLASGN | |
| k_chang 2010-5-25 18:47:00
[返信] [編集] マニュアル「ＣＯＢＯＬ８５システムサブルーチン説明書」から引用しますと、 ＞ＣＢＬＡＳＧＮ （略） ＞一般形式 ＞ＣＡＬＬ “ＣＢＬＡＳＧＮ” ＵＳＩＮＧ ファイル名 データ名−１ データ名−２ （略） ＞（２）イントラネット連携機能を利用する場合は、データ名−１に‘ＬＮＫＭＡＬ’、‘ＬＮＫＷＥＢ’、 ‘ＬＮＫ△△△’のいずれかを指定します。 （略） とあります。 マニュアル「イントラネット連携説明書」から引用しますと、 ＞装置名「ＬＮＫ」でアクセスする場合には、システムサブルーチン ＞（CBLASGN）を使用して、装置名の指定を行います。 とありますので、イントラネット連携機能を利用している事がわかります。 改めて「イントラネット連携説明書」を見てみると、 ＞Ａ−ＶＸ ＣＯＢＯＬアプリケーションからファイルにレコード出力するイメージで ＞電子メール配信やウェブページ生成ができます。 ということなので、サーバのIISにある仮想ディレクトリへ出力されたhtmlファイル へVBAでアクセスしてデータを受け取っているのではないでしょうか？ やってできなくもない、という感じもしますが、私も一旦SEQファイルへ落として #NFCNVで変換するのが一般的だと思っておりましたので、この方法は目から鱗でした。 | |
| Re:スプールファイルのテキスト化 | |
| Ａ−ＶＸ見習い 2010-5-25 12:04:00
[返信] [編集] 富山清風さん、ありがとうございました。また、ご連絡が遅くなり申し訳ありません。過去に同様の記事があったようですね。助かりました。 | |
| CBLASGN | |
| クロスケ 2010-5-24 21:32:00
[返信] [編集] いつも参考にさせて頂いています。 AVX初心者なのでどうぞアドバイス御願いします。 仕様書、前担当者がおりませんのでソースを元に分析を しております。 COBOL85のプログラム内でプリンタファイルのデータ定義 頭６バイトに”PRN○○○”と”CGL○○○”がそれぞれ01レベル として定義してあり、PROCEDUREにてプリンタファイルに 書き込む前にシステムルーチン”CBLASGN”をCALLしております。 このプログラムを実行した後でクライアント側WindowsのVBAにて データを受け取り必要なリストをプリンタに出力していますが 特にJSLでNFCNVを実行しているでもなく、この方法でWindows側 でデータを受け取ることができるのでしょうか？ AVX⇔Windowsでのデータの受け渡しはSEQUENTUALファイルへ カンマ付きで書き込み、NFCNVでデータ変換、Windowsでの操作 が一般的だと思っておりましたが、上記の方法でも可能なので しょうか？ どなたか教えて頂けると幸いです。 宜しく御願い致します。 色々調べてみましたが、よくわからず投稿させて頂きました。 | |
| CBLASGNについて | |
| クロスケ 2010-5-24 8:39:02
[返信] [編集] いつも参考にさせて頂いています。 AVX初心者なのでどうぞアドバイス御願いします。 仕様書、前担当者がおりませんのでソースを元に分析を しております。 COBOL85のプログラム内でプリンタファイルのデータ定義 頭６バイトに”PRN○○○”と”CGL○○○”がそれぞれ01レベルとして定義してあり、 PROCEDUREにてプリンタファイルに 書き込む前にシステムルーチン”CBLASGN”をCALLしております。 このプログラムを実行した後でクライアント側WindowsのVBAにて データを受け取り必要なリストをプリンタに出力していますが 特にJSLでNFCNVを実行しているでもなく、この方法でWindows側 でデータを受け取ることができるのでしょうか？ AVX⇔Windowsでのデータの受け渡しはSEQUENTUALファイルへ カンマ付きで書き込み、NFCNVでデータ変換、Windowsでの操作 が一般的だと思っておりましたが、上記の方法でも可能なので しょうか？ どなたか教えて頂けると幸いです。 宜しく御願い致します。 色々調べてみましたが、よくわからず投稿させて頂きました。 | |
| Re:ＲＤＢＱの使い方 | |
| 富山清風 2010-5-20 12:44:00
[返信] [編集] 私の知るところではＲＤＢＱからテキストは無理です。 ユーティリティ ＃ＮＦＣＮＶにて可能です。 また、有償にはなりますが、ＳｋｙＬｉｎｋ(ＥＡＳＴ社)を使用すれば、ＲＤＢＱの表示結果イメージが、 直接ＥＸＣＥＬにも出力できます。 | |
| ＲＤＢＱの使い方 | |
| のぶ 2010-5-19 9:12:00
[返信] [編集] ＮＥＣのオフコンに搭載されているＲＤＢＱから特定の表をテキストデータとしてエキスポートするにはどうしたらよいですか？ ご教示願えれば幸いです。 | |
| Re:スプールファイルのテキスト化 | |
| 富山清風 2010-5-13 12:47:00
[返信] [編集] こんにちは。 以下が参考になりませんかか http://otd10.jbbs.livedoor.jp/286441/bbs_reply?reply=1333 概要：ディレクトリ一覧の場合 1.ディレクトリ一覧をスプールに落とす 2.#ABC;複写-->ファイル-->SYS@SP????-->F256-->オプション=YES-->出力形式=FIXED-->あとは指示に従ってください 3.F256の８桁目から６文字がメンバ名ですので、#ABC;などでF256からF80に抽出し、加工します。 （注）SYS@SP????の????は数字ですが、スプール表示の番号-1を指定します。 以上ですが、試してみてください。 わからない場合は、再度、質問してください。 | |
| スプールファイルのテキスト化 | |
| Ａ−ＶＸ見習い 2010-5-13 10:44:00
[返信] [編集] 昨年よりＡ−ＶＸを勉強中の見習い中のものです。 わかりましたらどなたか教えてください。 プログラムソースなどは＃ＮＦＣＮＶなど利用し、テキスト化することができたのですが、印刷データ（スプールに落ちたデータ）をテキスト書き出しする方法はありますでしょうか。 （具体的な目的はファイルディレクトリの情報をテキストにて一覧作成することです） | |
| Re:COBOL74とCOBOL85の違い | |
| ＥＸＣＨＡＮＧＥ 2010-4-1 19:30:00
[返信] [編集] ＊ 多分使えなかったのではないでしょうか？ ＊ ＩＦ （条件１） （絶対命令の列１） ＥＬＳＥ ＩＦ （条件２） （絶対命令の列２） ＥＬＳＥ ＩＦ （条件３） （絶対命令の列３） ＥＬＳＥ （絶対命令の列４） 「ピリオド」 などいった表現で行くしかないでしょうね。。 ＊ あと、ＣＡＳＥ構造とかいって ＧＯ ＴＯ ラベル１ ラベル２ ラベル３ ＤＥＰＥＮＤＩＮＧ ＯＮ Ａ． ＧＯ ＴＯ ラベル４． ラベル１ （記述の列１） ＧＯ ＴＯ あっちの方 ラベル２ （記述の列２） ＧＯ ＴＯ あっちの方 ラベル３ （記述の列３） ＧＯ ＴＯ あっちの方 ラベル４ （記述の列４） あっちの方． （続きの記述。。。） ＊ いずれも ４の部分が ＷＨＥＮ ＯＴＨＥＲ に該当します。 ＊ 当時のオフコンはＣＯＢＯＬといっても ＵＳＡＣのオフコンのＣＯＢＯＬなんて ＩＦ （条件） （絶対命令）． だけて、ＥＬＳＥ以下が記述できなかったり、 ＰＥＲＦＯＭ （サブルーチン）． だけで、ＵＮＴＩＬ などが記述できなかったり 等々、きわめて低水準だったと思います。 ＊ その点、ＮＥＣはマシだったのだろうか？ 当時はＮＥＣのマシンなど高価な物はさわったことが ありませんでして、ＣＯＢＯＬ以前のアセンブラや 独自言語みたいな物しか使えないマシンを 使っておりましたゆえ、よく分かりません。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band