ＮＥＣのオフコン情報掲示板（ノウハウ系）
| ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
| Re:COBOL85でシステム行へのdisplay | |
| 温泉好きのうさぎ 2006-4-11 9:45:00
[返信] [編集] 0行目へ表示するには、以下のようにすれば可能です。 SCREEN SECTIONで、LINE句に数字で「0」と書くとコンパイルエラーになりますので、WORKING-STORAGE SECTIONで定義した数字項目を設定します。 この数字項目の値に「0」を入れて、DISPLAY命令を実行すれば、0行目のシステム領域に表示できます。 | |
| 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命令から引用しての補足ですが「最大表示桁数５９／０行目の２２桁目から表示（ワークステーションにより異なる）」と記されています。０行目はシステム行と読み替えることで宜しいでしょう。桁数と表示桁位置に制限が有るということですね。それ以外は御説明のとおりですね。 私は、勝手な桁位置を定義して表示しています。そのかわり、ブザー等はオウンコーディングしています。 | |
| Re:COBOL85でシステム行へのdisplay | |
| うどん 2006-4-11 8:50:00
[返信] [編集] システム行に表示するには、下記の様にしています。 はずしていたら、すみません。 上記のDISPLAYが実行されると、うちの環境では、 画面の最下部（25行目？）にブザー音と同時に表示され、 リセットキーで解除になります。 COBOL85言語説明書のP455に、特殊名(SPECIAL-NAMES)があります。 書いてる事が、良く分かりませんが... | |
| Re:PrintView+Spoolernetについて | |
| オフコン人 2006-4-10 22:41:00
[返信] [編集] 質問があまりにも漠然としていませんか？ 突然、注意点/留意点/落とし穴/運用面と言われても・・・ ・利用されるバージョンによって、600サーバのみしか利用できない場合と、別サーバでも利用できる場合がありますよね。Adobe Acrobatを600サーバにインストールする懸念 ・何ページくらいを一度にPDFにするかでのCPU使用率 ・元々Windows製品ですからAdobe AcrobatにはLP帳票はありません。改ページが正しく行われているか。 ・外字があるか？ ・変換したPDFにセキュリティを設定するか。 等、山積みだと思いますが。 | |
| COBOL85でシステム行へのdisplay | |
| 回転の達人 2006-4-10 19:12:00
[返信] [編集] 初めて投稿します。 先週、COBOL4のプログラムをCOBOL85に変換したのですが、このプログラムが画面をぎっしりつかっていて、エラーメッセージはシステム行に表示（DISPCRT(0,1) ”XXXXXX”) しています。 COBOL85ではどうしたらシステム行に印字できるのでしょうか？ このサイトで覚えた、オフコンからエクセルを起動する手法は大変役に立ちました。 ありがとうございます。 | |
| PrintView+Spoolernetについて | |
| Q太郎 2006-4-10 12:24:00
[返信] [編集] AVX4を使用中の顧客から、リストをPDFで管理したいという要望があり、PrintView+Spoolernetを考えていますが、 注意点/留意点/落とし穴/運用面での問題点/などなどがありましたら、教えてもらえませんか? | |
| 自己レス：解決しました | |
| Tama 2006-4-6 10:38:00
[返信] [編集] あれからソースを見直していたのですが、８インチフロッピーやＭＴＵに入っていてソースが取り出せなかったりと時間がかかってしまいましたが、結論から申しますと私の早とちりでしたお騒がせしまして大変申し訳ございませんでした。 SELECt命令に問題があると思い込んでいたのですがSORT命令が原因でした。 SYS@WK1を一時ファイルに指定することでファイルの使用中はおこらなくなりました。 COBOL85プログラム手引書の4.5.2整列ファイルの項にもきちんと「整列プログラムを複数起動する場合は、整列用ファイルを一時ファイルとして使用することをお勧めします」と書いてありました、もう一度マニュアルを読んで勉強しなおすことにします。 | |
| 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システムサブルーチン説明書によれば、データ名?２は、「メディア識別名」ですね。お使いになりたいフォーム名をセットしてあげれば宜しいのでは。 もう何年もフォームオーバーレィは使っておりませんが・・・・ 間違っていたらごめんなさい、そろそろボケが始まったのかもしれません・・・・ | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| Tama 2006-3-28 13:29:00
[返信] [編集] ＭＳＤ０００には２０万セクターが連続した空き領域があり ます。 下記のメッセージが表示されました。 I L1090: ファイルは使用中です;MSD000/AVX000/SYS@WK1 . 今までのお話を伺いますとコーディングに問題がありそうな気がしますのでマニュアルを見直してみることにします。 単純なミスを犯しているような気がしてきました、お騒がせして申し訳ありません。 | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| NNN3 2006-3-28 12:50:00
[返信] [編集] ディスクの未使用領域が、足らないとか 連続した未使用領域が ないとかありませんか．．．．．．．？？？ 特にＭＳＤ０００．．．．．． | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| 富山清風 2006-3-28 12:37:00
[返信] [編集] 私も、NNN3の意見に賛成です。 原因は別のところにあると思います。 SELECT命令を使用しているプログラムを同時に実行しても全く問題ありません。 「空き容量の問題とか」、「同一プログラムで同時にSORTを使用しているがTEMPORARYになっていないとか」が考えられますが。 ちなみに、エラーメッセージはどんなエラーメッセージでしたか? | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| NNN3 2006-3-28 12:32:00
[返信] [編集] DEALOCATE-->DEALLOCATEのスペル間違っていました。 | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| NNN3 2006-3-28 12:18:00
[返信] [編集] Express640xi SYS@WK1がなくても動作します。 DEALOCATEして実行してみました。 実行時にSYS@WK2が生成されて動いています。 400,000件分データをCOBOLでSELECTを何本も実行しても 何でもないです。 | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| Tama 2006-3-28 11:13:00
[返信] [編集] 説明のしかたが悪かったようです。 簡単に症状を説明しますと、ＳＥＬＥＣＴ命令を使用している ＣＯＢＯＬプログラムを２本以上動かすと、ＳＹＳ＠ＷＫ１使 用中が表示されて待ち状態になるのをどうにか出来ないかと思 案しているのですが。 | |
| Re:SELECT命令でのSYS@WK1の競合 | |
| NNN3 2006-3-28 10:35:00
[返信] [編集] ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令 で使用するとＳＹＳ＠ＷＫ１を使用してしまう為に他のＳＹ Ｓ＠ＷＫ１を使用しているプログラムがファイル使用中で止 まってしまいます。 ------------------------------------------------------ 上記の概念で言うと同じプログラムが、２個以上動かない 見たいですけど、実際は、同時に数本動きます。 別の原因があるのでは．．．．．．．．．．． −−−−−−−−−−−−−−−−−−−−−−−−−−− テストで ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令 のプログラムの実行と裏で#SORTでSYS@WK1を利用してＳＯＲＴ を実行しても 特に 変わったことは、ないけど．．．．．．．． | |
| SELECT命令でのSYS@WK1の競合 | |
| Tama 2006-3-28 9:47:00
[返信] [編集] ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令 で使用するとＳＹＳ＠ＷＫ１を使用してしまう為に他のＳＹ Ｓ＠ＷＫ１を使用しているプログラムがファイル使用中で止 まってしまいます。 現状でＳＥＬＥＣＴ命令を使用しているプログラムが相当数 あり業務が停滞して困っています、＃ＳＯＲＴのようにテン ポラリーファイルを指定する方法か何か別の解決策はないで しょうか、どうかお知恵をお貸し下さい。 | |
| Re:システムサブルーチンでのプリンタ番号の変更について | |
| Tama 2006-3-28 9:36:00
[返信] [編集] お返事遅れて申し訳ありませんでした。 色々試したのですが”CBLASGN”でプリンター番号を変更 した際にFILE-CONTROLで指定したフォーム名が消えて しまうようです。 引き続き調べてみたいと思います。 | |
| Re:SELECT命令での部分検索 | |
| hiko 2006-3-24 16:17:00
[返信] [編集] こんな記述では上手くいきませんか？ 数年前に試したきりで未確認です。間違ってたらゴメンなさい。 <前方一致> SELECT SYOMST WHERE SYO-NAME CHARACTERS LEADING WK-NAME <後方一致> SELECT SYOMST WHERE SYO-NAME CHARACTERS TRAILING WK-NAME <部分一致> SELECT SYOMST WHERE SYO-NAME CHARACTERS WK-NAME | |
| 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 | |
| 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を変換することかなぁ |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band