Skip to Content
avatar image
Former Member

Dump while creating Move-In and Move-Out

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

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

3 Answers

  • Best Answer
    avatar image
    Former Member
    Oct 22, 2008 at 11:37 AM

    hi

    check notes 371985 in service.sap.com

    it wil help u

    kr

    raj

    Add comment
    10|10000 characters needed characters exceeded

  • Sep 19, 2008 at 01: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

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Sep 19, 2008 at 03:33 PM

    Thank you issue solved

    Add comment
    10|10000 characters needed characters exceeded