#josh start
      UNLOAD TO '/u1/out/cglp001.csv' DELIMITER ',' SELECT * FROM GEM_FILE

      #刪除每行最後一個,
      run "sed -i 's/.$//' /u1/out/cglp001.csv"
      run "unix2dos /u1/out/cglp001.csv"
      let l_datetime = TODAY,TIME
      CALL cl_replace_str(l_datetime, "/", "") RETURNING l_datetime
      CALL cl_replace_str(l_datetime, ":", "") RETURNING l_datetime
      LET l_fileName = "HFM_",g_plant,"_",l_yy,"",l_mon,"_",l_datetime,".csv"
      let l_target = "c:\\tiptop\\",l_fileName
      LET l_status = cl_download_file('/u1/out/cglp001.csv',l_target)
      IF l_status THEN
          CALL cl_err(l_fileName,"amd-020",1)
      ELSE
          CALL cl_err(l_fileName,"amd-021",1)
      END IF
      #josh start