Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

ＮＥＣのオフコン情報掲示板（ノウハウ系）

ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。

1: ＃ＮＦＣＮＶの制限？(2)   2: LLNIPの印刷(3)   3: ＃ＢＫＵＰでｕｓｂに直接出力できますか？(3)   4: A−VXのプリンタ設定方法が分かりません(2)   5: ＯＳのＣＤについて(4)   6: 初期プログラムに関する質問(4)   7: ボリュームMAPにあるが、#ABCだとファイルがみつからない(2)   8: SYS@DDFの復旧(2)   9: スプールデータの取り出し方法についての質問(10)   10: SG処理にて、PAGW実行中にエラーが発生しました(9)   11: ソースライブラリの一括検索(9)   12: 帳表をＰＤＦ印刷する方法（PRINTVEWを使わず）はありますか(2)   13: SKYLINKでテーブルを検索するとエラーとなる(1)   14: オフコン(3)   15: 管理人さんへの質問です(3)   16: #LTEDITでフォームのソースを指定するとメンバーが見つからないと表示される(4)   17: UPS無しの構成へのシステム移行(12)   18: #NFCNV でパソコンへ転送すると、データの先頭に空白がついてしまう(3)   19: CBL85資産をＯＰＥＮｃｏｂｏｌに移行する(3)   20: COBOLソースから仕様書の鏡作成ツール(3)   21: PrintBridgeの使い方(8)   22: WSエミュレータをWindows7Pro32bitSP1PCにインストール出来なくなった(1)   23: 漢字とANKの縮小印字について(3)   24: #NFCNVで先頭のカラムが０になるのは？(2)   25: N7884-14Bと互換性があるプリンタについて(2)   26: 表示（印刷）を任意の順番にしたいのですが・・・(6)   27: JSまたはPMのコールが間違っています(3)   28: ページプリンターのＳＧ方法(2)   29: SMARTの画面明細項目が終われない(8)   30: ＡＶＸでの外字(槇）について(6)  

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 87 88 89 (90) 91 92 93 ... 108 »

Re:RDBQでのデータデータディクショナリの分け方
アレックス 2005-4-27 11:17:00  [返信] [編集]

皆さんはじめまして、お邪魔いたします。
ＳＹＳ＠ＤＤＦへの併合は必要ですが、ＪＣＬを作成すれば可能
です。


/ASSIGN EFN=EIGYOU@DDF,OEFN=SYS@DDF;
/RUN RDBQ,DEV=MSD;
/> ;


こんな感じです。
ユーザー側のＤＤＦを修正した際は必ずＳＹＳ＠ＤＤＦに併合
してください。

一度「ＲＤＢＱ２」を使うと！！
ＥＸＣＨＡＮＧＥ 2005-4-26 21:24:00  [返信] [編集]

> ただ、社内ではRDBQ2は使用していなかったので担当者を集めて
> 一から教育のしなおしが必要になりそうです。
>


＊　よく古くからＡ−ＶＸを使ってきたベテランの方ほど、
　　ＲＤＢＱにこだわりのある方がおられます。
　　しかし、一度「ＲＤＢＱ２」を覚えて使ってみると、
　　使い勝手が良いので、
　　とてもＲＤＢＱへ戻りたいとは思わなくなります。
　　

＊　もっとも、ＳＫＹＬＩＮＫを使いかけると、
　　さらに使い勝手が良くて。。
　　とてもＲＤＢＱ、ＲＤＢＱ２へ戻りたくなくなります。
　　同時に、オフコンの殺風景さを実感してしまいます。


＊　ところで、ＳＫＹＬＩＮＫから見たときに
　　Ａ−ＶＸディレクトリツリーが階層構造に見えるように
　　出来ないのかなあ？？


　　
Re:良い方法はないのかも
Tama 2005-4-26 12:26:00  [返信] [編集]

みなさん、Ｒｅｓありがとうございます。


あれから私もマニュアルを読み返したりと色々調べてみたのです
がSYS@DDF以外を使用するのはどうやら無理そうですね。


MAKIさんに教えて頂いた階層化ですが、説明書を見ながら試して
みたところグループ化できました。
#DDMでグループを登録してRDBQ2で階層化表示に切り替えたら登
録したグループで表示されました。
ただ、社内ではRDBQ2は使用していなかったので担当者を集めて
一から教育のしなおしが必要になりそうです。

