.******************************************************************* .* .* PANEL GRP NAME: WRKPRTD .* .* TEXT : 印刷装置の移行 .* .* TYPE : 処置リスト・パネル .* .* PRIMARY FILE : #FILE .* LIBRARY : #FILLIB .* MEMBER : #FILMBR .* .* 作成日 : 2023/06/25 16:55:00 .* .* 作成ユーザー : QTR DSP01 .* .* 変更日 : 2023/06/25 16:55:00 .* .* 変更ユーザー : QTR DSP01 .* .******************************************************************* :PNLGRP. :COPYR. (C) COPYRIGHT OFFICE QUATTRO 2023. :IMPORT NAME='*' PNLGRP='PANELWKR/CMDHLP'. .* ------------------------- .* クラスの定義 .* ------------------------- .IM LSTOPTCL :CLASS NAME=PNLNAMCL BASETYPE='CHAR 10'. :TL. :TI VALUE='" "'.WRKPRTD :ETL. :ECLASS. :CLASS NAME=GRPCL BASETYPE='CHAR 11'. :TL. :TI VALUE='" "'. グループ : :ETL. :ECLASS. .*...( ユーザークラス定義 )... .* STRCLASSDFN : DO NOT REMOVE THIS LINE :CLASS NAME=FLD1CL BASETYPE='CHAR 1'. :ECLASS. :CLASS NAME=FLD4CL BASETYPE='CHAR 4'. :ECLASS. :CLASS NAME=FLD6CL BASETYPE='CHAR 6'. :ECLASS. :CLASS NAME=FLD8CL BASETYPE='CHAR 8'. :ECLASS. :CLASS NAME=FLD10CL CASE=UPPER BASETYPE='CHAR 10'. :ECLASS. :CLASS NAME=FLD15CL CASE=UPPER BASETYPE='CHAR 15'. :ECLASS. :CLASS NAME=FLD20CL BASETYPE='CHAR 20'. :ECLASS. :CLASS NAME=LIBTXTCL BASETYPE='IGC 32 OPEN'. :ECLASS. :CLASS NAME=ZON05CL BASETYPE='ZONED 5 0'. :ECLASS. .* ENDCLASSDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* 変数の定義 .* ------------------------- .IM LSTOPTVAR .*...( ユーザー変数定義 )... .* STRVARDFN : DO NOT REMOVE THIS LINE :VAR NAME=GRP CLASS=GRPCL. :VAR NAME=DEVD CLASS=FLD10CL. :VAR NAME=DVTYPE CLASS=FLD6CL. :VAR NAME=DVR CLASS=FLD10CL. :VAR NAME=IPADDR CLASS=FLD15CL. :VAR NAME=STS CLASS=FLD6CL. :VAR NAME=STATUS CLASS=FLD8CL. :VAR NAME=OPT002 CLASS=FLD20CL. :VAR NAME=OPT003 CLASS=FLD20CL. :VAR NAME=OPT004 CLASS=FLD20CL. :VAR NAME=OPT005 CLASS=FLD20CL. :VAR NAME=OPT006 CLASS=FLD20CL. :VAR NAME=OPT008 CLASS=FLD20CL. :VAR NAME=OPT009 CLASS=FLD20CL. :VAR NAME=NORMAL CLASS=FLD1CL. :VAR NAME=HIGH CLASS=FLD1CL. :VAR NAME=COLOR CLASS=FLD1CL. .* ENDVARDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* レコードの定義 .* ------------------------- .* .IM LSTOPTRCD :VARRCD NAME=HEDRCD VARS='DSPMOD'. :VARRCD NAME=NOMRCD VARS='NORMAL'. :VARRCD NAME=HIGRCD VARS='HIGH'. :VARRCD NAME=COLRCD VARS='COLOR'. :VARRCD NAME=OPT002RCD VARS='OPT002'. :VARRCD NAME=OPT003RCD VARS='OPT003'. :VARRCD NAME=OPT004RCD VARS='OPT004'. :VARRCD NAME=OPT005RCD VARS='OPT005'. :VARRCD NAME=OPT006RCD VARS='OPT006'. :VARRCD NAME=OPT008RCD VARS='OPT008'. :VARRCD NAME=OPT009RCD VARS='OPT009'. .*...( USRCHKPGM RETURN )... :VARRCD NAME=SFLRCD .* STRSFLRCD : DO NOT REMOVE THIS LINE VARS='OPT' VARS='DEVD' VARS='DVTYPE' VARS='DVR' VARS='IPADDR' VARS='STS' VARS='HIGH' VARS='CHGVAR'. .* ENDSFLRCD : DO NOT REMOVE THIS LINE .* STRCHKRCD : DO NOT REMOVE THIS LINE .* ENDCHKRCD : DO NOT REMOVE THIS LINE .* ------------------------- .* リストの定義 .* ------------------------- :LISTDEF NAME=SFL .* STRSFLVARS : DO NOT REMOVE THIS LINE VARS='OPT' VARS='DEVD' VARS='DVTYPE' VARS='DVR' VARS='IPADDR' VARS='STS' VARS='HIGH' .* ENDSFLVARS : DO NOT REMOVE THIS LINE VARS='CHGVAR' EMPHASIS='NORMAL' EMPHASIS='NORMAL' EMPHASIS='HIGH' EMPHASIS='NORMAL' EMPHASIS='NORMAL' EMPHASIS='NORMAL' EMPHASIS='NORMAL' CHGVAR=CHGVAR MSGID=PNL0001 MSGF='SPOOLWTR/PNLMSG'. .* ------------------------- .* 条件の定義 .* ------------------------- :COND NAME=UPDSTS EXPR='DSPMOD ^= " 表示 "'. :COND NAME=DSPSTS EXPR='DSPMOD = " 表示 "'. .* ------------------------- .* 機能キーの定義 .* ------------------------- .IM HEDOPT :KEYL NAME=OPTKEYL. :KEYI KEY=ENTER HELP=ENTER VARUPD=YES ACTION=ENTER. :KEYI KEY=HELP HELP=HELP ACTION=HELP. :KEYI KEY=F1 HELP=HELP ACTION=HELP. :KEYI KEY=F3 HELP=F3 ACTION='EXIT SET' VARUPD=NO. F3= 終了 :KEYI KEY=F4 HELP=F4 ACTION='EXIT SET' VARUPD=YES. F4= プロンプト :KEYI KEY=F5 HELP=F5 ACTION='RETURN 5' VARUPD=NO. F5= 再表示 :KEYI KEY=F12 HELP=F12 ACTION='CANCEL SET' VARUPD=NO. F12= 取消し :KEYI KEY=PAGEUP HELP=PAGEUP ACTION=PAGEUP. :KEYI KEY=PAGEDOWN HELP=PAGEDOWN ACTION=PAGEDOWN. :EKEYL. .* ------------------------- .* ヘルプの定義 .* ------------------------- :HELP NAME=WRKPRTD. 印刷装置の移行 :PC. 印刷装置の移行 (WRKPRTD) によって 既存のプリンタ・セッションを直接印刷の LPR または IPP に変更することが できます。 :XH3.5553 プリンタ・セッション :PC. 印刷を開始しているプリンタ・セッションだけが表示されます。 :PC. 停止中のプリンタ・セッションは IP アドレスを検出できませんので 移行することができません。 :PC. 直接印刷へ移行したいプリンタ・セッションは印刷を開始させておいて ください。 :XH3.3812 直接印刷装置 :PC.LPR または IPP に変換すると装置タイプは 3812 に変更されます。 :PC. 同時にプリンタ・ドライバが LPR または IPP に設定されます。 :EHELP. .* STRHLPDFN : DO NOT REMOVE THIS LINE :HELP NAME=OPTION1H. オプション１ :PC. :XH3. 1= 開始 :P. :PC. この OUTQ に対するライターを開始します。 ただしこの画面で表示される OUTQ は既にライターは開始されています。 :EHELP. :HELP NAME=OPTION4H. オプション４ :PC. :XH3. 4= 停止 :P. :PC. この OUTQ に対するライターを停止します。 :EHELP. :HELP NAME=OPTION5H. オプション５ :PC. :XH3. 5= 表示 :P. :PC. WRKOUTQ によってこの OUTQ を表示します。 :EHELP. :HELP NAME=OPTION7H. オプション７ :PC. :XH3. 7= メッセージ :P. :PC. この OUTQ のメッセージを表示します。 :EHELP. :HELP NAME=OPTION11H. オプション８ :PC. :XH3. 8= ジョブログ :P. :PC. この OUTQ に対するライターを再始動します。 :EHELP. :HELP NAME=OUTQH. 印刷待ち行列／ライブラリー :XH3. 印刷待ち行列 (OUTQ) とライブラリー :P. :PC. 印刷スプールが保管される待ち行列 (OUTQ) とライブラリーの名前 :EHELP. :HELP NAME=WTRH. プリンター (DEV) :XH3. プリンター (DEV) :P. :PC. ＯＵＴＱに対応する印刷装置の名前 ＯＵＴＱにスプールが投入されるとこの装置によって自動的に プリンターに印刷されます。 :EHELP. :HELP NAME=IPADDRH.IP アドレス :XH3. IP アドレス :P. :PC. 印刷装置の遠隔 IP アドレス プリンターの IP アドレスが表示されます。 ただし 127.0.0.1 は LOOPBACK と呼ばれる特殊な IP アドレスです。 この 127.0.0.1 が登録されている印刷装置では印刷データは 特定のプリンタに送られるのではなく印刷を指示したクライアント PC に リダイレクトされます。 クライアント PC で LPD が起動していればその PC に設定されている 通常使うプリンタにスプールが印刷出力されます。 この印刷手法をローカル印刷と呼びます。 :EHELP. :HELP NAME=DVRH. ドライバー :XH3. ドライバー :P. :PC. 印刷装置に組み込まれている印刷ドライバーの名前です。 どのようなドライバーが組み込まれているかによって 印刷のタイプを知ることができます。 :XH3.LPRDVR :PC.LPR ドライバーが組み込まれています。 :PC.LPD プリンターに印刷出力されます。 :XH3.IPPDVR :PC.IPP ドライバーが組み込まれています。 :PC.IPP プリンターに印刷出力されます。 :XH3.PDFDVR :PC.PDF ドライバーが組み込まれています。 :PC. 出力は印刷ではなく PDF として保管されます。 :EHELP. :HELP NAME=STSH. 状況 :XH3. 状況 :P. :PC. 印刷装置の現在の状況を示しています。 :EHELP. .* ENDHLPDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* 表　示　パ　ネ　ル .* ------------------------- .* ------------------------ .* DSPTOP : 明細画面 .* ------------------------ :PANEL NAME=DSPTOP HELP='WRKPRTD' KEYL=OPTKEYL PANELID=PNLNAM ENTER='RETURN 27' CSRVAR=CSRVAR CSRPOS=CSRPOS CSRLST=CSRLST CSREID=CSREID CSRNAME=CSRNAME TOPSEP=SPACE. 印刷装置の移行 .* データ項目の表示 .* ------------------------ .* リスト域の定義 .* ------------------------ :LIST DEPTH='*' LISTDEF=SFL ACTOR=UIM MAXHEAD=2 BOTSEP=SPACE. :TOPINST. 次のオプションを選択してください。 .* ------------------------ .* オプション指定 .* ------------------------ .* STRLSTACT : DO NOT REMOVE THIS LINE :LISTACT OPTION=2 HELP='OPTION1H' ENTER='CALL OPT002' .2= 装置を LPR に変更 :LISTACT OPTION=3 HELP='OPTION4H' ENTER='CALL OPT003' .3=IPP に変更 :LISTACT OPTION=4 HELP='OPTION4H' ENTER='CALL OPT004' .4= 装置の削除 :LISTACT OPTION=5 HELP='OPTION5H' ENTER='CALL OPT005' .5= 装置の停止 :LISTACT OPTION=6 HELP='OPTION5H' ENTER='CALL OPT006' .6= プリンタ・セッションに戻す :LISTACT OPTION=8 HELP='OPTION5H' ENTER='CALL OPT008' .8= 装置の表示 :LISTACT OPTION=9 HELP='OPTION5H' ENTER='CALL OPT009' .9=OUTQ の表示 .* ENDLSTACT : DO NOT REMOVE THIS LINE .* STRLISTCOL : DO NOT REMOVE THIS LINE :LISTCOL VAR=OPT USAGE=INOUT HELP=OPTH MAXWIDTH=3. OPT :LISTCOL VAR=DEVD USAGE=OUT HELP=OUTQH MAXWIDTH=10. 印刷装置 :LISTCOL VAR=DVTYPE USAGE=OUT HELP=OUTQH MAXWIDTH=12. 装置タイプ :LISTCOL VAR=DVR USAGE=OUT HELP=WTRH MAXWIDTH=12. ドライバー :LISTCOL VAR=IPADDR USAGE=OUT HELP=IPADDRH MAXWIDTH=15. IP アドレス :LISTCOL VAR=STS USAGE=OUT HELP=STSH MAXWIDTH=6. 状況 .* ENDLISTCOL : DO NOT REMOVE THIS LINE :LISTVIEW LAYOUT=1 .* STRCOLS : DO NOT REMOVE THIS LINE COLS='OPT DEVD DVTYPE DVR IPADDR STS'. .* ENDCOLS : DO NOT REMOVE THIS LINE :ELIST. :CMDLINE SIZE=SHORT. コマンド :EPANEL. .* ENDPNL OF DSPTOP :EPNLGRP.