Code to create a new BO relationship in BO_REL table

import RB_BORM:BO:*;
import RB_CDM:ObjectCollection;

&oObjectCollection = create RB_CDM:ObjectCollection();
&oBO = &oObjectCollection.getBO(RD_CALLRPT_CONT.BO_ID_CONTACT);

/*Check to see if REL already exists*/
SQLExec("SELECT 'Yes' FROM PS_BO_REL WHERE BO_ID_1=:1 AND BO_ID_2=:2 AND ROLE_TYPE_ID_1=:3 AND ROLE_TYPE_ID_2=:4 AND END_DT>GETDATE()", RD_CALLRPT_CONT.BO_ID_CONTACT, RD_CALLRPT_CONT.BO_ID_CUST, 8, 2, &l_RelExists);

If &l_RelExists <> "Yes" Then
&dtEndDt = Date3(2999, 12, 31);
&nRelID = &oBO.addBORelationship(10, RD_CALLRPT_CONT.BO_ID_CONTACT, 8, RD_CALLRPT_CONT.BO_ID_CUST, 2, %Date, &dtEndDt);
&oBO.save();

End-If;