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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to