View previous topic :: View next topic
|
Author |
Message |
sushanth bobby
Senior Member
Joined: 29 Jul 2008 Posts: 1020 Location: India
|
|
|
|
Hi,
Following is the program, Format
Code: |
TMPDSN = "MYID.AAIPPLAN.AAI1.BIND"
"ISPEXEC LIBDEF ISPSLIB DATASET ID('"myid.FT.SKEL"')"
ADDRESS TSO "ALLOC F(ISPFILE) DSNA('"TMPDSN"') MOD REUSE",
"CYL SPACE(10,10) RELEASE LRECL(90) RECFM(F,B) DSORG(PS)"
ADDRESS ISPEXEC "FTOPEN"
DO SEQ=1 TO LINES.0 .
.
.
.
ADDRESS ISPEXEC "FTINCL BLDPACK"
END
ADDRESS ISPEXEC "FTCLOSE NAME('"TMPDSN"')"
ADDRESS ISPEXEC "EDIT DATASET ('"TMPDSN"')" |
After executing this, i am getting the following message.
Code: |
ISPS108
Invalid length
Parameter 'NAME' exceeds the allowable length.
Current dialog statement:
FTCLOSE NAME('myid.AAIPPLAN.AAI1.BIND') |
But the following dataset myid.AAIPPLAN.AAI1.BIND is getting written.
I refered the manual, it says the following
Quote: |
"FTCLOSE NAME (LABLOUT) Write the resulting file-tailoring output to a member named LABLOUT SKELETON." |
Manual has said 'member'. So, it cannot be used for a dataset.
Also, i did a trace on the entire program.
Code: |
92 *-* ADDRESS ISPEXEC "FTINCL BLDPACK"
>L> "FTINCL BLDPACK"
+++ RC(-3) +++ |
After each FILE TAILOR statements, i get a -3 return code. What does this mean ?
Thank You,
Sushanth |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
First problem - you are using the syntax to save the output in a PDS but infact are using a PS file.
For a PS file, FTCLOSE will suffice without specifying a member name.
NAME is a member name, not a dataset name, so is limited to a max of 8 chars. How long is the variable you use, the dataset name ???
Suggest you google ISPFTTRC which is really helpful. |
|
Back to top |
|
|
sushanth bobby
Senior Member
Joined: 29 Jul 2008 Posts: 1020 Location: India
|
|
|
|
Corrected it EXPAT. It works fine & good.
I put a TRACE to check for RC. I am still getting -3
Code: |
+++ RC(-3) +++
*-* ADDRESS ISPEXEC "FTINCL BLDPACK"
+++ RC(-3) +++
*-* ADDRESS ISPEXEC "FTINCL BLDPACK"
+++ RC(-3) +++
*-* ADDRESS ISPEXEC "FTINCL BLDPACK"
+++ RC(-3) +++
*-* ADDRESS ISPEXEC "FTINCL BLDPACK"
+++ RC(-3) +++
*-* ADDRESS ISPEXEC "FTINCL BLDPACK"
+++ RC(-3) +++
95 *-* ADDRESS ISPEXEC "FTCLOSE"
+++ RC(-3) +++
96 *-* ADDRESS ISPEXEC "EDIT DATASET ('"TMPDSN"')"
+++ RC(-3) +++
READY
END |
Is this something like an error or warning ?
Thank You Very Much,
Sushanth |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
The (-3) indicates a problem.
Suggest you google ISPFTTRC which is really helpful. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
That
READY
END
at the end of the trace makes it appear to me that this code is running in TSO, not in ISPF, possibly even in a batch job. |
|
Back to top |
|
|
sushanth bobby
Senior Member
Joined: 29 Jul 2008 Posts: 1020 Location: India
|
|
|
|
SuperK,
I ran it in batch. Because of processing is a bit bigger. If i run it in ISPF, i have to keep on pressing ENTER for the next screen. That was taking a long time. Thats why i ran it in batch.
So, is this error due to running it in BATCH ?
Thank You,
Sushanth |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I can't answer that without knowing your job. The RC-3 error would seem to indicate that ISPF services aren't available. Did you code your job to start ISPF and to include all of the necessary ISPF libraries (your LIBDEF statement makes me think you didn't).
Also, you do know that the ISPF EDIT service doesn't work in batch, right? |
|
Back to top |
|
|
sushanth bobby
Senior Member
Joined: 29 Jul 2008 Posts: 1020 Location: India
|
|
|
|
Kevin,
Quote: |
The RC-3 error would seem to indicate that ISPF services aren't available. |
I forgot to think about this one. Usually for bigger TRACEs, i do it in batch. This was my first time for ISPF.
Quote: |
Did you code your job to start ISPF and to include all of the necessary ISPF libraries |
Nope. I didn't.
Quote: |
Also, you do know that the ISPF EDIT service doesn't work in batch, right ? |
Yes
Thank You for clearing that out Kevin,
Sushanth |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Quote: |
Also, you do know that the ISPF EDIT service doesn't work in batch, right?
|
Not entirely true... you can use EDIT with an initial macro. And the macro needs an END statement. |
|
Back to top |
|
|
sushanth bobby
Senior Member
Joined: 29 Jul 2008 Posts: 1020 Location: India
|
|
|
|
hmm Thank You Pedro. |
|
Back to top |
|
|
|