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

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.



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





1-

BluesBB ©Sting_Band