RE: Identifying all references to a currently active program

Mark,

< DSPPGMREF PGM(BRCPGMS/*ALL) OUTPUT(*OUTFILE) OBJTYPE(*PGM) OUTFILE(QGPL/RXSPGMREF)
SELECT * FROM qgpl/rxspgmref WHERE WHFNAM = 'RXSSV'>

That worked, gave me a list of 21 pgms.
Any simple way of knowing which of these are currently active.

Library Program TEXT Number Of Retrieval Object Librar
Text Objects Referenced Date And Time Referenced
'Description'
BRCPGMS RXSEE18R EEF18 Change @CM Email Execute external functio 22 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE20R EEF20 iGLASS Reboot Execute external functio 16 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE21R EEF21 Update W/O Execute external functio 19 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE23R EEF23 Submit W/O Execute external functio 19 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE24R EEF24 Check In W/O Execute external functio 23 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE30R EEF30 Return Equipment Execute external functio 26 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE61R EEF61 TIVO deviceInfoSear Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE62R EEF62 TIVO MSO Srv ID Chg Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE63R EEF63 TIVO serviceActivat Execute external functio 24 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE64R EEF64 TIVO CustInfoSearch Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE65R EEF65 TIVO serviceCancel Execute external functio 19 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE66R EEF66 TIVO serviceReset Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE68R EEF68 TIVO configInfoSear Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE70R EEF70 TIVO callInfoSearch Execute external functio 22 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE72R EEF72 TiVo Daily Pin Execute external functio 17 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE76R EEF76 TIVO CustInfoSrchTS Execute external functio 22 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE77R EEF77 TIVO CustInfoSrchAc Execute external functio 22 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE78R EEF78 TIVO callInfoSrc1X Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSEE79R EEF79 TIVO CustInfoFndAct Execute external functio 18 1140812143935 RXSSV *LIBL
BRCPGMS RXSPR02R PMT02 Ping Prompt & validate record 22 1140812143935 RXSSV *LIBL
BRCPGMS XMSEE06R EEF06 Do Order Execute external functio 45 1140812143935 RXSSV *LIBL

Paul

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark S Waterbury
Sent: Tuesday, August 12, 2014 2:39 PM
To: Midrange Systems Technical Discussion
Subject: Re: Identifying all references to a currently active program

Paul:

So, you have calls to procedures in this RXSSV *SRVPGM in some of your programs ... but you are not sure which programs?

You could do something like the following:

DSPPGMREF PGM(yourAppLib/*ALL) OUTPUT(*OUTFILE) OBJTYPE(*PGM) +
OUTFILE(QTEMP/DSPPGMREF)

Then use STRSQL or equivalent to query the resulting output file, looking for e.g.

SELECT * FROM qtemp/dsppgmref WHERE WHFNAM = 'RXSSV'

to find all programs that use (reference) this service program.

HTH,

Mark S. Waterbury

On 8/12/2014 2:14 PM, Steinmetz, Paul wrote:
I'm upgrading a 3rd party tool later today, RXS 2.71 to 3.11.
The upgrade is simple, RSTOBJ from a savf to the RXS library, about 70 objects.
Takes about 10 seconds.
The issue is we have no easy way of knowing what programs of ours
should be stopped/started The main RXS object is RXSSV *SRVPGM, which
is part of BNDDIR RXSBND
1) Is there a command or tool that would show any reference or call to this program?
2) If an RPGLE program is in memory, but not currently used, if this object if replaced by the upgrade, the reference to this program will probably result is failure, correct?

Thank You
_____
Paul Steinmetz
IBM i Systems Administrator

Pencor Services, Inc.
462 Delaware Ave
Palmerton Pa 18071

610-826-9117 work
610-826-9188 fax
610-349-0913 cell
610-377-6012 home

psteinmetz@xxxxxxxxxx<mailto:psteinmetz@xxxxxxxxxx>
http://www.pencor.com/

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.