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.