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.

sname,<br />

mark1,<br />

mark2.<br />

CATCH CX_OS_OBJECT_NOT_FOUND .<br />

* CATCH CX_OS_CLASS_NOT_FOUND .<br />

MESSAGE '<strong>Object</strong> doesn''t exists' TYPE 'I' DISPLAY LIKE 'E'.<br />

ENDTRY.<br />

elseif r2 eq 'X'.<br />

TRY.<br />

CALL METHOD AGENT->CREATE_PERSISTENT<br />

EXPORTING<br />

I_MARK1 = mark1<br />

I_MARK2 = mark2<br />

I_SNAME = sname<br />

I_SNO = sno<br />

RECEIVING<br />

RESULT = students.<br />

commit work.<br />

write '<strong>Object</strong> Created'.<br />

CATCH CX_OS_OBJECT_EXISTING .<br />

MESSAGE '<strong>Object</strong> already exists' TYPE 'I' DISPLAY LIKE 'E'.<br />

ENDTRY.<br />

else.<br />

TRY.<br />

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

EXPORTING<br />

I_OID = guid<br />

RECEIVING<br />

RESULT = result1.<br />

CATCH CX_OS_OBJECT_NOT_FOUND .<br />

* CATCH CX_OS_CLASS_NOT_FOUND .<br />

MESSAGE '<strong>Object</strong> doesn''t exists' TYPE 'I' DISPLAY LIKE 'E'.<br />

ENDTRY.<br />

result2 ?= result1.<br />

TRY.<br />

CALL METHOD AGENT->IF_OS_FACTORY~DELETE_PERSISTENT<br />

EXPORTING<br />

I_OBJECT = result2.<br />

commit work.<br />

write '<strong>Object</strong> Deleted'.<br />

CATCH CX_OS_OBJECT_NOT_EXISTING .<br />

MESSAGE '<strong>Object</strong> doesn''t exists' TYPE 'I' DISPLAY LIKE 'E'.<br />

ENDTRY.<br />

endif.

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

Saved successfully!

Ooh no, something went wrong!