2013年11月30日
程序中条用其他程序中已经存在的PERFORM
摘要： PARAMETERSp_sub(40)TYPEc.DATAfssub(40)TYPEc.fssub=p_sub.TRY.PERFORM(fssub)INPROGRAMydemo_rick_a."IFFOUND.CATCHcx_sy_dyn_call_illegal_form.WRITE:'Theroutine',p_subCOLOR3,'isnotexist!'.ENDTRY.*&---------------------------------------------------------------------**&Formsub 阅读全文
posted @ 2013-11-30 17:53 小鱼儿游 阅读(357) 评论(0) 推荐(0)