:PNLGRP. :COPYR .(C) COPYRIGHT OFFICE QUATTRO 2020. :IMPORT NAME='*' PNLGRP='QTRSRC/CMDHLP'. .* ------------------------- .* クラスの定義 .* ------------------------- :CLASS NAME=EXITPGMCL BASETYPE='CHAR 20'. :ECLASS. :CLASS NAME=WNDPMTCL BASETYPE='CHAR 20'. :ECLASS. :CLASS NAME=TFRPNLCL BASETYPE='CHAR 20'. :ECLASS. :CLASS NAME=NOCL BASETYPE='CHAR 4'. :ECLASS. :CLASS NAME=BDYHNDCL CHRID=NONE BASETYPE='CHAR 8'. :ECLASS. :CLASS NAME=LSTHNDCL CHRID=NONE BASETYPE='BIN 31'. :ECLASS. :CLASS NAME=CHGVARCL BASETYPE='CHAR 1'. :ECLASS. :CLASS NAME=PNL003CL BASETYPE='CHAR 20'. :ECLASS. :CLASS NAME=ANSCL BASETYPE='CHAR 1'. :ECLASS. :CLASS NAME=PNLNAMCL BASETYPE='CHAR 10'. :ECLASS. :CLASS NAME=CSRLSTCL BASETYPE='CHAR 10'. :ECLASS. :CLASS NAME=CSRVARCL BASETYPE='CHAR 10'. :ECLASS. :CLASS NAME=CSRPOSCL BASETYPE='BIN 15'. :ECLASS. :CLASS NAME=CSREIDCL BASETYPE='CHAR 4'. :ECLASS. :CLASS NAME=CSRNAMECL BASETYPE='CHAR 10'. :ECLASS. :CLASS NAME=ADDRCDCL BASETYPE='ZONED 8 0'. :ECLASS. :CLASS NAME=CHGRCDCL BASETYPE='ZONED 8 0'. :ECLASS. :CLASS NAME=DLTRCDCL BASETYPE='ZONED 8 0'. :ECLASS. :CLASS NAME=CHA010 BASETYPE='CHAR 10'. :ECLASS. :CLASS NAME=IGC024 BASETYPE='IGC 24 OPEN'. :ECLASS. :CLASS NAME=ZON070 BASETYPE='ZONED 7 0'. :ECLASS. :CLASS NAME=CHA004 BASETYPE='CHAR 4'. :ECLASS. :CLASS NAME=IGC014 BASETYPE='IGC 14 OPEN'. :ECLASS. .* ------------------------- .* 変数の定義 .* ------------------------- :VAR NAME=EXITPGM CLASS=EXITPGMCL. :VAR NAME=WNDPMT CLASS=WNDPMTCL. :VAR NAME=TFRPNL CLASS=WNDPMTCL. :VAR NAME=NO CLASS=NOCL. :VAR NAME=PNL003 CLASS=PNL003CL. :VAR NAME=PNLNAM CLASS=PNLNAMCL. :VAR NAME=BDYHND CLASS=BDYHNDCL. :VAR NAME=LSTHND CLASS=LSTHNDCL. :VAR NAME=CHGVAR CLASS=CHGVARCL. :VAR NAME=CSRLST CLASS=CSRLSTCL. :VAR NAME=CSRPOS CLASS=CSRPOSCL. :VAR NAME=CSRVAR CLASS=CSRVARCL. :VAR NAME=CSREID CLASS=CSREIDCL. :VAR NAME=CSRNAME CLASS=CSRNAMECL. :VAR NAME=ADDRCD CLASS=ADDRCDCL. :VAR NAME=CHGRCD CLASS=CHGRCDCL. :VAR NAME=DLTRCD CLASS=DLTRCDCL. .*...( ユーザー変数定義 )... :VAR NAME=SHCODE CLASS=CHA010. :VAR NAME=SHNAME CLASS=IGC024. :VAR NAME=SHTANK CLASS=ZON070. :VAR NAME=SHSCOD CLASS=CHA004. :VAR NAME=HNSNAM CLASS=IGC014. .* ------------------------- .* レコードの定義 .* ------------------------- :VARRCD NAME=EXITRCD VARS='EXITPGM WNDPMT TFRPNL'. :VARRCD NAME=PGMRCD VARS='PNL003'. :VARRCD NAME=NORCD VARS='NO'. :VARRCD NAME=SFLRCD VARS='SHCODE SHNAME SHTANK SHSCOD HNSNAM'. :VARRCD NAME=HNSRCD VARS=HNSNAM. .* ------------------------- .* リストの定義 .* ------------------------- :LISTDEF NAME=SFL VARS='CHGVAR BDYHND LSTHND NO SHCODE SHNAME SHTANK SHSCOD HNSNAM' CHGVAR=CHGVAR MSGID=PNL0001 MSGF='PANELWKR/PNLMSG'. .* ------------------------- .* 機能キーの定義 .* ------------------------- :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=YES. F3= 終了 :KEYI KEY=PAGEUP HELP=PAGEUP ACTION=PAGEUP. :KEYI KEY=PAGEDOWN HELP=PAGEDOWN ACTION=PAGEDOWN. :EKEYL. .* ------------------------- .* ヘルプの定義 .* ------------------------- :HELP NAME=DSPHEADH. 商品マスターの登録 :PC. 初期画面 :EHELP. :HELP NAME=DSPDTAH. 商品マスターの登録 :PC. 明細画面 :EHELP. :HELP NAME=DSPENDH. 商品マスターの登録 :PC. 終了画面 :EHELP. .* STRHLPDFN : DO NOT REMOVE THIS LINE :HELP NAME=SHCODEH. 商品コード :PC. 商品コード :EHELP. :HELP NAME=SHNAMEH. 商品名 :PC. 商品名 :EHELP. :HELP NAME=SHTANKH. 単価 :PC. 単価 :EHELP. :HELP NAME=SHSCODH. 品種コード :PC. 品種コード :EHELP. :HELP NAME=HNSNAMH. 品種名 :PC. 品種名 :EHELP. .* ENDHLPDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* 表　示　パ　ネ　ル .* ------------------------- .* ------------------------ .* SFLCTL : 明細画面 .* ------------------------ :PANEL NAME=SFLCTL HELP='DSPDTAH' KEYL=DSPKEYL PANELID=PNLNAM ENTER='RETURN 27' CSRVAR=CSRVAR CSRPOS=CSRPOS CSRLST=CSRLST CSREID=CSREID CSRNAME=CSRNAME TOPSEP=NONE. 商品マスターの照会 .* データ項目の表示 :DATA DEPTH=03 HELP='DSPTOPH' 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=2 BOTSEP=SPACE. .* STRLISTCOL : DO NOT REMOVE THIS LINE :LISTCOL VAR=NO USAGE=OUT HELP=NOH MAXWIDTH=4. Y :LISTCOL VAR=SHCODE MAXWIDTH=0012 HELP=ZHCODEH USAGE=OUT. 商品コード :LISTCOL VAR=SHNAME MAXWIDTH=0024 HELP=SHNAMEH USAGE=OUT. 商品名 :LISTCOL VAR=SHTANK MAXWIDTH=0008 JUSTIFY=RIGHT HELP=HZSURH USAGE=OUT. 単価 :LISTCOL VAR=SHSCOD MAXWIDTH=0006 HELP=HZSURH USAGE=OUT. 品種 :LISTCOL VAR=HNSNAM MAXWIDTH=0014 HELP=HZSURH USAGE=OUT. 品種名 :LISTVIEW LAYOUT=1 COLS='NO' COLS='SHCODE' COLS='SHNAME' COLS='SHTANK' COLS='SHSCOD' COLS='HNSNAM'. :ELIST. :EPANEL. :EPNLGRP.