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 '//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 [email protected] with the message: INFO IBM-MAIN
