tran.4gl

来自「将informix中的数据下载成文件」· 4GL 代码 · 共 45 行

database reserve
main
    define T_tabName  char(40)
    define T_filename char(40)
    define T_sql      char(128)
    define T_dir      char(50)
    define T_num      integer
    define T_flag     smallint
    define T_char     char(1)

    let T_num      = 0
    let T_tabName  = Null
    let T_filename = null
    let T_sql      = null
    let T_dir      = null
    declare cur_branch cursor for
      select tabname 
      from  systables
      where tabname[1,4]="tran"
      and   length(tabname)=10
    foreach cur_branch into T_tabName
        let T_sql      = null
        let T_fileName = null
        let T_num     = 0
        let T_fileName =T_tabName clipped,".unl"
        if T_tabName[5,10] = '330000' then
            let T_sql = "select * from ",T_tabName clipped,
                        " where pol_code in('FS1','S40','S49','S50','S51','S52','S53','S54','S55',",
                        "'S60','S61','S64','S66','S63','S76','S84','Y16','Y17','Y18','Y21')",
                        " and i_info_cntr_stat='K'"
        else
            let T_sql = "select * from ",T_tabName clipped,
                        " where pol_code in('FS1','S40','S49','S51','S52','S53','S54','S55',",
                        "'S60','S61','S66','S63','Y16','Y17','Y18','Y21')",
                        " and i_info_cntr_stat='K'"                
        end if
        
        call fun_unload_data(T_sql,"./",t_filename,t_num,"w") returning t_filename,t_num,t_flag
            display T_tabName clipped,"表,传送记录总共",t_num
            if  t_flag< 0 then
                  prompt  "调用fun_unload_data出错,错误号 ",sqlca.sqlcode for char t_char
            end if    
  end foreach
end main