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 <[email protected]> wrote: > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
