genero语法总结

Action add(text=”Append”,accelerator=control-v)
Actiondel(text=”delete”,accelerator=shift-F2)
Action zoom(text=”Zoom”,comment=”Open zoom window”)
Action quit(text=“quit”,accelerator=Shift-F5,image=”quit”)
#对应数据库字段定义
ENDMAIN
FUNCTION ins_employee()
DEFINE flag CHAR(1),
change SMALLINT
END FUNCTION
数据类型
型态名称说明默认值
CHAR固定字符Null
VARCHAR动态字符Null
STRING动态定义大小的字符串储存空间Null
2、Form
组成部分
详细内容
SCHEMA
Schema ds #表示设计画面时所参考的数据库，默认为FOMRONLY表示与数据库无关；
为了与旧版本兼容SCHEMA可以用DATABASE指令代替
Action default
不使用，用其他方式设定（参考TIPTOP GP技术手册）必须紧接在SCHEMA下面做
statement
[...]
END FOR
IF
IFconditionTHEN
statement
[...]
[ ELSE
statement
[...]]
END IF
SLEEP
SLEEPseconds #程序暂停几秒
WHILE
WHILEb-expression #条件不成立，跳出循环
statement
[...]
GENERO语法知识总结
一、文件组成结构
二、命名规则
三、Program的组成：
四、基础语法
五、报表与除错指令
一、文件组成结构
原始程序
编译后的程序
可执行程序
MODULE程序文件*.4gl
*.42m
*.42r
FORM文件*.per
*.42f
其他格式ቤተ መጻሕፍቲ ባይዱ.sch
二、命名规则
组成部分
详细内容
程序命名规则
S_XXXXXXXX :一般子程序存于$top/sub
birth DATE
END RECORD #集合的定义
LET rec.id = 50 #集合变量元素的赋值
LET = "Scott"
LET rec.birth = TODAY
DISPLAY rec.*
ENDMAIN
初始化一组变量INITIALIZE
DATABASE ds
MAIN
DEFINE cr RECORD LIKE customer.*
定义屏幕数组
语法：SCREEN RECORDarray-name[size] (field-list)
例子：SCREEN RECORD s_aaa[3] (f001，f002，f003)
INSTRUCTIONS
SCREEN RECORD s_employee(emp_no,emp_age)
END
3、
1、Module
组成部分
详细内容
database
Database dbname#编译时参考的schema数据库,不是实际数据库
GLOBALS
Globals“../config/top.global”#全部程序共用的全局变量
Define var_Name datatype #定义变量
Constant cons_name datatype #定义常量
END WHILE
CONTINUE
CONTINUE { FOR | FOREACH | MENU | CONSTRUCT | INPUT |
<ActionDefault name="add" text="Append" acceleratorName="CONTROL-V" />
<ActionDefault name="del" text="Delete" acceleratorName="SHIFT-F2"/>
<ActionDefault name="zoom" text="Zoom" comment="Open zoom window" />
CL_XXXXXXX :共享子程序存于$top/lib
Q_XXXXXXXX :查询子程序存于$top/qry
函数命名规则
XXXX_yy :程序代码简称_函数功能名
如：i010_a为i010作业的新增函数i010_tmp函数名字
变量命名规则
G_xxxxxx :全局变量
L_xxxxxx :区域性变量
P_xxxxxx :传递变量
INITIALIZE cr.cust_name TO NULL
INITIALIZE cr.* LIKE customer.*
ENDMAIN
表达式
字符串表达式
表达式意义
,字符串连结
||字符串连结，但连结值有一个是NULL，结果就会是NULL
[start,end]从字符串中取出子字符串（开始到结束）
USING针对数值或日期设定其打印的格式
MAIN
MAIN
……
ENDMAIN
FUNCTION
FUNCTION FunName()
……
END FUNCTION
REPORT
REPORT Rep_Name(sr)
．．．
FORMAT
PAGE HEADER
BEFORE GROUP
ON EVERY ROW
AFTER GROUP
．．．
END REPORT
COMMAND Cancel(Text=”Cancel”,IMAGE=”cancel”)
SEPARATOR
COMMAND editCut
……
END
END --TOPMENU
LAYOUT
LAYOUT #不能与SCREEN同时出现
VBOX
GROUP #显示组合框
FOLDER
#FOLDER下面只能用PAGE，PAGE下面可以有FORDER-PAGE
四、基础语法
1、变量及表达式
变量的类型和定义
DATABASE ds
GLOBALS
DEFINE g_employee CHAR(10) #全局变量
DEFINE g_tty CHAR(32) #模块变量
MAIN
DEFINE answer CHAR(1) #局部变量，直接定义
DEFINE p_employee_noLIKE employee_file.employee_no
yyyy以四位数字表示年度1995
using ‘yyyy’
2、程序流程控制
CALL
CALLfunction( [parameter[,...] ] ) #呼叫执行函式
[ RETURNINGvariable[,...] ] #返回指定变量的值
动态查询的回传值如果有多组则：
let g_qryparam.default1= g_azb.azb01
CLIPPED消除尾部空白
SPACES输出空白字符串
USING数值
*空白的地方以*置换
＆空白的地方以0置换
＃
不会对输出的数字作任何影响，通常用于限制字符串输出时的最大长度
＜将数字改为向左靠
，指定逗号出现的位置
．指定小数点出现的位置
－当输出的数字小于零时，加上一个负号
＋当输出的数字大于零，加上一个正号
GROUP form(TEXT=”Form”)
COMMAND help(Text=”Form”,IMAGE=”quest”)
COMMAND quit(Text=”quit”)
END
GROUP Edit(TEXT=”Edit”)
COMMAND accecpt(Text=”validate”image=”ok”,tag=”AcceptMenu”)
……
MENU ""
ON ACTION add
CALL act_a()
ON ACTION del……
ON ACTION zoom……
ON ACTION quit……
EXIT Program
END MENU
TOPMENU
不使用，用其他方式设定（参考TIPTOP GP技术手册）
TOPMENU MenuName
<ActionDefault name="quit" text="Quit" acceleratorName="SHIFT-F5" image="quit" />
</ActionDefaultList>
MAIN
#呼叫并载入默认ACTION项
CALL ui.Interface.loadActionDefaults("act")
S_xxxxxx :屏幕变量
文件命名规则
文件名称（TABLE NAME）: xxx_file数据库
字段名称（FIELD NAME）: xxx99 99代表流水编号
上面两项内容需于P-ZTA中注册方可使用。
存于UNIX的外部名称（Sch Files）: c_xxx.sch
三、Program的组成：Module + Form