Peoplesoft Component interface HOWTO

 

Here is a tutorial explaining how you can create a function containing one Component INterface, and make use of it from any peolplecode.

Following example takes the PO Receipt Component to make automatic receipts from a barcode screen.

1- Create a new Component Interface with Application designer

In application Designer, Select File->New->Component Interface

Select The Component you want to access to

Answer YES to following question

Now your componet has been created, you can just save IT

2- Write Peoplecode for you CI

2.1- Drag and drop the Component Interface to the Peoplecode text window. Il will create a template to adapt:

Local File &fileLog;
Local ApiObject &oSession, &oMYCINAMEPoRecv;
 
Function errorHandler()
        Local ApiObject &oPSMessageCollection, &oPSMessage;
        Local number &i;
        Local String &sErrMsgSetNum, &sErrMsgNum, &sErrMsgText, &sErrType;
 
        &oPSMessageCollection = &oSession.PSMessages;
        For &i = 1To &oPSMessageCollection.Count
                &oPSMessage = &oPSMessageCollection.Item(&i);
                &sErrMsgSetNum = &oPSMessage.MessageSetNumber;
                &sErrMsgNum = &oPSMessage.MessageNumber;
                &sErrMsgText = &oPSMessage.Text;
                &fileLog.WriteLine(&sErrType |" (" | &sErrMsgSetNum | "," | &sErrMsgNum | ") - " | &sErrMsgText);
        End-For;
        rem ***** Delete the Messages from the collection *****;
        &oPSMessageCollection.DeleteAll();
End-Function;
 
