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

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

[掲示板に戻る]


1 旧家イトウ家の小技裏技(その12)
江須扇 2003-12-13 4: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



旧家イトウ家の小技裏技(その12) 江須扇 2003-12-13 4:18 ←いまここ〜
旧家イトウ家の小技裏技(その12)(... 江須扇 2003-12-13 4:36
タイトル画面の色を変更できる方法につ... ターラヤン 2003-12-16 15:41
旧家イトウ家の小技裏技(その12)(... 江須扇 2003-12-31 7:38
BluesBB ©Sting_Band