不同系統轉換

#......: upd_ima75.4gl

#Description....: 更新ima_file的ima75,imaud01,關務出口用 imaud01含有中文字．

DATABASE ds

MAIN

    DEFINE   ss       STRING

    DEFINE  l_download_file,l_download_file2  STRING

    DEFINE   sr       RECORD

                       ima01     LIKE ima_file.ima01,

                      ima75      LIKE type_file.chr20,

                      imastr     LIKE ima_file.imaud01

                      END RECORD

 

    CREATE TEMP TABLE t100temp_file(ima01   VARCHAR(40),

                                    ima75  VARCHAR(20),

                                   imastr  VARCHAR(255)

                                   )   #料件編號

    DELETE FROM t100temp_file

     WHERE 1=1

     LET l_download_file = '/u1/toptest/topcust/cim/4gl/12.csv'                    #12.csv 需要先上傳好.

    LET l_download_file2 = '/u1/toptest/topcust/cim/4gl/ima75_cw.csv'      #目的名稱

    LET ss = "iconv -f Big5 -t UTF-8 ",l_download_file," >",l_download_file2    #轉換文字,從繁體變成UIF-8格式,linux專用

    RUN ss

    LOAD FROM '/u1/toptest/topcust/cim/4gl/ima75_cw.csv' DELIMITER ','

    INSERT INTO t100temp_file

 

    DECLARE t100temp_cs CURSOR FOR

     SELECT * FROM t100temp_file

    INITIALIZE sr.* TO NULL

    FOREACH t100temp_cs INTO sr.*

       UPDATE dgcw.ima_file SET ima75 = sr.ima75,imaud01 = sr.imastr

        WHERE ima01 = sr.ima01

    END FOREACH

END MAIN