Lines Matching refs:objrec

554 ##  OMPutProcedureCall ( stream, proc_name, objrec : cd:=cdname )
559 ##  OMGetObjectWithAttributes, but the objrec.object a list
566 function( stream, proc_name, objrec )
577 if IsBound( objrec.object ) and not IsList( objrec.object ) then
578   Error( "OMPutProcedureCall: in the 3nd argument <objrec.object> must be a list \n" );
604 if IsBound(objrec.attributes) and Length(objrec.attributes)>0 then
608   for attr in objrec.attributes do
637   OMPutApplication( writer, "scscp2", proc_name, objrec.object );
639   OMPutApplication( writer, cdname, proc_name, objrec.object );
656 ##  OMPutProcedureCompleted ( stream, objrec )
667 function( stream, objrec )
684 if IsBound(objrec.attributes) and Length(objrec.attributes)>0 then
688   for attr in objrec.attributes do
700 if IsBound(objrec.object) then
701   OMPutApplication( writer, "scscp1", "procedure_completed", [ objrec.object ] );
719 ##  OMPutProcedureTerminated( stream, objrec, error_cd, error_type )
734 function( stream, objrec, error_cd, error_type )
751 if IsBound(objrec.attributes) and Length(objrec.attributes)>0 then
755   for attr in objrec.attributes do
769 OMPutError( writer, error_cd, error_type, [ objrec.object ] );