DEFINE ch base.Channel
DEFINE l_azk01 LIKE azk_file.azk01,
l_year LIKE type_file.num5,
l_month LIKE type_file.num5,
l_tenday LIKE type_file.num5,
l_azk051 LIKE azk_file.azk051,
l_azk052 LIKE azk_file.azk052

LET ch = base.Channel.create()
CALL ch.setDelimiter(” “)
CALL ch.openPipe(‘curl -s http://portal.sw.nat.gov.tw/APGQ/GC331!downLoad?formBean.downLoadFile=CURRENT_TXT | iconv -f big5 -t utf-8’,”r”)
WHILE ch.read([l_azk01,l_year,l_month,l_tenday,l_azk051,l_azk052])
DISPLAY l_azk01
DISPLAY l_year
display l_month
display l_tenday
display l_azk051
display l_azk052
END WHILE
CALL ch.close()

備註：curl的-s參數可關閉訊息，防止TT彈跳不必要的視窗！
-s/–silent Silent mode. Don’t output anything