Robert A. Rosenberg wrote:
The advantage is that you know when you reach the end of a member as
opposed to seeing the concatenation as one large file/member (although I
have a vague impression that there is an exit than can be driven [if
defined in the exitlist to the DCB] when you do the DD
The exit you're thinking of is the Open exit. When the unlike
concatenation flag is set, it will be entered for each DD.
Or the EOV exit for that matter.
Date: Mon, 22 Oct 2007 11:05:02 -0400 From: [EMAIL PROTECTED] Subject: Re:
How to read source from a PDS member To: IBM-MAIN
:05:02 -0400 From: [EMAIL PROTECTED] Subject: Re:
How to read source from a PDS member To: IBM-MAIN@BAMA.UA.EDU Robert A.
Rosenberg wrote: The advantage is that you know when you reach the end of
a member as opposed to seeing the concatenation as one large file/member
(although I have
[mailto:[EMAIL PROTECTED] On
Behalf Of Kenneth E Tomiak
Sent: Sunday, October 21, 2007 8:47 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: How to read source from a PDS member
Use the Language Environment routine to dynamically allocate the dataset
(member) and skip having to run TSO. Puts the program name
Use the Language Environment routine to dynamically allocate the dataset
(member) and skip having to run TSO. Puts the program name you are
executing back in the JCL. Now if only DB2 would get smarter. Although, if you
work at, even your DB2 programs can be run from the EXEC PGM= JCL
statement.
At 21:48 -0500 on 10/18/2007, Tom Schmidt wrote about Re: How to read
source from a PDS member:
Furthermore, OPEN-J has a different path length than traditional OPEN. Run a
few benchmarks.
OPEN-J (and its companion RDJFCB) are the simplest solution in my
opinion if you are using ALC
At 09:17 -0400 on 10/20/2007, Warner Mach wrote about Re: How to read
source from a PDS member:
When I read this I thought it was pretty neat. Never had occurred to
me that this was possible ... It is still neat to know. However, as a
practical matter I could not think of an instance where
On Oct 18 Tom Schmidt wrote:
You might have overlooked an interesting gem of a feature of z/OS JCL:
FREE=CLOSE.
If you need to provide several alternative tables, you might be able to
do so
strictly in the enveloping JCL by doing something like this:
//SYSLIB DD
On Sat, 20 Oct 2007 09:17:16 -0400, Warner Mach wrote:
z/OS does not limit DDNAMES to a single appearance in a step (although you'd
be surprised how many think otherwise).
FSVO z/OS. I can readily cause a failure with:
14:44:15 IAT4410 DDNAME INPUTIS DUPLICATED WITHIN STEP
-snip--
We've updated Harold's nice subroutine in order to be 31-bit compliant. I will
send you a copy if you like.
unsnip
How about sending it to the CBT site and share with all comers?
: Rich Szabo [EMAIL PROTECTED]
Newsgroups: bit.listserv.ibm-main
To: IBM-MAIN@BAMA.UA.EDU
Sent: Friday, October 19, 2007 8:06 AM
Subject: Re: How to read source from a PDS member
We've updated Harold's nice subroutine in order to be 31-bit compliant. I
will
send you a copy if you like.
Rich Szabo
I've done this buy using the 'OPTIONAL phrase on the file select in
Cobol, and then using TSO Allocate and Free commands from inside the
program itself.
The Program needs to Allocate, then OPEN, Read or Write, then Close,
then Free the file. This can be repeated in a single run of the program
as
On Thu, 18 Oct 2007 20:42:28 -0400 Gerhard Postpischil [EMAIL PROTECTED]
wrote:
:Paul Gilmartin wrote:
: On Thu, 18 Oct 2007 17:27:02 +0200, Binyamin Dissen wrote:
: BPAM is not THAT unfriendly.
: If it truly were not THAT unfriendly you'd not have troubled
: to write a wrapper to hide the
We've updated Harold's nice subroutine in order to be 31-bit compliant. I will
send you a copy if you like.
Rich Szabo
State Auto Insurance
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to
On Thu, 18 Oct 2007 09:43:51 -0400, in bit.listserv.ibm-main you
wrote:
I need to read source code from a PDS member whose name I don't know until my
program runs, much the same as the COBOL
compiler handles COPY memname statements. Is dynalloc the only way to go
about it or does zOS provide
-Original Message-
From: IBM Mainframe Discussion List
[mailto:[EMAIL PROTECTED] On Behalf Of Howard Brazee
Sent: Thursday, October 18, 2007 9:22 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: How to read source from a PDS member
On Thu, 18 Oct 2007 09:43:51 -0400
How about just passing the member name as a parameter in a PROC?
//MYPGM PROC MBR=NOMBR
//RUNIT EXEC PGM=MYPGM
//INPUT DD DISP=SHR,DSN=MY.PDS(MBR)
Tim Hare
Senior Systems Programmer
Florida Department of Transportation
Tel: +1 (850) 414-4209
] On Behalf
Of Howard Brazee
Sent: Thursday, October 18, 2007 4:22 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: How to read source from a PDS member
On Thu, 18 Oct 2007 09:43:51 -0400, in bit.listserv.ibm-main you
wrote:
I need to read source code from a PDS member whose name I don't know
until my program
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Howard Brazee
Sent: Thursday, October 18, 2007 9:22 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: How to read source from a PDS member
On Thu, 18 Oct 2007 09:43:51 -0400, in bit.listserv.ibm-main you
On Thu, 18 Oct 2007 16:34:36 +0200, Itschak Mugzach wrote:
Do you REXX? This is the best language to deal with strings, allocations and
dynamic variables on the fly. It is also run natively under TSO (and TSO
batch) and thus, supports ALLOC commands.
And under IRXJCL and Unix System Services, as
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Howard Brazee
On Thu, 18 Oct 2007 09:43:51 -0400, in bit.listserv.ibm-main you
wrote:
I need to read source code from a PDS member whose name I don't know
until my program runs, much the same as the COBOL
On Thu, 18 Oct 2007 08:21:44 -0600 Howard Brazee [EMAIL PROTECTED] wrote:
:On Thu, 18 Oct 2007 09:43:51 -0400, in bit.listserv.ibm-main you
:wrote:
:I need to read source code from a PDS member whose name I don't know until
my program runs, much the same as the COBOL
:compiler handles COPY
On Thu, 18 Oct 2007 09:43:51 -0400, bit.listserv.ibm-main wrote:
I need to read source code from a PDS member whose name I don't know
until my program runs, much the same as the COBOL
compiler handles COPY memname statements. Is dynalloc the only way to
go about it or does zOS provide a nice
www.cbttape.org
there is a subroutine that is callable from Cobol that will let you read a
member of a PDS
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message:
Paul Gilmartin wrote:
On Thu, 18 Oct 2007 17:27:02 +0200, Binyamin Dissen wrote:
BPAM is not THAT unfriendly.
If it truly were not THAT unfriendly you'd not have troubled
to write a wrapper to hide the hostility from the programmer;
nor would numerous other inventors who independently
On Thu, 18 Oct 2007 17:27:02 +0200, Binyamin Dissen wrote:
BPAM is not THAT unfriendly.
If it truly were not THAT unfriendly you'd not have troubled
to write a wrapper to hide the hostility from the programmer;
nor would numerous other inventors who independently replicated
your effort.
A while
On Thu, 18 Oct 2007 11:24:19 -0500, Tom Schmidt wrote:
z/OS has the venerable OPEN-J service that might be what you are looking for
here. Check the z/OS publications for the OPEN macro's TYPE=J operand.
Those fixated on performance will object to performing an OPEN
for each member rather than a
On Thu, 18 Oct 2007 18:24:12 -0500, Paul Gilmartin wrote:
On Thu, 18 Oct 2007 11:24:19 -0500, Tom Schmidt wrote:
z/OS has the venerable OPEN-J service that might be what you are looking
for
here. Check the z/OS publications for the OPEN macro's TYPE=J operand.
Those fixated on performance
John/OP:
You might have overlooked an interesting gem of a feature of z/OS JCL:
FREE=CLOSE.
If you need to provide several alternative tables, you might be able to do so
strictly in the enveloping JCL by doing something like this:
//SYSLIB DD DISP=SHR,FREE=CLOSE,DSN=USERS.INPUT(TABLEX)
29 matches
Mail list logo