Re: Intrdr (and IEC141I 013-6)

[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=,'
> > >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)

[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=,'
> >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)

[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=,'
>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)

[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=,'
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