RE: Program explosion report

Hi Jeff,

You need to add an entry for the library name in the "returns" clause:

  returns table (Level  dec(5),   Object  char(50),
                 UsedBy char(10), Library char(10),
                 Desc   char(50), Dup     char(1)
                )

And then in the final selection at the end of the script include variable RefLib in the corresponding place:

           select
                  Level as RefLevel,
                  char(repeat ('  ',Level-1) || RefObj, 50) as Object,
                  Pgm, RefLib, Desc, Duplicate
             from RefHierarchy
            where RefLib not in ('QSYS', 'QGPLV')
              and RefObj <> ' '
              and substr(Pgm, 1, 2) <> 'A0'
              and RefObj <> Pgm
              and Duplicate <> '*'
            order by NewOrder;

  end


All the best
Jonathan

-----Original Message-----

date: Thu, 7 May 2015 13:15:28 -0400
from: Jeff Young <jyoung0950@xxxxxxxxx>
subject: Re: Program explosion report

Jhonathan,
Very Nice!
What would I need to do to add the program library to the output?

Jeff Young
Sr. Programmer Analyst


Proud partner of The Ageas Bowl and the Ageas Salisbury International Arts Festival.

Registered Address: Ageas House, Hampshire Corporate Park, Templars Way, Eastleigh, Hampshire, SO53 3YA Registered Number: 354568 England

Authorised by the Prudential Regulation Authority and regulated by the Financial Conduct Authority and the Prudential Regulation Authority

This e-mail together with any attachments are intended for the addressee only and may be private and confidential. If you are not the intended recipient, or the person responsible for delivering it to the intended recipient, you must not open any attachments, or copy, disclose, distribute, retain or use this e-mail, including any attachments, in any way whatsoever; please return it to us immediately using the reply facility on e-mail.

Consider the environment and think before you print this email.