Gil, Wow, it proves the point the Intrdr can handle bigger records.
On Wednesday, October 19, 2016, Paul Gilmartin < [email protected]> 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 '//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] <javascript:;> with the message: > INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
