🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: bit.listserv.asm370
Article #211

How to find PDS member name details

#211
From: Mike Baker
Date: Mon, 24 Oct 2005 21:33
17 lines
2006 bytes
Hi,

I have a program which is executed inside many different Procedures, which
in turn are stored in many different PDS datasets.

Without making any JCL changes to the Procedures, is there some way of
modifying the program code so that it can tell me:-
1: The full-name of the PDS within which it (ie: the program) is executing?
2: The full-name of the JCL member which was used to execute the Procedure?

eg: If inside dataset "MY.PDS.JCL" there is a member called "PROGRUN", and
this executes a PDS member called "MY.PDS.PROCLIB(PROCRUN)", and inside the
Procedure "PROCRUN" it executes a program called "PROG001", then I would
like "PROG001" to either issue some Macro/s or chain through MVS Control
Blocks in order to find the answers to questions 1 + 2 above.

Thank you.
Technical Details
Message-ID: <200510242133.j9OKaWeA031464@malibu.cc.uga.edu>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!sn-xit-04!sn-xit-12!sn-xit-09!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!HOTMAIL.COM!mikebaker345

Show Full Headers
Complete Article Headers
X-Google-Thread: fcdcb,21dc5dfdb7ef5f7f,start
X-Google-Attributes: gidfcdcb,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!sn-xit-04!sn-xit-12!sn-xit-09!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!HOTMAIL.COM!mikebaker345
From: Mike Baker <mikebaker345@HOTMAIL.COM>
Newsgroups: bit.listserv.asm370
Subject: How to find PDS member name details
Date: Mon, 24 Oct 2005 17:33:10 -0400
Organization: SAS Inc.
Lines: 17
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <200510242133.j9OKaWeA031464@malibu.cc.uga.edu>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1130190089 31210 10.19.150.41 (24 Oct 2005 21:41:29 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Mon, 24 Oct 2005 21:41:29 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 24 Oct 2005 21:41:26.0715 (UTC)
                       FILETIME=[AFB7A0B0:01C5D8E3]
Originator: daemon@mozart.unx.sas.com