Solved

Mainframe Sort (3rd Try)

Posted on 2012-03-28
1
542 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
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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

This article demonstrates probably the easiest way to configure domain-wide tier isolation within Active Directory. If you do not know tier isolation read https://technet.microsoft.com/en-us/windows-server-docs/security/securing-privileged-access/s…
After-hours service is a fact of life for most MSPs. While not the most pleasant aspect of the job, there are ways to make after-hours servicing a more profitable and organized enterprise.
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

679 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