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 ... 52 53 54 (55) 56 57 58 ... 84 »

■▲▼
1 COBOL85でシステム行へのdisplay
回転の達人 2006-4-10 19:12:00  [返信] [編集]

初めて投稿します。

先週、COBOL4のプログラムをCOBOL85に変換したのですが、このプログラムが画面をぎっしりつかっていて、エラーメッセージはシステム行に表示（DISPCRT(0,1) ”XXXXXX”) しています。　COBOL85ではどうしたらシステム行に印字できるのでしょうか？　

　このサイトで覚えた、オフコンからエクセルを起動する手法は大変役に立ちました。　ありがとうございます。
2 Re:COBOL85でシステム行へのdisplay
うどん 2006-4-11 8:50:00  [返信] [編集]

システム行に表示するには、下記の様にしています。
はずしていたら、すみません。


 ENVIRONMENT DIVISION.               
 CONFIGURATION   SECTION.          
 SPECIAL-NAMES.  GDD  IS  XXXX. ←これを記述 
 INPUT-OUTPUT    SECTION.          

 PROCEDURE DIVISION.   
 　DISPLAY " TEST " UPON XXXX.


　上記のDISPLAYが実行されると、うちの環境では、

　画面の最下部（25行目？）にブザー音と同時に表示され、

　リセットキーで解除になります。

　

　COBOL85言語説明書のP455に、特殊名(SPECIAL-NAMES)があります。

　書いてる事が、良く分かりませんが...
4 Re:COBOL85でシステム行へのdisplay
totoo 2006-4-11 9:45:00  [返信] [編集]

みなさん、おはようございます。



いくつかの方法があるようですね。

もしかすると環境に依存するかもしれませんが、私は、０(ZERO)行目に表示をすることで実現しています。

SCREEN SECTIONでLINEを変数とし、その変数をZEROにしてDISPLAY命令を実行しています。

SGのWSモードの設定値に従って、０行目あるいは２５行目に表示されます。

はずしていたらゴメンなさい。

使用OS:A-VXIV R2.52 (A-VX10の頃もできていました。)



お節介ながら、うどん様がお書きになっていらっしゃる方法(GDD)についてCOBOL85言語説明書のDISPLAY命令から引用しての補足ですが「最大表示桁数５９／０行目の２２桁目から表示（ワークステーションにより異なる）」と記されています。０行目はシステム行と読み替えることで宜しいでしょう。桁数と表示桁位置に制限が有るということですね。それ以外は御説明のとおりですね。



私は、勝手な桁位置を定義して表示しています。そのかわり、ブザー等はオウンコーディングしています。
3 Re:COBOL85でシステム行へのdisplay
温泉好きのうさぎ 2006-4-11 9:45:00  [返信] [編集]

0行目へ表示するには、以下のようにすれば可能です。



SCREEN　SECTIONで、LINE句に数字で「0」と書くとコンパイルエラーになりますので、WORKING-STORAGE　SECTIONで定義した数字項目を設定します。

この数字項目の値に「0」を入れて、DISPLAY命令を実行すれば、0行目のシステム領域に表示できます。

5 Re:COBOL85でシステム行へのdisplay
totoo 2006-4-11 9:46:00  [返信] [編集]

