topic Re: Error in Application Development and Automation Discussions

Error

Former Member — Tue, 17 Jul 2007 06:41:26 GMT

Hi,

I had an error in my program.

Error is

Statement is not accessible.

This error iam getting before IF SY-SUBRC EQ 0.

T Y P E S

TYPES:

BEGIN OF TYVBAK,

VBELN TYPE VBAK-VBELN,

AUART TYPE VBAK-AUART,

AUDAT TYPE VBAK-AUDAT,

KUNNR TYPE VBAK-KUNNR,

NETWR TYPE VBAK-NETWR,

END OF TYVBAK.

D A T A D E C L A R A T I O N S

DATA:

STVBAK TYPE TYVBAK,

ITVBAK TYPE TABLE OF TYVBAK.

S E L E C T I O N S C R E E N

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:

SKUNNR FOR STVBAK-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

I N I T I A L I Z A T I O N

INITIALIZATION.

FILLING SELECT OPTIONS WITH DEFAULTS

SKUNNR-SIGN = 'I'.

SKUNNR-OPTION = 'BT'.

SKUNNR-LOW = '1'.

SKUNNR-HIGH = '4000000'.

APPEND SKUNNR.

S T A R T O F S E L E C T I O N

START-OF-SELECTION.

FORM GETDATA.

SELECT VBELN "SALES DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "SALES DOCUMENT DATE

KUNNR "SOLD TO PARTY

NETWR "NETWORTH

FROM VBAK

INTO TABLE ITVBAK

WHERE KUNNR IN SKUNNR.

ENDFORM.

IF SY-SUBRC EQ 0.

SORT ITVBAK BY KUNNR VBELN.

PERFORM DISPLAY.

ENDIF.

LOOP AT ITVBAK INTO STVBAK.

WRITE:/ 1 STVBAK-VBELN,12STVBAK-AUART,18STVBAK-AUDAT,30STVBAK-NETWR.

ENDLOOP.

ENDFORM.

Also I had used FORM GETDATA. Is it Subroutine FORM GETDATA. That i didnt create.

Plz correct me this program

Re: Error

Former Member — Tue, 17 Jul 2007 06:44:18 GMT

Hi,

Remove ENDFORM before sy-subrc statemetn.Also create Display subroutine.

Reward if useful!

Re: Error

Former Member — Tue, 17 Jul 2007 06:45:36 GMT

Hi Ram,

You have to call the statement

Perform Getdata.

if sy-subrc = 0.

endif.

after start-of-selection.

cut and paster the form Getdata below this statement

Regards

Arun

Re: Error

Former Member — Tue, 17 Jul 2007 06:46:01 GMT

Hi,

Where hv u called subroutine GETDATA. There shud be a statement PERFORM GETDATA. after that the IF SY-SUBRC EQ 0 shud be checked.

Hope the error is due to this only.

Regards,

Himanshu

Re: Error

Former Member — Tue, 17 Jul 2007 06:46:28 GMT

hi,

Pls Change ur code like this,

FORM GETDATA.

SELECT VBELN "SALES DOCUMENT NUMBER
AUART "DOCUMENT TYPE
AUDAT "SALES DOCUMENT DATE
KUNNR "SOLD TO PARTY
NETWR "NETWORTH
FROM VBAK
INTO TABLE ITVBAK
WHERE KUNNR IN SKUNNR.

IF SY-SUBRC EQ 0.
SORT ITVBAK BY KUNNR VBELN.
PERFORM DISPLAY.
ENDIF.

ENDFORM. "end of GETDATA


FORM DISPLAY.

LOOP AT ITVBAK INTO STVBAK.
WRITE:/ 1 STVBAK-VBELN,12STVBAK-AUART,18STVBAK-AUDAT,30STVBAK-NETWR.
ENDLOOP.

ENDFORM.

Regards

Reshma

Re: Error

Former Member — Tue, 17 Jul 2007 06:46:47 GMT

hi,

U r checking the sy-subrc after the end form.It wont be considered then.

Where is the Perform Getdata.

Re: Error

Former Member — Tue, 17 Jul 2007 06:46:49 GMT

first write PERFORM statement after start-of-selection

START-OF-SELECTION.

PERFORM getdata.

FORM GETDATA.

SELECT VBELN "SALES DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "SALES DOCUMENT DATE

KUNNR "SOLD TO PARTY

NETWR "NETWORTH

FROM VBAK

INTO TABLE ITVBAK

WHERE KUNNR IN SKUNNR.

IF SY-SUBRC EQ 0.

SORT ITVBAK BY KUNNR VBELN.

PERFORM DISPLAY.

ENDIF.

ENDFORM.

FORM display.

LOOP AT ITVBAK INTO STVBAK.

WRITE:/ 1 STVBAK-VBELN,12STVBAK-AUART,18STVBAK-AUDAT,30STVBAK-NETWR.

