Skip to Content
0
Former Member
Jun 10, 2009 at 07:05 AM

Table is not getting updated

246 Views

Hi,

I have developed the code to create projects and to update the table ytest.

When I write the project name and click on create button, one more screen comes(like LSMW screen) where we have to give the description.

This is happening, but when the second screen comes(with project & description), whatever project name I have entered at the selection screen, does not appear in this second screen and also this is not updating the table ytest with project, description,owner and date of creation.

Folloowing is the code,can anyone tell whats wrong in this?

FORM CREATE_ENTRY .

DATA:L_OK,

L_CURSORFIELD(30).

IF SPROJ IS NOT INITIAL.

L_CURSORFIELD = 'PROJECT'.

ELSEIF SSPROJ IS NOT INITIAL.

L_CURSORFIELD = 'SUBPROJ'.

ELSEIF SOBJEC IS NOT INITIAL.

L_CURSORFIELD = 'OBJECT'.

ENDIF.

CASE L_CURSORFIELD.

WHEN 'PROJECT' .

PERFORM CREATE_PROJECT CHANGING YTEST-PROJECT

YTEST-TEXT

L_OK.

FORM CREATE_PROJECT CHANGING P_YTEST_PROJECT

P_YTEST_TEXT

P_L_OK.

DATA:LT_DYNPREAD LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

CLEAR P_YTEST_TEXT.

CALL FUNCTION '/SAPDMC/LSM_PROJECT_CREATE'

EXPORTING

WITH_DIALOG = C_YES

CHANGING

PROJECT = P_YTEST_PROJECT

PROJECTTXT = P_YTEST_TEXT

EXCEPTIONS

PROJECT_ALREADY_EXISTS = 1

INSERT_ERROR = 2

CANCELED_BY_USER = 3

OTHERS = 4.

IF SY-SUBRC = 0.

P_L_OK = C_YES.

ELSE.

P_L_OK = C_NO.

EXIT.

ENDIF.

CLEAR LT_DYNPREAD[].

LT_DYNPREAD-FIELDNAME = 'PROJECT'.

LT_DYNPREAD-FIELDVALUE = P_YTEST_PROJECT.

APPEND LT_DYNPREAD.

LT_DYNPREAD-FIELDNAME = 'DESCRIPTION'.

LT_DYNPREAD-FIELDVALUE = P_YTEST_TEXT.

APPEND LT_DYNPREAD.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

DYNAME = SY-REPID

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = LT_DYNPREAD

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

UNDEFIND_ERROR = 7

OTHERS = 8.