Hey Chris,
I was not talking about dynamic tables,
create a table with only one field of 72 chars,
DATA: Begin of gt_itab occurs 0,
line(72) type c,
End of gt_itab.
data: gv_fname(30) type c value 'ZTEST_SAMSON', "program name
gv_err(120) type c, "error variable
then move all ur code into this, as if it is a program,
gt_itab-line = 'REPORT ZTEST_SAMSON.' .
append gt_itab .
gt_itab-line = 'FORM new_sub USING <some parameters>.' .
append gt_itab .
gt_itab-line = 'ur code here ' .
append gt_itab .
.........
keep adding lines of ur code to the table.
then close the sub routine
gt_itab-line = 'ENDFORM.'.
append gt_itab.
generate subroutine pool gt_itab name gv_fname message gv_err .
if sy-subrc eq 0.
perform new_sub in program (gv_fname) using <parameters>
if found.
write:/ gv_err .
clear gv_err.
else.
write:/ gv_err.
endif.
Regards,
Samson Rodrigues.
Bluesky
