!
! >>> OBJNAME <<<
!
%from IMP %include Formats, Streams, Depio

!
! >> EXTRACT <<
!
! Extracts the object name from a given SCB.
!
%external %string(255) %function SCB Name %alias "3L___scb_name" -
                                         (%record(SCB Fm) %name S)
   %integer Ad = S_NameB_Base
   %result = "<unknown>" %if Ad = 0
   %result = String(Ad)
%end

!
! >> INPUT_NAME <<
!
! Attempts to extract the object name from the currently selected
! input SCB.
!
%external %string(255) %function Input Name %alias "3L_IMP_INPUT_NAME"
   %result = SCB Name(In Scb)
%end

!
! >> OUTPUT_NAME <<
!
! Extracts the object name from the currently selected output SCB.
!
%external %string(255) %function Output Name %alias "3L_IMP_OUTPUT_NAME"
   %result = SCB Name(Out Scb)
%end