informix-4gl 7.2编写的通用菜单函数

################################################################################ # # # 版本号: Ver 1.0 研制时间:2001.2.15 # # # ################################################################################ globals define winopened char(1) define thrmenu array[4] of char(16) define popmenu array[4,5] of char(14) define hlpmenu array[4,5] of char(60) define poprowno array[4] of smallint define maxmenuno smallint define menuno, currow, rstart smallint define p_branch_no char(6) define p_branch_name char(60) define p_today char(13) define p_clerk_code char(10) define p_clerk_pa