:PNLGRP. :COPYR .(C) COPYRIGHT OFFICE QUATTRO 2020. :IMPORT NAME='*' PNLGRP='QTRSRC/CMDHLP'. .* ------------------------- .* クラスの定義 .* ------------------------- :CLASS NAME=PNL002CL BASETYPE='CHAR 20'. :TL. :TI VALUE='" "'.PNL002CL QTROBJ :ETL. :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=PNL002 CLASS=PNL002CL. :VAR NAME=PNLNAM CLASS=PNLNAMCL. :VAR NAME=ANS CLASS=ANSCL. :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=PGMRCD VARS='PNL002'. :VARRCD NAME=HEDRCD VARS='SHCODE'. :VARRCD NAME=DSPRCD VARS='SHCODE SHNAME SHTANK SHSCOD HNSNAM'. :VARRCD NAME=HNSRCD VARS=HNSNAM. .* ------------------------- .* 機能キーの定義 .* ------------------------- :KEYL NAME=HEDKEYL. :KEYI KEY=ENTER HELP=ENTER ACTION=ENTER VARUPD=YES. :KEYI KEY=HELP HELP=HELP ACTION=HELP. :KEYI KEY=F3 HELP=F3 ACTION='EXIT SET' VARUPD=YES. F3= 終了 :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=YES. F3= 終了 :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. :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=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 .* ------------------------- .* 表　示　パ　ネ　ル .* ------------------------- .* ------------------------ .* DSPHEAD : 初期画面 .* ------------------------ :PANEL NAME=DSPHEAD HELP='DSPHEADH' KEYL=HEDKEYL PANELID=PNLNAM ENTER='CALL PNL002' CSRVAR=CSRVAR CSRPOS=CSRPOS CSRLST=CSRLST CSREID=CSREID CSRNAME=CSRNAME TOPSEP=NONE. 商品マスターの照会 :DATA DEPTH=2 HELP='DSPHEADH' BOTSEP=NONE. :DATACOL WIDTH=58. :DATACOL WIDTH='*'. :EDATA. :DATA DEPTH=10 SCROLL=NO LAYOUT=1 BOTSEP=SPACE. :DATACOL WIDTH=20. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. .* DO :DATAI VAR=SHCODE HELP=SHCODEH USAGE=INOUT. 商品コード .* END :EDATAGRP. :BOTINST. 登録または変更するコードを打鍵して実行キーを押してください。 :EDATA. :EPANEL. .* ------------------------ .* DSPDTA01 : 明細画面 .* ------------------------ :PANEL NAME=DSPDTA01 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='DSPHEADH' BOTSEP=NONE. :DATACOL WIDTH=58. :DATACOL WIDTH='*'. :EDATA. :DATA DEPTH=01 SCROLL=NO LAYOUT=2 BOTSEP=NONE COMPACT. :DATACOL WIDTH=20. :DATACOL WIDTH='*'. .* :DATAGRP GRPSEP=NONE COMPACT. :DATAI VAR=SHCODE HELP=SHCODEH USAGE=OUT. 商品コード :EDATAGRP. :EDATA. :DATA DEPTH='*' SCROLL=YES LAYOUT=1 BOTSEP=NONE COMPACT. :DATACOL WIDTH=20. :DATACOL WIDTH='*'. :DATAI VAR=SHNAME HELP=SHNAMEH USAGE=OUT. 商品名 :DATAI VAR=SHTANK JUSTIFY=RIGHT HELP=SHTANKH USAGE=OUT. 単価 :DATAI VAR=SHSCOD HELP=SHSCODH USAGE=OUT. 品種コード :DATAIX VAR=HNSNAM USAGE=OUT. :EDATA. :EPANEL. :EPNLGRP.