システムサブルーチンでのプリンタ番号の変更について

1:システムサブルーチンでのプリンタ番号の変更について
Tama 03/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 03/10 14:10
フォームオブジェクトファイルがプリンタの機種によりSYS@FOL0〜SYS@FOL7に

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

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

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

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

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

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

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

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

コピーで入れるのではなく #FORM で個別に作成したものを入れてください。

3:Re:システムサブルーチンでのプリンタ番号の変更について
Tama 03/28 09:36
お返事遅れて申し訳ありませんでした。

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

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

しまうようです。

引き続き調べてみたいと思います。

4:Re:システムサブルーチンでのプリンタ番号の変更について
totoo 03/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は、「メディア識別名」ですね。お使いになりたいフォーム名をセットしてあげれば宜しいのでは。

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

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

1-

BluesBB ©Sting_Band