Short dump

[Former Member]

Hi friends

iam executing a simple program but iam not able to execute it

its giving me short dump can any one correct it

Error in the module RSQL accessing the database interface.

code :

TYPES :

BEGIN OF TY_SCARR,

CARRNAME TYPE SCARR-CARRNAME,

URL TYPE SCARR-URL,

END OF TY_SCARR.

DATA :

W_CARRNAME TYPE TY_SCARR,

W_URL TYPE TY_SCARR.

PARAMETERS : P_CARRID TYPE SCARR-CARRID.

START-OF-SELECTION.

select SINGLE CARRNAME

URL

into (W_CARRNAME,W_URL)

from SCARR

where CARRID = P_CARRID.

IF SY-SUBRC = 0.

WRITE : /1 'CARRID', 20 P_CARRID,

/1 'NAME' , 20 W_CARRNAME,

/1 'URL' , 20 W_URL.

ELSE.

WRITE : / 'RECORD NOT FOUMD'.

Regards

Priyanka

[Former Member]

Make the Changes as you can see in Bold Text in your code. This will solve your problem

TYPES :

BEGIN OF TY_SCARR,

CARRNAME TYPE SCARR-CARRNAME,

URL TYPE SCARR-URL,

END OF TY_SCARR.

*Changes are here

DATA :

W_CARRNAME TYPE SCARR-CARRNAME,

W_URL TYPE SCARR-URL.

PARAMETERS : P_CARRID TYPE SCARR-CARRID.

START-OF-SELECTION.

select SINGLE CARRNAME

URL

into (W_CARRNAME,W_URL)

from SCARR

where CARRID = P_CARRID.

IF SY-SUBRC = 0.

WRITE : /1 'CARRID', 20 P_CARRID,

/1 'NAME' , 20 W_CARRNAME,

/1 'URL' , 20 W_URL.

ELSE.

WRITE : / 'RECORD NOT FOUMD'.

endif.

[GauthamV]

This will solve your problem.

TYPES :
BEGIN OF TY_SCARR,
CARRNAME TYPE SCARR-CARRNAME,
URL TYPE SCARR-URL,
END OF TY_SCARR.

DATA :
W_CARRNAME TYPE SCARR-CARRNAME,  --------> change here
W_URL TYPE SCARR-URL.

PARAMETERS : P_CARRID TYPE SCARR-CARRID.

START-OF-SELECTION.

select SINGLE CARRNAME
URL
into (W_CARRNAME,W_URL)
from SCARR
where CARRID = P_CARRID.

IF SY-SUBRC = 0.
WRITE : /1 'CARRID', 20 P_CARRID,
/1 'NAME' , 20 W_CARRNAME,
/1 'URL' , 20 W_URL.
ELSE.
WRITE : / 'RECORD NOT FOUND'.
endif.

[Former Member]

actually can u please check this code and correct it

SELECT SINGLE werks

fabkl

zopendate

zclosedate

zfieldnum

zfielddes

zhecter

zirrgatype

zirrgapdia

zsoilform

zsoilsys

zparentme

zsoildepth

zsoildes

zclaycon

zvariety1

zhecter1

zvariety2

zhecter2

zvariety3

zhecter3

INTO ( zgrowers_detail-werks , t001w-fabkl ,

zgrowers_detail-zopendate,

zgrowers_detail-zclosedate,

zgrowers_detail-zfieldnum,

zgrowers_detail-zfielddes,

zgrowers_detail-zhecter,

zgrowers_detail-zirrgapdia,

zgrowers_detail-zirrgatype,

zgrowers_detail-zsoilform,

zgrowers_detail-zsoilsys,

zgrowers_detail-zparentme,

zgrowers_detail-zsoildepth,

zgrowers_detail-zsoildes,

zgrowers_detail-zclaycon,

zgrowers_detail-zvariety,

zgrowers_detail-zhecter1,

zgrowers_detail-zvariety,

zgrowers_detail-zhecter2,

zgrowers_detail-zvariety3,

zgrowers_detail-zhecter3 )

FROM zgrowers_detail

WHERE lifnr = rf02k-lifnr.

where zgrowers_detail* are my screen fields

regards

priyanka

[Former Member]

Correction in Bold Text.

SELECT SINGLE werks

fabkl

zopendate

zclosedate

zfieldnum

zfielddes

zhecter

zirrgatype

zirrgapdia

zsoilform

zsoilsys

zparentme

zsoildepth

zsoildes

zclaycon

zvariety1

zhecter1

zvariety2

zhecter2

zvariety3

zhecter3

INTO ( zgrowers_detail-werks ,

zgrowers_detail-fabkl,

zgrowers_detail-zopendate,

zgrowers_detail-zclosedate,

zgrowers_detail-zfieldnum,

zgrowers_detail-zfielddes,

zgrowers_detail-zhecter,

zgrowers_detail-zirrgapdia,

zgrowers_detail-zirrgatype,

zgrowers_detail-zsoilform,

zgrowers_detail-zsoilsys,

zgrowers_detail-zparentme,

zgrowers_detail-zsoildepth,

zgrowers_detail-zsoildes,

zgrowers_detail-zclaycon,

zgrowers_detail-zvariety,

zgrowers_detail-zhecter1,

zgrowers_detail-zvariety,

zgrowers_detail-zhecter2,

zgrowers_detail-zvariety3,

zgrowers_detail-zhecter3 )

FROM zgrowers_detail

WHERE lifnr = rf02k-lifnr.

[Former Member]

Change This to bold.

DATA :

W_CARRNAME TYPE TY_SCARR-CARRNAME,

W_URL TYPE TY_SCARR-URL.

[Former Member]

Hi,

Changes are in bold.

TYPES :

BEGIN OF TY_SCARR,

CARRNAME TYPE SCARR-CARRNAME,

URL TYPE SCARR-URL,

END OF TY_SCARR.

DATA : WA_SCARR TYPE TY_SCARR.

PARAMETERS : P_CARRID TYPE SCARR-CARRID.

START-OF-SELECTION.

select SINGLE CARRNAME

URL

into WA_SCARR

from SCARR

where CARRID = P_CARRID.

IF SY-SUBRC = 0.

WRITE : /1 'CARRID', 20 P_CARRID,

/1 'NAME' , 20 WA_SCARR-CARRNAME,

/1 'URL' , 20 WA_SCARR-URL.

ELSE.

WRITE : / 'RECORD NOT FOUMD'.

Regards,

Nikhil