21.03.2013 Views

Object Oriented ABAP

Object Oriented ABAP

Object Oriented ABAP

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Source Code excerpt:<br />

DATA: AGENT TYPE REF TO ZCA_PERSIST_03,<br />

STUDENT TYPE REF TO ZCL_PERSIST_03,<br />

REF1 TYPE REF TO OBJECT.<br />

DATA: SNO LIKE ZSTUDENT04-SNO VALUE '1000',<br />

SNAME LIKE ZSTUDENT04-SNAME VALUE 'HAKIM',<br />

MARK1 LIKE ZSTUDENT04-MARK1 VALUE '100',<br />

MARK2 LIKE ZSTUDENT04-MARK2 VALUE '100'.<br />

AGENT = ZCA_PERSIST_03=>AGENT.<br />

TRY.<br />

CALL METHOD AGENT->CREATE_PERSISTENT<br />

EXPORTING<br />

* I_INST_GUID =<br />

I_MARK1 = MARK1<br />

I_MARK2 = MARK2<br />

I_SNAME = SNAME<br />

I_SNO = SNO<br />

* RECEIVING<br />

* RESULT =<br />

.<br />

COMMIT WORK.<br />

CATCH CX_OS_OBJECT_EXISTING .<br />

ENDTRY.<br />

Go to SE16 and check the entries.<br />

Store the Persistent <strong>Object</strong> Reference in the database.<br />

Source Code excerpt.<br />

TRY.<br />

CALL METHOD AGENT->IF_OS_CA_PERSISTENCY~GET_PERSISTENT_BY_OID<br />

EXPORTING

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!