try
        rem ***** Set the Log File *****;
        &fileLog = GetFile("C:\temp\MY_CI_NAME.log","w", "a", %FilePath_Absolute);
        &fileLog.WriteLine("Begin");
        rem ***** Get current PeopleSoft Session *****;
        &oSession = %Session;
 
        rem ***** Set the PeopleSoft Session Error Message Mode *****;
        rem ***** 0 - None *****;
        rem ***** 1 - PSMessage Collection only (default) *****;
        rem ***** 2 - Message Box only *****;
        rem ***** 3 - Both collection and message box *****;
        &oSession.PSMessagesMode = 1;
 
        rem ***** Get the Component Interface *****;
        &oMYCINAMEPoRecv = &oSession.GetCompIntfc(CompIntfc.MY_CI_NAME_RECV);
        If &oMYCINAMEPoRecv = Null Then
                errorHandler();
        throw CreateException(0,0, "GetCompIntfc failed");
        End-If;
 
        rem ***** Set the Component Interface Mode *****;
        &oMYCINAMEPoRecv.InteractiveMode = False;
        &oMYCINAMEPoRecv.GetHistoryItems = True;
        &oMYCINAMEPoRecv.EditHistoryItems = False;
 
        rem ***** Set Component Interface Get/Create Keys *****;
 
        rem ***** Execute Get *****;
        If Not &oMYCINAMEPoRecv.Get()Then
                rem ***** No rows exist for the specified keys.*****;
                errorHandler();
                throw CreateException(0,0, "Get failed");
        End-If;
 
        rem ***** Begin: Get/Set Component Interface Properties *****;
        rem ***** Get/Set Level 0 Field Properties *****;
        &fileLog.WriteLine("&oMYCINAMEPoRecv.INV_LOT_ID = " | &oMYCINAMEPoRecv.INV_LOT_ID);
        rem &oMYCINAMEPoRecv.INV_LOT_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.INV_ITEM_ID = " | &oMYCINAMEPoRecv.INV_ITEM_ID);
        rem &oMYCINAMEPoRecv.INV_ITEM_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.SERIAL_ID = " | &oMYCINAMEPoRecv.SERIAL_ID);
        rem &oMYCINAMEPoRecv.SERIAL_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.STORAGE_AREA = " | &oMYCINAMEPoRecv.STORAGE_AREA);
        rem &oMYCINAMEPoRecv.STORAGE_AREA =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.STOR_LEVEL_1 = " | &oMYCINAMEPoRecv.STOR_LEVEL_1);
        rem &oMYCINAMEPoRecv.STOR_LEVEL_1 =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.STOR_LEVEL_2 = " | &oMYCINAMEPoRecv.STOR_LEVEL_2);
        rem &oMYCINAMEPoRecv.STOR_LEVEL_2 =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.STOR_LEVEL_3 = " | &oMYCINAMEPoRecv.STOR_LEVEL_3);
        rem &oMYCINAMEPoRecv.STOR_LEVEL_3 =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.STOR_LEVEL_4 = " | &oMYCINAMEPoRecv.STOR_LEVEL_4);
        rem &oMYCINAMEPoRecv.STOR_LEVEL_4 =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.CONTAINER_ID = " | &oMYCINAMEPoRecv.CONTAINER_ID);
        rem &oMYCINAMEPoRecv.CONTAINER_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.UNIT_OF_MEASURE = " | &oMYCINAMEPoRecv.UNIT_OF_MEASURE);
        rem &oMYCINAMEPoRecv.UNIT_OF_MEASURE =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.RECEIVER_ID = " | &oMYCINAMEPoRecv.RECEIVER_ID);
        rem &oMYCINAMEPoRecv.RECEIVER_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.QTY = " | &oMYCINAMEPoRecv.QTY);
        rem &oMYCINAMEPoRecv.QTY =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.SCHED_NBR = " | &oMYCINAMEPoRecv.SCHED_NBR);
        rem &oMYCINAMEPoRecv.SCHED_NBR =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.SETID = " | &oMYCINAMEPoRecv.SETID);
        rem &oMYCINAMEPoRecv.SETID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.SHIPTO_ID = " | &oMYCINAMEPoRecv.SHIPTO_ID);
        rem &oMYCINAMEPoRecv.SHIPTO_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.VENDOR_ID = " | &oMYCINAMEPoRecv.VENDOR_ID);
        rem &oMYCINAMEPoRecv.VENDOR_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.SHIPMENT_NO = " | &oMYCINAMEPoRecv.SHIPMENT_NO);
        rem &oMYCINAMEPoRecv.SHIPMENT_NO =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.CARRIER_ID = " | &oMYCINAMEPoRecv.CARRIER_ID);
        rem &oMYCINAMEPoRecv.CARRIER_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.BILL_OF_LADING = " | &oMYCINAMEPoRecv.BILL_OF_LADING);
        rem &oMYCINAMEPoRecv.BILL_OF_LADING =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.BUSINESS_UNIT_PO = " | &oMYCINAMEPoRecv.BUSINESS_UNIT_PO);
        rem &oMYCINAMEPoRecv.BUSINESS_UNIT_PO =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.PO_ID = " | &oMYCINAMEPoRecv.PO_ID);
        rem &oMYCINAMEPoRecv.PO_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.LINE_NBR = " | &oMYCINAMEPoRecv.LINE_NBR);
        rem &oMYCINAMEPoRecv.LINE_NBR =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.BUSINESS_UNIT_IN = " | &oMYCINAMEPoRecv.BUSINESS_UNIT_IN);
        rem &oMYCINAMEPoRecv.BUSINESS_UNIT_IN =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.VENDOR_LOT_ID = " | &oMYCINAMEPoRecv.VENDOR_LOT_ID);
        rem &oMYCINAMEPoRecv.VENDOR_LOT_ID =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.TAG_NUMBER = " | &oMYCINAMEPoRecv.TAG_NUMBER);
        rem &oMYCINAMEPoRecv.TAG_NUMBER =[*];
        &fileLog.WriteLine("&oMYCINAMEPoRecv.TRANSACTION_CODE = " | &oMYCINAMEPoRecv.TRANSACTION_CODE);
        rem &oMYCINAMEPoRecv.TRANSACTION_CODE =[*];
        rem ***** End: Get/Set Component Interface Properties *****;
 
        rem ***** Execute Save *****;
        rem IfNot &oMYCINAMEPoRecv.Save()Then;
        rem     errorHandler();
        rem     throw CreateException(0,0, "Save failed");
        rem End-If;
 
        rem ***** Execute Cancel *****;
        rem IfNot &oMYCINAMEPoRecv.Cancel()Then;
        rem     errorHandler();
        rem     throw CreateException(0,0, "Cancel failed");
        rem End-If;
 