ENDLOOP.

ENDFORM.

Reward points for useful Answers

Regards

Anji

Message was edited by:

Anji Reddy Vangala

Re: Error

former_member196280 — Tue, 17 Jul 2007 06:47:56 GMT

START-OF-SELECTION.

FORM GETDATA.

SELECT VBELN "SALES DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "SALES DOCUMENT DATE

KUNNR "SOLD TO PARTY

NETWR "NETWORTH

FROM VBAK

INTO TABLE ITVBAK

WHERE KUNNR IN SKUNNR.

ENDFORM. "CANNNOT BE USED HERE

IF SY-SUBRC EQ 0.

SORT ITVBAK BY KUNNR VBELN.

PERFORM DISPLAY.

ENDIF.

LOOP AT ITVBAK INTO STVBAK.

WRITE:/ 1 STVBAK-VBELN,12STVBAK-AUART,18STVBAK-AUDAT,30STVBAK-NETWR.

ENDLOOP.

ENDFORM.

Don't forget to reward points.

Regards,

SaiRam

Re: Error

Former Member — Tue, 17 Jul 2007 06:50:52 GMT

Hi rams,

do like this.

T Y P E S

TYPES:

BEGIN OF TYVBAK,

VBELN TYPE VBAK-VBELN,

AUART TYPE VBAK-AUART,

AUDAT TYPE VBAK-AUDAT,

KUNNR TYPE VBAK-KUNNR,

NETWR TYPE VBAK-NETWR,

END OF TYVBAK.

D A T A D E C L A R A T I O N S

DATA:

STVBAK TYPE TYVBAK,

ITVBAK TYPE TABLE OF TYVBAK.

S E L E C T I O N S C R E E N

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:

SKUNNR FOR STVBAK-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

I N I T I A L I Z A T I O N

INITIALIZATION.

FILLING SELECT OPTIONS WITH DEFAULTS

SKUNNR-SIGN = 'I'.

SKUNNR-OPTION = 'BT'.

SKUNNR-LOW = '1'.

SKUNNR-HIGH = '4000000'.

APPEND SKUNNR.

S T A R T O F S E L E C T I O N

START-OF-SELECTION.

perform getdata.

FORM GETDATA.

SELECT VBELN "SALES DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "SALES DOCUMENT DATE

KUNNR "SOLD TO PARTY

NETWR "NETWORTH

FROM VBAK

INTO TABLE ITVBAK

WHERE KUNNR IN SKUNNR.

IF SY-SUBRC EQ 0.

SORT ITVBAK BY KUNNR VBELN.

PERFORM DISPLAY.

ENDIF. "(here u need to check)

ENDFORM.

FORM DISPLAY.

LOOP AT ITVBAK INTO STVBAK.

WRITE:/1 STVBAK-VBELN,12 STVBAK-AUART,18 STVBAK-AUDAT,30 STVBAK-NETWR.

ENDLOOP.

ENDFORM.

rgds,

bharat.

Re: Error

former_member219399 — Tue, 17 Jul 2007 06:53:26 GMT

Hi,

Check this coding. all subroutine definition shud be at the end of the program.

with regards,

Vamsi

TYPES:

BEGIN OF TYVBAK,

VBELN TYPE VBAK-VBELN,

AUART TYPE VBAK-AUART,

AUDAT TYPE VBAK-AUDAT,

KUNNR TYPE VBAK-KUNNR,

NETWR TYPE VBAK-NETWR,

END OF TYVBAK.

D A T A D E C L A R A T I O N S

DATA:

STVBAK TYPE TYVBAK,

ITVBAK TYPE TABLE OF TYVBAK.

S E L E C T I O N S C R E E N

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:

SKUNNR FOR STVBAK-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

I N I T I A L I Z A T I O N

INITIALIZATION.

FILLING SELECT OPTIONS WITH DEFAULTS

SKUNNR-SIGN = 'I'.

SKUNNR-OPTION = 'BT'.

SKUNNR-LOW = '1'.

SKUNNR-HIGH = '4000000'.

APPEND SKUNNR.

S T A R T O F S E L E C T I O N

START-OF-SELECTION.

FORM GETDATA.

SELECT VBELN "SALES DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "SALES DOCUMENT DATE

KUNNR "SOLD TO PARTY

NETWR "NETWORTH

FROM VBAK

INTO TABLE ITVBAK

WHERE KUNNR IN SKUNNR.

IF SY-SUBRC EQ 0.

SORT ITVBAK BY KUNNR VBELN.

PERFORM DISPLAY.

ENDIF.

ENDFORM.

form display.

LOOP AT ITVBAK INTO STVBAK.

WRITE:/1 STVBAK-VBELN,12 STVBAK-AUART,18 STVBAK-AUDAT,30 STVBAK-NETWR.

ENDLOOP.

endform.