Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Sort Card for sorting a file of length 766

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
ajay_udl

New User


Joined: 10 Oct 2006
Posts: 9

PostPosted: Thu May 08, 2008 11:59 am    Post subject: Sort Card for sorting a file of length 766
Reply with quote

Hi,

Could you please help me in sorting a file with length 766 and put filler to make the LRECL as 1190.I wrote a sort card as below

Code:

   SORT FIELDS=COPY
   OUTREC FIELDS=(2,13,737,2,1175x)


The above SORT CARD made the LRECL as 1190 but did not copy the contents of the record.Only data in first 15 columns got written to a new sorted file.
Could anyone help to copy the entire content of file1 to file2 with the above requirement.
Back to top
View user's profile Send private message
References
PostPosted: Thu May 08, 2008 11:59 am    Post subject: Re: Sort Card for sorting a file of length 766 Reply with quote

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 2186
Location: Brussels once more ...

PostPosted: Thu May 08, 2008 12:10 pm    Post subject:
Reply with quote

What does the fine manual say about the OUTREC statement.

You are taking 13 bytes from pos 2 and two bytes from pos 737 of the input, and then filling with blanks. Your output is what I would expect from that statement.
Back to top
View user's profile Send private message
gcicchet

Active User


Joined: 28 Jul 2006
Posts: 154

PostPosted: Thu May 08, 2008 12:14 pm    Post subject:
Reply with quote

Hi,
the outrec fields say

copy 13 bytes from pos 2
copy 02 bytes from pos 737
followed by 1175 spaces

hence the results are correct.


Gerry
Back to top
View user's profile Send private message
gcicchet

Active User


Joined: 28 Jul 2006
Posts: 154

PostPosted: Thu May 08, 2008 12:17 pm    Post subject:
Reply with quote

Hi Expat,
I didn't try to steal your thunder, your answer wasn't posted when I replied.

Gerry
Back to top
View user's profile Send private message
ajay_udl

New User


Joined: 10 Oct 2006
Posts: 9

PostPosted: Thu May 08, 2008 12:17 pm    Post subject:
Reply with quote

Thanks expat,I got it
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 2186
Location: Brussels once more ...

PostPosted: Thu May 08, 2008 12:19 pm    Post subject:
Reply with quote

gcicchet wrote:
Hi Expat,
I didn't try to steal your thunder, your answer wasn't posted when I replied.
Gerry

No probs,
I have also fallen foul of the time delayed already responded response syndrome anomily icon_eek.gif
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


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

PostPosted: Thu May 08, 2008 8:42 pm    Post subject:
Reply with quote

ajay_udl,

Well, people told you what was wrong with the control statements you used, but they didn't tell you the best way to do what you want to do which would be:

Code:

   OPTION COPY
   INREC OVERLAY=(1190:X)


If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1