× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Jerry,

To follow up on Al Macintyre's response. I use this CLLE to get a file with the modules used by *SRVPGM objects.

PGM
DCLF FILE(UT0020PF)

CLRPFM FILE(UT0020PF)
CLRPFM FILE(UT0021PF)

DSPOBJD OBJ(*ALLUSR/*ALL) OBJTYPE(*SRVPGM) +
OUTPUT(*OUTFILE) OUTFILE(UT0020PF)

CIRCLE: RCVF RCDFMT(QLIDOBJD)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

DSPSRVPGM SRVPGM(&ODLBNM/&ODOBNM) OUTPUT(*PRINT) +
DETAIL(*MODULE)
CPYSPLF FILE(QSYSPRT) TOFILE(UT0021PF) +
SPLNBR(*LAST) MBROPT(*ADD)
DLTSPLF FILE(QSYSPRT) SPLNBR(*LAST)
GOTO CMDLBL(CIRCLE)

END: ENDPGM

You can use the DSPPGM command to the same to get a file with a list of modules used by *PGM objects.

From there, you can query the UT0021PF file using some sort of substring
function.

HTH

Nick W. Mart



----- Original Message ----- From: <GKern@xxxxxxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Wednesday, October 08, 2008 12:05 PM
Subject: Identifying where *modules are used


Other than using FNDSTRPDM (PDM option 25) to search for the CALLB op
code, is there any other method of finding which programs use a specific
module? Is there a file somewhere in the system that acts as a
cross-reference that can be queried to show what programs have a specific
module bound into that program?

Regards, Jerry

Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.
--
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.



--------------------------------------------------------------------------------



No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.173 / Virus Database: 270.7.6/1713 - Release Date: 10/7/2008 6:40 PM


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.