INPUT指令
说明:
1. 当程序执行到INPUT指令时,会将控制权交给用户,让用户输入数据。
2. 用户输入完字段的数据,会将数据回传给程序中的变量接收。
3. 只要执行到INPUT的指令,程序会将每个字段Default为NULL。
反之不需要将每个字段的值都变为NULL的话,需添加(WITHOUT DEFAULTS)
范例(cxrq005):
1、首先在MAIN函数前定义客制变量,用来接收用户数据;
#add-point:自定義模組變數-客製(Module Variable) name="global.variable_customerization" TYPE type_g_input RECORD xrsduc010 STRING, xrsduc010_desc STRING, xrsduc010_desc_1 STRING END RECORD DEFINE g_input type_g_input #end add-point
以上这些变量,均对应规格上的控件代号进行定义;
2、在cxrq005 _ui_dialog()函数中的DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)领域下自定义INPUT;
DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM) #add-point:input段落 name="ui_dialog.input" INPUT g_input.xrsduc010 FROM xrsduc010 ATTRIBUTE