旧家イトウ家の小技裏技(その12)

1:旧家イトウ家の小技裏技(その12)
江須扇 12/13 04:18
-------------------------------------------------------------------------------------------

その12)JCLのPAUSE画面のカラー化

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

JCLを実行する時に画面メッセージをJCLで表示させてPAUSEで止める事はよく有りませんか。

その時にカラー表示が出来たと思ったことは有りませんか?



本日はカラー化の方法をご説明します。

制御符号の方法は(その4)をご確認ください。

[例]

// S0101407; 00010

// S0101006; 00020

// DISPLAY DISPLAY DISPLAY; 00030

/PAUSE PAUSE PAUSE PAUSE; 00040

/> ; 00050



例は白にリバース表示しブリンキングをします。

一行目、二行目の //  S の間にはスペースとEsc(16進で27)が入っています。

JCLをCIF(カードイメージファイル)へ出力してそのままDOSへ変換しましたので、画面上にEscが入っているのでおかしく表示されるかもしれません。

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

#TEDITは昔はSMARTのパラメータも変更できたのですが、

変更したパラメータでいろいろ問題が発生したのでSMARTやRDBのパラメータは#TEDITでは変更できなくなりました。

たぶんその時かその後にやはり同じような理由で16進入力を禁止にしたのではと私は想像しております。



そこでEscのJCLへの入れ方は#TEDITでEscの無い状態で作成しそれをCIFへ出力します。

出力したFILEを#FILEMで4バイト目をEscに変更します。

#TEDITで再度読み込みJSLへ出力すれば完成です。

なお、一度作ったEscは#TEDITでその場所をさわらなければ変更は可能ですので、行、桁、色等は変更できます。

#FILEMのパラメータ例は以下の通りです。

RUN #FILEM;
*** ENTER PARAMETERS ***
INPUT DEVICE; IDE=MSD
INPUT COMPANY IDENTIFICATION; ICI=
INPUT FILE NAME; IFI=CIF
OUTPUT DEVICE; ODE=NO
DELETED RECORD; DEL=NO
PRINT DEVICE; PRD=PRN999
FIELD FORMAT; FLD=H80




2:旧家イトウ家の小技裏技(その12)(補足)
江須扇 12/13 04:36

3:タイトル画面の色を変更できる方法について
tahrayan 12/16 15:41

4:旧家イトウ家の小技裏技(その12)(補足2)
江須扇 12/31 07:38

1-

BluesBB ©Sting_Band