!
! >>> SETOBJECT <<<
!
! Revision history:
! 24-Jan-88 PSR Change to use %from IMP for FORMATS and BUFFERS
! 24-JAN-88 CHanges above for SPRINGBOARD
!
%from IMP %include Formats, Buffers

!
! >> IMP___SET_OBJECT_NAME <<
!
! Allows an OPEN procedure to place an object name onto a SCB.
! If this routine is never called for an SCB, the extraction
! procedures will return "<unknown>".
!
%external %routine Set Object Name %alias "3L___set_object_name" -
                                 (%record(SCB Fm) %name S,
                                  %string(*)      %name Oname)
   Delete Buffer(S_NameB) %if S_NameB_Size # 0
   S_NameB = Create Buffer(Length(Oname)+1)
   String(S_NameB_Base) = Oname
%end