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 ... 84 85 86 (87) 88 89 90 ... 108 »

Re:SULのメンバー一覧
温泉好きのうさぎ 2005-6-15 11:38:00  [返信] [編集]

NECおよび関係会社の開発部門向けに、「SUL/PML/JSL入出力サブルーチン」というものが提供されています。



通常のユーザーマシンには 99%無いとは思いますが、万一、そちらのA-VXのSYS@CUL等の中に 「CBL@XL」というメンバが有れば、COBOLのプログラムを組むことによって、SULやPML、JSLのディレクトリ情報を取得することができます。（CUL、LMLは不可）



CALL ”QLOPEN” USING 〜 や、CALL ”QLSFGET” USING 〜 といった命令によって行います。

もちろん、ディレクトリ情報の取得だけではなく、他にもいろいろな命令があり、個々のメンバに対する読み込みや書き出し、ヘッダ情報の変更などもできます。



残念ながら、このサブルーチンの入手方法は不明です。
Re:SULのメンバー一覧
BLUELION 2005-6-14 23:07:00  [返信] [編集]

私も使ったことはありませんが

確か待機結合編成のファイルを操作するサブルーチンがあるとこのサイトで過去に読んだ記憶があります。



実際、ほかのメーカーのオフコンなら標準機能です

なぜ非公開なんでしょうね？

東芝なんてメンバーをシーケンシャルファイルとしてＲＥＡＤ＆ＷＲＩＴＥできるんでとっても便利でした

Re:SULのメンバー一覧
うどん 2005-6-14 19:16:00  [返信] [編集]

いつもＲＯＭばっかりなので、たまには恩返しを．．

そちらの環境で動くかどうは解りませんが、参考までに。



１．メンバをスプール（ファイル）出力する。



　　#ABCでディレクトリの印刷をシステムスプールに出力する。

　　この時、実行結果リスト(PRD=)にSPOOLと指定する。　　

　　※この時スプールライタが起動していると、紙が出てしまうので

　　スプールライタは止めておく。



２．出来たファイルの確認



　MSD000にSYS@SPxxxx(xxxxは数値です)というファイルが作成

　　されます。そのファイルの内容を見ると、位置はバラバラですが、

　　メンバ一覧があります。規則性がありますので、プログラムを\r

　　作成すればメンバ等を拾えます。ちなみに44(16進)という値で

　　改行して、数バイト先からメンバ名、リビジョン、登録日、

　　更新日と入っている様です。



　うちでは、朝一番のバッチ処理で、昨日修正，新規，削除になった

　プログラムがどれだけ有ったかというリストを出しています。　
SULのメンバー一覧
あゆりーな 2005-6-14 12:32:00  [返信] [編集]

たびたびすみません。

最近は小細工も覚えてきて、SULのメンバを#NFCNVでテキストに出力することもできるようになりました。

たとえばAAA BBB CCCという3プログラムがあったら

プログラム一覧をソースコードに貼り付けると、自動的にSUFを経由してAAA.TXT?CCC.TXTまで作るようにするというものです。



でも本当は、SULの中に何が入っているかを取得できれば

もっと簡単にできるはずなのです。

SULの中身一括コンパイルとかもできるようになるはず。

そう思って調べてみたのですが、

ファイルの属性はSYS@FDFで確認できても

SULのメンバを知る方法が分かりませんでした。



どなたかご存知ではないでしょうか。
ありがとうございました
あゆりーな 2005-6-10 18:55:00  [返信] [編集]

皆様の返信、大変参考になりました。

一文字ずつ変換するルーチンも作れそうです。

これでデータ変換できます。

ありがとうございました。
Re:半角文字？
温泉好きのうさぎ 2005-6-7 13:41:00  [返信] [編集]

上記の私の投稿中に、２バイト半角文字として、NX”2B21”からNX”2B7E”も含まれていることが、抜けていました。これらの前半１バイトの内部コードは、””69””です。



これらの文字は、罫線文字とクオーテーションやカッコなどの記号ですが、私のＷＳエミュレータでは正しく表現できていません。罫線文字は全角と同じ大きさになっており、その他の記号は空白となっています。（そのため、上の投稿で見落としていました）

