Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Cant we use INCLUDE and OUTREC together

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ap_mainframes

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Tue Mar 28, 2006 4:39 pm    Post subject: Cant we use INCLUDE and OUTREC together
Reply with quote

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
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Tue Mar 28, 2006 5:10 pm    Post subject: Re: A sort card
Reply with quote

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
View user's profile Send private message
ap_mainframes

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Tue Mar 28, 2006 5:59 pm    Post subject: Re: A sort card
Reply with quote

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
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Tue Mar 28, 2006 6:51 pm    Post subject: Re: A sort card
Reply with quote

ap_mainframes, have you forgotten your previous post about sorting VB datasets?

http://www.ibmmainframes.com/viewtopic.php?t=9370
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Mar 28, 2006 9:04 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ap_mainframes

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Tue Mar 28, 2006 9:07 pm    Post subject: Re: Cant we use INCLUDE and OUTREC together
Reply with quote

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
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Tue Mar 28, 2006 9:14 pm    Post subject: Re: Cant we use INCLUDE and OUTREC together
Reply with quote

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
View user's profile Send private message
ap_mainframes

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Tue Mar 28, 2006 9:25 pm    Post subject: Re: Cant we use INCLUDE and OUTREC together
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Mar 28, 2006 9:59 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Mar 28, 2006 10:01 pm    Post subject:
Reply with quote

Quote:
1. Why is it abending???


What ABEND are you getting?
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Mar 28, 2006 10:34 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts More than 1 Include criteria for sing... Roy Ware SYNCSORT 6 Wed Sep 13, 2017 11:45 pm
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts Include/omit with "ALL" pa... mgl DFSORT/ICETOOL 6 Wed Jun 14, 2017 2:31 pm
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us