CALL cl_replace_str(g_wc,'a','b'):在g_wc中把a换成b
CALL cl_set_comp_att_text(l_f,l_tc_duh11 CLIPPED)：使l_f栏位的名称显示为l_tc_duh11
LET g_zm.d_s=MDY(MONTH(g_today),1,YEAR(g_today)) :g_zm.d_s的值为这个月的第一天
切换营运中心
IF l_dbname IS NOT NULL THEN
CALL cl_switchdb(l_dbname) RETURNING li_result
END IF
弹出信息框：
CALL s_showmsg_init()------放在这个函数的开始
CALL s_errmsg('oea01',l_oea.oea01,'此订单编号不存在','',1)-----如果有foreach ,则放在foreach
CALL s_showmsg() -------在需要显示的地方call这个函数
如果想把栏位的备注放在栏位的上方，则显示栏位命名原则是dummy01,dummy02......
自动获取单别：s_get_slip（）取单别， s_get_doc_no（）有关单别的作业aapt120 s_get_doc_no(g_oga.oga01)
自动验证单别：s_check_no(） 在这支作业s_auto_assign_no.4gl中
增加字段并且赋值说明：
alter table shb_file add(ta_shb20 number(10));/*计费数量*/
删除主键约束：alter table tc_gan_file drop constraint tpc_gan_pk;
删除索引： drop index tic_gan_01;
新建索引： create unique index tic_gan_01 on tc_gan_file(tc_gan01,tc_gan02,tc_gan03);
新建主件constraint:ALTER TABLE TC_OGA_FILE ADD
CONSTRAINT tpc_oga_pk
PRIMARY KEY (TC_OGA01,TC_OGA02,TC_OGA03,TC_OGA06)
ENABLE
VALIDATE;
（备注：新增constraint语句要写在一行）
更改字段类型：alter table tc_gan_file modify tc_gan04 number(5);
per>>>>>4fd(per档转换成4fd档)
r.f2.per xxx
gsform -import xxx.per
GDC默认端口是6400，但是有时候会打开多个GDC,导致端口改变，比如端口是6401，那么就要把FGLSERVER端口值改成6401，命令如下：
echo $FGLSERVER
export FGLSEVER=$FGLSERVER:01
针对bin下面的程序的编译与链接：
fglcomp file_download
fgllink -o file_download.42r file_download.42m
画面档上的颜色，可不可以根据不同条件，比如正负，就显示不同的颜色？
CALL cl_set_comp_font_color("rvv01", "red")
CALL cl_replace_str(g_wc,'a','b') RETURNING g_wc #b替换a
debug时想临时改变变量的值，则：
ctrl+D 然后set variable g_gui=3
压缩与解压
cd cxm
打包：tar -cvf ./cxm.tar ./
解压：tar -xvf ./cxm.tar ./
建表时如果提示不符合建表命名规则（tc_ima）时，可以进行如下操作，再重新打开p_zta,汇入sch档
export TOPLINK=test
创建临时表规范写法：
FUNCTION t003_table()
DROP TABLE cwmbt003_tmp;
CREATE TEMP TABLE cwmbt003_tmp(
ibb01 LIKE ibb_file.ibb01,
ibb06 LIKE ibb_file.ibb06,
pihao LIKE rvb_file.rvb38,
shuliang LIKE type_file.num15_3 );
END FUNCTION
查看%所在位置：
LET g_rvb36= g_rvb_b[l_ac].rvb36
LET l_length= LENGTH(g_rvb36)
SELECT instr(g_rvb_b[l_ac].rvb36,'%',1,1) INTO l_n FROM dual
LET g_rvb_b[l_ac].rvb36 = g_rvb36[1,l_n-1]
LET g_rvb_b[l_ac].rvb37 = g_rvb36[l_n+1,l_length]
删除索引：step1、要先删除primary key ,然后重新创建索引
ALTER TABLE hrdp_file DROP primary KEY;
DROP INDEX hrdp_pk;
新增索引：step2、要先创建索引，再创建primary key
create INDEX hrdp_pk on hrdp_file (hrdp04);
alter table hrdp_file add constraint hrdp_pk primary key (hrdp04);
#取完工日期当前周的周一为开工日期
#trunc(new_t.e_date,'day') 这个函数的意义在于取当前日期所在周的第一天
select trunc(new_t.e_date,'day') +1 INTO new[g_j].b_date from dual;
echo $LOGNAME 查看登陆名称
export LOGNAME='tiptop' 切换登陆者
取消p_zta原则的限制：export TOPLINK='test'
查看进程：1、top 2、ps -ef |grep 2759
杀进程： kill -9 2759
老系统看表结构dbaccess ds ->table ->alter ->表名 ->退出是e返回上一菜单；
看老系统的画面字段是ctrol+鼠标右击该字段可查看
当误删了表中数据时，恢复数据到某一时间点时：
Flashback table sfa_file,sfb_file to timestamp to_timestamp('2015-12-09 15:30:30','yyyy-mm-dd hh24:mi:ss')
转载请注明：赫非域 » TIPTOP常用技巧(1)