Re:ルート（平方根）の計算って
温泉好きのうさぎ 2005-6-7 13:39:00  [返信] [編集]

べき乗を使って、

ＣＯＭＰＵＴＥ　Ａ　＝　Ｂ　＊＊　０．５

とすればいいんじゃないでしょうか。



ただし、ＲＯＵＮＤＥＤの指定がないと、Ｂ＝４のときに、

Ａ＝１．９９９９９９９　　になってしまいます。
Re:半角文字？
温泉好きのうさぎ 2005-6-7 0:22:00  [返信] [編集]

これは外字ではなく、２バイト半角文字です。ＪＩＳコードでいうと、NX”2921”からNX”297E”およびNX”2A21”からNX”2A7E”であり、内部コードで表現すると、前半１バイトが””67””および””68””となります。



２バイト系文字でありながら、通常の全角文字の半分の幅しかなく、またプリントするときにピッチ詰めも可能なので、ＡＮＫでは１行に１３６桁しか印字できないところを、１８０桁ほど印字できるようになります。



Express5800/600シリーズのＡ−ＶＸでは、画面、印字ともに正常に表現されるはずです。



また、＃ＮＦＣＮＶでは変換しても、ＤＯＳには該当する文字がありませんので、「・」になってしまうのでしょう。



ちなみに、外字は内部コードで表現すると、前半１バイトが””EB””から””EF””までと””FA””から””FF””までです。

Re:半角文字？
ターラヤン 2005-6-7 0:02:00  [返信] [編集]

２バイト半角文字は、ＮＥＣ拡張文字です。

Ｓ１００内部コードの6760から68EFあたりの文字が、

ＪＩＳコードの2921から2B7E辺りに割り当てられています。

文字の名前に「ＮＥＣ」と付いていることで分かるように、

Ｗｉｎｄｏｗｓ上には無い文字です。



あまり役に立たないかと思いますが、ＮＥＣ拡張文字の

Ｓ１００内部コードとＪＩＳコードの対応表です。



http://www.geocities.jp/tahrayan/utili/neckakucho.lzh



Ｗｉｎｄｏｗｓ側のＪＩＳコードの位置には文字が無いので、

この表のまま変換できません。

表の後ろの２列は、半角に変換した場合です。

ルート（平方根）の計算って
がしまる 2005-6-6 16:48:00  [返信] [編集]

はじめまして。

ITOS時代からCOBOLでシステム開発をしておりますが

（現在はA-VX�検�

COBOLではルート（平方根）の計算はできないでしょうか？

現在は自分で作ったルーチンで計算させておりますが、

