//HB2U2660 JOB (6041,FOR,,20),TIME=(,11),MSGCLASS=X                             
/*PHOLD                                                                         
//CPY1     EXEC PGM=STDCPY                                                      
//STEPLIB  DD DISP=SHR,DSN=FEA.LINKLIB                                          
//SYSPRINT DD SYSOUT=*                                                          
//FILE1    DD DISP=SHR,DSN=DSN1                                                 
//FILE2    DD DSN=&&DSN1,                                                       
//  DISP=(NEW,PASS),UNIT=SYSDA,                                                 
//  SPACE=(TRK,(10,10),RLSE),                                                   
//  DCB=(RECFM=FB,LRECL=0080,BLKSIZE=6000)                                      
//BESTOP EXEC PGM=BESTOP,REGION=660K,PARM='I=1'                                 
//STEPLIB  DD DISP=SHR,DSN=FEA.LINKLIB                                          
//SYSPRINT DD SYSOUT=X                                                          
//FILE1 DD DISP=(OLD,DELETE),DSN=&&DSN1                                         
//*FILE1 DD DISP=OLD,  *NW*                                                     
//*  DSN=DSN1                                         *NW*                      
//FILE2 DD DCB=(RECFM=FB,LRECL=0090,BLKSIZE=6300),                              
// UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE),DISP=(NEW,PASS),                           
// DSN=&&ONE                                                                    
//PROGRAM  DD  *              ADD SEQUENCE NUMBERS                              
M 1.1.0080 2.1.0080                                                             
+ '1' S.1.10                                                                    
M S.1.10 2.0081.0090                                                            
W 2                                                                             
//SORT1 EXEC PGM=SORT,                                                          
//   PARM=('CORE=100000','MSG=AP'),REGION=120K                                  
//SORTLIB   DD   DISP=SHR,DSN=SYS1.SORTLIB                                      
//SORTIN  DD DISP=(OLD,DELETE),DSN=&&ONE                                        
//SORTOUT DD DCB=(RECFM=FB,LRECL=0090,BLKSIZE=6300),                            
//   DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE),                         
//   DSN=&&ONES                                                                 
//SYSIN  DD *                     SORT ON THE KEY                               
  SORT FIELDS=(0001,0080,A,0084,7,D),FORMAT=CH                                  
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK04  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK05  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK06  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTMESS  DD   SYSOUT=X                                                       
//SYSOUT  DD  SYSOUT=X                                                          
//CPY2     EXEC PGM=STDCPY                                                      
//STEPLIB  DD DISP=SHR,DSN=FEA.LINKLIB                                          
//SYSPRINT DD SYSOUT=*                                                          
//FILE1    DD DISP=SHR,DSN=DSN2                                                 
//FILE2  DD DSN=&&DSN2,                                                         
//  DISP=(NEW,PASS),UNIT=SYSDA,                                                 
//  SPACE=(TRK,(10,10),RLSE),                                                   
//  DCB=(RECFM=FB,LRECL=0080,BLKSIZE=6000)                                      
//SORT2 EXEC PGM=SORT,                                                          
//   PARM=('CORE=100000','MSG=AP'),REGION=120K                                  
//SORTLIB   DD   DISP=SHR,DSN=SYS1.SORTLIB                                      
//SORTIN  DD DISP=(OLD,DELETE),DSN=&&DSN2                                       
//*SORTIN  DD DISP=OLD,  *NW*                                                   
//*  DSN=DSN2                                         *NW*                      
//SORTOUT DD DCB=(RECFM=F,LRECL=0080,BLKSIZE=0080),                             
//   DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE),                         
//   DSN=&&TWOS                                                                 
//SYSIN  DD *                SORT ON THE SAME KEY                               
  SORT FIELDS=(0001,0080,A),FORMAT=CH                                           
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK04  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK05  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK06  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTMESS  DD   SYSOUT=X                                                       
//SYSOUT  DD  SYSOUT=X                                                          
//MATCH  EXEC PGM=BESTOP,REGION=660K,PARM='T=1,A=1,B=3'                         
//STEPLIB  DD DISP=SHR,DSN=FEA.LINKLIB                                          
//SYSPRINT DD SYSOUT=*                                                          
//FILE1 DD DISP=(OLD,DELETE),DSN=&&ONES                                         
//FILE3 DD DISP=(OLD,DELETE),DSN=&&TWOS                                         
//FILE2 DD DCB=(RECFM=FB,LRECL=0090,BLKSIZE=6300),                              
// UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE),DISP=(NEW,PASS),                           
// DSN=&&MATCH                                                                  
//PROGRAM  DD  *           MATCH ON THE COMMON KEY                              
K 1.0001.0080 3.0001.0080                                                       
M 1.1.0090 2.1.0090  *ALL                                                       
I A A                                    *ALL                                   
I C 1.0001.0080 U ' '         *ALL                                              
C 2.0081.0083 '*'        *ALL                                                   
I A O                                    *ALL                                   
I M                                      *ALL                                   
W 2                                      *ALL                                   
//SORT3 EXEC PGM=SORT,                                                          
//   PARM=('CORE=100000','MSG=AP'),REGION=120K                                  
//SORTLIB   DD   DISP=SHR,DSN=SYS1.SORTLIB                                      
//SORTIN    DD   DISP=(OLD,DELETE),DSN=&&MATCH                                  
//SORTOUT DD DCB=(RECFM=FB,LRECL=0090,BLKSIZE=6300),                            
//   DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(2,2),RLSE),                         
//   DSN=&&FINAL                                                                
//SYSIN  DD *            SORT ON ORIGINAL SEQUENCE                              
  SORT FIELDS=(0084,7,A),FORMAT=CH                                              
//SORTWK01  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK02  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK03  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK04  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK05  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTWK06  DD  UNIT=SYSDA,SPACE=(CYL,2)                                        
//SORTMESS  DD   SYSOUT=X                                                       
//SYSOUT  DD  SYSOUT=X                                                          
//LIST  EXEC PGM=BESTOP,REGION=660K,PARM='N,I=1'                                
//STEPLIB  DD DISP=SHR,DSN=FEA.LINKLIB                                          
//SYSPRINT DD SYSOUT=*                                                          
//LISTING  DD SYSOUT=V                                                          
//FILE1 DD DISP=(OLD,DELETE),DSN=&&FINAL                                        
//PROGRAM  DD  *                                                                
I C G '55'                                                                      
W L H                                                                           
I C L '02'                                                                      
C L.1.90 '-'                                                                    
W L 1                                                                           
C L.1 '|'                                                                       
C L.90 '|'                                                                      
M 'NEW:' L.4.7                                                                  
M 'DSN1                                        ' L.11.54                        
M D.19.26 L.72.79                                                               
W L 1                                                                           
C L.1 '|'                                                                       
C L.90 '|'                                                                      
M 'OLD:' L.4.7                                                                  
M 'DSN2                                        ' L.11.54                        
M D.33.39 L.71.77                                                               
M D.41.42 L.78.79                                                               
W L 1                                                                           
C L.1.90 '-'                                                                    
W L 2                                                                           
U                                                                               
E 1.0084.0090 L.2.8 '      0'                                                   
M 1.0081.0083 L.1.3                                                             
M 1.001.080 L.11.090                                                            
W L 1
 
