Re: INTRDR and submitted JobID

2020-10-15 Thread Paul Gilmartin
On Thu, 15 Oct 2020 11:17:45 -0500, Salva Carrasco wrote:

>Not yet: DML was expanded to 8 char.
> 
More context, please.  Which statement in which earlier ply are you discussing?

And what's a "DML"?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-15 Thread Salva Carrasco
Not yet: DML was expanded to 8 char.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-15 Thread Steve Austin
I did this years back and I think I used the ACB interface and ENDREQ. This
link may help;
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ieaa600/iea3a6_Obtaining_a_job_identifier.htm

On Wed, Oct 14, 2020 at 10:44 PM Seymour J Metz  wrote:

> Originally it was the Reader/Interpreter. In MVS it is JES2 and JES3.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Pew, Curtis G [curtis@austin.utexas.edu]
> Sent: Wednesday, October 14, 2020 5:37 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: INTRDR and submitted JobID
>
> On Oct 14, 2020, at 4:33 PM, Paul Gilmartin <
> 000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > I wish JCL had never provided
> >//SYSIN  DD * Generated Statement
> >
>
> Isn’t it JES2 that does that?
>
>
> --
> Pew, Curtis G
> curtis@austin.utexas.edu
>
>
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

-- 
This e-mail message has been scanned and cleared by Google Message Security 
and the UNICOM Global security systems. This message is for the named 
person's use only. If you receive this message in error, please delete it 
and notify the sender. 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Seymour J Metz
Originally it was the Reader/Interpreter. In MVS it is JES2 and JES3.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Pew, Curtis G [curtis@austin.utexas.edu]
Sent: Wednesday, October 14, 2020 5:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

On Oct 14, 2020, at 4:33 PM, Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> I wish JCL had never provided
>//SYSIN  DD * Generated Statement
>

Isn’t it JES2 that does that?


--
Pew, Curtis G
curtis@austin.utexas.edu