catch exception &ex
        rem Handle the exception;
        &fileLog.WriteLine(&ex.ToString());
end-try;
&fileLog.WriteLine("End");
&fileLog.Close();

2.2- Make changes so that you can include the CI code in a single function

This way, your CI will be easyer to use from any application, with a single function call.

Change the errorHandler function to get File & Session as a parameter:

Function errorHandler(&fileLogAs File, &oSession As ApiObject)
   Local ApiObject &oPSMessageCollection, &oPSMessage;
   Local number &i;
   Local string &sErrMsgSetNum, &sErrMsgNum, &sErrMsgText, &sErrType;
   
   &oPSMessageCollection = &oSession.PSMessages;
   For &i = 1To &oPSMessageCollection.Count
      &oPSMessage = &oPSMessageCollection.Item(&i);
      &sErrMsgSetNum = &oPSMessage.MessageSetNumber;
      &sErrMsgNum = &oPSMessage.MessageNumber;
      &sErrMsgText = &oPSMessage.Text;
      &fileLog.WriteLine(&sErrType |" (" | &sErrMsgSetNum | "," | &sErrMsgNum | ") - " | &sErrMsgText);
   End-For;
   rem ***** Delete the Messages from the collection *****;
   &oPSMessageCollection.DeleteAll();
End-Function;

Create Functions containing Your CI operations, so that it will be easier to integrate in any peoplecode program.

// Function returns a rowset from MY_BCODE_TBL correspondingto &barcode parameter
Function getBarcodeRecord(&barcodeAs string) Returns Record
   Local Rowset &RwsBarcode;
   Local Record &REcBarcode;
   
   &RwsBarcode = CreateRowset(Record.MY_BCODE_TBL);
   &RwsBarcode.Fill("WHERE RECV_CARD_ID = :1", &barcode);
   
   &REcBarcode = CreateRecord(Record.MY_BCODE_TBL);
   &REcBarcode = &RwsBarcode(1).GetRecord(1);
   
   Return &REcBarcode;
End-Function;

