04.04.01.tiptop：基础知识篇（4gl 程序分层： 独立程序）

本页目录：

• 1、引用global
• 2、引用子程序

---

注意：个人习惯是cxmq381主程序、scxmq381子程序：画面函数、scxmq381_sup子程序：数据操作函数，子程序：global全局变量

• 案例: source/02.04.04

引用global

• global文件定义全局变量

DATABASE ds

GLOBALS
   DEFINE g_curs_index          LIKE type_file.num10
   DEFINE g_row_count           LIKE type_file.num10
END GLOBALS

• 4gl引用global

# 头部引用相对路径
GLOBALS "xxx/xxx.global"

引用子程序

• 1、主程序引用 cxmq381.4gl

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

MAIN
  DEFINE p_row,p_col     LIKE type_file.num5

  LET p_row  = ARG_VAL(1)
  LET p_col  = ARG_VAL(2)

  OPTIONS
      FORM LINE     FIRST + 2,
      MESSAGE LINE  LAST,
      PROMPT LINE   LAST,
      INPUT NO WRAP
  DEFER INTERRUPT

  IF (NOT cl_user()) THEN
    EXIT PROGRAM
  END IF

  WHENEVER ERROR CALL cl_err_msg_log

  IF (NOT cl_setup("CXM")) THEN
    EXIT PROGRAM
  END IF

  # 打開窗口
  CALL  cl_used(g_prog,g_time,1) RETURNING g_time 
  LET p_row = 5 LET p_col = 10
  OPEN WINDOW q381_w AT p_row,p_col WITH FORM "cxm/42f/cxmq381"
    ATTRIBUTE (STYLE = g_win_style CLIPPED)
    CALL cl_ui_init()  
    DROP TABLE cxmq381_tmp
    CALL q381_menu()
  CLOSE WINDOW q381_w
  CALL  cl_used(g_prog,g_time,2) RETURNING g_time

END MAIN

ssh 编译：r.c2 cxmq381

• 2、子子程序创建函数 scxmq381.4gl

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

# Pattern name...: q381_menu()
# Descriptions...:画面的ToolBar的设置函数
FUNCTION q381_menu()
  CREATE TEMP TABLE cxmq381_tmp(
      img01         VARCHAR(40),
      img02         VARCHAR(10),
      img09         VARCHAR(4),
      img10         DECIMAL(15,3),
      oea904        VARCHAR(8),
      t             DECIMAL(15,3))

    # ToolBar的設置
    MENU ""
        BEFORE MENU
          CALL cl_navigator_setting(g_curs_index, g_row_count)
          LET tm.wc="1=1"
          DISPLAY "1111111111111"
        ON ACTION modify
          CALL q381_i()
        ON IDLE g_idle_seconds 
          CALL cl_on_idle() 
          CONTINUE MENU
        ON ACTION locale
          CALL cl_dynamic_locale()
          CALL cl_show_fld_cont()
        ON ACTION qbe_select
          CALL cl_qbe_select()
        ON ACTION help
          CALL cl_show_help()
        ON ACTION about
          CALL cl_about()
        ON ACTION controlg
          CALL cl_cmdask() 
        ON ACTION exit
          LET INT_FLAG = FALSE
          EXIT MENU
        ON ACTION close
          LET INT_FLAG=FALSE
          EXIT MENU
    END MENU
END FUNCTION

ssh 编译：r.c2 scxmq381

• 3、p_link 连接
  

r.l2 scxmq381