.******************************************************************* .* .* PANEL GRP NAME: BNK001 .* .* TEXT : 銀行マスターの登録 .* .* TYPE : 単一表示パネル .* .* PRIMARY FILE : BANKM .* LIBRARY : TESTFIL .* MEMBER : *FIRST .* .* 作成日 : 03/01/11 10:01:39 .* .* 作成ユーザー : QTR CONSOLEA .* .* 変更日 : 03/01/11 10:01:39 .* .* 変更ユーザー : QTR CONSOLEA .* .******************************************************************* :PNLGRP. :COPYR .(C) COPYRIGHT OFFICE QUATTRO 1994. :IMPORT NAME='*' PNLGRP='PANELWKR/CMDHLP'. .* ------------------------- .* クラスの定義 .* ------------------------- .IM MAINTCL :CLASS NAME=PNLNAMCL BASETYPE='CHAR 10'. :TL. :TI VALUE='" "'.BNK001 :ETL. :ECLASS. :CLASS NAME=DMYCL BASETYPE='CHAR 1'. :ECLASS. .*...( ユーザークラス定義 )... .* STRCLASSDFN : DO NOT REMOVE THIS LINE :CLASS NAME=CHA004 BASETYPE='CHAR 4'. :ECLASS. :CLASS NAME=IGC014 BASETYPE='IGC 14 OPEN'. :ECLASS. :CLASS NAME=CHA003 BASETYPE='CHAR 3'. :ECLASS. .* ENDCLASSDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* 変数の定義 .* ------------------------- .IM MAINTVAR :VAR NAME=DMY CLASS=DMYCL. .*...( ユーザー変数定義 )... .* STRVARDFN : DO NOT REMOVE THIS LINE :VAR NAME=BKBKCD CLASS=CHA004. :VAR NAME=BKNMKJ CLASS=IGC014. :VAR NAME=BKKBN CLASS=CHA003. .* ENDVARDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* レコードの定義 .* ------------------------- .IM MAINTRCD :VARRCD NAME=MODRCD VARS='DSPMOD'. :VARRCD NAME=HEDRCD VARS='BKBKCD DMY'. :VARRCD NAME=DSPRCD .* STRDSPRCD : DO NOT REMOVE THIS LINE VARS='BKBKCD BKNMKJ BKKBN DMY'. .* ENDDSPRCD : DO NOT REMOVE THIS LINE :VARRCD NAME=KEYRCD VARS='BKBKCD DMY'. .*...( USRCHKPGM RETURN )... .* STRCHKRCD : DO NOT REMOVE THIS LINE :VARRCD NAME=BKBKCD9CHK VARS=BKBKCD. :VARRCD NAME=BKNMKJ9CHK VARS=BKNMKJ. :VARRCD NAME=BKKBN9CHK VARS=BKKBN. .* ENDCHKRCD : DO NOT REMOVE THIS LINE .* ------------------------- .* 条件の定義 .* ------------------------- :COND NAME=UPDSTS EXPR='DSPMOD ^= " 表示 "'. :COND NAME=DSPSTS EXPR='DSPMOD = " 表示 "'. .* ------------------------- .* 機能キーの定義 .* ------------------------- :KEYL NAME=HEDKEYL. :KEYI KEY=ENTER HELP=ENTER VARUPD=YES ACTION=ENTER. :KEYI KEY=HELP HELP=HELP ACTION=HELP. :KEYI KEY=F3 HELP=F3 ACTION='EXIT SET' VARUPD=YES. F3= 終了 :KEYI KEY=F7 HELP=F7 ACTION='RETURN 7' VARUPD=YES. F7= 次頁 :KEYI KEY=F8 HELP=F8 ACTION='RETURN 8' VARUPD=YES. F8= 前頁 :EKEYL. :KEYL NAME=DSPKEYL. :KEYI KEY=ENTER HELP=ENTER VARUPD=YES 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='CALL WNDPMT' VARUPD=YES. F4= プロンプト :KEYI KEY=F7 HELP=F7 ACTION='RETURN 7' VARUPD=NO. F7= 次頁 :KEYI KEY=F8 HELP=F8 ACTION='RETURN 8' VARUPD=NO. F8= 前頁 :KEYI KEY=F10 HELP=F10 COND=UPDSTS ACTION='RETURN 10' VARUPD=YES. F10= 更新 :KEYI KEY=F12 HELP=F12 ACTION='CANCEL SET' VARUPD=NO. F12= 取消し :KEYI KEY=F23 HELP=F23 COND=UPDSTS ACTION='RETURN 23' VARUPD=YES. F23= 削除 :KEYI KEY=PAGEUP HELP=PAGEUP ACTION=PAGEUP. :KEYI KEY=PAGEDOWN HELP=PAGEDOWN ACTION=PAGEDOWN. :EKEYL. :KEYL NAME=ENDKEYL. :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=F12 HELP=F12 ACTION='CANCEL SET' VARUPD=NO. F12= 取消し :EKEYL. .* ------------------------- .* ヘルプの定義 .* ------------------------- :HELP NAME=DSPHEADH. 銀行マスターの登録 :PC. 初期画面 :EHELP. :HELP NAME=DSPDTAH. 銀行マスターの登録 :PC. 明細画面 :EHELP. :HELP NAME=DSPENDH. 銀行マスターの登録 :PC. 終了画面 :EHELP. .* STRHLPDFN : DO NOT REMOVE THIS LINE :HELP NAME=BKBKCDH. 銀行コード :PC. 銀行コード :EHELP. :HELP NAME=BKNMKJH. 銀行名 :PC. 銀行名 :EHELP. :HELP NAME=BKKBNH. 区分 :PC. 区分 :EHELP. .* ENDHLPDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* 表　示　パ　ネ　ル .* ------------------------- .* ------------------------ .* DSPHEAD : 初期画面 .* ------------------------ :PANEL NAME=DSPHEAD HELP='DSPHEADH' KEYL=HEDKEYL PANELID=PNLNAM ENTER='RETURN 27' CSRVAR=CSRVAR CSRPOS=CSRPOS CSRLST=CSRLST CSREID=CSREID CSRNAME=CSRNAME TOPSEP=NONE. 銀行マスターの登録 :DATA DEPTH=2 HELP='DSPHEADH' BOTSEP=NONE. :DATACOL WIDTH=58. :DATACOL WIDTH='*'. :DATAI VAR=MODE USAGE=OUT. :DATAIX VAR=DSPMOD ALIGN=RIGHT NEWLINE=NO USAGE=OUT. :EDATA. :DATA DEPTH=10 SCROLL=NO LAYOUT=1 BOTSEP=SPACE. :DATACOL WIDTH=20. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. .* DO .* STRHEDDATAI : DO NOT REMOVE THIS LINE :DATAI VAR=BKBKCD HELP=BKBKCDH USAGE=INOUT. 銀行コード .* ENDHEDDATAI : DO NOT REMOVE THIS LINE .* END :EDATAGRP. :BOTINST. 登録または変更するコードを打鍵して実行キーを押してください。 :EDATA. :EPANEL. .* ------------------------ .* DSPDTA01 : 明細画面 .* ------------------------ :PANEL NAME=DSPDTA HELP='DSPDTAH' KEYL=DSPKEYL PANELID=PNLNAM ENTER='RETURN 27' CSRVAR=CSRVAR CSRPOS=CSRPOS CSRLST=CSRLST CSREID=CSREID CSRNAME=CSRNAME TOPSEP=NONE. 銀行マスターの登録 :DATA DEPTH=2 HELP='DSPDTAH' BOTSEP=NONE. :DATACOL WIDTH=58. :DATACOL WIDTH='*'. :DATAI VAR=MODE USAGE=OUT. :DATAIX VAR=DSPMOD ALIGN=RIGHT NEWLINE=NO USAGE=OUT. :EDATA. .* キー項目の表示 :DATA DEPTH=01 SCROLL=NO LAYOUT=1 BOTSEP=NONE COMPACT. :DATACOL WIDTH=20. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. .* STRKEYDATAI : DO NOT REMOVE THIS LINE :DATAI VAR=BKBKCD HELP=BKBKCDH USAGE=OUT. 銀行コード .* ENDKEYDATAI : DO NOT REMOVE THIS LINE :EDATAGRP. :EDATA. .* データ項目の表示 :DATA DEPTH='*' SCROLL=YES LAYOUT=1 BOTSEP=NONE COMPACT. :DATACOL WIDTH=20. :DATACOL WIDTH='*'. .* STRDTADATAI : DO NOT REMOVE THIS LINE :DATAI VAR=BKNMKJ HELP=BKNMKJH USAGE=INOUT. 銀行名 :DATAI VAR=BKKBN HELP=BKKBNH USAGE=INOUT. 区分 .* ENDDTADATAI : DO NOT REMOVE THIS LINE :EDATA. :EPANEL. .* ENDPNL OF DSPTOP .* ------------------------ .* ENDOPT : 終了画面 .* ------------------------ :PANEL NAME=ENDOPT HELP='DSPENDH' KEYL=ENDKEYL ENTER='RETURN 27' TOPSEP=SPACE. データ入力の終了 :DATA DEPTH=9 HELP='DSPENDH' LAYOUT=1 BOTSEP=SPACE. :TOPINST . 　処理されたレコード数 :DATACOL WIDTH=18. :DATACOL WIDTH='*'. :DATAGRP COMPACT. :DATAI VAR=ADDRCD JUSTIFY=RIGHT USAGE=OUT. 　追加 :DATAI VAR=CHGRCD JUSTIFY=RIGHT USAGE=OUT. 　変更 :DATAI VAR=DLTRCD JUSTIFY=RIGHT USAGE=OUT. 　削除 :EDATAGRP. :EDATA. :DATA DEPTH='*' HELP='DSPENDH' LAYOUT=1 BOTSEP=SPACE. :TOPINST . 選択項目を入力して，実行キーを押してください。 :DATACOL WIDTH=28. :DATACOL WIDTH=10. :DATACOL WIDTH='*'. :DATAGRP GRPSEP=NONE COMPACT. :DATAI VAR=ANS USAGE=INOUT. 　データ入力の終了 :DATAC.Y=YES, N=NO :EDATAGRP. :EDATA. :EPANEL. :EPNLGRP. .* * * * END OF PANEL GROUP * * *