|
View previous topic :: View next topic
|
| Author |
Message |
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
Hi
I am having problem with this runjcl
| Code: |
//RUNJCLAT JOB 'IBMMFS','DEB',CLASS=A,MSGCLASS=4,MSGLEVEL=(1,1),
// NOTIFY=R9SSHC6
//STEP1 EXEC PGM=STU
//STEPLIB DD DSN=PWSX.R9SSHC6.LOAD2345,DISP=SHR
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR,
//INFILE DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR
//SYSPRINT DD SYSOUT= *
//OTFILE DD DSN=PWSX.R9SSHC6.FLAT3,DISP=(NEW,CATLG,DELETE),
// UNIT=UNIT1,SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=FB,BLKSIZE=800,LRECL=80)
//SYSIN DD *
/
//
|
jcl error is comming! |
|
| Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Add TYPRUN=SCAN to the Job Card. I suspect your error is the single '/' after SYSIN DD *.
Is there any SYSIN data being passed?
If not, then change SYSIN DD * to SYSIN DD DUMMY and remove the '/' completely.
Then, all will be forgiven and STU will be a much happier program.... 
Bill |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
UNIT=UNIT1
Is that a valid device name? |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| Quote: |
| jcl error is comming |
when a jcl error occurs, it is listed in you jes3 output.
the comma following the DISP=SHR in the first dd statement for Reference Name INFILE
tells jes to expect continuation parms for the dd statement.
you don't have any, you have a new Reference dd statement.
| Quote: |
| Code: |
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR,
//INFILE DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR
|
|
if you are trying to concatenate these 2 files to the dd reference INFILE
try this:
| Code: |
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR
|
since you are obviously too lazy to read either jes messages or
the jcl manual.
you have been posting questions long enough to have learned how to use BBCode |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
You are just wasting everybody' s time
was it so difficult to post the exact message  
I would have understood if You had done it on a wednesday/thursday/friday ( psychic days )
on monday You are out of luck
Bill a standalone / is interpreted as data, unlikely to give a jcl error ( just tested with a silly iebgener
| Code: |
//IEBGENER JOB (UTIL),'IEBGENER',
// CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
//********+****+*******************************************************
//*
//IEB EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *,DCB=LRECL=80
/
//SYSUT2 DD SYSOUT=*
/*
// |
|
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
Bill changed SYSIN DD * to SYSIN DD DUMMY and removed the '/' completely, but still I am havin the error and DBZ I am having no jes3 and the error in jes2 is-:
STMT NO. MESSAGE
4 IEFC006I POSITIONAL PARAMETERS MUST BE SPECIFIED BEFORE KEYWO
6 IEFC625I INCORRECT USE OF PARENTHESIS IN THE SPACE FIELD
also I used INFILE only once without comma.. Like this-:
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
it would be very nice of You if You posted the exact jcl from the run
using the bbcode tags
if You noticed the messages
| Quote: |
STMT NO. MESSAGE
4 IEFC006I POSITIONAL PARAMETERS MUST BE SPECIFIED BEFORE KEYWO
6 IEFC625I INCORRECT USE OF PARENTHESIS IN THE SPACE FIELD
|
reference a jcl statement
since You modified the jcl posted in the starting post we do not know what is going on !
without seeing the real statements You used little can be said |
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
| Quote: |
| Bill a standalone / is interpreted as data, unlikely to give a jcl error ( just tested with a silly iebgener |
Enrico,
Thanks.
To tell you the truth, I've never knowingly used this.
One of those crazy nuances of IT esoteria. 
Bill |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
ankoo,
you need to post the actual jes output containing the JCL and the messages.
use the [ code ] [ /code ] tags. |
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
Ok, I am giving the jcl again with code tag
| Code: |
//RUNJCLAT JOB 'IBMMFS','DEB',CLASS=A,MSGCLASS=4,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=STU
//STEPLIB DD DSN=PWSX.R9SSHC6.LOAD2345,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR
//SYSPRINT DD SYSOUT=*
//OTFILE DD DSN=PWSX.R9SSHC6.FLAT3,DISP=(MOD,CATLG,DELETE),
// UNIT=UNIT1,SPACE=(TRKS,(5,1),RLSE),
// DCB=(RECFM=FB,BLKSIZE=800,LRECL=80)
//SYSIN DD *
// |
| Code: |
********************************* TOP OF DATA **********************************
STMT NO. MESSAGE
-
8 IEF644I INVALID NUMERIC IN THE SPACE FIELD
******************************** BOTTOM OF DATA ******************************** |
|
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Try replacing TRKS with TRK.
You have your code tags out of order.
Oy vey |
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
| Code: |
//RUNJCLAT JOB 'IBMMFS','DEB',CLASS=A,MSGCLASS=4,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=STU
//STEPLIB DD DSN=PWSX.R9SSHC6.LOAD2345,DISP=SHR
//SYSPRINT DD SYSOUT=*
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR
//SYSPRINT DD SYSOUT=*
//OTFILE DD DSN=PWSX.R9SSHC6.FLAT3,DISP=(MOD,CATLG,DELETE),
// UNIT=UNIT1,SPACE=(TRKS,(5,1),RLSE),
// DCB=(RECFM=FB,BLKSIZE=800,LRECL=80)
//SYSIN DD *
// |
| Code: |
********************************* TOP OF DATA **********************************
STMT NO. MESSAGE
-
8 IEF644I INVALID NUMERIC IN THE SPACE FIELD
******************************** BOTTOM OF DATA ******************************** |
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Code: |
[code] your
code
goes here [/code] |
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| SPACE=(TRKS,(5,1),RLSE), |
You do now realize that this cannot work. . . Either a numeric or a CYL or TRK must be used.
As you did not specify CYL or TRK, the value is an invalid numeric. . .
You have to use what is supported by the system - and when something else is used, you have to deal with the interpretation of the system . . . |
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
| Quote: |
| UNIT=UNIT1,SPACE=(CYL,(1,1),RLSE), |
I think this is correct now.But still its not working. |
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
Even I changed from cyls to TRKS
| Code: |
//RUNJCLAT JOB 'IBMMFS','DEB',CLASS=A,MSGCLASS=4,MSGLEVEL=(1,1),
// NOTIFY=R9SSHC6
//STEP1 EXEC PGM=STU
//STEPLIB DD DSN=PWSX.R9SSHC6.LOAD2345,DISP=SHR
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR,
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR
//SYSPRINT DD SYSOUT= *
//OTFILE DD DSN=PWSX.R9SSHC6.FLAT3,DISP=(MOD,CATLG,DELETE),
// UNIT=UNIT1,SPACE=(TRK,(5,1),RLSE),
// DCB=(RECFM=FB,BLKSIZE=800,LRECL=80)
//SYSIN DD *
/
// |
After submission the JCL error message is comming!
Message is
| Code: |
********************************* TOP OF DATA **********************************
STMT NO. MESSAGE
4 IEFC006I POSITIONAL PARAMETERS MUST BE SPECIFIED BEFORE KEYWORD PARAME
******************************** BOTTOM OF DATA ******************************** |
|
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
Also DBZ if I am using this
| Code: |
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR |
i.e. without comma I am getting an the following abend
| Code: |
00.35.59 JOB09512 $HASP165 RUNJCLAT ENDED AT H068NJE - ABENDED S000 U4038 CN(IN
TERNAL) |
If I use comma like this
| Code: |
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR,
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR |
I an not getting an abend |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
the one without the comma is the right one
and is the proper way to concatenate two datasets
did You care to look at the manuals for the meaning of the abend ?
certainly not, is faster to whine on the forum and wait for the solution
as a hint check that the two datasets have the same dcb the LRECL should be the same
the one with the comma is wrong anyway
post the sysout so that we can see how it was interpreted
if You are not willing to read the manuals yourself You should meditate about a career change,
IT is not the right one for You
and no... urgency is not an excuse |
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
| Quote: |
| as a hint check that the two datasets have the same dcb the LRECL should be the same |
I have checked the LRECL is the same as I used the Create command.
Also the SYSOUT
| Code: |
********************************* TOP OF DATA **********************************
IGZ0035S There was an unsuccessful OPEN or CLOSE of file FLAT1 in program STU at
FILE STATUS nor an ERROR declarative were specified. The status code wa
From compile unit STU at entry point STU at compile unit offset +000004
address 1CD009BE.
******************************** BOTTOM OF DATA ******************************** |
|
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
I do not think that I could exhibit rudeness required to achieve a level Ankoo deserves for - changing jcl on the fly and complaining about errors
- not bothering to look in the manuals
- posting truncated messages
It is obvious why he asks his questions in an anonymous internet forum
instead of his peers/co-workers.
They have undoubtedly had enough of his apathetic efforts of self-enlightenment,
inability to grasp elemental concepts
and general obliviousness to his actions. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| ankoo, since you did not provide the full statements (there is more to the right on the SYSOUT screen), there's no way anybody can help you. The file status code will tell you precisely what the problem is -- and there's even a sticky on the COBOL forum to take you directly to the file status codes. |
|
| Back to top |
|
|
ankoo
New User
Joined: 12 Jun 2010
Posts: 31
Location: India
|
|
|
|
I got it the file status code was 35 and I corrected it by usinf File Status after the select statement
But Still not able to solve the problem of using two files, by using the following code the variable is not picking up the values so it is showing no output!
| Code: |
//INFILE DD DSN=PWSX.R9SSHC6.FLAT1,DISP=SHR
// DD DSN=PWSX.R9SSHC6.FLAT2,DISP=SHR |
My peers are saying to use two DD statements and not one I have used above.Anyone knowing how to use two DD statements |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Code: |
| There was an unsuccessful OPEN or CLOSE of file FLAT1 in program STU |
I can not see a file FLAT1 in your JCL
If you are the author of the program or have access to the source, what are the filenames that you should be using, and are you using them. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
| Back to top |
|
|
|
|
