Generate more than 36 subroutines?

Question

Dear all,
how can I generate more than 36 subroutine pools or dynamic programs (not perstistent programs)?
Best regards,
Christoph
what I do (test case):
Data: it_prog type stringtab.
append 'Program SUBPOOL.' to it_prog.
append 'Data: result type i.' to it_prog.
append 'form eval changing result.' to it_prog.
append ' result = result + 1.' to it_prog.
append 'endform.' to it_prog.
Do 100 times.
Do 100 times.
CALL METHOD lc_test->process
EXPORTING
it_tab = it_prog
receiving
RESULT = result
enddo.
method PROCESS.
Data: prog type string.
generate subroutine pool it_tab name prog.
endmethod.
Message was edited by:
Christoph Aschauer

Answer 1

HI,
see this example.
REPORT  ZBHEX2.
DATA: prog TYPE string,
      tab  TYPE STANDARD TABLE OF string,
      mess TYPE string,
      sid  TYPE string.
APPEND 'PROGRAM subpool.'                        TO tab.
APPEND `DATA spfli_tab TYPE TABLE OF spfli.`     TO tab.
APPEND `LOAD-OF-PROGRAM.`                        TO tab.
APPEND `  SELECT *` &
       `         FROM spfli` &
       `         INTO TABLE spfli_tab.`          TO tab.
APPEND `FORM loop_at_tab.`                       TO tab.
APPEND ` write:/ 'abcd'. `                       TO tab.
APPEND `  DATA spfli_wa TYPE spfli.`             TO tab.
APPEND `  LOOP AT spfli_tab INTO spfli_wa.`      TO tab.
APPEND `    PERFORM evaluate_wa USING spfli_wa.` TO tab.
APPEND `  ENDLOOP.`                              TO tab.
APPEND `ENDFORM.`                                TO tab.
APPEND `FORM evaluate_wa USING l_wa TYPE spfli.` TO tab.
APPEND `  WRITE: / l_wa-carrid, l_wa-connid.`    TO tab.
APPEND `ENDFORM.`                                TO tab.
GENERATE SUBROUTINE POOL tab NAME prog
         MESSAGE mess
         SHORTDUMP-ID sid.
IF sy-subrc = 0.
  PERFORM ('LOOP_AT_TAB') IN PROGRAM (prog) IF FOUND.
ELSEIF sy-subrc = 4.
  MESSAGE mess TYPE 'I'.
ELSEIF sy-subrc = 8.
  MESSAGE sid TYPE 'I'.
ENDIF.
rgds,
bharat.