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

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

[掲示板に戻る]


システムサブルーチンでのプリンタ番号... Tama 2006-3-10 10:28
Re:システムサブルーチンでのプリンタ番... NNN3 2006-3-10 14:10
Re:システムサブルーチンでのプリンタ番... Tama 2006-3-28 9:36
Re:システムサブルーチンでのプリンタ番... totoo 2006-3-28 14:42

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


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  "      ".
                      ↑空白6つです

PROCEDURE DIVISION.

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



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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

しまうようです。

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

皆さん初めまして。

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

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



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



> WORKING-STORAGE SECTION.

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

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



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

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

間違っていたらごめんなさい、そろそろボケが始まったのかもしれません・・・・

BluesBB ©Sting_Band