Re:良い方法はないのかも
MAKI 2005-4-26 10:23:00  [返信] [編集]

> こんにちは。
>
> 誰か良い方法を知っているかなと思っていたのですが、
> どうも良い方法はなさそうですね。
>
> たしかにたくさんの表定義をしていると、探すのは
> 大変かもしれません。何か良い方法があるとよいのですが。
>

RDBで使う表は、SYS@DDF以外に、SYS@DBDIRとか
SYS@CATとかが関係しているのでDDFの使い分けは
難しいだろうなと思って見ていたのですが。

マニュアルを見直してみたところ
RDBQ2のマニュアルの環境設定の中に、表の階層表示
が設定できるように書いてありました。

＃DDMの補助機能で表の階層化もできるようです。
SYS@DDFの中で表定義を階層化して使えということの
ようです。

ただし、RDBQでは使えないみたいです。
実行環境がないのでこちらでは確認できません。

あしからず。
良い方法はないのかも
ターラヤン 2005-4-26 1:19:00  [返信] [編集]

こんにちは。


誰か良い方法を知っているかなと思っていたのですが、
どうも良い方法はなさそうですね。


たしかにたくさんの表定義をしていると、探すのは
大変かもしれません。何か良い方法があるとよいのですが。



RDBQでのデータデータディクショナリの分け方
Tama 2005-4-22 12:24:00  [返信] [編集]

RDBQを起動すると通常はSYS@DDFを読み込みますがこれ以外
のファイルから読み込むことは可能でしょうか？

現在、表定義が300以上になり一覧から探すのも大変なので
EIGYOU@DDF、KEIRI@DDFなど部門ごとに整理したいと思って
います、よろしくお願いします。

Re:やってみました
富山清風 2005-4-19 18:05:00  [返信] [編集]

MAKIさん　さっそくのご回答ありがとうございます。



以下の手順でテスト的に実行してみたところ、うまく出来そうですね。

送信側:STEP-1:#LBM__:ACT=SELECTでLMを256のSEQファイルヘ

送信側:STEP-2:#NFCNV:OP(256のSEQ)→PCへ

送信側:STEP-3:ﾒｰﾙ___:添付して、送る

受信側:STEP-4:#NFCNV:PC→OP(256のSEQ)へ

受信側:STEP-5:#LBM__:ACT=COPY等で256のSEQファイルよりLMファイルへ



ＬＭが２５６のＳＥＱにセットできるとは！！



なんでも聞いてみるものですね



まだ、質問があったら、聞ますのでよろしくお願いします。



補足です。
ターラヤン 2005-4-19 0:12:00  [返信] [編集]

> あとは、ＮＥＣのＡ−ＶＸ０１形式フロッピーディスク変換ツール
> を使う手もあります。
> 入手方法は、現在２つあります。最近の６００ｘｉシリーズ
> （正確にはＯＳがＡ−ＶＸ０１のもの）には標準で付いている
> ので、それを使用する。
> 最近、ＮＥＣの販売店向けのＨＰに公開されたので、そこから
> 入手する。
> （販売店に入手をお願いするとか、何らかの手段で入手して
> ください。）



ＮＥＣの販売店向けのＨＰにあるのは、６００シリーズ（無印、
Ａｉ、ｘｉ）で汎用に使えるツールです。
たぶん本来の公開の意図としては、Ａ−ＶＸ０１にバージョン
アップする人用だと思います。
こういう使い方をしてＯＫかどうか不明ですが、逆にこのような
使い方は許さないとも書いていない。

Re:Ａ−ＶＸのＬＭをＥｍａｉｌで送る方法はありますか？
ターラヤン 2005-4-19 0:07:00  [返信] [編集]

> いつも楽しくみています。
>
> 非常に初歩的な質問ですが、
> Ａ−ＶＸ(ITOS)のＬＭをＥｍａｉｌで送る方法はありますか？

こういう方法もあります。

ＬＭをフロッピーディスクに入れる。
フロッピーディスクのイメージをＷｉｎｄｏｗｓのバイナリ
イメージに変換してメールで送る。
相手先で、バイナリイメージからフロッピーディスクに戻す。
フロッピーディスクからＬＭを取り出す。


