04.03.05.tiptop：基础知识篇（4gl 程序分层： 创建共用子程序）

本页目录：

• 创建程序
• 配置
• 测试

---

创建程序

• 子程序: s_poi_excel.4gl

DATABASE ds
GLOBALS "../../config/top.global"

FUNCTION test()
    RETURN "111111111111"
END FUNCTION

• 主程序：p_test.4gl

DATABASE ds
GLOBALS "../../config/top.global"


MAIN
    DEFINE  testSrc STRING
    CALL test() RETURNING testSrc
    DISPLAY testSrc
END MAIN

• 将程序上传

cd /u1/toptest/topcust/czz/4gl
put p_test.4gl
cd /u1/toptest/topcust/csub/4gl
put s_poi_excel.4gl

• 编译程序

cd /u1/toptest/topcust/csub/4gl
r.c2 s_poi_excel
cd /u1/toptest/topcust/czz/4gl
r.c2 p_tests

配置

• p_ling 新增配置

查询：连结档案：sub
表格新增：模组代码：CSUB 程序代码：s_poi_excel 是否连接：是

测试

cd /u1/toptest/topcust/csub/4gl
r.l2 sub
cd /u1/toptest/topcust/czz/4gl
r.l2 p_test
exe2 p_test