topic Re: Dynamic external perform / subroutine pool in Application Development and Automation Discussions

Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 12:46:22 GMT

Hello.

I generated a subroutine pool (GENERATE SUBROUTINE POOL). Within this subroutine pool i implemented a FORM routine.

Now I try to call the FORM routine with dynamic external perform and get a PERFORM_NOT_FOUND shortdump.

I am using the following syntax:

PERFORM (<field containing the name of the FORM routine>) IN PROGRAM (<field containing the 'name' of the subroutine pool (e.g. '%_T03PD0'>).

What is my mistake?

Re: Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 12:51:36 GMT

hi mike ,

1. are you telling me that you are getting the dump only if you specify the subroutine and program name dynamically ?

2. if you specify it statically, does it work?

3. also, are you developing the subroutine pool dynamically?

4. have you cross-checked in se38 if the subroutine pool is in active status?

regards,

anand mandalika.

Re: Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 13:21:15 GMT

1. subroutine is generate dynamically (SYNTAX-CHECK: OK);

name of subroutine also dynamically

2. Yes is case of the name of the subroutine (e.g PERFORM formxx IN PROGRAM (prog).

3. Yes

4. How?! -> dynamically implemented subroutine pool

Re: Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 13:37:59 GMT

I'm sorry, i overlooked the fact that you are generating it dynamically. you cannot verify in SE38.

But have you checked the sy-subrc after generation ?

<i>Generation errors can occur, if the program contains errors in the declaration statements that are not recognized during the static syntax check.</i>

Also use the error-handling for the GENERATE SUBROUTINE POOL statement (described clearly in the online documentation).

Re: Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 13:40:49 GMT

Sorry, but... of course i checked the SY-SUBRC and of course i did the normal error handling after GENERATE SUBROUTINE POOL ...

Re: Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 13:43:32 GMT

Hi Mike,

can you give the code snippet here so that i may be able to detect if something's wrong?

Regards,

Anand Mandalika.

Re: Dynamic external perform / subroutine pool

Former Member — Wed, 27 Apr 2005 13:45:54 GMT

REPORT ZMS_TEST_LI.

TYPES: DIV_TABLE(5000) TYPE C OCCURS 0.

DATA: GT_TMPTAB TYPE DIV_TABLE,

GT_BATCH LIKE /RTC/SV_LI001 OCCURS 0,

GS_BATCH LIKE LINE OF GT_BATCH,

GV_TABNAME LIKE DD02L-TABNAME VALUE '/RTC/SV_LI001',

GV_SRNAME LIKE SY-REPID,

GV_FORMROUTINE LIKE SY-REPID.

TABLES: /RTC/AS_INDX.

START-OF-SELECTION.

build name of subroutine:
'form_' + <name of ABAP-Suite customizing table>

CONCATENATE 'f_' GV_TABNAME INTO GV_FORMROUTINE.

REPLACE '/' WITH SPACE INTO GV_FORMROUTINE.

CONDENSE GV_FORMROUTINE NO-GAPS.

TRANSLATE GV_FORMROUTINE TO LOWER CASE.

PERFORM GENERATE_IMPORT_FORM USING GV_TABNAME

CHANGING GV_SRNAME

GV_FORMROUTINE

SY-SUBRC.

check whether SUBROUTINE POOL was generated

CHECK SY-SUBRC EQ 0.

PERFORM F_RTCSV_LI001 IN PROGRAM (GV_SRNAME)

PERFORM (gv_formroutine) IN PROGRAM (gv_srname)

TABLES GT_TMPTAB

IF FOUND.

LOOP AT GT_TMPTAB INTO GS_BATCH.

WRITE: / GS_BATCH-MANDT,

GS_BATCH-KEYTYPE,

GS_BATCH-KEYCOMP,

GS_BATCH-KEYVERS,

GS_BATCH-KEYVALUE,

GS_BATCH-LICENCE.

APPEND GS_BATCH TO GT_BATCH.

ENDLOOP. "LOOP AT gt_tmptab INTO gs_batch

MODIFY (GV_TABNAME) CLIENT SPECIFIED FROM TABLE GT_BATCH.

IF SY-SUBRC EQ 0.

DELETE FROM /RTC/AS_INDX

WHERE RELID = 'TS' AND

SRTFD = GV_TABNAME.

ENDIF. "IF sy-subrc EQ 0

************************************************************************

FORM GENERATE_IMPORT_FORM

USING IV_TABNAME LIKE DD02L-TABNAME

CHANGING EV_SRNAME LIKE SY-REPID

EV_FORMROUTINE LIKE SY-REPID

EV_SUBRC LIKE SY-SUBRC.

DATA: LT_PROGTAB(72) TYPE C OCCURS 0,

LV_PROGTAB LIKE LINE OF LT_PROGTAB,

LV_ITABNAME LIKE DD02L-TABNAME,

TV_MSG LIKE SY-LISEL,

TV_WORD LIKE SY-LISEL,

TV_LIN LIKE SY-LISEL.

CONSTANTS: LC_PREFIX(3) TYPE C VALUE 'it_'.

LOCAL: LT_PROGTAB, LV_PROGTAB,

LV_ITABNAME,

TV_MSG, TV_WORD, TV_LIN.

generate name of form routine ->EV_FORMROUTINE

CONCATENATE 'f_' IV_TABNAME INTO EV_FORMROUTINE.

WHILE SY-SUBRC EQ 0.

eliminate all slashes as long as found in EV_FORMROUTINE

REPLACE '/' WITH SPACE INTO EV_FORMROUTINE.

ENDWHILE. "WHILE sy-subrc EQ 0

CONDENSE EV_FORMROUTINE NO-GAPS.

TRANSLATE EV_FORMROUTINE TO LOWER CASE.

generate name of internal table ->LV_ITABNAME

CONCATENATE LC_PREFIX IV_TABNAME INTO LV_ITABNAME.

TRANSLATE LV_ITABNAME TO LOWER CASE.

MOVE 'PROGRAM srpool.' TO LV_PROGTAB.