バイナリイメージにするには、例えばシステムポート株式会社
の「仮想FDファイル変換」ツールがあります。

http://www.systemport.co.jp/download/index.htm

システムポート株式会社のＨＰ
の製品情報のところにあります。

ちなみにＡ−ＶＸと相性が悪いようで、Express5800/600シリーズ
上（サーバ上）で、この「仮想FDファイル変換」ツールを
インストールするとＡ−ＶＸが正しく動かなくなります。

600シリーズ以外のＰＣを使う必要があります。

あとは、ＮＥＣのＡ−ＶＸ０１形式フロッピーディスク変換ツール

を使う手もあります。
入手方法は、現在２つあります。最近の６００ｘｉシリーズ
（正確にはＯＳがＡ−ＶＸ０１のもの）には標準で付いている
ので、それを使用する。

最近、ＮＥＣの販売店向けのＨＰに公開されたので、そこから
入手する。
（販売店に入手をお願いするとか、何らかの手段で入手して
ください。）
やり方は、
変換ツールで変換すると、フロッピーディスク上にＰＡＦＤＵ０００
という名前のファイルができるので、それをメールに添付して送る。
相手先では、いったんＰＡＦＤＵ０００を１．４４ＭＢのフロッピー
ディスクに入れて、それを変換ツールで従来の形式の
フロッピーディスクに戻す。

ただし、こちらは本来の用途ではないので、何か問題が発生する
可能性もあり。
私自身は、この方法で何度かメールのやりとりして問題なく相手
に渡せています。

どちらの方法もフロッピーディスクをそのままバイナリ化する
ので、１ＭＢぐらいのファイルになりますが、
ＬＺＨとかＺＩＰで圧縮するとかなり小さくなります。
特に、フォーマットした直後のフロッピーディスクならば、
かなり小さくなります。
逆に使い込んだ（要するにいろんなファイルが入れたり、
削除したりしたフロッピーディスク）
だと、（データが削除されていても、内部にごみデータとして
残っているので）あまり圧縮が利かずにあまり小さくならない
ことがあります。

フォーマットしたばかりのフロッピーディスクを使い、送りたい
ＬＭだけを入れると良い。


Re:Ａ−ＶＸのＬＭをＥｍａｉｌで送る方法はありますか？
MAKI 2005-4-18 22:35:00  [返信] [編集]

> いつも楽しくみています。
>
> 非常に初歩的な質問ですが、
> Ａ−ＶＸ(ITOS)のＬＭをＥｍａｉｌで送る方法はありますか？
>
> この掲示板をみておられる方々は、いろいろな方法をご存知かとおもいますので、いい回答をお待ちしております。
>

やったことはないんで自信はないんですが。
LMのメンバーは、レコード長２５６のSEQファイルに落とすことが
できます。（逆もできます）

LM→SEQは、＃LBMのSELECT
SEQ→LMは、＃LBMのコピーだったと思います。

で、SEQファイルは、＃NFCNVで、PCのファイルにすることが
できますね。

Emailで一回に送れるデータ量が気になりますが、
ファイルを圧縮すれば送信はできそうな気がします。

参考まで。

Ａ−ＶＸのＬＭをＥｍａｉｌで送る方法はありますか？
富山清風 2005-4-18 20:21:00  [返信] [編集]

いつも楽しくみています。

非常に初歩的な質問ですが、
Ａ−ＶＸ(ITOS)のＬＭをＥｍａｉｌで送る方法はありますか？

この掲示板をみておられる方々は、いろいろな方法をご存知かとおもいますので、いい回答をお待ちしております。

富山清風さんのご質問に対する回答
温泉好きのうさぎ 2005-4-17 16:20:00  [返信] [編集]

こんにちは。



> そのシステムサブルーチンを用いて、こまでも開発（#LINK）しておられますか？



最近もよくしています。今年になってから開発したものは、以前から構想を持っていたのですが、#BKUP,#NEWSRのパラメータを自動作成するプログラムです。これも、いつ、どこからどうやって入手したのかよくわからない「SYS@FDFから詳細ファイル情報を取得するサブルーチン」も利用しています。

また、新規ではないですが、SUL内のメンバを順次TXTに変換したり、文字列を検索するプログラムの機能強化を随時行っています。



> そのＣＵの対応バージョンは？



