09-18-2008 5:08 PM
Hi Gurus ,
Getting a dump while creating Move-In and Move-Out .
Getting syntax error in the following program SAPLXEMDBP003 .
"Incorrect Nesting : Before the statement "Module", the structure Introd".
The problem here is that in program SAPLES01 the defect part is CUSTOMER_SUBSCREEN_PBO_BEFORE.
I have attached the piece of code where problem occurs. Went through the coding but not able to fix it. Someone pls let me know the Solution for the problem ASAP.
Thanking you in advance.
T-Code : EC50E
Program : SAPLES01
Include : LES01F01
Part of code where error is happening :
&----
*& Form CUSTOMER_SUBSCREEN_PBO_BEFORE
&----
text
----
FORM customer_subscreen_pbo_before.
DATA:
cprogname LIKE trdir-name,
cdynnr LIKE tsdir-dynnr,
bername(30),
tfgr LIKE screen-group3 OCCURS 2 WITH HEADER LINE,
tfldn LIKE screen-name OCCURS 0 WITH HEADER LINE,
dp LIKE regen-kennzx,
ca(1).
Customer subscreen active?
cprogname = 'SAPLES01'.
cdynnr = '0400'.
bername = 'CUSTSUB'.
CALL FUNCTION 'MODX_SUBSCREEN_ACTIVE_CHECK'
EXPORTING
cprogname = cprogname
cdynnr = cdynnr
bername = bername
IMPORTING
active = ca.
IF ca = 'X'.
CLEAR ca.
LOOP AT SCREEN.
CHECK screen-group3 = '001'.
CHECK screen-input = 1 OR
screen-output = 1.
ca = 'X'.
EXIT.
ENDLOOP.
ENDIF.
IF ca = 'X'.
sub_repid = 'SAPLES01'.
sub_dynnr = '0400'.
ELSE.
sub_repid = 'SAPLES01'.
sub_dynnr = '0500'.
EXIT.
ENDIF.
IF sobj-contr-wmode = co_display.
dp = 'X'.
ENDIF.
CALL CUSTOMER-FUNCTION '030'
EXPORTING
x_display = dp
x_partner_data = sobj-act
x_wmode = sobj-contr-wmode
TABLES
tx_act_fldgrps = tfgr
ty_fieldnames = tfldn.
DESCRIBE TABLE tfldn.
IF sy-tfill > 0.
LOOP AT SCREEN.
tfldn = screen-name.
READ TABLE tfldn.
CHECK sy-subrc = 0.
screen-active = 0.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM. " CUSTOMER_SUBSCREEN_PBO_BEFORE
10-22-2008 12:37 PM
09-19-2008 2:35 PM
Hi,
I think the call to the user exit 030 has to be removed. But usually your can have a better look at this within the system itself. I'd assume with try and error you will get a quick result - just decomment the responsible line(s) and check.
KR
Uwe
09-19-2008 4:33 PM
10-22-2008 12:24 PM
Dear Expert,
we get same problem.please tell me how u solve it.
thnaks
ajai
10-22-2008 12:37 PM