TIPTOP使用技巧（二）

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')