Hi,
My table control is saving data in the database,
But i want it to display and update data in the database,
I am pasting my code which basically saves data,
Please help me out in updating & displaying data using this table cotnrol.
*************
In PBO
MODULE ETABDM_TABCON OUTPUT.
LOOPS = SY-LOOPC.
READ TABLE IT_ZETABDM INDEX TABCON-CURRENT_LINE.
IF SY-SUBRC = 0.
ZETABDM-BDM = IT_ZETABDM-BDM.
ZETABDM-CNAME = IT_ZETABDM-CNAME.
ZETABDM-CITY = IT_ZETABDM-CITY.
ZETABDM-ETANO = IT_ZETABDM-ETANO.
ZETABDM-ISSUE_DATE = IT_ZETABDM-ISSUE_DATE.
ZETABDM-APPROVED_DATE = IT_ZETABDM-APPROVED_DATE.
ENDIF.
ENDMODULE.
********************************************************
In PAI
ODULE USER_COMMAND_9003 INPUT.
CASE OK_CODE.
WHEN 'SAVE'.
IF ZETABDM-BDM IS INITIAL.
MESSAGE E000(38) WITH 'Enter BDM'.
ELSE.
SELECT SINGLE * FROM PA0000
WHERE PERNR = ZETABDM-BDM
AND BEGDA LE SY-DATUM
AND ENDDA GE SY-DATUM
AND STAT2 EQ 3.
IF SY-SUBRC NE 0.
MESSAGE E000(38) WITH ZETABDM-BDM 'Enter Active Employee'.
ENDIF.
ENDIF.
LOOP AT IT_ZETABDM.
IT_ZETABDM-BDM = ZETABDM-BDM.
MODIFY IT_ZETABDM.
ENDLOOP.
MODIFY ZETABDM FROM TABLE IT_ZETABDM.
COMMIT WORK AND WAIT.
IF SY-SUBRC = 0.
MESSAGE S000(38) WITH 'Records updated sucessfully.'
ENDIF.
****************************************
Thanks in advance
Irfan Hussain