OopS!
Just saw your second post...no source...my solution will not work. Sorry!
Steve Needles
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Needles
Sent: Friday, July 21, 2017 12:57 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: RE: Use of external described DS
Use PDM...
Do a Find String (Option 25 on the "Work with Members using PDM" screen (F13 will copy the first option's entry all the way through the entire list.
Change...
Option to "*NONE"
"Print List" to "Y" as shown
You will be rewarded with a report where the names of the members having "EXTNAME" in the source is found.
Find String
Type choices, press Enter.
Find . . . . . . . . . . . . . . EXTNAME
From column number . . . . . . 1 1 - *RCDLEN
To column number . . . . . . . *RCDLEN 1 - *RCDLEN
Kind of match . . . . . . . . 2 1=Same case, 2=Ignore case
Option . . . . . . . . . . . . . *NONE *NONE, Valid option
Prompt . . . . . . . . . . . . N Y=Yes, N=No
Print list . . . . . . . . . . . Y Y=Yes, N=No
Print records . . . . . . . . . N Y=Yes, N=No
Number to find . . . . . . . . *ALL *ALL, number
Print format . . . . . . . . . *CHAR *CHAR, *HEX, *ALTHEX
Mark record . . . . . . . . . Y Y=Yes, N=No
Record overflow . . . . . . . 1 1=Fold, 2=Truncate
Find string in batch . . . . . . N Y=Yes, N=No
Parameters . . . . . . . . . . .
Steve Needles
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Thomas Garvey
Sent: Thursday, July 20, 2017 11:51 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Use of external described DS
Hi,
Does anyone know of a way to tell which programs, if any, make use of
externally described data structure?
That is, a data structure definition which uses the EXTNAME keyword on
the d-spec to defined the sub-fields
the same as the externally named file.
I realize this is a compile-time structure definition, but am hoping
that there is a way to determine,
outside of searching through unavailable source code, whether a file was
used in a program just for this purpose.
I thought maybe DSPPGMREF would do that, but can't find any examples.
--
Best Regards,
Thomas Garvey
Corporate Scientist
Unbeaten Path International
630-462-3991
/www.unpath.com <
http://www.unpath.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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
CONFIDENTIAL: The information contained in this email communication is confidential information intended only for the use of the addressee. Unauthorized use, disclosure or copying of this communication is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by return email and destroy all copies of this communication, including all attachments.
--
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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
CONFIDENTIAL: The information contained in this email communication is confidential information intended only for the use of the addressee. Unauthorized use, disclosure or copying of this communication is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by return email and destroy all copies of this communication, including all attachments.
midrange.com