--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Seymour J Metz
I found generated DD * and implied /* to be great conveniences. But I wish that 
they had chosen a better default for SPACE.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu]
Sent: Wednesday, October 14, 2020 5:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

On Wed, 14 Oct 2020 20:57:19 +, Seymour J Metz wrote:

>No. IBM provided DD * to terminate DD *, back when there was a street drug 
>called Primary Control Program. Later IBM made /* optional for DD * in MFT and 
>MVT, but by then people were used to providing it and in some cases didn't 
>realize that it hadn't been needed for decades.
>
"DD *"?  ITYM "/*"

I wish JCL had never provided
//SYSIN  DD * Generated Statement

... it happens to me only when I miskey, e.g. "/SYSUT1" instead of "//SYSUT1".
I'd rather have a detected syntax error.


>
On Wed, 14 Oct 2020 21:00:30 +, Seymour J Metz wrote:

>IBM couldn't due that, because they used the same sigil for symbolic 
>parameters and temporary dataset names. R14, as I recall.
>
They didn't need to it that way.  They could have made symbol reference
"&(NAME)" rather than "&NAME" with no lexical ambiguity.


>
>From: Paul Gilmartin
>Sent: Wednesday, October 14, 2020 4:30 PM
>...
>This would never have been a problem if JCL made reference to undefined
>symbols a syntax error.

--gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Pew, Curtis G
On Oct 14, 2020, at 4:33 PM, Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> 
> I wish JCL had never provided
>//SYSIN  DD * Generated Statement
> 

Isn’t it JES2 that does that?


-- 
Pew, Curtis G
curtis@austin.utexas.edu






--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Seymour J Metz
Make that "provided /* to terminate DD *"


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Seymour J Metz [sme...@gmu.edu]
Sent: Wednesday, October 14, 2020 4:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

No. IBM provided DD * to terminate DD *, back when there was a street drug 
called Primary Control Program. Later IBM made /* optional for DD * in MFT and 
MVT, but by then people were used to providing it and in some cases didn't 
realize that it hadn't been needed for decades.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Steve Smith [sasd...@gmail.com]
Sent: Wednesday, October 14, 2020 4:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

This is a nice illustration of some general rule that probably deserves a
psychological study.

First, there was JCL.
Then, SYSIN data, which (naturally) was terminated by the next JCL card
(which always start with //).
Then, some wanted a way to put JCL in SYSIN data.  So, DD DATA was invented.
But wait, how do you stop DD DATA?  So, /* was invented.
But wait, now I want to read in a few /* cards too!  So, DLM= was created.
Now, the JCL team declared the next complaint would get the requestor a
punch in the face.

So, naturally every SYSIN stream ever created has a useless /* at the end,
and DD DATA without DLM has only been coded once since 1969.

sas


On Wed, Oct 14, 2020 at 3:15 PM Sri h Kolusu  wrote:

> > (I would have used IEBGENER.  "New Hammer" phenomenon.)
>
>  Old habit  :)
>
> >>> What does the "$$" after the "/*" do?
>
> It is terminating the >//SORTIN   DD DATA,DLM=$$
>
> Since I am building the JCL in-line, I had to use the DLM
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Paul Gilmartin
On Wed, 14 Oct 2020 20:57:19 +, Seymour J Metz wrote:

>No. IBM provided DD * to terminate DD *, back when there was a street drug 
>called Primary Control Program. Later IBM made /* optional for DD * in MFT and 
>MVT, but by then people were used to providing it and in some cases didn't 
>realize that it hadn't been needed for decades.
> 
"DD *"?  ITYM "/*"

I wish JCL had never provided
//SYSIN  DD * Generated Statement

... it happens to me only when I miskey, e.g. "/SYSUT1" instead of "//SYSUT1".
I'd rather have a detected syntax error.


>
On Wed, 14 Oct 2020 21:00:30 +, Seymour J Metz wrote:

>IBM couldn't due that, because they used the same sigil for symbolic 
>parameters and temporary dataset names. R14, as I recall.
> 
They didn't need to it that way.  They could have made symbol reference
"&(NAME)" rather than "&NAME" with no lexical ambiguity.


>
>From: Paul Gilmartin
>Sent: Wednesday, October 14, 2020 4:30 PM
>...
>This would never have been a problem if JCL made reference to undefined
>symbols a syntax error.

--gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Seymour J Metz
No. IBM provided DD * to terminate DD *, back when there was a street drug 
called Primary Control Program. Later IBM made /* optional for DD * in MFT and 
MVT, but by then people were used to providing it and in some cases didn't 
realize that it hadn't been needed for decades.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Steve Smith [sasd...@gmail.com]
Sent: Wednesday, October 14, 2020 4:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

This is a nice illustration of some general rule that probably deserves a
psychological study.

First, there was JCL.
Then, SYSIN data, which (naturally) was terminated by the next JCL card
(which always start with //).
Then, some wanted a way to put JCL in SYSIN data.  So, DD DATA was invented.
But wait, how do you stop DD DATA?  So, /* was invented.
But wait, now I want to read in a few /* cards too!  So, DLM= was created.
Now, the JCL team declared the next complaint would get the requestor a
punch in the face.

So, naturally every SYSIN stream ever created has a useless /* at the end,
and DD DATA without DLM has only been coded once since 1969.

sas


On Wed, Oct 14, 2020 at 3:15 PM Sri h Kolusu  wrote:

> > (I would have used IEBGENER.  "New Hammer" phenomenon.)
>
>  Old habit  :)
>
> >>> What does the "$$" after the "/*" do?
>
> It is terminating the >//SORTIN   DD DATA,DLM=$$
>
> Since I am building the JCL in-line, I had to use the DLM
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Jesse 1 Robinson
IBM demurred for years allowing system symbols to be used in batch JCL. There 
were several spirited discussions at SHARE as to how they should work. Some 
possibilities:

-- Substitute values at submit time

-- Substitute values at conversion time

-- Substitute values at execution time

These questions are complicated by the possibility of a job executing on any 
member of a MAS or even on another NJE node. Not to mention the chance of 
symbol collision with internal JCL variables. All of these possibilities 
confuse the question of what value did the user intend? What did she get? There 
was no consensus among participants. 

When IBM finally conceded to customer demand, they imposed some rules, which 
are documented. But to protect users from unexpected results, the default was 
to disallow substitution unless the installation explicitly allowed 
it--presumably after lots of testing. 





.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lars Höglund
Sent: Wednesday, October 14, 2020 12:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):SV: INTRDR and submitted JobID

CAUTION EXTERNAL EMAIL

Hi
Do You the reason why the default for SYSSYM is DISALLOW?

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Lizette 
Koehler
Skickat: den 14 oktober 2020 20:38
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: INTRDR and submitted JobID

I think System Symbols are only available when the JES2 Class says SYSSYM=ALLOW 
Otherwise I think they are not available to a batch job.

They are probably available to an STC

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Wednesday, October 14, 2020 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract a 
> job's own JobID.  Is there a simpler way?

Gil,

How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like this?


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=(*,INTRDR)
//SYSINDD *
  OPTION COPY
//*
//SORTIN   DD DATA,DLM=$$
//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
/*
//  EXPORT SYMLIST=*
// SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
/*
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *,SYMBOLS=JCLONLY
JOBNAME FOR THIS JOB IS : &SYSJOBNM
JOBID FOR THIS JOB IS   : &SYSJOBID
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
/*
$$


Thanks,
Kolusu


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Steve Smith
This is a nice illustration of some general rule that probably deserves a
psychological study.

First, there was JCL.
Then, SYSIN data, which (naturally) was terminated by the next JCL card
(which always start with //).
Then, some wanted a way to put JCL in SYSIN data.  So, DD DATA was invented.
But wait, how do you stop DD DATA?  So, /* was invented.
But wait, now I want to read in a few /* cards too!  So, DLM= was created.
Now, the JCL team declared the next complaint would get the requestor a
punch in the face.

So, naturally every SYSIN stream ever created has a useless /* at the end,
and DD DATA without DLM has only been coded once since 1969.

sas


On Wed, Oct 14, 2020 at 3:15 PM Sri h Kolusu  wrote:

> > (I would have used IEBGENER.  "New Hammer" phenomenon.)
>
>  Old habit  :)
>
> >>> What does the "$$" after the "/*" do?
>
> It is terminating the >//SORTIN   DD DATA,DLM=$$
>
> Since I am building the JCL in-line, I had to use the DLM
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Lizette Koehler
I am guessing it is due to where the job gets converted.  If the symbol
being used is different on different LPARs in a PEX, then you could get
different results.

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Lars Höglund
Sent: Wednesday, October 14, 2020 12:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SV: INTRDR and submitted JobID

Hi
Do You the reason why the default for SYSSYM is DISALLOW?

//Lasse

-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List  För Lizette
Koehler
Skickat: den 14 oktober 2020 20:38
Till: IBM-MAIN@LISTSERV.UA.EDU
Ämne: Re: INTRDR and submitted JobID

I think System Symbols are only available when the JES2 Class says
SYSSYM=ALLOW Otherwise I think they are not available to a batch job.

They are probably available to an STC

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Sri h Kolusu
Sent: Wednesday, October 14, 2020 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract a 
> job's own JobID.  Is there a simpler way?

Gil,

How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like
this?


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=(*,INTRDR)
//SYSINDD *
  OPTION COPY
//*
//SORTIN   DD DATA,DLM=$$
//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
/*
//  EXPORT SYMLIST=*
// SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
/*
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *,SYMBOLS=JCLONLY
JOBNAME FOR THIS JOB IS : &SYSJOBNM
JOBID FOR THIS JOB IS   : &SYSJOBID
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
/*
$$


Thanks,
Kolusu

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Paul Gilmartin
On Wed, 14 Oct 2020 12:15:07 -0700, Sri h Kolusu wrote:

>> (I would have used IEBGENER.  "New Hammer" phenomenon.)
>
> Old habit  :)
>
And you couldn't resist doing it twice!

 What does the "$$" after the "/*" do?
>
>It is terminating the >//SORTIN   DD DATA,DLM=$$
>Since I am building the JCL in-line, I had to use the DLM
> 
Oops!  I missed that part.

Thanks again,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Edward Finnell
Terminates input processing matching the DLM=$$

What does the "$$" after the "/*" do?




-Original Message-
From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Wed, Oct 14, 2020 2:06 pm
Subject: Re: INTRDR and submitted JobID

On Wed, 14 Oct 2020 11:01:38 -0700, Sri h Kolusu wrote:

>> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract
>> a job's own JobID.  Is there a simpler way?
>
>How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like
>this?
>
Thanks.  I had been looking at some old JCL, perhaps older than &SYSJOBID
or SYMBOLS= where I had done:
    address ISPEXEC 'vget ( ZSEQ ) shared'
    '... JOB'ZSEQ  /* (depends on prefix length.)  */

(I would have used IEBGENER.  "New Hammer" phenomenon.)
What does the "$$" after the "/*" do?

>//STEP0100 EXEC PGM=SORT
>//SYSOUT  DD SYSOUT=*
>//SORTOUT  DD SYSOUT=(*,INTRDR)
>//SYSIN    DD *
>  OPTION COPY
>//*
>//SORTIN  DD DATA,DLM=$$
>//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
>//        MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
>/*
>//  EXPORT SYMLIST=*
>//    SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
>/*
>//STEP0100 EXEC PGM=SORT
>//SYSOUT  DD SYSOUT=*
>//SORTIN  DD *,SYMBOLS=JCLONLY
>JOBNAME FOR THIS JOB IS : &SYSJOBNM
>JOBID FOR THIS JOB IS  : &SYSJOBID
>//SORTOUT  DD SYSOUT=*
>//SYSIN    DD *
>  OPTION COPY
>/*
>$$

Thanks again,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Sri h Kolusu
> (I would have used IEBGENER.  "New Hammer" phenomenon.)

 Old habit  :)

>>> What does the "$$" after the "/*" do?

It is terminating the >//SORTIN   DD DATA,DLM=$$

Since I am building the JCL in-line, I had to use the DLM


Thanks,
Kolusu


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Paul Gilmartin
On Wed, 14 Oct 2020 11:01:38 -0700, Sri h Kolusu wrote:

>> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract
>> a job's own JobID.  Is there a simpler way?
>
>How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like
>this?
>
Thanks.  I had been looking at some old JCL, perhaps older than &SYSJOBID
or SYMBOLS= where I had done:
address ISPEXEC 'vget ( ZSEQ ) shared'
'... JOB'ZSEQ  /* (depends on prefix length.)  */

