Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Statement is not accessible

Go to solution
Former Member

‎2010 Dec 10 8:17 AM

0 Likes
654

Hi Anybody ,

i am getting an error 'Statement is not accessible'

REPORT ZZDEMO_EXPORT.

TABLEs : NAST.

DATA : i_vbeln TYPE VBAK-VBELN.

DATA: lf_fm_name TYPE rs38l_fnam.

DATA: lf_formname TYPE tdsfname.

DATA: XSCREEN(1) TYPE C.

DATA: RETCODE LIKE SY-SUBRC.

FORM entry USING return_code us_screen.

DATA: lf_retcode TYPE sy-subrc.

CLEAR retcode.

xscreen = us_screen.

PERFORM processing USING us_screen

CHANGING lf_retcode.

IF lf_retcode NE 0.

return_code = 1.

ELSE.

return_code = 0.

ENDIF.

ENDFORM. "ENTRY

data: GT_LINES like tline OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'READ_TEXT'

EXPORTING

ID = 'ZPRI'(002)

LANGUAGE = 'B'

NAME = '123456'

OBJECT = 'VBBK'

TABLES

LINES = GT_LINES

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORM processing USING proc_screen

CHANGING cf_retcode.

i_vbeln = NAST-OBJKY.

LF_FORMNAME = 'ZCFR_EXPORT_RAJIVPLASTIC2'(001).

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = lf_formname

IMPORTING

FM_NAME = LF_FM_NAME

EXCEPTIONS NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

CALL FUNCTION LF_FM_NAME

EXPORTING

i_vbeln = i_vbeln.

ENDFORM. "PROCESSING

How can I solve that problem ?

Thanks & Regards

Ambrish Dwivedi

1 ACCEPTED SOLUTION
Read only

Go to solution
RaymondGiuseppi
Active Contributor

‎2010 Dec 10 8:49 AM

0 Likes
599

Depending on your goal, choice an option

- Move your FORM entry after this code

- Add an event keyword like START or END-OF-SELECTION before this code.

- Move this code in one of the form

Is this the "main" part of the code ?

Regards,

Raymond

Hi Anybody ,

i am getting an error 'Statement is not accessible'

REPORT ZZDEMO_EXPORT.

TABLEs : NAST.

DATA : i_vbeln TYPE VBAK-VBELN.

DATA: lf_fm_name TYPE rs38l_fnam.

DATA: lf_formname TYPE tdsfname.

DATA: XSCREEN(1) TYPE C.

DATA: RETCODE LIKE SY-SUBRC.

FORM entry USING return_code us_screen.

DATA: lf_retcode TYPE sy-subrc.

CLEAR retcode.

xscreen = us_screen.

PERFORM processing USING us_screen

CHANGING lf_retcode.

IF lf_retcode NE 0.

return_code = 1.

ELSE.

return_code = 0.

ENDIF.

ENDFORM. "ENTRY

data: GT_LINES like tline OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'READ_TEXT'

EXPORTING

ID = 'ZPRI'(002)

LANGUAGE = 'B'

NAME = '123456'

OBJECT = 'VBBK'

TABLES

LINES = GT_LINES

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORM processing USING proc_screen

CHANGING cf_retcode.

i_vbeln = NAST-OBJKY.

LF_FORMNAME = 'ZCFR_EXPORT_RAJIVPLASTIC2'(001).

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = lf_formname

IMPORTING

FM_NAME = LF_FM_NAME

EXCEPTIONS NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

CALL FUNCTION LF_FM_NAME

EXPORTING

i_vbeln = i_vbeln.

ENDFORM. "PROCESSING

How can I solve that problem ?

Thanks & Regards

Ambrish Dwivedi

Reply
4 REPLIES 4
Read only

Go to solution
former_member242255
Active Contributor

‎2010 Dec 10 8:27 AM

0 Likes
599

Just place the

FORM entry ..

...

ENDFORM after the CAll function to READ_TEXT..

it will work.

Read only

Go to solution
RaymondGiuseppi
Active Contributor

‎2010 Dec 10 8:49 AM

0 Likes
600

Depending on your goal, choice an option

- Move your FORM entry after this code

- Add an event keyword like START or END-OF-SELECTION before this code.

- Move this code in one of the form

Is this the "main" part of the code ?

Regards,

Raymond

Read only

Go to solution
Former Member

‎2010 Dec 10 9:12 AM

0 Likes
599

Hi,

I have changed the source code , please check it.It is working fine.

TABLEs : NAST.

DATA : i_vbeln TYPE VBAK-VBELN.

DATA: lf_fm_name TYPE rs38l_fnam.

DATA: lf_formname TYPE tdsfname.

DATA: XSCREEN(1) TYPE C.

DATA: RETCODE LIKE SY-SUBRC.

data: GT_LINES like tline OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'READ_TEXT'

EXPORTING

ID = 'ZPRI'(002)

LANGUAGE = 'B'

NAME = '123456'

OBJECT = 'VBBK'

TABLES

LINES = GT_LINES

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

.

IF SY-SUBRC NE 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORM entry USING return_code us_screen.

DATA: lf_retcode TYPE sy-subrc.

CLEAR retcode.

xscreen = us_screen.

PERFORM processing USING us_screen

CHANGING lf_retcode.

IF lf_retcode NE 0.

return_code = 1.

ELSE.

return_code = 0.

ENDIF.

ENDFORM. "ENTRY

FORM processing USING proc_screen

CHANGING cf_retcode.

i_vbeln = NAST-OBJKY.

LF_FORMNAME = 'ZCFR_EXPORT_RAJIVPLASTIC2'(001).

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = lf_formname

IMPORTING

FM_NAME = LF_FM_NAME

EXCEPTIONS NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

CALL FUNCTION LF_FM_NAME

EXPORTING

i_vbeln = i_vbeln.

ENDFORM. "PROCESSING

Regrads,

Suvajit

Read only

Go to solution
Former Member
In response to Former Member

‎2010 Dec 10 12:05 PM

0 Likes
599

thanks. solve the issue

Edited by: ambrish dwivedi on Dec 10, 2010 5:37 PM