Genero 的部落格

INPUT g_file,g_disk,g_check,g_date,g_vender,g_meno,g_currency
          WITHOUT DEFAULTS FROM FORMONLY.n1,FORMONLY.b,FORMONLY.c,FORMONLY.d1,FORMONLY.v1,FORMONLY.m1,FORMONLY.c1

 AFTER FIELD v1       
             SELECT pmc22 INTO l_pmc22 FROM pmc_file WHERE pmcacti = 'Y' and pmc05 = '1' and pmc01 = g_vender
             IF SQLCA.sqlcode = 100 THEN
                CALL cl_err('','aap-000',1)
                NEXT FIELD v1
             ELSE
                LET g_currency = l_pmc22
             #  DISPLAY BY NAME g_currency
             #  使用 DISPLAY BY NAME 變數 g_currency 需與畫面檔欄位名稱 FORMONLY.c1 相同
                DISPLAY g_currency TO FORMONLY.c1          
             END IF

END INPUT