BAPI shortdump

47 Views

Hi,

please help me in creating project definiton with out short dump.

Iam writing my code here.

DATA : gv_bsart like ekko-bsart,

gv_lifnr like ekko-lifnr,

gv_objnr like proj-objnr.

DATA : gs_proj like proj.

FORM build_studio_proj_fields.

gv_objnr = 'PD00000093'.

SELECT SINGLE * FROM PROJ INTO gs_proj

WHERE objnR = gv_objnr.

IF sy-subrc <> 0.

WRITE:/ 'There is some error'.

ENDIF.

CLEAR: gs_proj-pspnr, gs_proj-objnr.

gs_proj-pspid = 'IMN.IMN-BRA.05038'.

gs_proj-post1 = 'Pal Test project IMN.IMN-BRA.05038'.

gs_proj-ernam = 'XARMUGP'.

gs_proj-erdat = '20051121'.

gs_proj-plsez = '20051121'.

gs_proj-postu = 'PROJECT DEFINITION IMN.IMN-BRA.05038'.

ENDFORM. " build_studio_proj_fields

CALL FUNCTION '2001_PROJECTDEF_CREATE'

EXPORTING

PROJECT_DEFINITION_STRU = gs_proj

IMPORTING

RETURN = gs_BAPIRETURN1

TABLES

E_MESSAGE_TABLE = gs_BAPI_METH_MESSAGE

.

When iam execting this program, iam getting short dump.

How can i solve this.

THanks,

Veeru