Store Procedure

Datum wtt_add_account(PG_FUNCTION_ARGS)
{
  ArrayType *balance_info
  Oid array_type;
  int16 array_element_type_width;
  bool array_element_type_by_value;
  char array_element_type_alignment_code;
  Datum *array_content;
  bool *array_null_flags;
  HeapTupleHeader t;
  int arr_len;
  char *tmp;


  balance_info = PG_GETARG_ARRAYTYPE_P(0);
  array_type = ARR_ELEMTYPE(balance_info);
 get_typlenbyvalalign(array_type,&array_element_type_width,&array_element_type_by_value,&array_element_type_alignment_code);

  deconstruct_array(balance_info,array_type,array_element_type_width,array_element_type_by_value,
array_element_type_alignm  ent_code,&array_content,&array_null_flags,&arr_len);

  t = DatumGetHeapTupleHeader(array_content[0]);

  tmp = (char*)GetAttributeByNum(t,1,&isNull);

  ereport( INFO, ( errcode( ERRCODE_SUCCESSFUL_COMPLETION ), errmsg( "balance_info: %s\n",tmp)));
}