Below is the example program on INSERT, UPDATE, DELETE examples using lock objects.
REPORT ZSAN_LOCKOBJECT. DATA : IT_STUDENT TYPE TABLE OF ZSTUDENT, WA_STUDENT TYPE ZSTUDENT. WA_STUDENT-STUDENTID = '10'. WA_STUDENT-NAME = 'SAPNuts'. WA_STUDENT-LASTNAME = 'SAPNuts'. WA_STUDENT-FATHER = 'SAP'. WA_STUDENT-DOB = '25/09/2013'. WA_STUDENT-GENDER = 'Male'. WA_STUDENT-COURSE = 'SAP ABAP'. WA_STUDENT-EMAIL = 'admin@sapnuts.com'. WA_STUDENT-FEE = '0000'. CALL FUNCTION 'ENQUEUE_EZSTUDENT' "add lock EXPORTING MODE_ZSTUDENT = 'E' MANDT = SY-MANDT STUDENTID = WA_STUDENT-STUDENTID. IF SY-SUBRC = 0. INSERT ZSTUDENT FROM WA_STUDENT. "insert record IF SY-SUBRC = 0. WRITE:/ 'Record inserted'. ENDIF. UPDATE ZSTUDENT FROM WA_STUDENT. "update record IF SY-SUBRC = 0. WRITE:/ 'Record updated'. ENDIF. DELETE ZSTUDENT FROM WA_STUDENT. "delete record IF SY-SUBRC = 0. WRITE:/ 'Record deleted'. ENDIF. ENDIF. CALL FUNCTION 'DEQUEUE_EZSTUDENT' "release lock EXPORTING MODE_ZSTUDENT = 'E' MANDT = SY-MANDT STUDENTID = WA_STUDENT-STUDENTID.
Learner Questions
No Questions by learners, be first one to ask ..!!
Was this lesson helpful to you? Yes No 25 People out of 26 think this lesson helpful