|
View previous topic :: View next topic
|
| Author |
Message |
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
Hi,
With the below code i am trying to submit a JCl, but sometimes it happens like only part of the JCL present in the member 'T1' is being submitted resulting in JCL error.
Could anyone please let me know what might be the mistake,
| Code: |
"EXECIO * DISKR SUBMI (FINIS STEM SUBMI."
J=0
DO I=1 TO SUBMI.0
J=J+1
FINAL.J=SUBMI.I
PUSH FINAL.J
"EXECIO 1 DISKW FINAL "
END
"EXECIO 0 DISKW FINAL (FINIS"
"FREE F(FINAL)"
"ISPEXEC FTOPEN TEMP"
"ISPEXEC FTINCL T1"
"ISPEXEC FTCLOSE"
"ISPEXEC VGET (ZTEMPF) SHARED"
"SUBMIT '"ZTEMPF"'"
|
Thanks
edited to add the code tags ( to make the <thing> readable ) |
|
| Back to top |
|
 |
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Maybe file tailoring goes into an error because of invalid characters in your jcl like like < and &. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
And as it isn't psychic day today, please post the JCL skeleton being used.
Also google for ISPFTTRC to see exactly what happens during file tailoring. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
Im wondering.
Your submit statement shouldnt that be :
ADDRESS TSO "SUBMIT '"ZTEMPF"'" |
|
| Back to top |
|
|
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
Hi Peter,
I dint get You.. Can you be more clear |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
Well SUBMIT is a TSO command, so what i remember you have to say to REXX as much by using ADDRESS TSO. The same for executing ISPEXEC commands.
I couldnt see that in your code snippet, only did see some REXX coding. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| I believe that the SUBMIT command is OK, and that the problem may be in the FT process, hence my hint to use the FT trace facility. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
Sure expat, that was a nice one. Cant remember if i ever used it.
But i just wanted to tackle anything that could lead to erroneous behaviour. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
I'm not sure that we can really eradicate C2K interface errors very easily  |
|
| Back to top |
|
|
Vinay N.G
New User
Joined: 15 Sep 2008
Posts: 36
Location: Bangalore
|
|
|
|
I keep trying this...
Just now i executed the above program and all the steps were correctly submitted.
But to be sure i tried to execute the same program without any modifications, But this time only part of JCl got submitted.
It is not happening always. It happens sometimes.
Please let me know what can be done. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
nice one... much better than PEBCAK  |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| expat wrote: |
| Also google for ISPFTTRC to see exactly what happens during file tailoring. |
|
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
C2K ? Gentlemen im lost.
Did you mean this :
The C2K is a reusable, electronic security seal that generates a unique seal number with every use. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
C2K ==> chair to(2) keyboard
PEBCAK ==> Problem Exists Between Chair And Keyboard |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
Enrico, thanks a lot.
Im in your debt for enriching my vocabulary. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
part 1 just duplicates (in a strange way) a dataset or member:
| Code: |
"EXECIO * DISKR SUBMI (FINIS STEM SUBMI."
J=0
DO I=1 TO SUBMI.0
J=J+1
FINAL.J=SUBMI.I
PUSH FINAL.J
"EXECIO 1 DISKW FINAL "
END
"EXECIO 0 DISKW FINAL (FINIS"
"FREE F(FINAL)" |
part 2 does file tailoring and submit:
| Code: |
"ISPEXEC FTOPEN TEMP"
"ISPEXEC FTINCL T1"
"ISPEXEC FTCLOSE"
"ISPEXEC VGET (ZTEMPF) SHARED"
"SUBMIT '"ZTEMPF"'" |
Can we see the ALLOCs for SUBMI and FINAL files ?
Can we see the T1 skeleton ?
Is there any relation between these 2 pieces of code ??? |
|
| Back to top |
|
|
|
|