いまいち頼りない感じです・・・(泣）



なにか、良い方法ってありますかね？

Re:半角文字？
あゆりーな 2005-6-5 18:41:00  [返信] [編集]

回答ありがとうございました。

その後もう一度調べたのですが、

7200のDAM端から、日本語項目で「半角」を押して

数字やカタカナを入力してみたところ

同じ結果になったので、DAM端の機能のようです。



Ｇ１集合かどうなのかは、調べたのですがよく分かりませんでした。

状況としては、

「客先のデータを社内に持ち込んでRDBQなどで見てみたところ

半角のカタカナなどで表示されるものの、

#NFCNVでDOSに変換すると文字化けする」ということです。

説明が足りなくて申し訳ありません。



何らかの対応コード表さえあれば

力技で変換できるのでしょうが、

ｶﾀｶﾅの対応コードがよく分かりません…

52DISKLは試していないのですが、やってみる価値はありそうです。



ともかくもありがとうございました。
Re:半角文字？
BLUELION 2005-6-4 4:01:00  [返信] [編集]

> S3100のデータのDOS変換をすることになりました。
> ところが、全角のところに半角のような文字が入っていることがあり、
> これをDOSに変換すると「・」みたいになって変換されません。
>
> どうも事情を確認すると「全角のところで「英数」のボタンを押すと入力することができる。
> 画面上は半角のようだが全角分の幅をとっていて、
> 印字すると半角文字に詰まって印字できる」ということです。
>

　多分Ｇ１集合で定義されている外字文字ではないでしょうか？

　通常600シリーズやS7200シリーズで動作する

　#NFCNVや#FTCNVでA-VX形式（JIPS-E）からDOSに変換する時は

　Ｇ１集合の外字は同じコードでDOSに変換されます

　どのツールやユーティリティーを使用されているのでしょうか？



> 600で再現しようと思ったのですができませんでした。
> 3100だから？DAM端だからでしょうか？
>
> コードを調べたのですが、最初の１バイトが””67””か””68””のものが対象で、
> ””67””関係は英数字関係なのでその次の１バイトをXタイプにしてNタイプに送れば
> うまく変換されそうですけれども大変そうです。
> Ｍた、””68””関係はカタカナなのですが、これはどうやって対応表を作っていいかも
> 見当つきません。どんな文字体系なのでしょう。
>
> どなたかよい解決法をご存知だったらいいのですが。
> よろしくお願いいたします。
>



　Ａ−ＶＸの文字コードは　Ｓ１００内部コードやＪＩＰＳコードやＪＩＳコードなど、いろいろなコードがありかなり大変です

とくにＳ１００内部コードなんて、私には理解できませんでした（笑）


ＦＤのデータならコンバートスターや５２ＤＩＳＫなんとかというＷｉｎｄｏｗｓのソフトと変換するのが簡単ですが、Ｇ１の外字エリアはやはり細工をしないと変換できないと思いました

Ｇ０の外字（通常のユーザー外字エリアの外字）などは対応する外字エリアにＡ−ＶＸのSYS@GAIJやSYS@DG2などから変換すればあるていどwindowsでも同じように表示されるはずです

以上乱文ですみませんが、私の表現力および技術力ではこのくらいしか説明できません

半角文字？
あゆりーな 2005-6-3 16:55:00  [返信] [編集]

はじめまして。

たまに拝見するのですが投稿するのは初めてです。

もしお分かりの方がいらしたら教えてください。



S3100のデータのDOS変換をすることになりました。

ところが、全角のところに半角のような文字が入っていることがあり、

これをDOSに変換すると「・」みたいになって変換されません。



どうも事情を確認すると「全角のところで「英数」のボタンを押すと入力することができる。

画面上は半角のようだが全角分の幅をとっていて、

印字すると半角文字に詰まって印字できる」ということです。



600で再現しようと思ったのですができませんでした。

3100だから？DAM端だからでしょうか？



コードを調べたのですが、最初の１バイトが””67””か””68””のものが対象で、

””67””関係は英数字関係なのでその次の１バイトをXタイプにしてNタイプに送れば

うまく変換されそうですけれども大変そうです。

Ｍた、””68””関係はカタカナなのですが、これはどうやって対応表を作っていいかも

見当つきません。どんな文字体系なのでしょう。



どなたかよい解決法をご存知だったらいいのですが。

よろしくお願いいたします。

Re:MSD001〜MSD003の領域追加
ターラヤン 2005-6-3 0:59:00  [返信] [編集]

> 現在MSD000の領域しかないオフコンにMSD001等の領域を追加する方法をご存知の方はいませんか？


ここに書いていいのかどうかわからないのですが、もしＡ−ＶＸ４ならばＮＥＣの販売店向けサイトに、ボリューム追加の方法が書いてある文書がそのものずばりの文書名であります。

TERUさんがどのような立場の方なのかわかりませんが、誰でも見ることのできるサイトではありませんので、もし見れないようであれば誰かに頼むしかないでしょう。


この文書はかなり知っている人を前提として書かれており、非常に簡潔な記述です。

その上ボリュームを追加する方法は、BLUELIONさんもおっしゃっておられるように、あまり詳しくない方が作業されるのは非常に危険です。

できれば詳しい方にお任せするのが良いのではないかと。



「システム導入変更の手引き」の「ＷｉｎｄｏｗｓＮＴ／Ｗｉｎｄｏｗｓ２０００側ファイルの復旧手順」に何となくボリューム追加できそうな記述がありますが、この方法でボリューム追加してはいけません。

この方法はあくまでもＷｉｎｄｏｗｓ側ファイルの復旧方法なので。私はこの方法で試してみて、みごと失敗しました。

Re:ファイルディレクトリの表示内容をExcelで
ターラヤン 2005-6-3 0:37:00  [返信] [編集]

> ソース名などの管理が必要となり、以下のマクロを作成しました。

> 既知情報とは思いますが、ご参考まで。



情報ありがとうございます。

実際マクロを自分で作るとなると面倒で、画面を保存したい時はたいていメモ帳にコピーしてテキストで保存ということが多いです。



それにしてもソース名が最大６文字だと少ないですよね。もう少し長い名前が付けられないかといつも思っています。



ちなみにソースに説明文を日本語で付けることができます。

http://www.geocities.jp/tahrayan/utili/shi04i01.html

#ABCのメンバ一覧画面では説明文が出てこないのが問題。

Re:COMEDITおよびETOS52PGについて
ターラヤン 2005-6-3 0:08:00  [返信] [編集]

他にもっと詳しい人がいるかと思いますが・・・。



ＥＴＯＳ５２ＧＸの設定用ソフトですよね。



ＥＴＯＳ５２ＧＸは、ＡＣＯＳなどのホスト系との通信（端末とか）するソフトです。



マニュアルをダウンロードするところは無いのでは？

ＮＥＣから購入するか、誰かから譲ってもらうしかないと思います。

（問題は今もマニュアル売っているかどうかです。）





> なんでも聞いてみますが、

> ＮＥＣ　Ｎ５２００系のＣＯＭＥＤＩＴおよびＥＴＯＳ５２ＰＧについてしりたいのですが、当方にマニュアルがありません。どなたか、マニュアルのダウンロードができるページをしりませんか？

> そもそも、ＣＯＭＥＤＩＴ，ＥＴＯＳ５２ＰＧって何？オンライン系の設定/ユーティリティ？
Re:MSD001〜MSD003の領域追加
オフコン人 2005-6-1 18:59:00  [返信] [編集]

> 機種はなんでしょうか？　６００シリーズなら保守モードで立> ３１００や７２００などはもっと大変なはずです



BLUELIONさんのおっしゃる通り、機種によりますね。

S7200シリーズ以前だと、ディスクの増設しかありませんので、今では無理じゃないでしょうか。

700シリーズや600シリーズだと可能性がありますが、これも710や610のスタンドアロンモデルだと、ディスク容量が少し心配です。

600シリーズのサーバモデルなら、Windowsで設定されていないディスク容量があれば比較的簡単にできるようです。

Re:MSD001〜MSD003の領域追加
BLUELION 2005-6-1 8:47:00  [返信] [編集]

> 現在MSD000の領域しかないオフコンにMSD001等の領域を追加する方法をご存知の方はいませんか？


機種はなんでしょうか？　６００シリーズなら保守モードで立ち上げて追加することになりますが、ＭＳＤ０００とかを消すようなこともできるので注意が必要です

　その後＃ＡＢＣなどで初期化すれば使えるはずです

３１００や７２００などはもっと大変なはずです

詳しい方お願いします
MSD001〜MSD003の領域追加
TERU 2005-5-31 22:20:00  [返信] [編集]

現在MSD000の領域しかないオフコンにMSD001等の領域を追加する方法をご存知の方はいませんか？
ファイルディレクトリの表示内容をExcelで
わかば 2005-5-31 15:46:00  [返信] [編集]

ソース名などの管理が必要となり、以下のマクロを作成しました。

既知情報とは思いますが、ご参考まで。



【準備】

1. Excel起動
2. シート見出し(Sheet1)でマウス右クリック
3. [コードの表示]マウス左クリック
コードに下記 Worksheet_Change()の内容をコピー＆ペースト
4. 名前を付けてExcel保存


【使い方】

--- AVX操作 ---
1. PC/WSエミュレータから#ABC で表示→ファイルディレクトリ…
2. メニューバーの[編集]→[範囲指定]
3. マウスの左ボタンを押しながら、複写範囲を選択
4. メニューバーの[編集]→[コピー]（[CTRL]を押しながら[C]と同じ）

--- EXCEL操作 ---

5. 準備で保存したExcelブックを開く
6. Sheet1の一番左上セルにカーソルを移動する
7. メニューバーの[編集]→[貼り付け]]（[CTRL]を押しながら[V]と同じ）



