Add_Aggregate

Add a record to a record attribute of type aggregate. Add_Aggregate works in the same way as Add_Array.

PROCEDURE Add_Aggregate (
   master_record_ IN OUT type_record_,
   name_          IN     type_name_,
   record_        IN OUT type_record_ )

Parameters

master_record_
    Foundation1 record.

name_
    The name of master_record_ aggregate attribute.

record_
    Foundation1 record.

Example

SET SERVEROUT ON SIZE 100000
DECLARE
   AM Plsqlap_Record_API.type_record_;
   TB Plsqlap_Record_API.type_record_;
BEGIN
   AM := Plsqlap_Record_API.New_record('APPLICATION_MESSAGE');
   TB := Plsqlap_Record_API.New_record('TEXT_BODY');

   Plsqlap_Record_API.Set_Value(AM,'APPLICATION_MESSAGE_ID','100',Plsqlap_Record_API.dt_Text_Key);
   Plsqlap_Record_API.Set_Value(AM,'SENDER','Jan H Malmberg',Plsqlap_Record_API.dt_Alpha);
   Plsqlap_Record_API.Set_Value(AM,'MESSAGE_TYPE','A1',Plsqlap_Record_API.dt_Alpha);
   Plsqlap_Record_API.Set_Value(TB,'TEXT_BODY_TYPE','Str',Plsqlap_Record_API.dt_Enumeration);
   Plsqlap_Record_API.Set_Value(TB,'TEXT_VALUE','This is a demonstration',Plsqlap_Record_API.dt_Long_Text);
   Plsqlap_Record_API.Add_Aggregate(AM,'TEXT_BODY',TB);
   Plsqlap_Record_API.Debug_Record(AM);
END;
/
main: Fnd_View APPLICATION_MESSAGE New_Record
main:    Text_Key APPLICATION_MESSAGE_ID '100^*'
main:    Alpha SENDER 'Jan H Malmberg'
main:    Alpha MESSAGE_TYPE 'A1'
main:    Array TEXT_BODY (1 elements):
main:       1:Fnd_View TEXT_BODY New_Record element of APPLICATION_MESSAGE.TEXT_BODY
main:          Enum      TEXT_BODY_TYPE Str
main:          Long_Text TEXT_VALUE     'This is a demonstration...' (23 characters)

PL/SQL procedure successfully completed.