(I would have used IEBGENER.  "New Hammer" phenomenon.)
What does the "$$" after the "/*" do?

>//STEP0100 EXEC PGM=SORT
>//SYSOUT   DD SYSOUT=*
>//SORTOUT  DD SYSOUT=(*,INTRDR)
>//SYSINDD *
>  OPTION COPY
>//*
>//SORTIN   DD DATA,DLM=$$
>//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
>// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
>/*
>//  EXPORT SYMLIST=*
>// SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
>/*
>//STEP0100 EXEC PGM=SORT
>//SYSOUT   DD SYSOUT=*
>//SORTIN   DD *,SYMBOLS=JCLONLY
>JOBNAME FOR THIS JOB IS : &SYSJOBNM
>JOBID FOR THIS JOB IS   : &SYSJOBID
>//SORTOUT  DD SYSOUT=*
>//SYSINDD *
>  OPTION COPY
>/*
>$$

Thanks again,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Lizette Koehler
I think System Symbols are only available when the JES2 Class says
SYSSYM=ALLOW
Otherwise I think they are not available to a batch job.

They are probably available to an STC

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Sri h Kolusu
Sent: Wednesday, October 14, 2020 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract a 
> job's own JobID.  Is there a simpler way?

Gil,

How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like
this?


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=(*,INTRDR)
//SYSINDD *
  OPTION COPY
//*
//SORTIN   DD DATA,DLM=$$
//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
/*
//  EXPORT SYMLIST=*
// SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
/*
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *,SYMBOLS=JCLONLY
JOBNAME FOR THIS JOB IS : &SYSJOBNM
JOBID FOR THIS JOB IS   : &SYSJOBID
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
/*
$$


Thanks,
Kolusu

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Charles Mills
A corollary is that you have to use the VSAM interface to submit the job;
you can't use QSAM. You have to use an ACB and RPL, not a DCB.

A footnote is that when FTP submits a job using SITE FILETYPE=JES it
displays
125 When JOBn is done, will retrieve its output

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Wednesday, October 14, 2020 10:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: INTRDR and submitted JobID

Refer to "Assembler Services Guide" "Obtaining a job identifier".

"Issue an ENDREQ macro after writing a complete job to the internal reader.
The job identifier is returned in the RPLRBAR field of the request parameter
list (RPL)."

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Stephen Donaldson

Hi,

If you write to the INTRDR with an ACB/RPL and then do an ENDREQ on the 
RPL after the last JCL record, then you should find the JOBID in RPLRBAR 
of the RPL.   This would make it available after the job has been 
submitted, as I believe the ENDREQ is like an /*EOF and would cut the 
recognised job off, so needs to be after the last card.


Cheers
Stephen

Stephen R. Donaldson, Code Magus Limited (England reg. no. 4024745) 
Number 6, 69 Woodstock Road, Oxford, OX2 6EY, United Kingdom Voice: +44 
1865 310 768 Fax: +44 1865 316 979 Cell: +44 787 9897709 Support: +44 
1865 589826 Skype:vixxmovz http://www.codemagus.com 
mailto:step...@codemagus.com

On 14/10/2020 18:37, Paul Gilmartin wrote:

I see that the UNIX SUBMIT command shows the JobID of the submitted job.

What interface makes this available.  I suspect it's in JES or Assembler 
Services,
but I don't know how to find it.

At what point in processing is the submitted JobID available?:
o INTRDR OPEN?
o INTRDR CLOSE?
o somewhere in between?

I'm wondering whether when dynamically generating JCL the job's own
JobID is available for embedding in SYSIN or PARM for a later step.

I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract
a job's own JobID.  Is there a simpler way?

Thanks,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Sri h Kolusu
> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract
> a job's own JobID.  Is there a simpler way?

Gil,

How about using system symbols &SYSJOBID and &SYSJOBNM ?  Something like
this?


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=(*,INTRDR)
//SYSINDD *
  OPTION COPY
//*
//SORTIN   DD DATA,DLM=$$
//SYMSUBJ  JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
/*
//  EXPORT SYMLIST=*
// SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID
/*
//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *,SYMBOLS=JCLONLY
JOBNAME FOR THIS JOB IS : &SYSJOBNM
JOBID FOR THIS JOB IS   : &SYSJOBID
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
/*
$$


Thanks,
Kolusu

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and submitted JobID

2020-10-14 Thread Binyamin Dissen
Refer to "Assembler Services Guide" "Obtaining a job identifier".

"Issue an ENDREQ macro after writing a complete job to the internal reader.
The job identifier is returned in the RPLRBAR field of the request parameter
list (RPL)."

On Wed, 14 Oct 2020 12:37:01 -0500 Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

:>I see that the UNIX SUBMIT command shows the JobID of the submitted job.

:>What interface makes this available.  I suspect it's in JES or Assembler 
Services,
:>but I don't know how to find it.

:>At what point in processing is the submitted JobID available?:
:>o INTRDR OPEN?
:>o INTRDR CLOSE?
:>o somewhere in between?

:>I'm wondering whether when dynamically generating JCL the job's own
:>JobID is available for embedding in SYSIN or PARM for a later step.

:>I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract
:>a job's own JobID.  Is there a simpler way?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and NJE

2017-02-15 Thread Jeffrey Holst
I want to thank those who responded, but I may have led people astray by 
mentioning CA-7. We are planning to use NCF which is indeed part of the base. A 
shared COMDS is quite impossible, as the new sysplex will ultimately be in a 
different city.

The essence of my question, to which nobody responded, was whether specifying a 
DD like
//INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE

would produce the same results as adding 
/*ROUTE XEQ NODE 
to the JCL?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and NJE

2017-02-14 Thread Jesse 1 Robinson
There are various methods of managing the enterprise, but the fundamental 
question is whether to share the communication data set. Having worked in a 
similar environment for a long time, I highly recommend *not* sharing the 
COMMDS but using one of the supported communication methods such as SNA (if 
you're inclined) or TCP/IP. Sharing any dataset across sysplex boundaries is 
highly problematic. Best to have a single COMMDS in the production sysplex and 
let the product orchestrate job submission. 

In any case NJE comes into play for submitting jobs and handling output. These 
considerations apply equally to CA-7 and TWS. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Tuesday, February 14, 2017 11:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: INTRDR and NJE

You can ftp to the lpar with  SITE FILETYPE=JES

SITE FILETYPE=JES
 PUT 'dataset.with.jobstream'

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jeffrey Holst
Sent: Tuesday, February 14, 2017 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: INTRDR and NJE

We are planning to split our production sysplex (where we also do development) 
into a purely production sysplex and a development syslpex.

What I am researching is how best to set up jobs that are submitted by our 
scheduler (CA-7) on the production system to run on the development sysplex. 
These would be infrastructure type jobs.

CA-7 allows us to direct jobs to a particular internal reader DD statement for 
submission.

One alternative is certainly to add the /*ROUTE XEQ statements to the JCL to be 
submitted via NJE.

A second alternative would be to code a CA-7 job submission exit that adds the 
/*ROUTE XEQ statement when appropriate.

What I wonder is whether there is some combination of internal reader DD 
statements and JES2 JECL to produce this same affect for jobs to be submitted 
via NJE. That would be the less effort than the alternatives. If I specify 
something like
//INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to NODE to be 
executed?

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN



This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: EXTERNAL: Re: INTRDR and NJE

2017-02-14 Thread Jerry Whitteridge
Our Dev and Prod Data Centers were out of shared DASD range so NCF was necessary

Jerry Whitteridge
Manager Mainframe Systems & Storage
Albertsons - Safeway Inc.
623 869 5523
Corporate Tieline - 85523

If you feel in control
you just aren't going fast enough.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, Dave
Sent: Tuesday, February 14, 2017 12:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: INTRDR and NJE

Could be. I've been fine with ICOMs among Monoplexes. So I didn't go there with 
NCF. You can do Batch Terminals via ICOM also.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jerry Whitteridge
> Sent: Tuesday, February 14, 2017 11:28 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXTERNAL: Re: INTRDR and NJE
>
> NCF was a bundled part of CA-7 when we ran it. I'm not aware of
> additional costs for running it.
>
> Jerry Whitteridge
> Manager Mainframe Systems & Storage
> Albertsons - Safeway Inc.
> 623 869 5523
> Corporate Tieline - 85523
>
> If you feel in control
> you just aren't going fast enough.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Gibney, Dave
> Sent: Tuesday, February 14, 2017 12:27 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXTERNAL: Re: INTRDR and NJE
>
> But, I think costs more :)
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jerry Whitteridge
> > Sent: Tuesday, February 14, 2017 11:25 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: EXTERNAL: Re: INTRDR and NJE
> >
> > Also look into the use of CA-7 NCF which allows not sharing the COMMDS.
> >
> > Jerry Whitteridge
> > Manager Mainframe Systems & Storage
> > Albertsons - Safeway Inc.
> > 623 869 5523
> > Corporate Tieline - 85523
> >
> > If you feel in control
> > you just aren't going fast enough.
> >
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gibney, Dave
> > Sent: Tuesday, February 14, 2017 12:19 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: EXTERNAL: Re: INTRDR and NJE
> >
> > It takes carefully shared DASD for the COMDS. You can run Additional
> > ICOM instances in development.
> >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List
> > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jeffrey Holst
> > > Sent: Tuesday, February 14, 2017 10:56 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: INTRDR and NJE
> > >
> > > We are planning to split our production sysplex (where we also do
> > > development) into a purely production sysplex and a development
> syslpex.
> > >
> > > What I am researching is how best to set up jobs that are
> > > submitted by our scheduler (CA-7) on the production system to run
> > > on the development sysplex. These would be infrastructure type jobs.
> > >
> > > CA-7 allows us to direct jobs to a particular internal reader DD
> > > statement for submission.
> > >
> > > One alternative is certainly to add the /*ROUTE XEQ statements to
> > > the JCL to be submitted via NJE.
> > >
> > > A second alternative would be to code a CA-7 job submission exit
> > > that adds the /*ROUTE XEQ statement when appropriate.
> > >
> > > What I wonder is whether there is some combination of internal
> > > reader DD statements and JES2 JECL to produce this same affect for
> > > jobs to be submitted via NJE. That would be the less effort than
> > > the alternatives. If I specify something like
> > > //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to
> > > NODE to be executed?
> > >
> > > --
> > > --
> > > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO
> > > IBM-MAIN
> >
> > 
> > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO
> > IBM-

Re: EXTERNAL: Re: INTRDR and NJE

2017-02-14 Thread Carmen Vitullo
IIRC, NCF was an option 15-20 years ago when I supported the product hat 
allowed communications back to CA7 from a remote site, don't know of any 
additional costs, I've never had the need to set it up, we shared SOME DASD 
with systems not in the same PLEX and or MAS so we used ICOM and ROUTE 
statements to run jobs on the appropriate LPAR 

- Original Message -

From: "Jerry Whitteridge"  
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Tuesday, February 14, 2017 1:28:09 PM 
Subject: Re: EXTERNAL: Re: INTRDR and NJE 

NCF was a bundled part of CA-7 when we ran it. I'm not aware of additional 
costs for running it. 

Jerry Whitteridge 
Manager Mainframe Systems & Storage 
Albertsons - Safeway Inc. 
623 869 5523 
Corporate Tieline - 85523 

If you feel in control 
you just aren't going fast enough. 



-Original Message- 
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, Dave 
Sent: Tuesday, February 14, 2017 12:27 PM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: EXTERNAL: Re: INTRDR and NJE 

But, I think costs more :) 

> -Original Message- 
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Jerry Whitteridge 
> Sent: Tuesday, February 14, 2017 11:25 AM 
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: Re: EXTERNAL: Re: INTRDR and NJE 
> 
> Also look into the use of CA-7 NCF which allows not sharing the COMMDS. 
> 
> Jerry Whitteridge 
> Manager Mainframe Systems & Storage 
> Albertsons - Safeway Inc. 
> 623 869 5523 
> Corporate Tieline - 85523 
> 
> If you feel in control 
> you just aren't going fast enough. 
> 
> 
> 
> -Original Message- 
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Gibney, Dave 
> Sent: Tuesday, February 14, 2017 12:19 PM 
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: EXTERNAL: Re: INTRDR and NJE 
> 
> It takes carefully shared DASD for the COMDS. You can run Additional 
> ICOM instances in development. 
> 
> > -Original Message- 
> > From: IBM Mainframe Discussion List 
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jeffrey Holst 
> > Sent: Tuesday, February 14, 2017 10:56 AM 
> > To: IBM-MAIN@LISTSERV.UA.EDU 
> > Subject: INTRDR and NJE 
> > 
> > We are planning to split our production sysplex (where we also do 
> > development) into a purely production sysplex and a development syslpex. 
> > 
> > What I am researching is how best to set up jobs that are submitted 
> > by our scheduler (CA-7) on the production system to run on the 
> > development sysplex. These would be infrastructure type jobs. 
> > 
> > CA-7 allows us to direct jobs to a particular internal reader DD 
> > statement for submission. 
> > 
> > One alternative is certainly to add the /*ROUTE XEQ statements to 
> > the JCL to be submitted via NJE. 
> > 
> > A second alternative would be to code a CA-7 job submission exit 
> > that adds the /*ROUTE XEQ statement when appropriate. 
> > 
> > What I wonder is whether there is some combination of internal 
> > reader DD statements and JES2 JECL to produce this same affect for 
> > jobs to be submitted via NJE. That would be the less effort than the 
> > alternatives. If I specify something like 
> > //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to 
> > NODE to be executed? 
> > 
> >  
> > -- For IBM-MAIN subscribe / signoff / archive access instructions, 
> > send email to lists...@listserv.ua.edu with the message: INFO 
> > IBM-MAIN 
> 
> -- 
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 
>  
> Warning: All e-mail sent to this address will be received by the 
> corporate e- mail system, and is subject to archival and review by 
> someone other than the recipient. This e-mail may contain proprietary 
> information and is intended only for the use of the intended 
> recipient(s). If the reader of this message is not the intended 
> recipient(s), you are notified that you have received this message in 
> error and that any review, dissemination, distribution or copying of 
> this message is strictly prohibited. If you have received this message in 
> error, please notify the sender immediately. 
>  
> 
> -- 
> For IBM-MAIN subscribe / signoff / archive access instru

Re: EXTERNAL: Re: INTRDR and NJE

2017-02-14 Thread Gibney, Dave
Could be. I've been fine with ICOMs among Monoplexes. So I didn't go there with 
NCF. You can do Batch Terminals via ICOM also.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jerry Whitteridge
> Sent: Tuesday, February 14, 2017 11:28 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXTERNAL: Re: INTRDR and NJE
> 
> NCF was a bundled part of CA-7 when we ran it. I'm not aware of additional
> costs for running it.
> 
> Jerry Whitteridge
> Manager Mainframe Systems & Storage
> Albertsons - Safeway Inc.
> 623 869 5523
> Corporate Tieline - 85523
> 
> If you feel in control
> you just aren't going fast enough.
> 
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Gibney, Dave
> Sent: Tuesday, February 14, 2017 12:27 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXTERNAL: Re: INTRDR and NJE
> 
> But, I think costs more :)
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Jerry Whitteridge
> > Sent: Tuesday, February 14, 2017 11:25 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: EXTERNAL: Re: INTRDR and NJE
> >
> > Also look into the use of CA-7 NCF which allows not sharing the COMMDS.
> >
> > Jerry Whitteridge
> > Manager Mainframe Systems & Storage
> > Albertsons - Safeway Inc.
> > 623 869 5523
> > Corporate Tieline - 85523
> >
> > If you feel in control
> > you just aren't going fast enough.
> >
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Gibney, Dave
> > Sent: Tuesday, February 14, 2017 12:19 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: EXTERNAL: Re: INTRDR and NJE
> >
> > It takes carefully shared DASD for the COMDS. You can run Additional
> > ICOM instances in development.
> >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List
> > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jeffrey Holst
> > > Sent: Tuesday, February 14, 2017 10:56 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: INTRDR and NJE
> > >
> > > We are planning to split our production sysplex (where we also do
> > > development) into a purely production sysplex and a development
> syslpex.
> > >
> > > What I am researching is how best to set up jobs that are submitted
> > > by our scheduler (CA-7) on the production system to run on the
> > > development sysplex. These would be infrastructure type jobs.
> > >
> > > CA-7 allows us to direct jobs to a particular internal reader DD
> > > statement for submission.
> > >
> > > One alternative is certainly to add the /*ROUTE XEQ statements to
> > > the JCL to be submitted via NJE.
> > >
> > > A second alternative would be to code a CA-7 job submission exit
> > > that adds the /*ROUTE XEQ statement when appropriate.
> > >
> > > What I wonder is whether there is some combination of internal
> > > reader DD statements and JES2 JECL to produce this same affect for
> > > jobs to be submitted via NJE. That would be the less effort than the
> > > alternatives. If I specify something like
> > > //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to
> > > NODE to be executed?
> > >
> > > 
> > > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO
> > > IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > 
> >  Warning: All e-mail sent to this address will be received by the
> > corporate e- mail system, and is subject to archival and review by
> > someone other than the recipient. This e-mail may contain proprietary
> > information and is intended only for the use of the intended
> > recipient(s). If the reader of this message is not the intended
> > recipient(s), you are notified that you have received this message in
> > error and that any review, dissemination, distribution or copying of
> > this message is strictly pr

Re: EXTERNAL: Re: INTRDR and NJE

2017-02-14 Thread Jerry Whitteridge
NCF was a bundled part of CA-7 when we ran it. I'm not aware of additional 
costs for running it.

Jerry Whitteridge
Manager Mainframe Systems & Storage
Albertsons - Safeway Inc.
623 869 5523
Corporate Tieline - 85523

If you feel in control
you just aren't going fast enough.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, Dave
Sent: Tuesday, February 14, 2017 12:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EXTERNAL: Re: INTRDR and NJE

But, I think costs more :)

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jerry Whitteridge
> Sent: Tuesday, February 14, 2017 11:25 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXTERNAL: Re: INTRDR and NJE
>
> Also look into the use of CA-7 NCF which allows not sharing the COMMDS.
>
> Jerry Whitteridge
> Manager Mainframe Systems & Storage
> Albertsons - Safeway Inc.
> 623 869 5523
> Corporate Tieline - 85523
>
> If you feel in control
> you just aren't going fast enough.
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Gibney, Dave
> Sent: Tuesday, February 14, 2017 12:19 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EXTERNAL: Re: INTRDR and NJE
>
> It takes carefully shared DASD for the COMDS. You can run Additional
> ICOM instances in development.
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jeffrey Holst
> > Sent: Tuesday, February 14, 2017 10:56 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: INTRDR and NJE
> >
> > We are planning to split our production sysplex (where we also do
> > development) into a purely production sysplex and a development syslpex.
> >
> > What I am researching is how best to set up jobs that are submitted
> > by our scheduler (CA-7) on the production system to run on the
> > development sysplex. These would be infrastructure type jobs.
> >
> > CA-7 allows us to direct jobs to a particular internal reader DD
> > statement for submission.
> >
> > One alternative is certainly to add the /*ROUTE XEQ statements to
> > the JCL to be submitted via NJE.
> >
> > A second alternative would be to code a CA-7 job submission exit
> > that adds the /*ROUTE XEQ statement when appropriate.
> >
> > What I wonder is whether there is some combination of internal
> > reader DD statements and JES2 JECL to produce this same affect for
> > jobs to be submitted via NJE. That would be the less effort than the
> > alternatives. If I specify something like
> > //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to
> > NODE to be executed?
> >
> > 
> > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO
> > IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
>  Warning: All e-mail sent to this address will be received by the
> corporate e- mail system, and is subject to archival and review by
> someone other than the recipient. This e-mail may contain proprietary
> information and is intended only for the use of the intended
> recipient(s). If the reader of this message is not the intended
> recipient(s), you are notified that you have received this message in
> error and that any review, dissemination, distribution or copying of
> this message is strictly prohibited. If you have received this message in 
> error, please notify the sender immediately.
> 
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

 Warning: All e-mail sent to this address will be received by the corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient. This e-mail may contain proprietary information 

Re: EXTERNAL: Re: INTRDR and NJE

2017-02-14 Thread Gibney, Dave
But, I think costs more :)

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jerry Whitteridge
> Sent: Tuesday, February 14, 2017 11:25 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: EXTERNAL: Re: INTRDR and NJE
> 
> Also look into the use of CA-7 NCF which allows not sharing the COMMDS.
> 
> Jerry Whitteridge
> Manager Mainframe Systems & Storage
> Albertsons - Safeway Inc.
> 623 869 5523
> Corporate Tieline - 85523
> 
> If you feel in control
> you just aren't going fast enough.
> 
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Gibney, Dave
> Sent: Tuesday, February 14, 2017 12:19 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EXTERNAL: Re: INTRDR and NJE
> 
> It takes carefully shared DASD for the COMDS. You can run Additional ICOM
> instances in development.
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Jeffrey Holst
> > Sent: Tuesday, February 14, 2017 10:56 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: INTRDR and NJE
> >
> > We are planning to split our production sysplex (where we also do
> > development) into a purely production sysplex and a development syslpex.
> >
> > What I am researching is how best to set up jobs that are submitted by
> > our scheduler (CA-7) on the production system to run on the
> > development sysplex. These would be infrastructure type jobs.
> >
> > CA-7 allows us to direct jobs to a particular internal reader DD
> > statement for submission.
> >
> > One alternative is certainly to add the /*ROUTE XEQ statements to the
> > JCL to be submitted via NJE.
> >
> > A second alternative would be to code a CA-7 job submission exit that
> > adds the /*ROUTE XEQ statement when appropriate.
> >
> > What I wonder is whether there is some combination of internal reader
> > DD statements and JES2 JECL to produce this same affect for jobs to be
> > submitted via NJE. That would be the less effort than the
> > alternatives. If I specify something like
> > //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to
> > NODE to be executed?
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
>  Warning: All e-mail sent to this address will be received by the corporate e-
> mail system, and is subject to archival and review by someone other than the
> recipient. This e-mail may contain proprietary information and is intended
> only for the use of the intended recipient(s). If the reader of this message 
> is
> not the intended recipient(s), you are notified that you have received this
> message in error and that any review, dissemination, distribution or copying
> of this message is strictly prohibited. If you have received this message in
> error, please notify the sender immediately.
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: EXTERNAL: Re: INTRDR and NJE

2017-02-14 Thread Jerry Whitteridge
Also look into the use of CA-7 NCF which allows not sharing the COMMDS.

Jerry Whitteridge
Manager Mainframe Systems & Storage
Albertsons - Safeway Inc.
623 869 5523
Corporate Tieline - 85523

If you feel in control
you just aren't going fast enough.



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, Dave
Sent: Tuesday, February 14, 2017 12:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: Re: INTRDR and NJE

It takes carefully shared DASD for the COMDS. You can run Additional ICOM 
instances in development.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jeffrey Holst
> Sent: Tuesday, February 14, 2017 10:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: INTRDR and NJE
>
> We are planning to split our production sysplex (where we also do
> development) into a purely production sysplex and a development syslpex.
>
> What I am researching is how best to set up jobs that are submitted by
> our scheduler (CA-7) on the production system to run on the
> development sysplex. These would be infrastructure type jobs.
>
> CA-7 allows us to direct jobs to a particular internal reader DD
> statement for submission.
>
> One alternative is certainly to add the /*ROUTE XEQ statements to the
> JCL to be submitted via NJE.
>
> A second alternative would be to code a CA-7 job submission exit that
> adds the /*ROUTE XEQ statement when appropriate.
>
> What I wonder is whether there is some combination of internal reader
> DD statements and JES2 JECL to produce this same affect for jobs to be
> submitted via NJE. That would be the less effort than the
> alternatives. If I specify something like
> //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to
> NODE to be executed?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

 Warning: All e-mail sent to this address will be received by the corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient. This e-mail may contain proprietary information and is intended only 
for the use of the intended recipient(s). If the reader of this message is not 
the intended recipient(s), you are notified that you have received this message 
in error and that any review, dissemination, distribution or copying of this 
message is strictly prohibited. If you have received this message in error, 
please notify the sender immediately.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and NJE

2017-02-14 Thread Gibney, Dave
It takes carefully shared DASD for the COMDS. You can run Additional ICOM 
instances in development.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Jeffrey Holst
> Sent: Tuesday, February 14, 2017 10:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: INTRDR and NJE
> 
> We are planning to split our production sysplex (where we also do
> development) into a purely production sysplex and a development syslpex.
> 
> What I am researching is how best to set up jobs that are submitted by our
> scheduler (CA-7) on the production system to run on the development
> sysplex. These would be infrastructure type jobs.
> 
> CA-7 allows us to direct jobs to a particular internal reader DD statement for
> submission.
> 
> One alternative is certainly to add the /*ROUTE XEQ statements to the JCL to
> be submitted via NJE.
> 
> A second alternative would be to code a CA-7 job submission exit that adds
> the /*ROUTE XEQ statement when appropriate.
> 
> What I wonder is whether there is some combination of internal reader DD
> statements and JES2 JECL to produce this same affect for jobs to be submitted
> via NJE. That would be the less effort than the alternatives. If I specify
> something like
> //INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to NODE
> to be executed?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: INTRDR and NJE

2017-02-14 Thread Barkow, Eileen
You can ftp to the lpar with  SITE FILETYPE=JES

SITE FILETYPE=JES
 PUT 'dataset.with.jobstream'

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jeffrey Holst
Sent: Tuesday, February 14, 2017 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: INTRDR and NJE

We are planning to split our production sysplex (where we also do development) 
into a purely production sysplex and a development syslpex.

What I am researching is how best to set up jobs that are submitted by our 
scheduler (CA-7) on the production system to run on the development sysplex. 
These would be infrastructure type jobs.

CA-7 allows us to direct jobs to a particular internal reader DD statement for 
submission.

One alternative is certainly to add the /*ROUTE XEQ statements to the JCL to be 
submitted via NJE.

A second alternative would be to code a CA-7 job submission exit that adds the 
/*ROUTE XEQ statement when appropriate.

What I wonder is whether there is some combination of internal reader DD 
statements and JES2 JECL to produce this same affect for jobs to be submitted 
via NJE. That would be the less effort than the alternatives. If I specify 
something like
//INTRDR1 DD SYSOUT=(A,INTRDR),DEST=NODE will that send the job to NODE to be 
executed?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by reply e-mail and delete 
the e-mail from your system.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr (and IEC141I 013-6)

2016-10-24 Thread Kirk Wolf
FYI,

If you use the z/OSMF Jobs REST API, you can submit JCL using RECFM, LRECL,
etc and use long record lengths.  FWIW, you can also control user
correlators and system symbols for submitted jobs.
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.izua700/IZUHPINFO_API_PutSubmitJob.htm



Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Fri, Oct 21, 2016 at 2:59 PM, scott Ford  wrote:

> Gil,
>
> Wow, it proves the point the Intrdr can handle bigger records.
>
> On Wednesday, October 19, 2016, Paul Gilmartin <
> 000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> > On Mon, 17 Oct 2016 20:10:49 -0500, Paul Gilmartin wrote:
> > >On Mon, 17 Oct 2016 19:10:23 -0400, scott Ford wrote:
> > >
> > >>I am passing sysin data behind the actual JCL , it can be large up to
> > 32k..
> > >>I wasn't sure about punching the JCL and data to the Intrdr when the
> > >>logical record length us that large .
> > >>
> > >"punch"?
> > >
> > >The following submits a job that works nicely:
> > >
> > (That's on JES2.  On JES3 the SYSUT1 and SYSUT2 data sets are garbled,
> > at least when viewed with SDSF.)
> >
> > >/* Rexx */  signal on novalue;  /*
> > >   Doc: Long records to INTRDR.
> > >*/
> > >
> > >trace R
> > >L = 32752  /* ISFUNLD fails with IEC141I 013-6 on SYSUT1 at 32753!?  */
> > >RC = BPXWDYN( 'alloc rtddn(D) sysout writer(INTRDR) recfm(V,B)
> lrecl('L')
> > blksiz
> > >e(0) msg(2)' )
> > >
> > >trace Err
> > >call P '//'
> > >call P '//LONGINP   JOB  505303JOB,''Paul Gilmartin'','
> > >call P '// MSGLEVEL=(1,1),REGION=0M'
> > >call P '//*'
> > >call P '//  EXPORT SYMLIST=*'
> > >call P '//*'
> > >call P '//USERCOUTPUT JESDS=ALL,DEFAULT=YES,'
> > >call P '//*  DEST=&SYSNAME..&SYSUID,'
> > >call P '//  CLASS=R,PAGEDEF=V0648Z,CHARS=GT12'
> > >call P '//*'
> > >call P '//STEP  EXEC  PGM=IEBGENER'
> > >call P '//SYSPRINT  DD  SYSOUT=(,)'
> > >call P '//SYSIN DD  DUMMY'
> > >call P '//SYSUT2DD  SYSOUT=(,)'
> > >call P '//SYSUT1DD  *'
> > >call P 'Long record test.'
> > >call P right( 'Long record 1', L - 4 )
> > >call P right( 'Long record 2', L - 4 )
> > >call P '//'
> > >return( RC )
> > >
> > >P:
> > >trace C
> > >address 'MVS'
> > >S.1 = arg( 1 )
> > >'EXECIO 1 DISKW' D '(STEM S.'
> > >return( RC )
> > >
> > >If I try LRECL>=32753 up to 32756 the job runs OK, but I get IEC141I
> 013-6
> > >on the SYSUT1 spool data set when I try to copy it with code similar to
> an
> > >example in the SDSF guide.  This might happen if some code were counting
> > >the RDW twice.
> >
> > -- gil
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu  with the message:
> > INFO IBM-MAIN
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr (and IEC141I 013-6)

2016-10-21 Thread scott Ford
Gil,

Wow, it proves the point the Intrdr can handle bigger records.

On Wednesday, October 19, 2016, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Mon, 17 Oct 2016 20:10:49 -0500, Paul Gilmartin wrote:
> >On Mon, 17 Oct 2016 19:10:23 -0400, scott Ford wrote:
> >
> >>I am passing sysin data behind the actual JCL , it can be large up to
> 32k..
> >>I wasn't sure about punching the JCL and data to the Intrdr when the
> >>logical record length us that large .
> >>
> >"punch"?
> >
> >The following submits a job that works nicely:
> >
> (That's on JES2.  On JES3 the SYSUT1 and SYSUT2 data sets are garbled,
> at least when viewed with SDSF.)
>
> >/* Rexx */  signal on novalue;  /*
> >   Doc: Long records to INTRDR.
> >*/
> >
> >trace R
> >L = 32752  /* ISFUNLD fails with IEC141I 013-6 on SYSUT1 at 32753!?  */
> >RC = BPXWDYN( 'alloc rtddn(D) sysout writer(INTRDR) recfm(V,B) lrecl('L')
> blksiz
> >e(0) msg(2)' )
> >
> >trace Err
> >call P '//'
> >call P '//LONGINP   JOB  505303JOB,''Paul Gilmartin'','
> >call P '// MSGLEVEL=(1,1),REGION=0M'
> >call P '//*'
> >call P '//  EXPORT SYMLIST=*'
> >call P '//*'
> >call P '//USERCOUTPUT JESDS=ALL,DEFAULT=YES,'
> >call P '//*  DEST=&SYSNAME..&SYSUID,'
> >call P '//  CLASS=R,PAGEDEF=V0648Z,CHARS=GT12'
> >call P '//*'
> >call P '//STEP  EXEC  PGM=IEBGENER'
> >call P '//SYSPRINT  DD  SYSOUT=(,)'
> >call P '//SYSIN DD  DUMMY'
> >call P '//SYSUT2DD  SYSOUT=(,)'
> >call P '//SYSUT1DD  *'
> >call P 'Long record test.'
> >call P right( 'Long record 1', L - 4 )
> >call P right( 'Long record 2', L - 4 )
> >call P '//'
> >return( RC )
> >
> >P:
> >trace C
> >address 'MVS'
> >S.1 = arg( 1 )
> >'EXECIO 1 DISKW' D '(STEM S.'
> >return( RC )
> >
> >If I try LRECL>=32753 up to 32756 the job runs OK, but I get IEC141I 013-6
> >on the SYSUT1 spool data set when I try to copy it with code similar to an
> >example in the SDSF guide.  This might happen if some code were counting
> >the RDW twice.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu  with the message:
> INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr (and IEC141I 013-6)

2016-10-19 Thread Paul Gilmartin
On Mon, 17 Oct 2016 20:10:49 -0500, Paul Gilmartin wrote:

>On Mon, 17 Oct 2016 19:10:23 -0400, scott Ford wrote:
>
>>I am passing sysin data behind the actual JCL , it can be large up to 32k..
>>I wasn't sure about punching the JCL and data to the Intrdr when the
>>logical record length us that large .
>>
>"punch"?
>
>The following submits a job that works nicely:
>
(That's on JES2.  On JES3 the SYSUT1 and SYSUT2 data sets are garbled,
at least when viewed with SDSF.)

>/* Rexx */  signal on novalue;  /*
>   Doc: Long records to INTRDR.
>*/
>
>trace R
>L = 32752  /* ISFUNLD fails with IEC141I 013-6 on SYSUT1 at 32753!?  */
>RC = BPXWDYN( 'alloc rtddn(D) sysout writer(INTRDR) recfm(V,B) lrecl('L') 
>blksiz
>e(0) msg(2)' )
>
>trace Err
>call P '//'
>call P '//LONGINP   JOB  505303JOB,''Paul Gilmartin'','
>call P '// MSGLEVEL=(1,1),REGION=0M'
>call P '//*'
>call P '//  EXPORT SYMLIST=*'
>call P '//*'
>call P '//USERCOUTPUT JESDS=ALL,DEFAULT=YES,'
>call P '//*  DEST=&SYSNAME..&SYSUID,'
>call P '//  CLASS=R,PAGEDEF=V0648Z,CHARS=GT12'
>call P '//*'
>call P '//STEP  EXEC  PGM=IEBGENER'
>call P '//SYSPRINT  DD  SYSOUT=(,)'
>call P '//SYSIN DD  DUMMY'
>call P '//SYSUT2DD  SYSOUT=(,)'
>call P '//SYSUT1DD  *'
>call P 'Long record test.'
>call P right( 'Long record 1', L - 4 )
>call P right( 'Long record 2', L - 4 )
>call P '//'
>return( RC )
>
>P:
>trace C
>address 'MVS'
>S.1 = arg( 1 )
>'EXECIO 1 DISKW' D '(STEM S.'
>return( RC )
>
>If I try LRECL>=32753 up to 32756 the job runs OK, but I get IEC141I 013-6
>on the SYSUT1 spool data set when I try to copy it with code similar to an
>example in the SDSF guide.  This might happen if some code were counting
>the RDW twice.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr (and IEC141I 013-6)

2016-10-17 Thread Paul Gilmartin
On Mon, 17 Oct 2016 19:10:23 -0400, scott Ford wrote:

>I am passing sysin data behind the actual JCL , it can be large up to 32k..
>I wasn't sure about punching the JCL and data to the Intrdr when the
>logical record length us that large .
>
"punch"?

The following submits a job that works nicely:

/* Rexx */  signal on novalue;  /*
   Doc: Long records to INTRDR.
*/

trace R
L = 32752  /* ISFUNLD fails with IEC141I 013-6 on SYSUT1 at 32753!?  */
RC = BPXWDYN( 'alloc rtddn(D) sysout writer(INTRDR) recfm(V,B) lrecl('L') blksiz
e(0) msg(2)' )

trace Err
call P '//'
call P '//LONGINP   JOB  505303JOB,''Paul Gilmartin'','
call P '// MSGLEVEL=(1,1),REGION=0M'
call P '//*'
call P '//  EXPORT SYMLIST=*'
call P '//*'
call P '//USERCOUTPUT JESDS=ALL,DEFAULT=YES,'
call P '//*  DEST=&SYSNAME..&SYSUID,'
call P '//  CLASS=R,PAGEDEF=V0648Z,CHARS=GT12'
call P '//*'
call P '//STEP  EXEC  PGM=IEBGENER'
call P '//SYSPRINT  DD  SYSOUT=(,)'
call P '//SYSIN DD  DUMMY'
call P '//SYSUT2DD  SYSOUT=(,)'
call P '//SYSUT1DD  *'
call P 'Long record test.'
call P right( 'Long record 1', L - 4 )
call P right( 'Long record 2', L - 4 )
call P '//'
return( RC )

P:
trace C
address 'MVS'
S.1 = arg( 1 )
'EXECIO 1 DISKW' D '(STEM S.'
return( RC )

If I try LRECL>=32753 up to 32756 the job runs OK, but I get IEC141I 013-6
on the SYSUT1 spool data set when I try to copy it with code similar to an
example in the SDSF guide.  This might happen if some code were counting
the RDW twice.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr

2016-10-17 Thread scott Ford
I am passing sysin data behind the actual JCL , it can be large up to 32k..
I wasn't sure about punching the JCL and data to the Intrdr when the
logical record length us that large .


Scott

On Monday, October 17, 2016, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Mon, 17 Oct 2016 18:23:09 -0400, scott Ford wrote:
> >
> >I read that the Intrdr max recsize was 32760, but am I right if I punch to
> >the Intrdr I am still limited to 80 byte records?
> >
> No.  I've certainly used >80.
>
> o JCL commands ignore all characters beyond 80
>
> o SYSIN data sets may have far more than 80.
>
> o The rules for determining the values of LRECL and RECFM of
>   a SYSIN at DCB OPEN merge are largely undocumented.  I believe
>   they differ between JES2 and JES3.  I have a long unanswered RCF
>   on this.  I should nudge it.
>
> o FTP imposes an antiquated limit of 254 on JESLRECL.  This should be
>   fodder for an RFE.
>
> o LRECL= is allowed on DD SYSIN.  It may not have the effect you want.
>
> o But RECFM= is prohibited on DD SYSIN.  Go figger.
>
> o TSO and ISPF SUBMIT are oblivious; stuck in the 20th century.  ISPF
>   submit quietly truncates to 80.  I consider this data loss.
>
> o Beware that you may cause I/O errors on many utility SYSINs.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu  with the message:
> INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr

2016-10-17 Thread Paul Gilmartin
On Mon, 17 Oct 2016 18:23:09 -0400, scott Ford wrote:
>
>I read that the Intrdr max recsize was 32760, but am I right if I punch to
>the Intrdr I am still limited to 80 byte records?
>
No.  I've certainly used >80.

o JCL commands ignore all characters beyond 80

o SYSIN data sets may have far more than 80.

o The rules for determining the values of LRECL and RECFM of
  a SYSIN at DCB OPEN merge are largely undocumented.  I believe
  they differ between JES2 and JES3.  I have a long unanswered RCF
  on this.  I should nudge it.

o FTP imposes an antiquated limit of 254 on JESLRECL.  This should be
  fodder for an RFE.

o LRECL= is allowed on DD SYSIN.  It may not have the effect you want.

o But RECFM= is prohibited on DD SYSIN.  Go figger.

o TSO and ISPF SUBMIT are oblivious; stuck in the 20th century.  ISPF
  submit quietly truncates to 80.  I consider this data loss.

o Beware that you may cause I/O errors on many utility SYSINs.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Intrdr

2016-10-17 Thread Lizette Koehler
What problem are you trying to solve with INTRDR?

Are you using INTRDR in JCL?  

Are you doing a dynamic allocation for INTRDR?

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of scott Ford
> Sent: Monday, October 17, 2016 3:23 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Intrdr
> 
> All,
> 
> I read that the Intrdr max recsize was 32760, but am I right if I punch to the
> Intrdr I am still limited to 80 byte records?
> 
> Scott
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN