Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

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

Former Member
Former Member replied

hi

check notes 371985 in service.sap.com

it wil help u

kr

raj

0 View this answer in context
Not what you were looking for? View more on this topic or Ask a question