topic Error in Application Development and Automation Discussions

Error

Former Member — Wed, 09 Apr 2008 10:03:14 GMT

Hi,

This is my program.

I am not getting the output. Plz correct me.

TYPES:

BEGIN OF TY_VBAK,

VBELN TYPE VBAK-VBELN,

AUART TYPE VBAK-AUART,

AUDAT TYPE VBAK-AUDAT,

KUNNR TYPE VBAK-KUNNR,

NETWR TYPE VBAK-NETWR,

END OF TY_VBAK.

DATA DECLARATIONS.

DATA:

ST_VBAK TYPE TY_VBAK,

IT_VBAK TYPE TABLE OF TY_VBAK.

SELECTION SCREEN.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT001.

SELECT-OPTIONS:

SKUNNR FOR ST_VBAK-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

INITIALIZATION

INITIALIZATION.

FILLING SELECT OPTIONS WITH DEFAULTS.

SKUNNR-SIGN = 'I'.

SKUNNR-OPTION = 'BT'.

SKUNNR-LOW = '1'.

SKUNNR-HIGH = '400000'.

APPEND SKUNNR.

PERFORM GETDATA.

LOOP AT IT_VBAK INTO ST_VBAK.

IF SY-SUBRC EQ 0.

WRITE:/ ST_VBAK-VBELN, ST_VBAK-AUART, ST_VBAK-AUDAT,ST_VBAK-KUNNR,

ST_VBAK-NETWR.

ELSE.

WRITE:/ 'NO SALES ORDERS'.

ENDIF.

ENDLOOP.

FORM GETDATA.

SELECT VBELN "DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "DOCUMENT DATE

KUNNR "CUSTOMER NUMBER

NETWR "NETWORTH

FROM VBAK

INTO TABLE IT_VBAK

WHERE KUNNR IN SKUNNR.

ENDFORM.

Thanks.

Re: Error

Former Member — Wed, 09 Apr 2008 10:06:48 GMT

This is my program.

I am not getting the output. Plz correct me.

TYPES:

BEGIN OF TY_VBAK,

VBELN TYPE VBAK-VBELN,

AUART TYPE VBAK-AUART,

AUDAT TYPE VBAK-AUDAT,

KUNNR TYPE VBAK-KUNNR,

NETWR TYPE VBAK-NETWR,

END OF TY_VBAK.

DATA DECLARATIONS.

DATA:

ST_VBAK TYPE TY_VBAK,

IT_VBAK TYPE TABLE OF TY_VBAK.

SELECTION SCREEN.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT001.

SELECT-OPTIONS:

SKUNNR FOR ST_VBAK-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

INITIALIZATION

INITIALIZATION.

FILLING SELECT OPTIONS WITH DEFAULTS.

SKUNNR-SIGN = 'I'.

SKUNNR-OPTION = 'BT'.

SKUNNR-LOW = '1'.

SKUNNR-HIGH = '400000'.

APPEND SKUNNR.

START-OF-SELECTION.

PERFORM GETDATA.

LOOP AT IT_VBAK INTO ST_VBAK.

IF SY-SUBRC EQ 0.

WRITE:/ ST_VBAK-VBELN, ST_VBAK-AUART, ST_VBAK-AUDAT,ST_VBAK-KUNNR,

ST_VBAK-NETWR.

ELSE.

WRITE:/ 'NO SALES ORDERS'.

ENDIF.

ENDLOOP.

FORM GETDATA.

SELECT VBELN "DOCUMENT NUMBER

AUART "DOCUMENT TYPE

AUDAT "DOCUMENT DATE

KUNNR "CUSTOMER NUMBER

NETWR "NETWORTH

FROM VBAK

INTO TABLE IT_VBAK

WHERE KUNNR IN SKUNNR.

ENDFORM.

Regards

Sreeni

Re: Error

Former Member — Wed, 09 Apr 2008 10:10:03 GMT

Hi,

Use Statr-of-selection.

or folw this query

types:
begin of ty_vbak,
vbeln type vbak-vbeln,
auart type vbak-auart,
audat type vbak-audat,
kunnr type vbak-kunnr,
netwr type vbak-netwr,
end of ty_vbak.



*data declarations.
data:
st_vbak type ty_vbak,
it_vbak type table of ty_vbak.


*SELECTION SCREEN.
selection-screen begin of block b1 with frame title text001.
select-options:skunnr for st_vbak-kunnr.
selection-screen end of block b1.

*INITIALIZATION
initialization.

*FILLING SELECT OPTIONS WITH DEFAULTS.
  skunnr-sign = 'I'.
  skunnr-option = 'BT'.
  skunnr-low = '1'.
  skunnr-high = '400000'.
  append skunnr.

START-OF-SELECTION.
  perform getdata.

  loop at it_vbak into st_vbak.
    if sy-subrc eq 0.
      write:/ st_vbak-vbeln, st_vbak-auart, st_vbak-audat,st_vbak-kunnr,
      st_vbak-netwr.
    else.
      write:/ 'NO SALES ORDERS'.
    endif.
  endloop.

*&---------------------------------------------------------------------*
*&      Form  GETDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form getdata.
  select vbeln "DOCUMENT NUMBER
  auart "DOCUMENT TYPE
  audat "DOCUMENT DATE
  kunnr "CUSTOMER NUMBER
  netwr "NETWORTH
  from vbak
  into table it_vbak
  where kunnr in skunnr.

endform.                    "GETDATA

Regards,

Brown.

Re: Error

Former Member — Wed, 09 Apr 2008 10:18:28 GMT

Hi,

1.before calling the perform, just place the Start-of-selection.

Event.

Regards,

If helpful reward with points(Don't forget).