topic Re: Short dump in Application Development and Automation Discussions

Short dump

Former Member — Fri, 15 May 2009 12:23:53 GMT

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

Re: Short dump

Former Member — Fri, 15 May 2009 12:28:46 GMT

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.

Re: Short dump

GauthamV — Fri, 15 May 2009 12:29:22 GMT

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.

Re: Short dump

Former Member — Fri, 15 May 2009 12:34:40 GMT

Change This to bold.

DATA :

W_CARRNAME TYPE TY_SCARR-CARRNAME,

W_URL TYPE TY_SCARR-URL.

Re: Short dump

Former Member — Fri, 15 May 2009 12:38:55 GMT

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

Re: Short dump

Former Member — Fri, 15 May 2009 12:45:45 GMT

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

Re: Short dump

Former Member — Fri, 15 May 2009 12:51:48 GMT

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.