Rexx issue error Ispf105

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Hi All,

This is my first post and bit scared whether will be able to frame the query as expected.

I am new to rexx .

Requirement:
Current scenario I am having a rexx tool or rexx panel which takes input from user and submit the rexx in background to do specific task.

Modification required:
Instead of getting the data through panel we want to automate the things and get this data through input file now want to read the input data set in rexxx and then this rexx will be submitting JCL and that JCL is calling some other rexxx programs.

While doing so I am able to read the file in rexx but my JCL is not getting submitted I am getting error as ISPF105 output overflow.

Work around:
I tried changing lrcl of the output data set which contains the JCL and I see the output data set is created but the job is not getting submitted again and in that case I am getting error as " Data set LRCL I s not 80.

So basically when it's 80 I am getting erro as ISPf105 output overflow but if I am changing the lrcl to more than 80 it's generating the the output JCL but not getting submitted and giving error as Data set LRCL is not 80.

Can anyone help me please. let me know if u need any other information from me.

sergeyken · Posted: Wed Apr 20, 2022 8:39 pm

Any code sample, please.

Including: the error ISPF105 - what is it, how it looks like, and where it has been found?

Do not forget to emphasize any code, and data, and any message by using the Code button above the message text window.

P.S. Maybe, I am stupid, but so far I was not able to understand any idea from the whole your message.

dneufarth · Posted: Wed Apr 20, 2022 10:06 pm

I agree with sergeyken, but quickly see

https://www.ibm.com/docs/en/zos/2.3.0?topic=messages-ispf105

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Thanks for response:

Rexx program submitting the JCl peace of code :

/* jobname = usrid'$' */
ADDRESS ISPEXEC
/* OUTFILE = STRIP(OUTFILE,,"'") */
"LIBDEF ISPSLIB DATASET ID('QSYS.IALAGAR.JCLLIB')
STKADD"

ispexec "ftopen"
ispexec "FTINCL TIMSUBPJ"

ispexec "ftclose "
ADDRESS TSO
say "tempdsn1" tempdsn
"SUBMIT" tempdsn
/* this tempdsn haivng LRCL 80 */
say "tempdsn1" tempdsn

say "hurray"

The above JCL is not getting submitted i am getting error as below:

ISPF105 Output overflow -/-Line to be written greater than data set LRECL (80), TIMSUBPJ record-60

JCl skelton:

//TIMSUBPJ JOB (DCS,058000DCS-058400,2TES-TC3,TESTTEAM),
// '&TIRID',CLASS=A,MSGCLASS=S
//* diggi these parameter passed from rexx
// SET TE=&SYSCHAR
// SET TS=&TSTAGEC
// SET CCID='&CCID'
// SET TID='&TIRID'
// SET PKG='&PACKAGE'
// joblib
// Proclib
//PACKEXEC EXEC PGM=IKJEFT1A,DYNAMNBR=1500,REGION=128M,
// PARM='PACKEXEC PRE &&TE &&TS &&CCID &&TID &&PKG'
//*
//STEPLIB DD DSN=DB95.DSNEXIT,DISP=SHR
// DD DSN=DB95.DSNLOAD,DISP=SHR
//SYSEXEC DD DSN=QSYS.IALAGAR.CLIST.REXX,DISP=SHR
//SUMMARY DD SYSOUT=*
//DETAIL DD SYSOUT=*
//NDVRRPT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//PROJNAME DD *
&PROJNAME
//*

Pedro · Posted: Wed Apr 20, 2022 10:37 pm

I think your problem is here:

Pedro · Posted: Wed Apr 20, 2022 10:45 pm

To diagnose a file tailoring problem, use the ISPFTTRC command.

1. issue the ISPFTTRC command to start the trace.
2. recreate the problem
3. issue the ISPFTTRC command a second time to stop the trace and view the trace output.

If I recall correctly, the last line shown of the FTINCL file will be the last correct line and the failure will be on the next line which is not shown. (I could be wrong about this).

If you still have problems, show us the last page of the trace file.

sergeyken · Posted: Wed Apr 20, 2022 11:05 pm

I suggest you to take a look at your JCL output in SDSF. The following statements should produce wrong result:

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Hi Thanks for your response:

Here is the rexx code getting the value from input file and passing it to the jcl:

Read_inputfile:

"ALLOC F(INFILE) DSN('"'QSYS.STG.NDVR.INPUT.ORG'"') SHR REU"
"EXECIO * DISKR INFILE (FINIS STEM myfile."
"FREE F(INFILE)"
i=1
say "myfile" myfile.0
say "myfile" myfile.1
env = myfile.i
say "ENV" env
i= i+1
tirid = myfile.i
say "TIRID" tirid
i=i+1
ccid=myfile.i
say "ccid" ccid
i=i+1
projname=myfile.i
say "proname" projname
i=i+1
tgtstage=myfile.i
say "stage" tgtstage
i=i+1
package=myfile.i
say "package" package
i=i+1
nwcpyflg=myfile.i
say "CICSFLAG" nwcpyflg
detail = env" RITM"tirid
say detail
/* Stiping */