// This Function is scheduling a job
Function RunJobRecv(&barcodeAs string) Returnsboolean
   Local boolean &success = False;
   Local ProcessRequest &prcsrqst;
   Local JavaObject &Obj;
   Local Record &RecRECVLOAD;
   Local Record &RecRECVPUSH;
   Local Record &RecINPSSTGE;
   
   // Select data using barcode ID - start;
   Local Record &REcBarcode;
   &REcBarcode = getBarcodeRecord(&barcode);
   // Select data using barcode ID - end;
   
   &jobname = "MYRECVJOB";
   
   // Create Data In Needed Run Control Parameters;
   // 01 - RECVLOAD;
   &RecRECVLOAD = CreateRecord(Record.RUN_CNTL_RECVLD);
   &RecRECVLOAD.OPRID.Value = %UserId;
   &RecRECVLOAD.RUN_CNTL_ID.Value = &jobname;
   &RecRECVLOAD.RECVLOAD_OPT.Value ="2";
   &RecRECVLOAD.BUSINESS_UNIT.Value = &REcBarcode.BUSINESS_UNIT_IN.Value;
   &RecRECVLOAD.WHERE_CLAUSE.Value ="BUSINESS_UNIT = '" | &RecRECVLOAD.BUSINESS_UNIT.Value |"'";
   If Not &RecRECVLOAD.Insert()Then
      &RecRECVLOAD.Update();
   End-If;
   
   // 02 - RUN_PO_RECEIPT;
   &RecRECVPUSH = CreateRecord(Record.RECV_RUN_CNTL);
   &RecRECVPUSH.OPRID.Value = %UserId;
   &RecRECVPUSH.RUN_CNTL_ID.Value = &jobname;
   &RecRECVPUSH.RECEIVER_ID.Value ="";
   &RecRECVPUSH.BUSINESS_UNIT.Value = &REcBarcode.BUSINESS_UNIT_IN.Value;
   If Not &RecRECVPUSH.Insert()Then
      &RecRECVPUSH.Update();
   End-If;
   
   REM Schedule the Job;
   &prcsrqst = CreateProcessRequest("PSJob", &jobname);
   &prcsrqst.RunControlID = &jobname;
   &prcsrqst.JobName = &jobname;
   &prcsrqst.Schedule();
   
   If &prcsrqst.Status =0 Then
      /* Schedule succeeded. */
      &success = True;
   Else
      /* Process (job)not scheduled, doerror processing */
      &success = False;
   End-If;
   /*
   &Obj = CreateJavaObject("java.lang.Thread");
   &Obj.start();
   
   &RunStatus = "0";
   While &RunStatus <> "9" And
         &RunStatus <> "3" And
         &RunStatus <> "1" And
         &RunStatus <> "10"
      REM Directly use the Java sleep() Methodfor 5 seconds;
      &Obj.sleep(5000);
      SQLExec("SELECT RUNSTATUS FROM PSPRCSRQST WHERE PRCSINSTANCE = :1", &prcsrqst.ProcessInstance, &RunStatus);
      REM MessageBox(0,"", 0, 0, "Sleep(), Runstatus = %1", &RunStatus);
   End-While;
   &Obj.stop();
   
   rem WriteLog("Process MYRECVJOB is Finished");
   
   If &prcsrqst.Status =10  Or
         &prcsrqst.Status = 3  Then
      REM Process your errors;
      &success = False;
   Else
      REM Process your success;
      &success = True;
   End-If;
   */
   Return &success;
End-Function;

// Adds data to a log table
Function LogBarcode(&barcodeAs string, &qtyAs number, &transaction_code As string) Returnsboolean
   Local Record &RecLog;
   &RecLog = CreateRecord(Record.PH_RECV_BCD_LOG);
   &RecLog.RECV_CARD_ID.Value = &barcode;
   &RecLog.QTY.Value = &qty;
   &RecLog.TRANSACTION_CODE.Value = &transaction_code;
   &RecLog.DT_TIMESTAMP.Value = %Datetime;
   &RecLog.OPRID.Value = %UserId;
   
   Return &RecLog.Insert();
End-Function;

// ErrorHandler Function
Function errorHandler(&fileLogAs File, &oSession As ApiObject)
   Local ApiObject &oPSMessageCollection, &oPSMessage;
   Local number &i;
   Local string &sErrMsgSetNum, &sErrMsgNum, &sErrMsgText, &sErrType;
   
   &oPSMessageCollection = &oSession.PSMessages;
   For &i = 1To &oPSMessageCollection.Count
      &oPSMessage = &oPSMessageCollection.Item(&i);
      &sErrMsgSetNum = &oPSMessage.MessageSetNumber;
      &sErrMsgNum = &oPSMessage.MessageNumber;
      &sErrMsgText = &oPSMessage.Text;
      &fileLog.WriteLine(&sErrType |" (" | &sErrMsgSetNum | "," | &sErrMsgNum | ") - " | &sErrMsgText);
   End-For;
   rem ***** Delete the Messages from the collection *****;
   &oPSMessageCollection.DeleteAll();
End-Function;

/* Jean-Baptiste HEREN
   This function Gets Barcode and Qty from the barcode entry screen- Transaction 103;
 - Then it Uses a Component Interface to simulate the manual entry on;
   The Data Exchange > Create Transactions > Receiving > Purchasing Receiving;*/
