Gavin writes:
> answer may lie in the most excellent (and obscure) intrinsic FINDPMAPNAME.
> I believe you can give this routine a segment name and a procedure name
> and get back information including the segment number (not sure which one)
> and the offset.  I have no idea where it's documented these days or if it
 
The CSEQ Tool shows:
 
:cseq allcm findp@
 
CSEQ [2.0] - LPS Toolbox [A.01a]            (c) 1995 Lund Performance Solutions
 
procedure FINDPMAPADDR (
   progfnum             : value integer,        ! Q - %11
   segnum               : value integer,        ! Q - %10
   address              : value integer,        ! Q - %7
   xpmaprec             : ref   integer array,  ! Q - %6
   xpmapreclength       : value integer,        ! Q - %5
   status               : ref   integer);       ! Q - %4
  ! See SEGMENTER manual (Aug 1986 or later)
 
Found 2 CM intrinsics.
procedure FINDPMAPNAME (
   progfnum             : value integer,        ! Q - %12
   segname              : ref   byte array,     ! Q - %11
   entname              : ref   byte array,     ! Q - %10
   xpmaprec             : ref   integer array,  ! Q - %7
   xpmapreclength       : value integer,        ! Q - %6
   status               : ref   integer);       ! Q - %5
      option variable;    ! var mask @ Q - %4
  ! See SEGMENTER manual (Aug 1986 or later)
 
Found 2 CM intrinsics.
 
--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html