tirid = strip(tirid)
ccid = strip(ccid)
projname = strip(projname)
tgtstage = strip(tgtstage)
cdp = getcdp(env);
syschar = substr(env,1,1)
tstagec = substr(tgtstage,1,1)

parm = "'PACKI"syschar pkgname"'"
nwcpyflg = strip(nwcpyflg)

here is tempdsn allocation:

"ALLOC DD(TEMPDSN) DS("tempdsn") NEW CATALOG UNIT(SYSDA)",
"CYL SPACE(1 1) RECFM(F B) LRECL(80) BLKSIZE(27920) RELEASE REU"

i changed lrcl of this 80 to 255 in tempdsn i am getting jcl with passed value substuted but the jcl is not getting submitted saying error as " Datset lrcl is not 80"

Thank you again i am working on that ISPFTRC part.

sergeyken · Posted: Wed Apr 20, 2022 11:06 pm

Please!!! Use the Code button to present any of your samples!!!

Like this:

Pedro · Posted: Wed Apr 20, 2022 11:27 pm

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Thanks for response:

Actually the JCL in turn calling other rexx and as you said below is the jcl and i dnt see any line exceeding the 80th column. I opened the jcl file and i see value has been substituted. but this jcl is not getting submitted

Pedro · Posted: Wed Apr 20, 2022 11:43 pm

You use STRIP to remove the trailing blanks...

My guess is that the input file has line numbers and you do not strip out everything that should be stripped. (learned from experience)

update: Also, make sure the skeleton itself does not have line numbers.

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Thanks Pedro for all your help!

Let me look at the strip part form input file will get back again.

Thanks again.

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Here is mine input file which is being read in rexx and these values passed in JCl

Pedro · Posted: Thu Apr 21, 2022 12:24 am

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Thanks Pedro!
I am still stuck here:

To get rid of ispf105 Overflow error i increased the LRCL of my skelton JCL from 80 t0 150(not sure whether we should do this) but now i am getting below error:IKJ56261I RECORD LENGTH OF DATA SET ALT0.TMP.DSN.D849870 NOT 80

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

I am really stuck here anyone from the forum if they could help.

Pedro · Posted: Thu Apr 21, 2022 10:06 am

I read your initial post again... you are converting a process from getting panel input to getting input from batch job. For that reason, I think the problem is in the reading and parsing of the input data.

The "IKJ56261I RECORD LENGTH OF DATA SET ALT0.TMP.DSN.D849870 NOT 80" message is self explanatory. But it is not the first problem that you encounter.

I still recommend that you diagnose the record overflow problem using the ISPFTTRC command, as it is the problem that you need to resolve.

btw: you provided screen shots of the file tailoring output, but not the skeleton itself. The skeleton is 'QSYS.DIGGI.JCLLIB(TIMSUBPJ)'. But because the process worked previously, it is not likely to be the problem.

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Thanks Pedro!

Let me try with ISPFTTRC.

Pedro · Posted: Thu Apr 21, 2022 10:21 am

In your rexx program, you have stuff in this order:

1. assign value to variable
2. SAY the variable
3. STRIP the variable.

Instead, I recommend this order:
1. assign value to variable
2. STRIP the variable
3. SAY the variable.

And add unique delimiters so you can 'see' the actual length of the data. For example:

Pedro · Posted: Thu Apr 21, 2022 10:24 am

Does your input file have the identical text values as would be provided from ISPF panels? Perhaps add code to verify that the input length is acceptable so that subsequent users do not provide bogus data.

Digvijay Singh · Active User Joined: 20 Apr 2022 Posts: 153 Location: India

Yes,

Input file data is already validated and it as same as panel data.

I am bit confuse about this ISPFTTRC how to use it? apart from this i am making changes in rexx code as you suggested about strip part above.

Joerg.Findeisen · Posted: Thu Apr 21, 2022 12:41 pm

Willy Jensen · Posted: Thu Apr 21, 2022 2:07 pm

Probably not related, but did you notice the rc 4 for your LIBDEF?
"LIBDEF ISPSLIB DATASET ID('QSYS.DIGGI.JCLLIB')
+++ RC(4) +++
You are missing a double quote and continuation, so the following STKADD" is not used. Move this to the end of the LIBDEF.
Then you do FTOPEN without parameters, which means that the skeleton will be written to the ISPFILE libdef (DDstmt), but I don't see that anywhere. Instead you submit libdef TEMPDSN, but I can't see how you get the generated job in there.

I think that you must do
either