Function WriteReceipt(&barcodeAs string, &qtyAs number) Returnsboolean
   
   Local File &fileLog;
   Local ApiObject &oSession, &oMYCINAMEPoRecv;
   // Jean-Baptiste HEREN - Select data using barcode ID - start;
   Local Record &REcBarcode;
   &REcBarcode = getBarcodeRecord(&barcode);
   // Jean-Baptiste HEREN - Select data using barcode ID - end;
   
   try
      rem ***** Set theLog File *****;
      If %UserId = "jean-baptiste.heren" Then
         &fileLog = GetFile("\\MyMachine\temp\CI\MY_CI_NAME_RECV_WriteReceipt.log","w", "a", %FilePath_Absolute);
      Else
         &fileLog = GetFile("MY_CI_NAME_RECV.log","w", "a", %FilePath_Relative);
      End-If;
      &fileLog.WriteLine("Begin");
      rem ***** Get current PeopleSoft Session *****;
      &oSession = %Session;
     
      rem ***** Set the PeopleSoft SessionError Message Mode *****;
      rem ***** 0 - None *****;
      rem ***** 1 - PSMessage Collection only(default) *****;
      rem ***** 2 - Message Box only *****;
      rem ***** 3 - Both collectionand message box *****;
      &oSession.PSMessagesMode = 1;
     
      rem ***** Get the Component Interface *****;
      &oMYCINAMEPoRecv = &oSession.GetCompIntfc(CompIntfc.MY_CI_NAME_RECV);
      If &oMYCINAMEPoRecv = Null Then
         errorHandler(&fileLog, &oSession);
         throw CreateException(0,0, "GetCompIntfc failed");
      End-If;
     
      rem ***** Set the Component Interface Mode *****;
      &oMYCINAMEPoRecv.InteractiveMode = True;
      &oMYCINAMEPoRecv.GetHistoryItems = True;
      &oMYCINAMEPoRecv.EditHistoryItems = False;
     
      rem ***** Set Component InterfaceGet/Create Keys *****;
     
      rem ***** Execute Get *****;
      If Not &oMYCINAMEPoRecv.Get()Then
         rem ***** No rows exist for the specified keys.*****;
         errorHandler(&fileLog, &oSession);
         throw CreateException(0,0, "Get failed");
      End-If;
     
     
      rem ***** Begin: Get/Set Component Interface Properties *****;
      rem ***** Get/Set Level0 Field Properties *****;
     
      // Jean-Baptiste HEREN - Write the session relatedto creation of a new receptionline;
      &transaction_code = "0103";
      &oMYCINAMEPoRecv.TRANSACTION_CODE = &transaction_code;
      // Jean-Baptiste HEREN - Fill with the barcode ID data;
      &oMYCINAMEPoRecv.SETID = &REcBarcode.SETID.Value;
      &oMYCINAMEPoRecv.SHIPTO_ID = &REcBarcode.SHIPTO_ID.Value;
      &oMYCINAMEPoRecv.VENDOR_ID = &REcBarcode.VENDOR_ID.Value;
      &oMYCINAMEPoRecv.BUSINESS_UNIT_IN = &REcBarcode.BUSINESS_UNIT_IN.Value;
      &oMYCINAMEPoRecv.CARRIER_ID = &REcBarcode.CARRIER_ID.Value;
      &oMYCINAMEPoRecv.BILL_OF_LADING = &REcBarcode.BILL_OF_LADING.Value;
      &oMYCINAMEPoRecv.BUSINESS_UNIT_PO = &REcBarcode.BUSINESS_UNIT_PO.Value;
      &oMYCINAMEPoRecv.PO_ID = &REcBarcode.PO_ID.Value;
      &oMYCINAMEPoRecv.LINE_NBR = &REcBarcode.LINE_NBR.Value;
      &oMYCINAMEPoRecv.UNIT_OF_MEASURE = &REcBarcode.UNIT_OF_MEASURE.Value;
      REM Still use Quantyty from Barcode screen;
      &oMYCINAMEPoRecv.QTY = &qty;
      rem ***** End:Get/Set Component Interface Properties *****;
     
      rem ***** Execute Save *****;
      If Not &oMYCINAMEPoRecv.Save()Then;
         errorHandler(&fileLog, &oSession);
         &success = False;
         throw CreateException(0,0, "Save failed");
      Else
         &success = True;
         If Not LogBarcode(&barcode, &qty, &transaction_code)Then
            &fileLog.WriteLine("LogBarcode Failed");
         End-If;
      End-If;
     
      rem ***** Execute Cancel *****;
      rem IfNot &oMYCINAMEPoRecv.Cancel()Then;
      rem       errorHandler(&fileLog, &oSession);
      rem       throw CreateException(0,0, "Cancel failed");
      rem End-If;
     
   catch Exception &ex
      rem Handle the exception;
      &fileLog.WriteLine(&ex.ToString());
   end-try;
   &fileLog.WriteLine("End");
   &fileLog.Close();
   Return &success;
