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 ... 88 89 90 (91) 92 93 94 ... 108 »

勘違いしてました
うどん 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  [返信] [編集]

お世話になります。

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

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



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

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

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

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



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

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



宜しくお願い致します。
Re:#SAB43の高速モードコピーの速度を実測
ターラヤン 2005-4-12 21:02:00  [返信] [編集]

知りませんでした。

ものすごく高速ですね。



マニュアルに書いてある内容を見る限り、＃ＳＡＢ４３は

新システム体系ユーティリティの一部で、本来内部で呼び出される

ものみたいですね。

直接実行して、単独でも動かすことができるというわけですか。



今度フロッピーディスクにコピーするときに使用してみます。

Re:私ももっていますが..........
富山清風 2005-4-12 19:20:00  [返信] [編集]

私もSUL,PML,JSLを読み書きする隠しＣＵをもっていますが、

ITOS-VX　R17.XX時代のものであり、最新のＣＵは持っていません。

対応する機器がないため、新たに開発はしていませんが、色々な個人的なユーティリティを開発しました（過去の話）。

しかし、ＬＭは今でも健在です。

たとえば、COBOLソースのCOPY文を解析し、縦AP一覧/横COPY名一覧のマトリックス表を印刷するプログラムとか、ソースリストの印刷で汎用紙に左右６０行づつすなわち120行/1頁印刷するプログラムとか持っています。入手の経緯は、「SULが読み書きできるプログラムを提供して欲しいとＮＥＣにたのんだところ、丸秘か暫定処置かでもらいました。」

そこで、最新のＯＳ　A-VX01で動く「SUL,PML,JSLを読み書きするＣＵ」をお持ちの方がございましたら、いただけませんか？

　
Re:#SAB43の高速モードコピーの速度を実測
富山清風 2005-4-12 18:41:00  [返信] [編集]

「#SAB43」を始めて知りましたが、公に使用していいＬＭなのですか？

結果ご報告
あしか 2005-4-12 10:51:00  [返信] [編集]

みなさん、いろいろな情報をありがとうございました。

先週、環境調査に行ってきました。（みなさんの情報に気づかずに・・・）

10,000弱のSULのコピーをLBMで行い、１時間以上かかったため
LMのコピーは次回に見送りました。（あまり時間がとれないため）
アロケートJSを作成するつもりでしたが
現地にその機能がなく、作成できませんでした。

SYS@FDFのことも勉強して、再度行く予定です。

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

SULのメンバをMSDからFDUにコピーするのに要する時間を、#LBMと#SAB43それぞれについて、実測してみました。


テストデータとして、次の3種類のものを用意しました。(言語タイプはCOBOL、SULの大きさは3800セクタ)


(1) 1本当り2000ステップ、90セクタのメンバが36本、合計3240セクタ
(2) 1本当り2000ステップ、655セクタのメンバが5本、合計3275セクタ
(3) 10000ステップ、3268セクタのメンバが1本、3268セクタ


いずれも、出力先のFDUのSULは、初期化し空の状態です。また、測定中他にジョブは動いておらず、負荷の無い状態です。


(1) #LBMでは、18分47秒、#SAB43では、3分22秒
(2) #LBMでは、18分02秒、#SAB43では、1分05秒
(3) #LBMでは、17分51秒、#SAB43では、48秒


予想を上回る絶大な効果があると思われます。

特に、サイズが大きなメンバほど、効果が発揮されています。


こんどは、逆方向の、FDUからMSDへのコピーも測定しました。


(1) #LBMでは、8分52秒、#SAB43では、9分32秒
(2) #LBMでは、8分50秒、#SAB43では、9分22秒
(3) #LBMでは、8分47秒、#SAB43では、9分17秒


こちらでは、高速モードコピーの威力が発揮されるどころか、#LBMのほうが速いという結果になってしまいました。


なお、計測は腕時計の秒針を見て行いました。また、マシンやＯＳ、フロッピー等による差もあると思われますので、あくまでこの情報は参考としてお取り扱いください。
訂正
温泉好きのうさぎ 2005-4-11 11:30:00  [返信] [編集]

高速モード使用の条件について、ユーティリティ説明書に詳しく書いてありました。私の書いた内容は間違っておりました。



以下、説明書を一部引用します。（表の部分が見にくいと思います。）

＜以下引用開始＞



　高速モードを”使用する”と指定することにより、以下の条件が満たされている場合にライブラリメンバの複写を高速に行います。


・複写先（出力側のファイルがあらかじめ初期化されている。）

・複写対象メンバが下記のサイズである。


［高速化の基準値］

