课程07-TIPTOPGP单档作业.pptVIP

_fetch (4) SELECT * INTO g_azb.* FROM azb_file # 重讀 DB, 因 TEMP 有不被更新特性 WHERE ROWID = g_azb_rowid IF SQLCA.sqlcode THEN CALL cl_err(g_azb.azb01,SQLCA.sqlcode,0) ELSE LET g_data_owner=g_azb.azbuser #FUN-4C0044 權限控管 LET g_data_group=g_azb.azbgrup CALL i010_show() # 重新顯示 END IF END FUNCTION _show() 本段應瞭解重點 ? _show() 顯示資料 _show (1) FUNCTION i010_show() LET g_azb_t.* = g_azb.* DISPLAY BY NAME g_azb.* CALL i010_azb01(d) CALL cl_show_fld_cont() #No:FUN-550037 hmf END FUNCTION 單檔流程圖 menu MAIN u() q() F/N/P/L copy() r() x() out() show() cs() fetch() u()