.******************************************************************* .* .* PANEL GRP NAME: BNK003 .* .* TEXT : 銀行マスターの登録 .* .* TYPE : 混合リスト・パネル .* .* PRIMARY FILE : BANKM .* LIBRARY : TESTFIL .* MEMBER : *FIRST .* .* 作成日 : 03/01/11 15:32:36 .* .* 作成ユーザー : QTR CONSOLEA .* .* 変更日 : 03/01/11 15:32:36 .* .* 変更ユーザー : QTR CONSOLEA .* .******************************************************************* :PNLGRP. :COPYR .(C) COPYRIGHT OFFICE QUATTRO 1994. :IMPORT NAME='*' PNLGRP='PANELWKR/CMDHLP'. .* ------------------------- .* クラスの定義 .* ------------------------- .IM LSTPNLCL :CLASS NAME=PNLNAMCL BASETYPE='CHAR 10'. :TL. :TI VALUE='" "'.BNK003 :ETL. :ECLASS. :CLASS NAME=NOCL BASETYPE='CHAR 4'. :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 LSTPNLVAR :VAR NAME=NO CLASS=NOCL. :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 LSTPNLRCD :VARRCD NAME=MODRCD VARS='DSPMOD'. :VARRCD NAME=NORCD VARS='NO BDYHND'. :VARRCD NAME=HEDRCD VARS='BKBKCD DMY'. :VARRCD NAME=DSPRCD VARS='DMY'. :VARRCD NAME=EQLRCD VARS='DMY'. :VARRCD NAME=BOTRCD VARS='DMY'. :VARRCD NAME=KEYRCD VARS='BKBKCD DMY'. .*...( USRCHKPGM RETURN )... :VARRCD NAME=SFLRCD .* STRSFLRCD : DO NOT REMOVE THIS LINE VARS='BKBKCD BKNMKJ BKKBN NO'. .* ENDSFLRCD : DO NOT REMOVE THIS LINE .* STRCHKRCD : DO NOT REMOVE THIS LINE :VARRCD NAME=BKBKCD9CHK VARS=BKBKCD. :VARRCD NAME=BKNMKJ9CHK VARS=BKNMKJ. :VARRCD NAME=BKKBN9CHK VARS=BKKBN. :VARRCD NAME=NO9CHK VARS=NO. .* ENDCHKRCD : DO NOT REMOVE THIS LINE .* ------------------------- .* リストの定義 .* ------------------------- :LISTDEF NAME=SFL .* STRSFLVARS : DO NOT REMOVE THIS LINE .* ENDSFLVARS : DO NOT REMOVE THIS LINE VARS='CHGVAR BDYHND LSTHND NO BKBKCD BKNMKJ BKKBN RECRRN' CHGVAR=CHGVAR MSGID=PNL0001 MSGF='PANELWKR/PNLMSG'. .* ------------------------- .* 条件の定義 .* ------------------------- :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=YES. F7= 次頁 :KEYI KEY=F8 HELP=F8 ACTION='RETURN 8' VARUPD=YES. 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=DSPTOPH. 銀行マスターの登録 :PC. 明細画面 :EHELP. :HELP NAME=DSPENDH. 銀行マスターの登録 :PC. 終了画面 :EHELP. :HELP NAME=NOH. Y :PC. 行Y :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=1 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=14. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. .* DO .* STRHEDDATAI : DO NOT REMOVE THIS LINE :DATAI VAR=BKBKCD HELP=BKBKCDH USAGE=INOUT. 銀行コード :DATAIX VAR=FRMMSG ALIGN=RIGHT NEWLINE=NO USAGE=OUT. .* ENDHEDDATAI : DO NOT REMOVE THIS LINE .* END :EDATAGRP. :BOTINST. 登録または変更するコードを打鍵して実行キーを押してください。 :EDATA. :EPANEL. .* ------------------------ .* DSPTOP : 明細画面 .* ------------------------ :PANEL NAME=DSPTOP HELP='DSPTOPH' KEYL=DSPKEYL PANELID=PNLNAM ENTER='RETURN 27' CSRVAR=CSRVAR CSRPOS=CSRPOS CSRLST=CSRLST CSREID=CSREID CSRNAME=CSRNAME TOPSEP=NONE. 銀行マスターの登録 :DATA DEPTH=1 HELP='DSPTOPH' 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=14. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. .* STRKEYDATAI : DO NOT REMOVE THIS LINE .* ENDKEYDATAI : DO NOT REMOVE THIS LINE :EDATAGRP. :EDATA. .* データ項目の表示 :DATA DEPTH=1 SCROLL=NO LAYOUT=2 BOTSEP=SPACE. :DATACOL WIDTH=14. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. .* STRDTADATAI : DO NOT REMOVE THIS LINE .* ENDDTADATAI : DO NOT REMOVE THIS LINE :EDATAGRP. :EDATA. .* ------------------------ .* リスト域の定義 .* ------------------------ :LIST DEPTH='*' LISTDEF=SFL MAXHEAD=3 VIEW=VIEW BOTSEP=SPACE. .* STRLISTCOL : DO NOT REMOVE THIS LINE :LISTCOL VAR=NO USAGE=OUT HELP=NOH MAXWIDTH=4. Y :LISTCOL VAR=BKBKCD MAXWIDTH=0012 HELP=BKBKCDH USAGE=INOUT. 銀行コード :LISTCOL VAR=BKNMKJ MAXWIDTH=0014 HELP=BKNMKJH USAGE=INOUT. 銀行名 :LISTCOL VAR=BKKBN MAXWIDTH=0006 HELP=BKKBNH USAGE=INOUT. 区分 .* ENDLISTCOL : DO NOT REMOVE THIS LINE :LISTVIEW LAYOUT=1 .* STRCOLS : DO NOT REMOVE THIS LINE COLS='NO' COLS='BKBKCD' COLS='BKNMKJ' COLS='BKKBN'. .* ENDCOLS : DO NOT REMOVE THIS LINE :ELIST. .* STRBOTINSERT : DO NOT REMOVE THIS LINE .* ENDBOTINSERT : DO NOT REMOVE THIS LINE :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 * * *