tag:blogger.com,1999:blog-8257180.post109895618410412863..comments2008-12-08T22:46:57.737-08:00Dalinoreply@blogger.comBlogger2125tag:blogger.com,1999:blog-8257180.post-1099268982129697362004-10-31T16:29:00.000-08:002004-10-31T16:29:00.000-08:00Take risk for your own.<br /><br />Download first for backup.<br /><br />Upload could destory the table content!Dalihttp://www.blogger.com/profile/15588384745381078272noreply@blogger.comtag:blogger.com,1999:blog-8257180.post-1099019337443544992004-10-28T20:08:00.000-07:002004-10-28T20:08:00.000-07:00Modified <br />by Dali line 150<br />add a answer = j to active import part running<br /><br /><br /><br /><br /> <br /> EXPORTING<br /> defaultoption = 'N'<br /> textline1 = w_text1<br /> textline2 = w_text2<br /> titel = 'Confirm Import of Data'<br /> cancel_display = ' '<br /> IMPORTING<br /> answer = answer<br /> EXCEPTIONS<br /> OTHERS = 1.<br /><br />* dali<br /> answer = 'J'.<br /><br /> ELSE.<br />* export selected, set answer to yes so export can continue<br /> answer = 'J'.<br /> ENDIF.<br />ENDFORM.<br />*---------------------------------------------------------------------*<br />* FORM EXECUTE_PROGRAM_FUNCTION *<br />*---------------------------------------------------------------------*<br />FORM execute_program_function.<br /><br />*dali<br /> PERFORM build_file_name.<br /> CLEAR: q_return,err_flag.<br /><br /> IF p_imp = 'X'.<br /> PERFORM check_file_exists.<br /> CHECK err_flag = ' '.<br /> PERFORM func_import.<br /> ELSE.Dalihttp://www.blogger.com/profile/15588384745381078272noreply@blogger.com