Article View: bit.listserv.asm370
Article #216Re: How to find PDS member name details
From: Michael Stack
Date: Tue, 25 Oct 2005 05:19
Date: Tue, 25 Oct 2005 05:19
33 lines
2895 bytes
2895 bytes
It's interesting that you feel comfortable modifying the executed
programs but not he invoking JCL. Could we persuade you to share
with us your eventual goal?
Mike
At 05:33 PM 10/24/2005 -0400, you wrote:
>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.
Michael Stack e-mail: mstack@niu.edu
ear-mail: 1.815.753.9447
Computer Science Department fax: 1.815.753.0342
Northern Illinois University www: http://mstack.cs.niu.edu/
DeKalb, IL 60115 skype: callto://mstack
Technical Details
Message-ID:
<6.2.5.6.2.20051025001804.0489aeb0@niu.edu>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!novia!sn-xit-03!sn-xit-11!sn-xit-05!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!niu.edu!mstackReferences:
<200510242133.j9OKaWeA031464@malibu.cc.uga.edu>Show Full Headers
Complete Article Headers
X-Google-Thread: fcdcb,21dc5dfdb7ef5f7f
X-Google-Attributes: gidfcdcb,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!novia!sn-xit-03!sn-xit-11!sn-xit-05!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!niu.edu!mstack
From: Michael Stack <mstack@niu.edu>
Newsgroups: bit.listserv.asm370
Subject: Re: How to find PDS member name details
Date: Tue, 25 Oct 2005 00:19:41 -0500
Organization: SAS Inc.
Lines: 33
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <6.2.5.6.2.20051025001804.0489aeb0@niu.edu>
References: <200510242133.j9OKaWeA031464@malibu.cc.uga.edu>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1130217839 9700 10.19.150.41 (25 Oct 2005 05:23:59 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Tue, 25 Oct 2005 05:23:59 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
X-Mailer: QUALCOMM Windows Eudora Version 6.2.5.6
X-Virus-Scanned: by amavisd-new at tbc.net
Approved-By: Michael Stack <mstack@NIU.EDU>
In-Reply-To: <200510242133.j9OKaWeA031464@malibu.cc.uga.edu>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 25 Oct 2005 05:23:56.0111 (UTC)
FILETIME=[4BA56DF0:01C5D924]
Originator: daemon@mozart.unx.sas.com