Last login: Fri Apr 24 11:35:48 2015 from 192.168.30.50
Please Select (1)topprod (2)toptest (3)topstd *)Exit [1]:
1
Current Genero DVM version ...
------------------------------------------------
fglrun 2.40.04 build-2081.15
Genero virtual machine
Target l64xl23
Four Js*
Licensed Materials - Property of Four Js
(c) Copyright Four Js 1995, 2012. All Rights Reserved.
* Trademark of Four Js Development Tools Europe Ltd
in the United States and elsewhere
FGLGUI=0
/u1/topprod/tiptop/axc/4gl
# Prog. Version..: '5.30.06-13.03.12(00000)' #
#
# Pattern name...: axci100
# Descriptions...: 鎴愭湰鍒嗛寗搴曠?缍浣滄キ
# Date & Author..: 05/01/25 By Carol
# Modify.........: No.FUN-510041 05/01/25 By Carol 鏂板鎴愭湰鎷嬭綁鍌崇エ鍔熻兘
# Modify.........: No.FUN-550025 05/05/16 By vivien 鍠摎绶ㄨ櫉鏍煎紡鏀惧ぇ
# Modify.........: No.MOD-560228 05/07/20 By ching Fix鍠韩loop
# Modify.........: No.MOD-580175 05/08/17 By Claire 璀﹀憡鍊熻哺涓嶅钩琛?
# Modify.........: No.FUN-5C0015 05/12/16 By Jack npq_file 澧炲姞鏂版瑒浣嶅強妾㈡煡
# Modify.........: No.FUN-5C0015 06/02/14 BY GILL 鐢╯_ahe_qry鍙栦唬q_aee
# Modify.........: No.FUN-660127 06/06/23 By Czl cl_err --> cl_err3
鎴?t"锛屽墖鏀规垚CALL cl_cmdrun_wait()10 By Rainy CALL cl_cmdrun()涓殑绋嬪紡濡傛# Modify.........: No.FUN-670039 06/07/12 By Carrier 甯冲垾鎿村厖鐐?纰?
# Modify...s_fsgl鐨勭暙闈㈣窡4gl渚嗙董璀风▼寮?ah 鏀硅畩鐣潰椤ず鏂瑰紡,鐩存帴CALL鍒嗛寗搴曠? # Modify.........: No.FUN-680122 06/09/07 By zd/axc
WHEN "detail"
IF cl_chk_act_auth() THEN
CALL s_fsgl_b()
ELSE
LET g_action_choice = NULL
END IF
WHEN "output"
IF cl_chk_act_auth() THEN
CALL s_fsgl_out('axci100')
END IF
WHEN "help"
CALL cl_show_help()
WHEN "exit"
EXIT WHILE
WHEN "controlg"
CALL cl_cmdask()
WHEN "controls" #No.FUN-6A0092
CALL cl_set_head_visible("","AUTO") #No.FUN-6A0092
search hit BOTTOM, continuing at TOP
# Prog. Version..: '5.30.06-13.03.12(00000)' #
#
# Pattern name...: axci100
# Descriptions...: 鎴愭湰鍒嗛寗搴曠?缍浣滄キ
# Date & Author..: 05/01/25 By Carol
# Modify.........: No.FUN-510041 05/01/25 By Carol 鏂板鎴愭湰鎷嬭綁鍌崇エ鍔熻兘
# Modify.........: No.FUN-550025 05/05/16 By vivien 鍠摎绶ㄨ櫉鏍煎紡鏀惧ぇ
# Modify.........: No.MOD-560228 05/07/20 By ching Fix
鍠韩loop
# Modify.........: No.MOD-580175 05/08/17 By Claire 璀﹀憡鍊熻哺涓嶅钩琛?
# Modify.........: No.FUN-5C0015 05/12/16 By Jack npq_file 澧炲姞鏂版瑒浣嶅強妾㈡煡
# Modify.........: No.FUN-5C0015 06/02/14 BY GILL 鐢╯_ahe_qry鍙栦唬q_aee
# Modify.........: No.FUN-660127 06/06/23 By Czl cl_err --> cl_err3
鎴?t"锛屽墖鏀规垚CALL cl_cmdrun_wait()10 By Rainy CALL cl_cmdrun()涓殑绋嬪紡濡傛# Modify.........: No.FUN-670039 06/07/12 By Carrier 甯冲垾鎿村厖鐐?纰?
# Modify...s_fsgl鐨勭暙闈㈣窡4gl渚嗙董璀风▼寮?ah 鏀硅畩鐣潰椤ず鏂瑰紡,鐩存帴CALL鍒嗛寗搴曠? # Modify.........: No.FUN-680122 06/09/07 By zdyllq 椤炲瀷杞夋彌
/axc
WHEN "detail"
IF cl_chk_act_auth() THEN
CALL s_fsgl_b()
ELSE
LET g_action_choice = NULL
END IF
WHEN "output"
IF cl_chk_act_auth() THEN
CALL s_fsgl_out('axci100')
END IF
WHEN "help"
CALL cl_show_help()
WHEN "exit"
EXIT WHILE
WHEN "controlg"
CALL cl_cmdask()
WHEN "controls" #No.FUN-6A0092
CALL cl_set_head_visible("","AUTO") #No.FUN-6A0092
E486: Pattern not found: open
WHILE TRUE
# CALL s_fsgl_bp2("G")
CALL i100_bp("G") #No.FUN-8C0050
CASE g_action_choice
WHEN "query"
IF cl_chk_act_auth() THEN
CALL cl_set_head_visible("","YES") #No.FUN-6A0092
CALL s_fsgl_q('CA')
END IF
WHEN "delete"
IF cl_chk_act_auth() THEN
CALL s_fsgl_r()
END IF
WHEN "detail"
IF cl_chk_act_auth() THEN
CALL s_fsgl_b()
ELSE
LET g_action_choice = NULL
END IF
WHEN "output"
IF cl_chk_act_auth() THEN
CALL s_fsgl_out('axci100')
END IF
WHEN "help"
DEFINE p_row,p_col LIKE type_file.num5 #No.FUN-680122 SMALLINT
OPTIONS
INPUT NO WRAP
DEFER INTERRUPT # Supress DEL key function
WHENEVER ERROR CONTINUE
IF (NOT cl_user()) THEN
EXIT PROGRAM
END IF
WHENEVER ERROR CALL cl_err_msg_log
IF (NOT cl_setup("AXC")) THEN
EXIT PROGRAM
END IF
CALL cl_used(g_prog,g_time,1) RETURNING g_time #瑷堢畻浣跨敤鏅傞枔 (閫插叆鏅傞枔) #No.MOD-580088 HCN 20050818 #No.FUN-6A0146
LET g_argv1 = 'CA' # CA
LET g_argv2 = 1 # 1
LET g_argv3 = ARG_VAL(3) # 鍠櫉
LET g_argv4 = ARG_VAL(4) # 鏈梗閲戦
LET
g_argv5 = g_https://www.wendangku.net/doc/6610367826.html,z12 # 甯冲垾 #MOD-5C0103
LET g_argv6 = ARG_VAL(6) # 鐣板嫊搴忚櫉
LET g_argv7 = ARG_VAL(7) # 纰鸿獚纰?[1;33H
LET p_row = 3 LET p_col = 2
OPEN WINDOW s_fsgl_w AT p_row,p_col WITH FORM "sub/42f/s_fsgl"
ATTRIBUTE (STYLE = g_win_style CLIPPED) #No.FUN-580092 HCN
CALL cl_ui_init()
CALL s_fsgl_show_filed() #FUN-5C0015 051216 BY GILL
#str FUN-780068 add
#鐣朵笉浣跨敤澶氬赋鍒ュ姛鑳芥檪锛岄毐钘弉pptype
IF g_aza.aza63 = 'N' THEN
CALL cl_set_comp_visible("npptype",FALSE)
END IF
#end FUN-780068 add
CALL i100_menu()
CLOSE WINDOW s_fsgl_w
CALL cl_used(g_prog,g_time,2) RETURNING g_time #瑷堢畻浣跨敤鏅傞枔 (閫€鍑烘檪闁? #No.MOD-580088 HCN 20050818 #No.FUN-6A0146 MAIN
FUNCTION i100_menu()
[1] + Stopped vi axci100.4gl