End-Function;

/* Jean-Baptiste HEREN
   This function Closes the Receipt session - Transaction105;
   - It Uses a Component Interface to simulate the manual entryon;
     The Data Exchange > Create Transactions > Receiving > Purchasing Receiving;*/
Function CloseReceipt(&barcode) Returnsboolean
   Local File &fileLog;
   Local ApiObject &oSession, &oMYCINAMEPoRecv;
   // Jean-Baptiste HEREN - Select data using barcode ID - start;
   Local Record &REcBarcode;
   &REcBarcode = getBarcodeRecord(&barcode);
   // Jean-Baptiste HEREN - Select data using barcode ID - end;
   
   try
      rem ***** Set theLog File *****;
      If %UserId = "jean-baptiste.heren" Then
         &fileLog = GetFile("\\MyMachine\temp\CI\MY_CI_NAME_RECV_CloseReceipt.log","w", "a", %FilePath_Absolute);
      Else
         &fileLog = GetFile("MY_CI_NAME_RECV.log","w", "a", %FilePath_Relative);
      End-If;
      &fileLog.WriteLine("Begin");
      rem ***** Get current PeopleSoft Session *****;
      &oSession = %Session;
     
      rem ***** Set the PeopleSoft SessionError Message Mode *****;
      rem ***** 0 - None *****;
      rem ***** 1 - PSMessage Collection only(default) *****;
      rem ***** 2 - Message Box only *****;
      rem ***** 3 - Both collectionand message box *****;
      &oSession.PSMessagesMode = 1;
     
      rem ***** Get the Component Interface *****;
      &oMYCINAMEPoRecv = &oSession.GetCompIntfc(CompIntfc.MY_CI_NAME_RECV);
      If &oMYCINAMEPoRecv = Null Then
         errorHandler(&fileLog, &oSession);
         throw CreateException(0,0, "GetCompIntfc failed");
      End-If;
     
      rem ***** Set the Component Interface Mode *****;
      &oMYCINAMEPoRecv.InteractiveMode = True;
      &oMYCINAMEPoRecv.GetHistoryItems = True;
      &oMYCINAMEPoRecv.EditHistoryItems = False;
     
      rem ***** Set Component InterfaceGet/Create Keys *****;
     
      rem ***** Execute Get *****;
      If Not &oMYCINAMEPoRecv.Get()Then
         rem ***** No rows exist for the specified keys.*****;
         errorHandler(&fileLog, &oSession);
         throw CreateException(0,0, "Get failed");
      End-If;
     
     
      rem ***** Begin: Get/Set Component Interface Properties *****;
      rem ***** Get/Set Level0 Field Properties *****;
     
      // Jean-Baptiste HEREN - Write the session relatedto creation of a new receptionline;
      &qty = 0;
      &transaction_code = "0105";
     
      &oMYCINAMEPoRecv.TRANSACTION_CODE = &transaction_code;
      REM JBH - Fill with the barcode ID data.value;
      &oMYCINAMEPoRecv.SETID = &REcBarcode.SETID.Value;
      &oMYCINAMEPoRecv.SHIPTO_ID = &REcBarcode.SHIPTO_ID.Value;
      REM &oMYCINAMEPoRecv.VENDOR_ID = &REcBarcode.VENDOR_ID.Value;
      REM &oMYCINAMEPoRecv.BUSINESS_UNIT_IN = &REcBarcode.BUSINESS_UNIT_IN.value;
      &oMYCINAMEPoRecv.CARRIER_ID = &REcBarcode.CARRIER_ID.Value;
      &oMYCINAMEPoRecv.BILL_OF_LADING = &REcBarcode.BILL_OF_LADING.Value;
      REM &oMYCINAMEPoRecv.BUSINESS_UNIT_PO = &REcBarcode.BUSINESS_UNIT_PO.value;
      REM &oMYCINAMEPoRecv.PO_ID = &REcBarcode.PO_ID.value;
      REM &oMYCINAMEPoRecv.LINE_NBR = &REcBarcode.LINE_NBR.value;
      REM &oMYCINAMEPoRecv.UNIT_OF_MEASURE = &REcBarcode.UNIT_OF_MEASURE.value;
      REM Still use Quantyty from Barcode screen;
      REM &oMYCINAMEPoRecv.QTY = &qty;
      rem ***** End:Get/Set Component Interface Properties *****;
     
      rem ***** Execute Save *****;
          // Jean-Baptiste HEREN - Usually, you want you CI to save your component at end, so uncomment the SAVE part
      If Not &oMYCINAMEPoRecv.Save()Then;
         errorHandler(&fileLog, &oSession);
         &success = False;
         throw CreateException(0,0, "Save failed");
      Else
         &success = True;
         If Not LogBarcode(&barcode, &qty, &transaction_code)Then
            &fileLog.WriteLine("LogBarcode Failed");
         End-If;
      End-If;
     
      rem ***** Execute Cancel *****;
      rem IfNot &oMYCINAMEPoRecv.Cancel()Then;
      rem       errorHandler(&fileLog, &oSession);
      rem       throw CreateException(0,0, "Cancel failed");
      rem End-If;
     
   catch Exception &ex
      rem Handle the exception;
      &fileLog.WriteLine(&ex.ToString());
   end-try;
   &fileLog.WriteLine("End");
   &fileLog.Close();
   Return &success;
