Solved

Mainframe Sort (3rd Try)

Posted on 2012-03-28
1
555 Views
Last Modified: 2012-06-27
Apparently, though I am using the paperclip (attach apparatus) it is not actually attaching so I will take your advice, Tom, and paste that along with the original question below.

We have a as an example a file with 10 records.  The first display of this file is at the top of the Below Document which is at this time considered an unsorted file.  On this below display the second group is that same file sorted using the control card SORT FIELDS=(9,12,CH,D), in essence sorting the key field in descending order.  The third group takes the same unsorted file at the top and using the control card SORT FIELDS=(9,12,CH,A) gives you an Ascending sort.  The fourth groups is what I actually need..  I have been told there is a way to get there using an Alternate Sort Sequence in the JCL.  Please assist.  Below are the examples

11978528TPA00020901920111224000004771EJJONES INC                  
10059794TPA00024142520120123000056256HASSELBROCK, WATSON & CASE    
10150152TPB00002540092012013000000257LACEY T & D                  
10150162TPA00025401020120130000000257LACEY T & D                  
10054652TPA00025901220120126000000322FOLLIN TELEPHONES            
50771823TP000020901920111224000004771EJJONES
50013918TP000021861420111216000000609WATSON TIRE SALES            
50013916TP000021861520111216000001218WATSON TIRE SALES            
51028062TPB00022042220120110000021780ACE PLASTICS                  
50059764TP000024142520120123000056256HASSELBROCK, WATSON & CASE    

50059764TP000024142520120123000056256HASSELBROCK, WATSON & CASE
50013916TP000021861520111216000001218WATSON TIRE SALES        
50013918TP000021861420111216000000609WATSON TIRE SALES        
50771823TP000020901920111224000004771EJJONES INC              
51028062TPB00022042220120110000021780ACE PLASTICS              
10150152TPB00002540092012013000000257LACEY T & D              
10054652TPA00025901220120126000000322FOLLIN TELEPHONES        
10150162TPA00025401020120130000000257LACEY T & D              
10059794TPA00024142520120123000056256HASSELBROCK, WATSON & CASE
11978528TPA00020901920111224000004771EJJONES INC

11978528TPA00020901920111224000004771EJJONES INC                    
10059794TPA00024142520120123000056256HASSELBROCK, WATSON & CASE      
10150162TPA00025401020120130000000257LACEY T & D                    
10054652TPA00025901220120126000000322FOLLIN TELEPHONES              
10150152TPB00002540092012013000000257LACEY T & D                    
51028062TPB00022042220120110000021780ACE PLASTICS                    
50771823TP000020901920111224000004771EJJONES INC                    
50013918TP000021861420111216000000609WATSON TIRE SALES              
50013916TP000021861520111216000001218WATSON TIRE SALES              
50059764TP000024142520120123000056256HASSELBROCK, WATSON & CASE          

50771823TP000020901920111224000004771EJJONES INC                    
50013918TP000021861420111216000000609WATSON TIRE SALES              
50013916TP000021861520111216000001218WATSON TIRE SALES              
50059764TP000024142520120123000056256HASSELBROCK, WATSON & CASE  
11978528TPA00020901920111224000004771EJJONES INC                    
10059794TPA00024142520120123000056256HASSELBROCK, WATSON & CASE      
10150162TPA00025401020120130000000257LACEY T & D                    
10054652TPA00025901220120126000000322FOLLIN TELEPHONES              
10150152TPB00002540092012013000000257LACEY T & D                    
51028062TPB00022042220120110000021780ACE PLASTICS
0
Comment
Question by:mheatherton
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 7

Accepted Solution

by:
garypfirstech earned 450 total points
ID: 37777708
I'm not sure exactly what you want the sort to be for the fourth option.  However, have a look at

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1ca60/3.4?SHELF=EZ2ZO213&DT=20110608113434

for the use of the ALTSEQ CODE.  Be sure to change your SORT FIELDS control card to AQ instead of CH for the third parameter.
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
This article explains the fundamentals of industrial networking which ultimately is the backbone network which is providing communications for process devices like robots and other not so interesting stuff.
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…
Sometimes it takes a new vantage point, apart from our everyday security practices, to truly see our Active Directory (AD) vulnerabilities. We get used to implementing the same techniques and checking the same areas for a breach. This pattern can re…

623 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question