.******************************************************************* .* .* PANEL GRP NAME: ATTNREQ .* .* TEXT : ATTN 要求メニュー .* .* TYPE : 単一メニュー・パネル .* .* SRCF : R710SRC/QMNUSRC(INSTALL) .* .* 作成日 : 2026/10/08 10:13:00 .* .* 作成ユーザー : QTR THINKCENTR .* .* 変更日 : 2026/10/08 10:13:00 .* .* 変更ユーザー : QTR THINKCENTR .* .******************************************************************* :PNLGRP. :COPYR. (C) COPYRIGHT OFFICE QUATTRO 2026. :IMPORT NAME='*' PNLGRP=CMDMNU. .* ------------------------- .* クラスの定義 .* ------------------------- .* ------------------------- .* 変数の定義 .* ------------------------- :VAR NAME=ZMENU. .* ------------------------- .* レコードの定義 .* ------------------------- .* ------------------------- .* 条件の定義 .* ------------------------- .* ------------------------- .* 機能キーの定義 .* ------------------------- :KEYL NAME=MNUKEYL. :KEYI KEY=ENTER HELP=ENTER ACTION=ENTER. :KEYI KEY=HELP HELP=HELP ACTION=HELP. :KEYI KEY=F3 HELP=F3 ACTION='EXIT SET' VARUPD=NO. F3= 終了 :KEYI KEY=F4 HELP=F4 ACTION='PROMPT' VARUPD=NO. F4= プロンプト :KEYI KEY=F5 HELP=F5 ACTION='CMD WRKACTJOB' VARUPD=NO. F5= 活動状況 :KEYI KEY=F6 HELP=F6 ACTION='CMD DSPMSG' VARUPD=NO. F6= メッセージ :KEYI KEY=F9 HELP=F9 ACTION='RETRIEVE' VARUPD=NO. F9= コマンドの複写 :KEYI KEY=F10 HELP=F10 ACTION='CMD CALL QCMD' VARUPD=NO. F10= コマンド入力 :KEYI KEY=F12 HELP=F12 ACTION='CANCEL SET' VARUPD=NO. F12= 取消し :KEYI KEY=F13 HELP=F13 ACTION='CMD OPMENUJ' VARUPD=NO. F13= 印刷制御 :KEYI KEY=PAGEUP HELP=PAGEUP ACTION=PAGEUP. :KEYI KEY=PAGEDOWN HELP=PAGEDOWN ACTION=PAGEDOWN. :EKEYL. .* ------------------------- .* ヘルプの定義 .* ------------------------- .* STRHLPDFN : DO NOT REMOVE THIS LINE :HELP NAME=PROVIDERH..AI プロバイダー登録 :XH3.AI プロバイダー登録 :P. :PC.AI モデルを提供している AI プロバイダーを登録します。 :EHELP. :HELP NAME=MODELH.AI モデルの登録 :XH3.AI モデルの登録 :P. :PC.AI すなわち AI モデルを登録します。 :EHELP. :HELP NAME=RESTURLH.REST URL の登録 :XH3.REST URL の登録 :P. :PC.AI モデルに接続するための URL を登録します。 :EHELP. :HELP NAME=APILEYH.API KEY の登録 :XH3.API KEY の登録 :P. :PC.API モデルと接続するための認証コードを登録します。 :EHELP. :HELP NAME=STRAIH. 生成 AI :XH3. 生成 AI :PC.RPG や COBOL などのソース・コードを AI で生成します。 :EHELP. :HELP NAME=CHATAIH.AI との対話 :XH3.AI との対話 :P. :PC.AI と IBM ｹ の対話を行います。 :EHELP. :HELP NAME=CHGAIDFTH. 初期値のセットおよび変更 :XH3. 初期値のセットおよび変更 :P. :PC. このメニューで使うコマンドのパラメータの初期値を セットしたり変更を行います。 :EHELP. :HELP NAME=DSPLICH. ライセンスの表示 :XH3. ライセンスの表示 :P. :PC. この製品のライセンスを表示します。 :EHELP. :HELP NAME=SETUPH. 導入後のセットアップ :XH3. 導入後のセットアップ :PC. :PC. 製品導入直後のセットアップを行います。 :EHELP. .* ------------------------- .* 表　示　パ　ネ　ル .* ------------------------- :PANEL NAME=DSPMNU HELP='MENU' KEYL=MNUKEYL PANELID=ZMENU ENTER='MSG CPD9817 QCPFMSG' TOPSEP=SYSNAM. ATTN 要求メニュー :MENU DEPTH='*' SCROLL=YES BOTSEP=SPACE. :TOPINST. 次の中から１つを選んでください。 :MENUI OPTION=01 ACTION='CMD RUN CMD(''SIGNOFF'')' HELP='PROVIDERH'. ジョブのサイン・オフ :MENUI OPTION=02 ACTION='CMD RUN CMD(''CALL CHAO.COM/ENDAI'')' HELP='MODELH'. この AI の要求の終了 :MENUI OPTION=03 ACTION='CMD RUN CMD(''WRKACTJOB'')' HELP='PROVIDERH'. 現行ジョブの表示 :EMENU. :OPTLINE VAR=OPT. 選択項目 :EPANEL. :EPNLGRP. .* * * * END OF PANEL GROUP * * *