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 |