Genero 的部落格

參考範例 :

   FOREACH r001_curs1 INTO l_ima01
      LET l_i = l_i + 1                      # Count
      LET la_ima[l_i].ima01 = l_ima01        # save var
   END FOREACH
   FOR i = 1 TO l_i   
       LET g_doc.column1 = "ima01"
       LET g_doc.value1 = la_ima[i].ima01

       CALL cl_fld_doc1("ima04",i)           #處理

       LET m1 = i||'/'||l_i||' '||g_doc.value1||' 圖檔更新中.....'
       CALL cl_msg(m1)
       CALL ui.Interface.refresh()           #Refresh
   END FOR