以上です



例えば下記AVX表示内容をコピーして、

ExcelのWorksheets(1)の左上へ貼り付けます。


+--------------------------------------------------------+
|　NO　NAME　　　REV　 CREATED　 UPDATED 　LANG　 SECTORS|
| 002　CPYHN3　　0009　93/12/06　05/05/20　CBL　　00005　|
| 003　CPYHSM　　0009　93/12/06　05/05/20　CBL　　00005　|
+--------------------------------------------------------+

すると、自動的にWorksheets(2)へNO,NAME,,,SECTORSの値が設定されます。

（Excel 2003 で動作確認済）


'---------------<この下から>----------------------------

'#ABC ファイルディレクトリの表示内容をExcel上で項目分割するマクロ

Private Sub Worksheet_Change(ByVal Target As Range)

'情報取得開始位置

    Const LC_NO_P       As Integer = 1
    Const LC_NAME_P     As Integer = 7
    Const LC_REV_P      As Integer = 17
    Const LC_CREATED_P  As Integer = 23
    Const LC_UPDATED_P  As Integer = 33
    Const LC_LANG_P     As Integer = 43
    Const LC_SECTORS_P  As Integer = 50

'情報取得桁

    Const LC_NO_W       As Integer = 6
    Const LC_NAME_W     As Integer = 10
    Const LC_REV_W      As Integer = 6
    Const LC_CREATED_W  As Integer = 10
    Const LC_UPDATED_W  As Integer = 10
    Const LC_LANG_W     As Integer = 7
    Const LC_SECTORS_W  As Integer = 7

