DFSORT: Reformat data

simo78 · Post by **simo78** » Wed Apr 14, 2010 8:43 pm

Hi,

I have a file which looks like one below:

Input file:

//AC01   EXEC AB13C1231                            
//AB01   EXEC AB88P001                            
//AB02   EXEC AB88P002,P1=AB                      
//UNCAT  EXEC PGM=IDCAMS                          
//ABZ    EXEC A345B105,P1=AB,M=Z                  
//ABNH   EXEC A345B105,P1=AB,M=NH                 
//ABGBH  EXEC A345B105,P1=AB,M=GBH                
//ABM    EXEC A345B105,P1=AB,M=M                  
//AVTT   EXEC A345B105,P1=AB,M=TT                 
//ABGTR  EXEC A345B105,P1=AB,M=V                  
//ACKA   EXEC A345B105,P1=AB,M=KA                 
//CATLG EXEC  PGM=MYPROG1                         
//AB45  EXEC A345B106,P1=AB                       
//UZ45   EXEC A345B106,P1=AU,COND.STEP01=ONLY       
//AC02   EXEC AB45P002,P1=AC                      
//UNCAT  EXEC PGM=IDCAMS                          
//AC07   EXEC A345B105,P1=AC,M=QE                 
//AC45   EXEC A345B106,P1=AC                      
//OD01   EXEC OD99B001,P1=OD,M=E     
//OD02   EXEC A345B105,P1=OD,M=E     
//OD03   EXEC A345B106,P1=OD         
//FP01   EXEC FP45P001,P1=FP,M=AY    
//FP02   EXEC A345B105,P1=FP,M=AY    
//FPGBH  EXEC A345B105,P1=FP,M=I     
//FP04   EXEC A345B106,P1=FP         
//TB01   EXEC TB08P001,P1=TB,M=E     
//TB02   EXEC A345B105,P1=TB,M=E     
//TB03   EXEC A345B106,P1=TB

My output file should take everythink between EXEC and the comma
(or for the first 2 lines everythink after EXEC) and the duplicate should be eliminated.

My output file should look like this:

Expected Output file:

Code: Select all

How can I do this using DFSORT?

Thanks in advance.

skolusu · Post by **skolusu** » Wed Apr 14, 2010 9:27 pm

simo78,

use the following DFSORT JCL

Code: Select all

//STEP0100 EXEC PGM=SORT                              
//SYSOUT   DD SYSOUT=*                                
//SORTIN   DD DATA,DLM=$$                             
//AC01   EXEC AB13C1231                               
//AB01   EXEC AB88P001                                
//AB02   EXEC AB88P002,P1=AB                          
//UNCAT  EXEC PGM=IDCAMS                              
//ABZ    EXEC A345B105,P1=AB,M=Z                      
//ABNH   EXEC A345B105,P1=AB,M=NH                     
//ABGBH  EXEC A345B105,P1=AB,M=GBH                    
//ABM    EXEC A345B105,P1=AB,M=M                      
//AVTT   EXEC A345B105,P1=AB,M=TT                     
//ABGTR  EXEC A345B105,P1=AB,M=V                      
//ACKA   EXEC A345B105,P1=AB,M=KA                     
//CATLG EXEC  PGM=MYPROG1                             
//AB45  EXEC A345B106,P1=AB                           
//UZ45   EXEC A345B106,P1=AU,COND.STEP01=ONLY         
//AC02   EXEC AB45P002,P1=AC                          
//UNCAT  EXEC PGM=IDCAMS                              
//AC07   EXEC A345B105,P1=AC,M=QE                     
//AC45   EXEC A345B106,P1=AC                          
//OD01   EXEC OD99B001,P1=OD,M=E                      
//OD02   EXEC A345B105,P1=OD,M=E                      
//OD03   EXEC A345B106,P1=OD                          
//FP01   EXEC FP45P001,P1=FP,M=AY                     
//FP02   EXEC A345B105,P1=FP,M=AY                     
//FPGBH  EXEC A345B105,P1=FP,M=I                      
//FP04   EXEC A345B106,P1=FP                          
//TB01   EXEC TB08P001,P1=TB,M=E                      
//TB02   EXEC A345B105,P1=TB,M=E                      
//TB03   EXEC A345B106,P1=TB                          
$$                                                    
//SORTOUT  DD SYSOUT=*                                
//SYSIN    DD *                                           
  INCLUDE COND=&#40;1,80,SS,EQ,C'EXEC',AND,1,80,SS,NE,C'PGM'&#41; 
  INREC IFTHEN=&#40;WHEN=INIT,PARSE=&#40;%1=&#40;STARTAFT=C'EXEC',    
                ENDBEFR=C',',FIXLEN=16&#41;&#41;,BUILD=&#40;%1&#41;&#41;,     
  IFTHEN=&#40;WHEN=INIT,OVERLAY=&#40;1,16,JFY=&#40;SHIFT=LEFT&#41;&#41;&#41;      
  SORT FIELDS=&#40;1,8,CH,A&#41;                                  
  SUM FIELDS=NONE                                         
  OUTREC BUILD=&#40;1,8&#41;                                      
//*

simo78 · Post by **simo78** » Thu Apr 15, 2010 3:45 pm

Hello skolusu,

it works perfect!

THANK YOU VERY MUCH!!!

mainframegurukul.com

DFSORT: Reformat data

DFSORT: Reformat data

FREE TUTORIALS