End-Function;

3- Write a program witch is using your CI

This kind of code is usually called from a Fast entry screen or External Interface

// JBH - Declare Custom Functions Using Component Interface;
Declare Function WriteReceipt PeopleCode MY_RECV_TABLE.RECV_CARD_ID FieldFormula;
Declare Function CloseReceipt PeopleCode MY_RECV_TABLE.RECV_CARD_ID FieldFormula;

REM Run the Component Interface;
If All(MY_RECV_TABLE.RECV_CARD_ID.Value)And
      All(MY_RECV_TABLE.QTY.Value)Then
   MY_RECV_TABLE.RECV_CARD_ID.Value =RTrim(MY_RECV_TABLE.RECV_CARD_ID.Value);
   REM Check That This Barcode has not already been used;
   SQLExec("SELECT 1 FROM PS_PH_RECV_BCD_LOG WHERE RECV_CARD_ID = :1", MY_RECV_TABLE.RECV_CARD_ID.Value, &result);
   If &result <> 1Then
      // Here we call our Component Interface
      If Not WriteReceipt(MY_RECV_TABLE.RECV_CARD_ID.Value, MY_RECV_TABLE.QTY.Value)Then
         WinMessage("Reception Failed!");
      Else
         SetCursorPos(%Page, MY_RECV_TABLE.RECV_CARD_ID, CurrentRowNumber());
         REM Save The succesfully recorded barcode;
         MY_RECV_TABLE.RECV_CARD_ID_OK.Value = MY_RECV_TABLE.RECV_CARD_ID.Value;
         REM Clean Screen;
         MY_RECV_TABLE.RECV_CARD_ID.Value ="";
         MY_RECV_TABLE.QTY.Value =0;
      End-If;
   Else
      WinMessage("Card ID has already been scanned !");
      SetCursorPos(%Page, MY_RECV_TABLE.RECV_CARD_ID, CurrentRowNumber());
      REM Clean Screen;
      MY_RECV_TABLE.RECV_CARD_ID.Value ="";
      MY_RECV_TABLE.QTY.Value =0;
   End-If;
End-If;