On Fri, 4 Aug 2023 17:33:18 +, Jon Perryman wrote:
> > On Friday, August 4, 2023 at 09:24:10 AM PDT, Tom Marchant wrote:
>
>> What if you copy the JCL to a new data set, replacing all the EXEC PGM=xxx>
>> to EXEC PGM=IEFBR14? and submit it?
>
>Substituting IEFBR14 only stops program
> On Friday, August 4, 2023 at 09:37:43 AM PDT, Paul Gilmartin
> <042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:
> Where's JES3 Setup processing when you need it?
Setup processing doesn't help Dave because it requires the job be submitted and
queued. It also ignores inter-job
> On Friday, August 4, 2023 at 09:24:10 AM PDT, Tom Marchant wrote:
> What if you copy the JCL to a new data set, replacing all the EXEC PGM=xxx>
> to EXEC PGM=IEFBR14? and submit it?
Substituting IEFBR14 only stops program processing. JCL processing will still
alloc, delete and possibly
: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Friday, August 4, 2023 12:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
On Fri, 4 Aug 2023 03:32:01 +, Jon Perryman wrote:
I see IEFC653I in the JESJCL data set. I don't know why IEFC653I seems to have
replaced IEF653I.
--
Tom Marchant
On Fri, 4 Aug 2023 11:04:24 +, Seymour J Metz wrote:
>Back in the bad old days, IBM showed the expansion immediately after the JCL.
>Alas, in MVS they chose to show it as a
Maybe some DISP=(OLD,DELETE) might have unforseen consequenses when actually
executing the JCL, even with PGM=IEFBR14.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu
On Fri, 4 Aug 2023 11:24:06 -0500, Tom Marchant wrote:
>What if you copy the JCL to a new data set, replacing all the EXEC PGM=xxx
>to EXEC PGM=IEFBR14? and submit it?
>
>JCL errors would be pretty obvious.
>
Where's JES3 Setup processing when you need it?
--
gil
What if you copy the JCL to a new data set, replacing all the EXEC PGM=xxx
to EXEC PGM=IEFBR14? and submit it?
JCL errors would be pretty obvious.
--
Tom Marchant
On Thu, 3 Aug 2023 21:58:22 +, David Spiegel
wrote:
>The purpose of the scan is to ensure that my jobs which implement a
No. Here's what the JCL References says for "EXPORT" -
Purpose: Use the EXPORT statement to make specific JCL symbols available to the
job step program.
Exported JCL symbols can be accessed during the job execution phase using the
JCL Symbol Service
(IEFSJSYM) or the JES Symbol Service
@LISTSERV.UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
In essence, I've not used this since about forever, but when we, as in I,
decided we needed to start using parametrized procs at Willis around the
Y2K time, and people were frustrated by not being able to see the wood
from the trees, I very
UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
On Thu, 3 Aug 2023 19:21:27 +, David Spiegel wrote:
>
>My intention is to read a Job and make sure that all datasets are available,
>but, the dsnames contain SET variables.
>
By "read a Job" do you mean that JCL resides in a fil
Paul,
END is how the variable name ends. It can be separated by comma, a dot,
tow dots and a space. After substituting the variable with its value, I
clean double dots for example.
Remember that in the op situation, the input is a jock library. Nothing was
submitted nor running. IEF messages
On Fri, 4 Aug 2023 10:02:29 +0300, Itschak Mugzach wrote:
>...
> - Substitution is more complex since you have several END options and to
> ignore temporary datasets such as those starting with '&'
What's an END option? (Example?)
I need to submit an RCF that the JCL Ref. fails to
@LISTSERV.UA.EDU] on behalf of
Seymour J Metz [sme...@gmu.edu]
Sent: Friday, August 4, 2023 7:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
Back in the bad old days, IBM showed the expansion immediately after the JCL.
Alas, in MVS they chose to show it as a message
atements, so one per line. And no, it was a Q hack, so
error-checking is non-existent, expect to invoke it lots of times after
uncommenting the "trace ?r" or by preceding it with "EXECUTIL TS"
Enjoy,
Robert
On Fri, 4 Aug 2023 at 11:04, Seymour J Metz wrote:
> Back in the bad old days, IBM showed the
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Friday, August 4, 2023 12:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
On Fri, 4 Aug 2023 03:32:01 +, Jon
nt to do is start looking for missing Datasets and/or
> RENAME conflicts.
>
> Shabbat Shalom
>
> Regards,
> David
>
> From: IBM Mainframe Discussion List on behalf
> of ITschak Mugzach
> Sent: Thursday, August 3, 2023 3:54:18 PM
> To: I
On Thursday, August 3, 2023 at 09:02:39 PM PDT, Paul Gilmartin wrote:
> I've found SCAN to be almost worthless. It doesn't always report invalid
> data set names.
I don't think that David cares about the value of TYPERUN=SCAN to you. If he
uses it to solve his problem, then it is of great
On Fri, 4 Aug 2023 03:32:01 +, Jon Perryman wrote:
> > On Thursday, August 3, 2023 at 12:21:34 PM PDT, David Spiegel wrote:
>> My intention is to read a Job and make sure that all datasets are available,
>> but, the dsnames contain SET variables.
>
>The converter / interpreter will resolve
>/*
Doesn't that result in "SYSIN DD * GENERATED STATEMENT"?
Gil,
NO.
PS: Please ignore the previous email where I was responding to the wrong quote.
Thanks,
Kolusu
--
For IBM-MAIN subscribe / signoff / archive access
>Does this work for symbols that are NOT exported?
Gil,
NO.
Thanks,
Kolusu
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ubject: Re: Accessing JCL SETs in Rexx
On Thu, 3 Aug 2023 17:11:08 +, David Spiegel wrote:
>
>Does anyone know how to access the JCL SET variables from Rexx.
>
What are your constraints? I could envision invoking your REXX with
BPXWUNIX or BPXBATCH and passing your symbols in
//
On Fri, 4 Aug 2023 02:32:02 +, Robert Garrett wrote:
>There are no native REXX functions or easily callable services you can use to
>get your hands on them. However, if you're handy with Assembler you could
>write your own callable service to get them. The service you need in order to
There are no native REXX functions or easily callable services you can use to
get your hands on them. However, if you're handy with Assembler you could
write your own callable service to get them. The service you need in order to
get access to JCL symbols is invoked via the IEFSJSYM macro.
On Fri, 4 Aug 2023 00:02:06 +, Sri h Kolusu wrote:
>
>Does this work for symbols that are NOT exported?
>
>// SET HLQ=
>// ...
>//SYMEX EXEC PGM=COZBATCH
>/*
Doesn't that result in "SYSIN DD * GENERATED STATEMENT"?
>//STDIN DD *
>ENV | GREP "JES_"
>/*
ITYM 'env | grep "JES_"'
Is the
Kirk,
Does this work for symbols that are NOT exported?
For ex:
// SET HLQ=
// SET MLQ=SOME
// SET TLQ=DSN
// SET FLQ=DUMP
// SET MYDSN=
// SET MYVOL=SYS001
// SET DCLAS=EDCCOMPR
// SET SCLAS=STANDARD
// SET PRI=5000
// SET SEC=2000
// SET VU=3
// SET DV=SYSDA
// SET AU=TRK
//*
//SYMEX EXEC
ursday, August 3, 2023 2:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
On Thu, 3 Aug 2023 17:48:56 +, Seymour J Metz wrote:
>The short answer is use ADDRESS LINKMVS. It's probably easier to write a
>REXX-aware function in HLASM.
>
I have an Idea: Exported JCL
A.EDU
Subject: Re: Accessing JCL SETs in Rexx
David,
So this is not a run time issue, but a scan of a jcl before submition?
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *
On Thu, Aug 3, 2023 at 10:21
Subject: Re: Accessing JCL SETs in Rexx
Great idea!
// EXPORT SYMLIST=(MYDSN,MYVOL)
// SET MYDSN=MYID.SOME.DSN
// SET MYVOL=SYS001
//*
//SYMEX EXEC PGM=COZBATCH
//STDIN DD *
env | grep "JES_"
//*
results:
JES_SYS_CORR_CURRJOB=S434DTLZOS01CC27C5EA...:
JES_MYDSN=MYID.SOME.DSN
JES_MY
Great idea!
// EXPORT SYMLIST=(MYDSN,MYVOL)
// SET MYDSN=MYID.SOME.DSN
// SET MYVOL=SYS001
//*
//SYMEX EXEC PGM=COZBATCH
//STDIN DD *
env | grep "JES_"
//*
results:
JES_SYS_CORR_CURRJOB=S434DTLZOS01CC27C5EA...:
JES_MYDSN=MYID.SOME.DSN
JES_MYVOL=SYS001
See Example #14:
_
> From: IBM Mainframe Discussion List on behalf
> of Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu>
> Sent: Thursday, August 3, 2023 1:58:20 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Accessing JCL SETs in Rexx
>
> On Thu, 3
On Thu, 3 Aug 2023 19:21:27 +, David Spiegel wrote:
>
>My intention is to read a Job and make sure that all datasets are available,
>but, the dsnames contain SET variables.
>
By "read a Job" do you mean that JCL resides in a file or PDS member
and you want to read that JCL with EXECIO or
Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, August 3, 2023 1:58:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Accessing JCL SETs in Rexx
On Thu, 3 Aug 2023 17:11:08 +, David Spiegel wrote:
>
>Does anyone know how to access the JCL SET variables from
On Thu, 3 Aug 2023 17:48:56 +, Seymour J Metz wrote:
>The short answer is use ADDRESS LINKMVS. It's probably easier to write a
>REXX-aware function in HLASM.
>
I have an Idea: Exported JCL symbols should automatically be available
under OMVS as environment variables.
--
gil
I think the easiest way is to pass them as parameters to the REXX routine.
Alternatively specify them in an in-stream data set and use a DD statement
that specifies SYMBOLS=JCLONLY.
Lennie Dymoke-Bradshaw
https://rsclweb.com
'Dance like no one is watching. Encrypt like everyone is.'
On Thu, 3 Aug 2023 17:11:08 +, David Spiegel wrote:
>
>Does anyone know how to access the JCL SET variables from Rexx.
>
What are your constraints? I could envision invoking your REXX with
BPXWUNIX or BPXBATCH and passing your symbols in
//STDPARM DD *,SYMBOLS=JCLONLY
...
--
The short answer is use ADDRESS LINKMVS. It's probably easier to write a
REXX-aware function in HLASM.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
David Spiegel
I tried MVSVAR(SYMDEF,xxx). It does not do the job. If this is worth the
effort, try reading the JESJCL spool dataset using ISFEXEC.
ITschak
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *
On Thu, Aug
38 matches
Mail list logo