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 '//USERC OUTPUT 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 '//SYSUT2 DD SYSOUT=(,)'
>call P '//SYSUT1 DD *'
>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
