View previous topic :: View next topic
|
Author |
Message |
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
Hi,
I am using a simple sort card but its abending without any messages.
the card is
Code: |
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(36,2,CH,EQ,C'c>')
OUTREC FIELDS=(1:10,09)
/*
|
Cant we use INCLUDE and OUTREC together?? |
|
Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
ap_mainframes,
Quote: |
I am using a simple sort card but its abending without any messages. |
Did you code it in your Sort Step.
Code: |
//SYSOUT DD SYSOUT=* |
Quote: |
Cant we use INCLUDE and OUTREC together?? |
Yeah, we can.
Please post your complete SORT STEP for a better understanding.
Regards,
Priyesh. |
|
Back to top |
|
|
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
here it is:
Code: |
//STEP020 EXEC PGM=SORT
//SORTIN DD DSN=YYYY.XXX.LOG1,DISP=SHR
// DD DSN=YYYY.XXX..LOGFLBK.LOG,DISP=SHR
//SORTOUT DD DCB=(BLKSIZE=10,LRECL=10,RECFM=VB),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,2),RLSE),
// DSN=YYYY.XXXX.LOGFLBK.FINAL.ACC
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:10,9)
/* |
both the input files are VB files. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
ap,
First you show INCLUDE and OUTREC statements - then you show your SORT step without the INCLUDE statement - confusing.
Of course, for VB, you must account for the RDW, so
Code: |
OUTREC FIELDS=(1:10,9)
|
will result in an error message since it doesn't start with 1,4 (the RDW).
But more importantly, since you have a //SYSOUT DD statement, you should be getting the messages unless your shop has a different ddname for the message data set. You need to get the messages to see what's wrong in various situations. If you're really not getting the //SYSOUT messages, then run an ICETOOL DEFAULTS job to see what MSGDDN is set to for your installation. |
|
Back to top |
|
|
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
superk,
sorry for posting a wrong sort card.
actually it is starting from 5 and not 1 ( see quote) .
but still it is not working !!!
Quote: |
OUTREC FIELDS=(5:10,9) |
Code: |
//STEP020 EXEC PGM=SORT
//SORTIN DD DSN=YYYY.TTT.LOG1,DISP=SHR
// DD DSN=YYYY.TTT..LOGFLBK.LOG,DISP=SHR
//SORTOUT DD DCB=(BLKSIZE=10,LRECL=10,RECFM=VB),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,2),RLSE),
// DSN=YYYY.XXXX.LOGFLBK.FINAL.ACC
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(5:10,9)
/*
|
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Another problem could be that your OUTREC parameter only specifies a 9-byte LRECL, but then your JCL specifies 10-bytes.
You should leave the DCB information out of the JCL. |
|
Back to top |
|
|
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
hey superk,
I have tried that as well.
Trust me this is not my first sort ...I have written few, if not many, and still two things are really really suprising me here
1. Why is it abending???
2. I am just not getting any ERROR MESSAGE in SYSOUT????
I thought I am making some silly mistake here.
Please let me know if anybody finds the problem.
ap_mainframes. |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Hmmm ... I don't know if you read my previous post or not.
Code: |
OUTREC FIELDS=(5:10,9)
|
This is INVALID for a VB input data set because you're not specifying the RDW. You can't start in column 5 - you have to start in column 1. And you can't just have 10,9. You need the RDW. This would work, although I don't know if it's what you want since you haven't said anything about what you're trying to do:
Code: |
OUTREC FIELDS=(1,4,10,9)
|
As for why you're not getting error messages, again the only reason I can think of is that the default ddname for the message data set has been changed from SYSOUT to something else. You'd need to find out what that something else is.
Or maybe you have a JCL error you're not telling us about?
Do you get messages for other sort jobs? |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
1. Why is it abending??? |
What ABEND are you getting? |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
If you're using DFSORT, try adding this to your job to see if it forces out the messages in //MYMSGS:
Code: |
//SORTDIAG DD DUMMY
//MYMSGS DD SYSOUT=*
//DFSPARM DD *
MSGDDN=MYMSGS
/*
|
|
|
Back to top |
|
|
|