もろにかぶりました。時刻もいっしょ・・・・・(笑
6 Re:COBOL85でシステム行へのdisplay
Tama 2006-4-11 9:47:00  [返信] [編集]

私が普段使っている方法は



WORKING-STORAGE   SECTION.
77 L0  PIC  9(2)  VALUE  ZERO.


SCREEN SECTION.
01 TEST.
   02  LINE L0  COLUMN 01  PIC X(4)  ”TEST”.

PROCEDURE DIVISION.
   DISPLAY TEST.



上記の記述で画面最下行(25行目)に表示されます。

25行目は80桁フルには使えなかったと思いますが何桁までかは確認とれてないです。
うろ覚えですが、以前のSYSTEM3100時代は画面最上段に表示されていたと思います。
7 Re:COBOL85でシステム行へのdisplay
Tama 2006-4-11 9:54:00  [返信] [編集]

書き込んでいる間にレスついてました^^;;



別件ですが、最近タイトルをクリックしてから内容が表示されるまでにかなり時間がかかるようになったのですが(30秒くらい)私だけでしょうか？
8 Re:自己レス
回転の達人 2006-4-11 12:33:00  [返信] [編集]

　みなさん、早速の回答ありがとうございました。

余談ですが、回転の達人が４月２４日（月）１８：３０〜１９：００の「ガレッジワザーランド」（テレビ東京）の１番手で出演します。（４月９日に収録済）　でも、こんな時間に見る事ができる人はいないと思います。　この日にすべての放送局（フジテレビ、日本テレビ、ＴＢＳ、テレビ朝日、ＮＨＫ、テレビ東京）に出演した事になり、６冠達成となります。
9 Re:COBOL85でシステム行へのdisplay
ターラヤン 2006-4-13 1:03:00  [返信] [編集]

Tamaさん、こんにちは。


>別件ですが、最近タイトルをクリックしてから内容が表示されるまで
>にかなり時間がかかるようになったのですが(30秒くらい)私だけで
>しょうか？


時間がかかるというのは、この掲示板の話でしょうか。
最近は何もいじっていないので、もし遅くなっているとしたら、この掲示板が
乗っかっているサーバが遅くなったのかもしれません。



システム行について、
あやふやな知識ですが、たしかシステム行が上に出るか下に出るかは
システム生成で決められるはず。
たしか２６行モードにするか２５行モードにするかだったような気がします。
ところがＰＣ／ＷＳエミュレータは２６行モードをサポートしていないので、
下側しか出ない、みたいな話だった・・・ような気がします。
最近はＰＣを端末として使うことが多いので、システム行が下側のもの
ばかりよく見かけるのではないかと・・・。
（この話は記憶で書いているので、あまり自信がありません。）
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 PrintView+Spoolernetについて
Q太郎 2006-4-10 12:24:00  [返信] [編集]

AVX4を使用中の顧客から、リストをPDFで管理したいという要望があり、PrintView+Spoolernetを考えていますが、

注意点/留意点/落とし穴/運用面での問題点/などなどがありましたら、教えてもらえませんか?



2 Re:PrintView+Spoolernetについて
オフコン人 2006-4-10 22:41:00  [返信] [編集]

質問があまりにも漠然としていませんか？

突然、注意点/留意点/落とし穴/運用面と言われても・・・



・利用されるバージョンによって、600サーバのみしか利用できない場合と、別サーバでも利用できる場合がありますよね。Adobe Acrobatを600サーバにインストールする懸念

・何ページくらいを一度にPDFにするかでのCPU使用率

・元々Windows製品ですからAdobe AcrobatにはLP帳票はありません。改ページが正しく行われているか。

・外字があるか？

・変換したPDFにセキュリティを設定するか。

等、山積みだと思いますが。
3 Re:PrintView+Spoolernetについて
江須扇 2006-4-11 12:47:00  [返信] [編集]

過去ログは検索できませんが、

ここの過去ログにもいろいろな書き込みがあります。
例えは
「６４６　ＰＤＦ化について」とそのＲＥＳを見ていただいたら、
何らかの参考にならないでしょうか？

「賢者は愚者に学び、愚者は賢者に学ばす」という諺もあります。

ここの掲示板はお宝と思っていただき、過去ログを全て見ていた
だいたら何らかのヒントが得られるかもしれません。

ところで、「AVX4を使用中の顧客から」という文言がありますが、
ディーラ（販売店）の立場の方でしょうか？
それであれば、ユーザーよりメーカーに近い立場であると思い
ますので、メーカーのサポート部門に確認する方法もあるのでは、
と思います。

それとも、ユーザーの生の声が知りたいという事ですか？
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 SELECT命令でのSYS@WK1の競合
Tama 2006-3-28 9:47:00  [返信] [編集]

ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令

で使用するとＳＹＳ＠ＷＫ１を使用してしまう為に他のＳＹ

Ｓ＠ＷＫ１を使用しているプログラムがファイル使用中で止

まってしまいます。

現状でＳＥＬＥＣＴ命令を使用しているプログラムが相当数

あり業務が停滞して困っています、＃ＳＯＲＴのようにテン

ポラリーファイルを指定する方法か何か別の解決策はないで

しょうか、どうかお知恵をお貸し下さい。

2 Re:SELECT命令でのSYS@WK1の競合
NNN3 2006-3-28 10:35:00  [返信] [編集]

ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令

で使用するとＳＹＳ＠ＷＫ１を使用してしまう為に他のＳＹ

Ｓ＠ＷＫ１を使用しているプログラムがファイル使用中で止

まってしまいます。

------------------------------------------------------

上記の概念で言うと同じプログラムが、２個以上動かない

見たいですけど、実際は、同時に数本動きます。

別の原因があるのでは．．．．．．．．．．．

−−−−−−−−−−−−−−−−−−−−−−−−−−−

テストで

ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令

のプログラムの実行と裏で#SORTでSYS@WK1を利用してＳＯＲＴ

を実行しても　特に　変わったことは、ないけど．．．．．．．．

3 Re:SELECT命令でのSYS@WK1の競合
Tama 2006-3-28 11:13:00  [返信] [編集]

説明のしかたが悪かったようです。



簡単に症状を説明しますと、ＳＥＬＥＣＴ命令を使用している

ＣＯＢＯＬプログラムを２本以上動かすと、ＳＹＳ＠ＷＫ１使

用中が表示されて待ち状態になるのをどうにか出来ないかと思

案しているのですが。
4 Re:SELECT命令でのSYS@WK1の競合
NNN3 2006-3-28 12:18:00  [返信] [編集]

Express640xi SYS@WK1がなくても動作します。

DEALOCATEして実行してみました。



実行時にSYS@WK2が生成されて動いています。

400,000件分データをCOBOLでSELECTを何本も実行しても

何でもないです。

5 Re:SELECT命令でのSYS@WK1の競合
NNN3 2006-3-28 12:32:00  [返信] [編集]

DEALOCATE-->DEALLOCATEのスペル間違っていました。
6 Re:SELECT命令でのSYS@WK1の競合
富山清風 2006-3-28 12:37:00  [返信] [編集]

私も、NNN3の意見に賛成です。

原因は別のところにあると思います。

SELECT命令を使用しているプログラムを同時に実行しても全く問題ありません。

「空き容量の問題とか」、「同一プログラムで同時にSORTを使用しているがTEMPORARYになっていないとか」が考えられますが。

ちなみに、エラーメッセージはどんなエラーメッセージでしたか?

7 Re:SELECT命令でのSYS@WK1の競合
NNN3 2006-3-28 12:50:00  [返信] [編集]

ディスクの未使用領域が、足らないとか　連続した未使用領域が

ないとかありませんか．．．．．．．？？？

特にＭＳＤ０００．．．．．．

8 Re:SELECT命令でのSYS@WK1の競合
Tama 2006-3-28 13:29:00  [返信] [編集]

ＭＳＤ０００には２０万セクターが連続した空き領域があり

ます。

下記のメッセージが表示されました。

I L1090: ファイルは使用中です;MSD000/AVX000/SYS@WK1 .



今までのお話を伺いますとコーディングに問題がありそうな気がしますのでマニュアルを見直してみることにします。



単純なミスを犯しているような気がしてきました、お騒がせして申し訳ありません。



9 自己レス：解決しました
Tama 2006-4-6 10:38:00  [返信] [編集]

あれからソースを見直していたのですが、８インチフロッピーやＭＴＵに入っていてソースが取り出せなかったりと時間がかかってしまいましたが、結論から申しますと私の早とちりでしたお騒がせしまして大変申し訳ございませんでした。

SELECt命令に問題があると思い込んでいたのですがSORT命令が原因でした。

SYS@WK1を一時ファイルに指定することでファイルの使用中はおこらなくなりました。

COBOL85プログラム手引書の4.5.2整列ファイルの項にもきちんと「整列プログラムを複数起動する場合は、整列用ファイルを一時ファイルとして使用することをお勧めします」と書いてありました、もう一度マニュアルを読んで勉強しなおすことにします。
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 ＬＭＬをメールで送る
田代 2006-3-22 15:25:00  [返信] [編集]

数年前にＬＭＬがメールで送れる内容の記事を見ました。

ＬＭＬを管理している場所とそれを使って処理している所が

離れているのでＦＤでのやり取り以外の方法がしりたいです。

ＨＥＬＰ！

2 Re:ＬＭＬをメールで送る
NNN3 2006-3-23 12:45:00  [返信] [編集]

１．#LBMでLMLのプログラムをSEQに１取り出して#NFCNVで変換して

　　LMLのバイナリィファイルが、そのままTXTに出力されます。

　　それをAVXのSEQに#NFCNVで変換して#LBMでLMLにCOPYすればできると思いますが、

　　この方法は、たぶん問題の方が、多いので　推奨できないです。

　　テキスト形式時にデータを触った場合、機械語なので、ABORTする

　　だけならいいけど、最悪のケースになる場合も考えられます。

２．FDTOOLを利用して変換したイメージファイルを配布して(FDU(FAT)形式PAFDU000)

　　FDUTOOLでまた変換してIBM形式に戻して運用した方が、いいと思います。

　　手間は、FDUを変換することかなぁ
3 Re:ＬＭＬをメールで送る
江須扇 2006-3-24 12:48:00  [返信] [編集]

既にNNN3さんが回答していただいておりますので、

このサイトの参照ページを書き込みます。



１番に関しては

http://otd10.jbbs.livedoor.jp/tahrayan01/bbs_reply?reply=341

の回答ページをたどってください

ちょっと的外れですが

http://www.geocities.jp/tahrayan/geo/0018.html



２番に関しては

http://www.geocities.jp/tahrayan/sonota/avx01fd.html
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 システムサブルーチンでのプリンタ番号の変更について
Tama 2006-3-10 10:28:00  [返信] [編集]


FILE-CONTRO.
  SELECT  PR  ASSIGN  TO  PR-PRN999-{フォーム名}.


WORKING-STORAGE   SECTION.     

  77 PRN-DATA1  PIC  X(6)  VALUE  "PRN123".
  77 PRN-DATA2  PIC  X(6)  VALUE  "      ".
　　　　　　　　　　　　　　　　　　　　　　↑空白６つです

PROCEDURE DIVISION.

  CALL "CBLASGN"  USING  PR PRN-DATA1  PRN-DATA2.



上記のような記述でプログラム実行時にプリンタ番号を
変更しているのですがフォームが出力されません。
装置アドレスを変更しているのが原因だとは思うのです
がどのように記述すればよいのかで行き詰っています、
回避策を教えて頂けないでしょうか。



2 Re:システムサブルーチンでのプリンタ番号の変更について
NNN3 2006-3-10 14:10:00  [返信] [編集]

フォームオブジェクトファイルがプリンタの機種によりSYS@FOL0〜SYS@FOL7に

フォームをいれて置かないとうまく動作しないみたいです。

簡単に説明すると同じ型番のKLP100Cが２台ありPRN010 PRN011という構成なら

プログラムでプリンタ装置を変更すれば、出力が、可能と思います。

違う型番のフォーム対応のプリンタの場合は、共有でフォームが、利用出来ない

場合もあり、個別に　プリンタとフォームをセットして出力を切り替えないと

うまく出力出来ないと思います。

フォームの作成が２台とも共通の指定が、出来ていればフォームをSYS@FOL0　SYS@FOL5

に入れてあれば、可能だと思います。

コピーで入れるのではなく　#FORM で個別に作成したものを入れてください。
3 Re:システムサブルーチンでのプリンタ番号の変更について
Tama 2006-3-28 9:36:00  [返信] [編集]

お返事遅れて申し訳ありませんでした。

色々試したのですが”CBLASGN”でプリンター番号を変更

した際にFILE-CONTROLで指定したフォーム名が消えて

しまうようです。

引き続き調べてみたいと思います。
4 Re:システムサブルーチンでのプリンタ番号の変更について
totoo 2006-3-28 14:42:00  [返信] [編集]

皆さん初めまして。

こちらの掲示板をいつも「楽しく」拝見いたしておりますtotoo(ととお)と申します。どうぞ、宜しくお願いいたします。

ITOS時代からかれこれ１０何年かオフコンと戯れてまいりました。



さて、Tamaさんのお困りの現象ですが、既に最初の御自身の書き込みに答えが出ているように思えますが・・・・



> WORKING-STORAGE SECTION.

> 77 PRN-DATA1 PIC X(6) VALUE ”PRN123”.

> 77 PRN-DATA2 PIC X(6) VALUE ” ”.



COBOL85システムサブルーチン説明書によれば、データ名?２は、「メディア識別名」ですね。お使いになりたいフォーム名をセットしてあげれば宜しいのでは。

もう何年もフォームオーバーレィは使っておりませんが・・・・

間違っていたらごめんなさい、そろそろボケが始まったのかもしれません・・・・
全部読む 最新50 1-100 板のトップ リロード

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 52 53 54 (55) 56 57 58 ... 84 »

BluesBB ©Sting_Band