正確には不明ですが、かなり古いです。しかし、リンクのためのCUですからITOS用とかA-VX4用とかは、あまり関係無いと思います。



> ちなみに、私がもっているのはITOS R17.5〜の「CBL:XL」，「CBL:XM」です。



「CBL:XL」は分離型CUですから、CBL85が出力する複数分離型CUとはリンク不可能ですね。当方には複数分離型の「CBL@XL」があります。



> 譲ってください。



出し惜しみするわけじゃありませんが、「はい、ＯＫですよ。」と、安易に譲っていいものやら。理由として、

(1) ここは、ターラヤンさんの掲示板であり、管理者を差し置いて閲覧者同士で取引を行ってよいものか

(2) 私および私の勤務先が著作権等を持っていないこの「CU」を、権利者の承諾無しに第三者に譲ることは、トラブルの発生が予想される（裁判、損害賠償、引責辞任などの言葉を連想させる事態になることは、勘弁してください。）

(3) このようなサブルーチンを探しておられるこのスレの立て主であるぷるさんや、他の閲覧者の方が、「私にも譲ってください」とか「オレも欲しい」とか言ってきたら、どう対処するのか

(4) バグの存在（メンバ削除時に不具合が発生することがある）



特に、(2) の問題が解消されない限り難しいと思います。

ただし、このシステムサブルーチンを使って開発したプログラム（LM）を提供することは可能です。（それがダメならソフト業は成り立たない。）

COBOL言語で、すべて私が設計からコーディング、コンパイル、リンクまでしますので、何ら問題はありません。もちろん無償のフリーウェアとしてです。



その場合、(1),(3)については、ターラヤンさんの許可がありましたら、皆様との話し合いで解決できると思います。

(4)は私の問題。バグの出ないよう回避策を取り、開発には細心の注意を払います。



以上でよろしいでしょうか。（某博覧会に行ったり、同窓会やらで返事が遅くなり、失礼しました。）

Re:温泉好きのうさぎさんへの質問です
富山清風 2005-4-15 19:10:00  [返信] [編集]

温泉好きのうさぎさんへの質問です



「いまだに活躍しています」についての質問ですが

そのシステムサブルーチンを用いて、こまでも開発（#LINK）しておられますか？

そのＣＵの対応バージョンは？

ちなみに、私がもっているのはITOS R17.5〜の「CBL:XL」，「CBL:XM」です。A-VX,A-VX2,A-VX3,A-VX4のいずれかであれば

譲ってください。

Re:勘違いしてました
富山清風 2005-4-14 18:46:00  [返信] [編集]

> あと、コボルで16進にする命令とか無いですよね？



方法は色々あると思いますが私し以下のようにしています。



002080 01  WK-CNV-COMP                 COMP-1.
002090 01  WK-CNV-COMP-R           REDEFINES WK-CNV-COMP.
002100     03  WK-CNV-00           PIC X(01).
002110     03  WK-CNV-ANK          PIC X(01).
                                                            

004050         MOVE    LOW-VALUE       TO  WK-CNV-00.
004060         MOVE    WK-1 (IX-WORK)  TO  WK-CNV-ANK.
004080         COMPUTE WK-CNV-COMP     =   WK-CNV-COMP + 1
004090         IF    ( CON-CNV-T-1(WK-CNV-COMP) =   "J" )
004120             MOVE    "ANKﾅｼ"     TO  STS-ANK-UMU
004110         ELSE
004120             MOVE    "ANKｱﾘ"     TO  STS-ANK-UMU
004130         END-IF


参考までに



勘違いしてました
うどん 2005-4-14 15:52:00  [返信] [編集]

> 列と行が逆ではないですか？



思いっきり勘違いしてました。

例えば、チェックしたい値が”P2”(16進でD7)なら、前回提示頂いた

ソース内の CON-CNV-T-1 のインデックスの値が、216の値を参照

するという事ですね。

(CON-CNV-T-1(216)の値は”A”なので、１バイト文字となる)



あと、コボルで16進にする命令とか無いですよね？

Re:ＭＩＸ項目の１，２バイト文字判断
富山清風 2005-4-13 18:23:00  [返信] [編集]

列と行が逆ではないですか？

Re:ＭＩＸ項目の１，２バイト文字判断
うどん 2005-4-13 18:07:00  [返信] [編集]

富山清風さん