'AVXの情報をEXCELへ貼り付ける位置（シートの一番左上）

    Const LC_貼付行 As Double = 1
    Const LC_貼付列 As Integer = 1

'終了行を求める際に、必要（EXCELの一番下の行）

    Const LC_一番下     As Double = 65536

'処理対象範囲

    Dim LC_開始行       As Double
    Dim LC_終了行       As Double
    Dim LC_設定行       As Double

'ここから処理開始 ----

'> 処理対象範囲

    LC_開始行 = LC_貼付行
    LC_終了行 = Cells(LC_一番下, LC_貼付列).End(xlUp).Row

'> 情報設定先のクリア

    Worksheets(2).Cells= ""

'> 情報設定

    For LC_設定行 = LC_開始行 To LC_終了行
        LC_文字列 = Cells(LC_設定行, LC_貼付列)
        Worksheets(2).Cells(LC_設定行, LC_貼付列) = Mid(LC_文字列， LC_NO_P, LC_NO_W)
        Worksheets(2).Cells(LC_設定行, LC_貼付列 + 1) = Mid(LC_文字列, LC_NAME_P, LC_NAME_W)
        Worksheets(2).Cells(LC_設定行, LC_貼付列 + 2) = Mid(LC_文字列, LC_REV_P, LC_REV_W)
        Worksheets(2).Cells(LC_設定行, LC_貼付列 + 3) = "'" & Mid(LC_文字列, LC_CREATED_P, LC_CREATED_W)
        Worksheets(2).Cells(LC_設定行, LC_貼付列 + 4) = "'" & Mid(LC_文字列, LC_UPDATED_P, LC_UPDATED_W)
        Worksheets(2).Cells(LC_設定行, LC_貼付列 + 5) = Mid(LC_文字列, LC_LANG_P, LC_LANG_W)
        Worksheets(2).Cells(LC_設定行, LC_貼付列 + 6) = Mid(LC_文字列, LC_SECTORS_P, LC_SECTORS_W)
    Next
End Sub

'---------------<この上まで>----------------------------

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

BluesBB ©Sting_Band