⟦62e442501⟧

E3 Source Code



procedure Show_Load_Proc_Unit_Names (Load_Proc : String := "<SELECTION>";
                                     Response  : String := "<PROFILE>");
------------------------------------------------------------------------------
--  Load_Proc   - Specifies the 'c(Load_Proc) or 'c(Func_Proc) to query.
--  Response    - Specifies what messages to report.
--
-- Used to obtain the Ada object instance ID numbers for the Ada units that
-- make up the source code for this load-proc.  The printout includes lines
-- of this form:
--
--      Library.Resolve ("<[ADA,  12345,1]>");
--
-- These lines will sometimes be followed by an environment path name.
-- These lines indicate the Ada object instance ID of one or more of the
-- original Ada source units that make up this load-proc.  If those Ada source
-- units still exist, and if they exist on the current machine, then the
-- environment paths of those units will also be printed.  If the units do
-- not exist (perhaps they have been edited, moved, renamed, or deleted), or if
-- the load-proc came from another machine, then no path will be printed.
--
-- In order to attempt to locate the source units for this load-proc, take the
-- Library.Resolve lines that were printed and log into each R1000 where the
-- source units might still exist.  Execute the Library.Resolve commands.
-- With luck, eventually one of the source units will be found.
------------------------------------------------------------------------------
DataMuseum.dk

Rational R1000/400

⟦62e442501⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
