🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: bit.listserv.asm370
Article #223

Re: How to find PDS member name details

#223
From: Don Nielsen
Date: Tue, 25 Oct 2005 14:19
99 lines
6153 bytes
Pardon my ignorance, but are the jobs submitted from TSO/ISPF?  Could you create a REXX substitution for SUBMIT?  REXX has no problem acquiring that information.  The following is the JESJCL output of my SUBMIT "overload".  Note "JOB SUBMITTED FROM".  If so inclined, you could modify the REXX submit to "log" the submissions.

SDSF OUTPUT DISPLAY GSDUP35  JOB00728  DSID     3 LINE 0       COLUMNS 02- 161
COMMAND INPUT ===>                                            SCROLL ===> CSR
******************************** TOP OF DATA ************************************
       1 //GSDUP35  JOB (CMS000,000009),'GSDUP35',CLASS=A,MSGCLASS=V,
         //             USER=DONN,NOTIFY=DONN
         //* JOB SUBMITTED FROM CMS000.#000010.JCL(GSDUP35)
         //*


I'm probably way off base, but thought I'd put my two cents in.

dvn


-----Original Message-----
From: IBM Mainframe Assembler List
[mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]On Behalf Of Gary Weinhold
Sent: Tuesday, October 25, 2005 8:38 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: How to find PDS member name details


To expand on John McKown's response below, if the technical support area
(or whatever it is called) offers standardized procedures in a common
proclib with sample JCL for all known requirements for overrides by
users, and offers to revise those common procs if they are not flexible
enough for users, then it is questionable how much support they should
give to user's private versions of those procs.  If new or revised
functions are added to the existing procs and broacast to all users,
then those with private procs/JCL should be taking responsibility for
reviewing and implementing those functions for themselves.

However, I will admit that Mr. Baker's company's approach ensures more
work (and possibly employment) for technical support staff.  I wish you
success with trying to turn that environment around.

Gary Weinhold,
Data Kinetics, Ltd.

"McKown, John" wrote:
>
> > -----Original Message-----
> > From: IBM Mainframe Assembler List
> > [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Mike Baker
> > Sent: Tuesday, October 25, 2005 1:25 AM
> > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> > Subject: Re: How to find PDS member name details
> >
> >
> > The problem is an extremely messy environment. Years ago some
> > standard IMS
> > database procedures were created, and people were meant to execute the
> > centrally stored procs, and use whatever JCL overrides they
> > needed. Now...
> > 18 years later, everyone their own personal version/s of the
> > procs, and
> > they execute these most (not all) of the time. The test
> > environment is a
> > complete mess, and no-one has a clue what's going on.
> >
> > IMS version 7.1 does not force the use of the DBRC=Y
> > parameter in the JCL,
> > and whilst you can code it in the centrally stored procs,
> > that is no help
> > if people don't use those procs. Nor do they want anyone
> > telling them what
> > they should be using...  even though their own source
> > libraries are now in
> > a state of complete chaos.
> >
> > So... the intention would be to write a front-end for the IMS region
> > controller program, rename the IBM one, and XCTL to it after
> > extracting
> > various items of info. such as the PDS member name details.
> > And with the
> > gathering of this information, then control can be established.
> >
>
> Well, this is just my personal opinion. But it is what I did once in a
> similar (but not as bad) situation. It does require management
> enforcement. Basically, I say: "Do it this way! If you don't, and you
> have a problem, then YOU have a problem. If you bother me, I will laugh
> at you and tell you to go away." Rude, crude, and socially unacceptable.
> But sometimes that's the only way to clean up a really messy situation.
>
> --
> John McKown
> Senior Systems Programmer
> UICI Insurance Center
> Information Technology
>
> This message (including any attachments) contains confidential
> information intended for a specific individual and purpose, and its'
> content is protected by law.  If you are not the intended recipient, you
> should delete this message and are hereby notified that any disclosure,
> copying, or distribution of this transmission, or taking any action
> based on it, is strictly prohibited.
Technical Details
Message-ID: <F57FDB5201A2AA488C21CC5CC9759029848EE8@cdmail.cmscms.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news3.google.com!newsfeed2.dallas1.level3.net!newsfeed3.dallas1.level3.net!news.level3.com!newsfeed1.easynews.com!easynews.com!easynews!sn-xit-03!sn-xit-08!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!cmscms.com!donn

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!news1.google.com!news3.google.com!newsfeed2.dallas1.level3.net!newsfeed3.dallas1.level3.net!news.level3.com!newsfeed1.easynews.com!easynews.com!easynews!sn-xit-03!sn-xit-08!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!cmscms.com!donn
From: Don Nielsen <donn@cmscms.com>
Newsgroups: bit.listserv.asm370
Subject: Re: How to find PDS member name details
Date: Tue, 25 Oct 2005 09:19:57 -0500
Organization: SAS Inc.
Lines: 99
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <F57FDB5201A2AA488C21CC5CC9759029848EE8@cdmail.cmscms.com>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1130250109 25582 10.19.150.41 (25 Oct 2005 14:21:49 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Tue, 25 Oct 2005 14:21:49 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
X-MimeOLE: Produced By Microsoft Exchange V6.5.7226.0
Content-class: urn:content-classes:message
Thread-Topic: Re: How to find PDS member name details
Thread-Index: AcXZabwFe0XLLCkdTli8M5169Px5JwABNsMA
X-MIME-Autoconverted: from quoted-printable to 8bit by listserv.cc.uga.edu id
                      j9PEHgG7002297
Approved-By: Don Nielsen <donn@CMSCMS.COM>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 25 Oct 2005 14:21:46.0469 (UTC) FILETIME=[6E474950:01C5D96F]
X-Mime-Autoconverted: from 8bit to 7bit by mime827
Originator: daemon@mozart.unx.sas.com