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 except header & trailer

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

New User


Joined: 07 May 2008
Posts: 12
Location: Hyderabad

PostPosted: Thu Jun 12, 2008 10:50 am    Post subject: sort except header & trailer
Reply with quote

Hi all,
I have a requirement that I need 2 sort the records with in header and trailer could you please let me know how can this be done
key is first 5 bytes

Input:-

24062008H <--- Hearder record
11111111
33333333
22222222
55555555
44444444
000000005T <--- Trailer record

Output :-

24062008H <--- Hearder record
11111111
22222222
33333333
44444444
55555555
000000005T <--- Trailer record

Hope every one is clear with this requirement....

Thanks
Ajay
Back to top
View user's profile Send private message
References
PostPosted: Thu Jun 12, 2008 10:50 am    Post subject: Re: sort except header & trailer Reply with quote

Anuj D.

Senior Member


Joined: 22 Apr 2006
Posts: 1708
Location: Phoenix, AZ

PostPosted: Thu Jun 12, 2008 11:15 am    Post subject:
Reply with quote

Hi,

Check this link

http://www-304.ibm.com/systems/support/storage/software/sort/mvs/tricks/

for "Sort records between a header and trailer".
Back to top
View user's profile Send private message
ajayvamsee
Currently Banned

New User


Joined: 07 May 2008
Posts: 12
Location: Hyderabad

PostPosted: Thu Jun 12, 2008 12:03 pm    Post subject:
Reply with quote

I could not understand ...this material...please could you explain me.../ can u give me the example using SORT?...

What nonsence is this ICEMEN,ICETOOL..SORT again DFSORT..SYNCSORT
are all same are not...wat is this confusion and these many things?

Thanks
Ajay
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Jun 12, 2008 12:07 pm    Post subject:
Reply with quote

ajayvamsee wrote:
I could not understand ...this material...please could you explain me.../ can u give me the example using SORT?...

What nonsence is this ICEMEN,ICETOOL..SORT again DFSORT..SYNCSORT
are all same are not...wat is this confusion and these many things?

Thanks
Ajay

Maybe if you would take the time to sit down and read the material given to you and then to try some of the examples, perhaps you would be able to build your own control statements rather than ask for someone else to do your work for you.

It is clear that you do not understand a lot of things, first and foremost DFSORT & SYNCSORT are definitely not the same
Back to top
View user's profile Send private message
ajayvamsee
Currently Banned

New User


Joined: 07 May 2008
Posts: 12
Location: Hyderabad

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

Material should be simple and cool...should be straight forward..not like this kind
Back to top
View user's profile Send private message
Anuj D.

Senior Member


Joined: 22 Apr 2006
Posts: 1708
Location: Phoenix, AZ

PostPosted: Thu Jun 12, 2008 12:38 pm    Post subject:
Reply with quote

Hi,
ajayvamsee wrote:
Material should be simple and cool...should be
straight forward..not like this kind
What part of material was not "stright forward" or clear..?
Back to top
View user's profile Send private message
Anuj D.

Senior Member


Joined: 22 Apr 2006
Posts: 1708
Location: Phoenix, AZ

PostPosted: Thu Jun 12, 2008 1:24 pm    Post subject:
Reply with quote

Hi,

Your replies made you to get banned..hmm.. anyways if you get back to this thread, try this JCL:

Code:
//STEP050  EXEC PGM=SORT,REGION=4096K               
//*                                                 
//SORTIN   DD  *                                   
24062008H                                           
11111111                                           
33333333                                           
22222222                                           
55555555                                           
44444444                                           
000000005T                                         
//SORTOUT  DD  SYSOUT=*                             
//*                                                 
//SYSIN    DD  *                                   
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'1')),       
  IFTHEN=(WHEN=(9,1,CH,EQ,C'H'),OVERLAY=(81:C'0')),
  IFTHEN=(WHEN=(10,1,CH,EQ,C'T'),OVERLAY=(81:C'9'))
  SORT FIELDS=(81,1,CH,A,1,5,CH,A)                 
  OUTREC FIELDS=(1,80)                             
/*                                                 
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