指定装置−ファイルタイプ　　SUL/JSL/PML　　　CUL　　　LML

ＭＳＤ→ＭＳＤ　　　　　　　600ステップ以上　300セクタ以上　100セクタ以上

ＦＤＵ→ＭＳＤ　　　　　　1800ステップ以上　700セクタ以上　300セクタ以上

ＭＳＤ→ＦＤＵ　　　　　　　60ステップ以上　20セクタ以上　300セクタ以上

（上記は１メンバのサイズです）


＜以上引用終わり＞


SUL,JSL,PMLで差は無いようです。入出力の装置によってかなり条件が違うようです。

この件に関して、テストデータの測定の結果を、別スレッドにて立ち上げました。ご確認ください。

Re:SUL等のコピーは#LBMより高速の#SAB43がお勧め
BLUELION 2005-4-11 0:44:00  [返信] [編集]

こんにちは



> ご存知無い方が多いと思いますので、簡単に紹介しますと、機能は#LBMと同等で、SUL,JSL,PML,LML間でメンバの追加、置換、コピーを行うものなのですが、高速モードが存在します。

初めて知りました　試してみます



FDUにアロケートしたのと同じ大きさのSULをMSD上にもアロケートしておき、そこに今回のFDUにコピーしたいメンバを入れます。(MSD同士だと速いので#LBMを使ってもよい)



　私は同じファイルのサイズで割り付けるのまでは同じですが＃ＡＢＣの複写でファイル全体をコピーします

この方法もライブラリ使用率が高い場合は無駄な部分が少なくなるので効果的です
SUL等のコピーは#LBMより高速の#SAB43がお勧め
温泉好きのうさぎ 2005-4-10 1:58:00  [返信] [編集]

こんばんは。

まったく本題とは離れますが、



> ライブラリ類は、LBMで、容量いっぱいコピーする、を繰り返し



ソースやJS，PMをフロッピーにコピーするのは非常に時間がかかりますよね。

とくにSULのメンバを#LBMでコピーすると、フロッピー１枚で20〜30分ぐらいかかったりします。

そういうときは、#LBMより高速でコピーできる「#SAB43」の使用が便利です。



ご存知無い方が多いと思いますので、簡単に紹介しますと、機能は#LBMと同等で、SUL,JSL,PML,LML間でメンバの追加、置換、コピーを行うものなのですが、高速モードが存在します。

ただし、常に高速モードになるわけではなく、いくつかの条件があります。そのうち主なものが、

(1) 出力先の空領域がコピーしようとするメンバのサイズ（複数指定のときは、その合計）以上あること

(2) １メンバのサイズがある大きさ以上（具体的な数値を思い出せませんが、SUは50セクタぐらいだったような、JS,PMはそれより少し小さかったか。）



JSやPMは(2)の条件にひっかることが多いので、あまり効果が出ませんが、通常のCOBOLのソースであれば、#LBMの1/3ぐらいの時間でコピーできます。



(1)の条件を考慮すると、効果的な方法として、FDUにアロケートしたのと同じ大きさのSULをMSD上にもアロケートしておき、そこに今回のFDUにコピーしたいメンバを入れます。(MSD同士だと速いので#LBMを使ってもよい)

#SAB43のACT=HCOPYでNAM=!として、全メンバを高速コピーする。(進捗表示が画面に出ます)

MSD上のSULを２個用意しておいて、交互にそれぞれのコピーを行うようにすれば完璧。



ちょっとわかりにくい説明で申し訳ありません。

Re:ＦＤによるデータ退避
ターラヤン 2005-4-9 22:49:00  [返信] [編集]

> さっそくの回答ありがとうございました。
>
> 先輩に「FDなら、VOLSRじゃない？」と言われて、＃NEWSRは使用しませんでした。退避媒体がFDも＃NEWSRを使用できるものなんですか？
> （基本的な質問ですみません）
>

＃ＮＥＷＳＲでもできます。
私は基本的に＃ＶＯＬＳＲの機能強化バージョンが
＃ＮＥＷＳＲだと思っています。
（でも、何か＃ＮＥＷＳＲでは使えないものもあった
ような気がしますが、忘れてしまいました。）
だいたい同じ機能を持っていたと思います。


>先ほどのエラーは、上位のマシン、OSで試したところ
>解決しました。


やはりメモリ不足ですかね。
無事解決できてよかった。

Re:富山清風の質問の詳細とターラヤンさんの質問の回答
ターラヤン 2005-4-9 22:40:00  [返信] [編集]

私もマニュアルを見ているだけなので、全銀手順とかは詳しくないのですが、


> 私が一番疑問におもっているのは、旧マシン（初回の質問メールＪＳを記入済み）でＪＳが問題なく、稼動していることなのです。



今や以前作ったプログラムがそのまま動くというのが、
６００シリーズの最大最後の売りなのに、
以前のものがそのまま動かないのは問題ですね。

> ここで、もうひとつ気になっているのが、初回の質問メールＪＳのABC001の/run文の「SSW8=OFF」の部分ですが、......
> /RUN $FBFT ,DEV=MSD000,FIL=SYS@LML ,SSW8=OFF;
>
> 旧マシンのマニュアルを読みましたが、SSW8はあまり関係ないようなのですが
>
> 私の疑問点は理解できましたか？


理解できました。
不可解な現象ですね。
ただ私も＄ＦＢＦＴは実際に使ったことがないのでこれ以上はわかりません。（会社にマニュアルが転がっていただけです・・・）

いずれにしても、マニュアルには「ＪＲコードでエラーチェックすべし」と書いてあることですし、ＪＲコードでチェックするようにするしかないかと・・・。


好意的に解釈するに
昔はセンススイッチとNORMAL/ABORTでチェックさせていたのが、機能強化でＪＲコードで詳細にエラー原因を通知するようになったとか・・・
でも昔のマニュアルにもなかったそうですから、かなり無理がある解釈ですが、そうとでも解釈しないと納得できませんよね。

Re:富山清風の質問の詳細とターラヤンさんの質問の回答
富山清風 2005-4-8 21:45:00  [返信] [編集]


JS名:ABC001は「ほぼ流用し」とは、
新マシンでは、キーパラメータ(XXX=YYY)ではなく、位置パラメータになっているため、それに準じて変更したのみです。

以下に新マシンのＪＳ

JS名:ABC001
/RUN $FBFT ,DEV=MSD000,FIL=SYS@LML ,SSW8=OFF;
NO_
DDX _
033456XXXXXX _
003_
_
QUE001 _
VTR001 _
XXXXXX40404040_
XXXXXX40404040_
HEXA_
XXXXXX404040_
MSD _
HEXA_
_
_
RECV_
_
VAA69000 _&0 _XXXXXX404040_0250_NO _
END_
_
NO_
_
_
_
_
_
_
NO_
YES_
/> ;


「全銀手順実行時にエラーが発生した場合は」とは、
たとえば、「FBFMSG E S0014センターファイルレコードなし」などです。

私が一番疑問におもっているのは、旧マシン（初回の質問メールＪＳを記入済み）でＪＳが問題なく、稼動していることなのです。

すなわち、
ABC001､XYZ001が「FBFMSG E S0014センターファイルレコードなし」のエラーとなった場合には、
ちゃんと/: ABORT文が有効に働きエラー処理ができていることなのです。（ｱﾎﾞｰﾄﾀﾞﾝﾌﾟの取得にはいかないのにですよ）

ここで、もうひとつ気になっているのが、初回の質問メールＪＳのABC001の/run文の「SSW8=OFF」の部分ですが、......

/RUN $FBFT ,DEV=MSD000,FIL=SYS@LML,SSW8=OFF;

旧マシンのマニュアルを読みましたが、SSW8はあまり関係ないようなのですが

私の疑問点は理解できましたか？

複雑な内容になってしまいましたが、時間が許せば、調べてみてください。

ITOSを触りつづけて２０年の無知な男より


Re:ＦＤによるデータ退避
BLUELION 2005-4-8 21:29:00  [返信] [編集]

追伸：＃ＦＬＣＮＶの隠し機能でＣＯＰＹしないと出来なかったと思います
Re:ＦＤによるデータ退避
bluelion 2005-4-8 21:11:00  [返信] [編集]

ＳＹＳ＠ＦＤＦなどを持っていくと　ファイルのアロックパラメータなどを作るのは簡単ですよ



FDFの構造はマニュアルに載ってあります

普通は　＃ＭＡＰなどのリストがかんたんかもしれませんけど

ＦＤＦから生成すれば　ファイル名などを打たなくてすみますから

Re:ＦＤによるデータ退避
あしか 2005-4-8 18:49:00  [返信] [編集]

ありがとうございます。



そうなんですね・・・。



ただ、今回は作業時間もそんなに取れないので

ライブラリ類は、LBMで、容量いっぱいコピーする、を繰り返し、

その他データファイル類は、allocate JSを作成して

とりあえずの環境を持ち帰ることで対応することにしました。



まだ訪問予定もありますので、その際に、必要なデータはいただいて帰ることにします。



コマンドの意味とかやっぱりちゃんと分かってないとだめですね・・・

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

BluesBB ©Sting_Band