さっそくの回答ありがとうございます。



２バイト文字の１バイト目が、A-VX�献瓮奪察璽鹸浜�３説明書の

付録ＢのＢ−６の表にある値(１６進)なら２バイト文字という形で

解釈しました。



テストプログラムを作成して動かしましたが、半角スペース(40H）

も２バイトとして認識してしまいますよね？

表の見かたが間違っているのでしょうか？

Re:#SAB43の高速モードコピーの速度を実測
温泉好きのうさぎ 2005-4-13 16:18:00  [返信] [編集]

> 公に使用していいＬＭなのですか？



SYS@LMLに入っている以上、誰がどう使おうと、何ら問題ないと考えています。

もちろん「自己責任」であることは、言うまでもありません。

誤った使い方をして、ファイルを初期化したり、データを壊したとしても、誰に文句も言えません。

そのため、責任能力が無かったりスキルの低いユーザーには、使ったり、教えたりしないほうが賢明だと思われます。

従って、誰が見るかわからない掲示板では具体的なパラメータの説明や記述を控えています。わかる人が見ればわかりますから。

Re:ＭＩＸ項目の１，２バイト文字判断
富山清風 2005-4-13 13:03:00  [返信] [編集]

「うどん」さん、こんにちは。



私は以下のようにして判断しています。



１バイトづつ順次チェックし、下記テーブルと照合し、

「Ａ」であれば、ANKであり、

「Ｊ」であれば、全角の前半であるため、

次の１バイト（全角の後半）と合わせて２バイトすなわち全角１文字として扱っています。



ちなみに、下記の表は、「A-VX�献瓮奪察璽鹸浜�３説明書の付録ＢのＢ−６に記載されているものを使っています」



以上ですが、お役にたてば幸いです。



"001420 01  CON-CNV-TBL."
"001430****                                        0123456789ABCDEF"
"001440     03  F               PIC  X(16)  VALUE "AAAAJAJAJJJAAAAA".     0"
"001450     03  F               PIC  X(16)  VALUE "AAAAJAAJAAJJAAAA".     1"
"001460     03  F               PIC  X(16)  VALUE "JJJJJJAAJJJJJAAA".     2"
"001470     03  F               PIC  X(16)  VALUE "JJAJJJJAJJJJAAJA".     3"
"001480     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAAAAAA".     4"
"001490     03  F               PIC  X(16)  VALUE "AAAAAAAJAJAAAAAA".     5"
"001500     03  F               PIC  X(16)  VALUE "AAJJJJJJJJJAAAAA".     6"
"001510     03  F               PIC  X(16)  VALUE "JJJJJJJJJJAAAAAA".     7"
"001520     03  F               PIC  X(16)  VALUE "JAAAAAAAAAAJAAAA".     8"
"001530     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAJJAAA".     9"
"001540     03  F               PIC  X(16)  VALUE "JJAAAAAAAAAJAAAA".     A"
"001550     03  F               PIC  X(16)  VALUE "JAJJJJJJJJAAAAAA".     B"
"001560     03  F               PIC  X(16)  VALUE "JAAAAAAAAAJJJJJJ".     C"
"001570     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     D"
"001580     03  F               PIC  X(16)  VALUE "AJAAAAAAAAJJJJJJ".     E"
"001590     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     F"
"001600 01  CON-CNV-TBL-R       REDEFINES CON-CNV-TBL."
"001610     03  CON-CNV-T-O     OCCURS 256."
"001620       05  CON-CNV-T-1   PIC  X(01)."


----------end

ＭＩＸ項目の１，２バイト文字判断
うどん 2005-4-13 10:41:00  [返信] [編集]

お世話になります。

早速ですが、ＭＩＸ項目内の文字を１バイトか２バイトか判断するのに

（ＣＯＢＯＬ内で）何か良い手は無いでしょうか？



やりたい事は、送先住所というＭＩＸ項目を伝票に出力したいのですが、

横幅の印字文字が限られている為、自動で改行しないいけません。

改行というのがくせ者で、２バイト文字が離れない(?)様にしないと

文字化けしてしまいます。



現在のフォーマットは、日本語（Ｎタイプ）で定義されているので

気にしなくて良かったのですが．．



宜しくお願い致します。

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 87 88 89 (90) 91 92 93 ... 108 »

BluesBB ©Sting_Band