Utility to expand all copybooks in a COBOL program

IBM supplied program called ISRLEMX can be used to expand all the copybooks in a COBOL program. The documentation of the utility can be found at https://www.ibm.com/docs/en/zos/2.4.0?topic=4-member-expansion-isrlemx
 
Please note that this utility has some restrictions. It can be found at
https://www.ibm.com/docs/en/zos/2.4.0?topic=isrlemx-restrictions-member-expansion-member-parts-lists
 
It does not expand INCLUDE statements in a COBOL program.
 
Below is a sample Job step to expand the program called “PROGNAME”. You should concatenate both COPY library and SOURCE library under ISRLCODE ddname.  
 
//STEP10   EXEC PGM=ISRLEMX,                          
// PARM=('COB,PROGNAME,B,N,E,4, ,00,ENU,4,7',         
//      '1,/,VIO')                                    
//*                                                   
//ISRLMSG DD SYSOUT=*                                 
//SYSPRINT DD SYSOUT=*                                
//SYSOUT   DD SYSOUT=*                                
//ISRLXREF DD SYSOUT=*                                
//ISRLCODE DD DISP=SHR,DSN=MY.COPYLIB             
//         DD DISP=SHR,DSN=MY.SOURCE.PDS
//ISRLEXPD DD DSN=EXPANDED.SOURCE.FILE,               
//         DISP=(,CATLG,DELETE),                      
//         DCB=(LRECL=80,RECFM=FB),                   
//         SPACE=(CYL,(50,50),RLSE)                   
//*    
                                                

SUPERC - Display lines preceding and following the search line found to be listed

When you invoke ISRSUPC(SUPERC) to search for strings, by default, it will display only matching lines.

If you want to display the lines preceding and following the search line found to be listed, then you can use LPSF process option in the PARM card of SUPERC. The default value is 6.

The count can be changed by using the LPSFV process statement. This allows a count range of 1 to 50 lines.

In the below example, "LPSFV 2" option, lists up to 2 lines before and after the line found.

//SEARCH  EXEC PGM=ISRSUPC,                       
//            PARM=(SRCHCMP,LPSF,NOSUMS,          
//            'ANYC')                             
//NEWDD  DD DISP=SHR,DSN=MY.SEARCH.PDS
//OUTDD  DD SYSOUT=*                  
//SYSIN  DD *                         
SRCHFOR 'WS-PGM1XXXU-XXXCLE-UPDATE'   
LPSFV 2                               
/*                                    
 
Output of the above step
 
1  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS           LINE-#  SOURCE SECTION                    SRCH DSN: MY.SEARCH.PDS 
                                                                       
                                                                       
  MEMBER01 CONCAT#(9)       ----------- STRING(S) FOUND ----------------
                                                                       
                                                                       
       *  010500*=======================================================
       *  010600 01 WS-SQLCODE                      PIC ----9.         
     110  010700 01 WS-PGM1XXXU-XXXCLE-UPDATE       PIC X(8) VALUE 'A01U
       *  010800 01 WS-RECS-READ                    PIC 9(08).         
       *  010900 01 WS-RECS-POSTED                  PIC 9(08).         
        

Explanation for JOIN statement in SORT JOINKEYS application

If you don't specify a JOIN statement for a JOINKEYS application, only paired records from F1 and F2 are kept and processed by the main task as the joined records. This is known as an inner join.
 
You can change which records are kept and processed by the main task as the joined records by specifying a JOIN statement. You must specify the UNPAIRED operand. The F1, F2 and ONLY operands are optional. The JOIN operands you specify indicate the joined records to be kept and processed by the main task as follows:
 
JOIN UNPAIRED,F1,F2 or JOIN UNPAIRED
Unpaired records from F1 and F2 as well as paired records. This is known as a full outer join.
 
JOIN UNPAIRED,F1
Unpaired records from F1 as well as paired records. This is known as a left outer join.
 
JOIN UNPAIRED,F2
Unpaired records from F2 as well as paired records. This is known as a right outer join.
 
JOIN UNPAIRED,F1,F2,ONLY or JOIN UNPAIRED,ONLY
Unpaired records from F1 and F2.
 
JOIN UNPAIRED,F1,ONLY
Unpaired records from F1.
 
JOIN UNPAIRED,F2,ONLY
Unpaired records from F2.
 
Examples are given below for each of the above JOIN cases.
 
//STEP01   EXEC PGM=SORT                
//SORTJNF1 DD *                         
001 FILE 1                              
002 FILE 1                              
//SORTJNF2 DD *                         
001 FILE 2                              
003 FILE 2                              
//SORTOUT  DD SYSOUT=*                  
//SYSOUT   DD SYSOUT=*                  
//SYSIN    DD *                         
 OPTION COPY                            
 JOINKEYS FILES=F1,FIELDS=(1,3,CH,A)    
 JOINKEYS FILES=F2,FIELDS=(1,3,CH,A)    
 REFORMAT FIELDS=(F1:1,10,F2:1,10,?)    
 JOIN UNPAIRED,F1,F2                    
/*                                      
 
Output of the above step
001 FILE 1001 FILE 2B
002 FILE 1          1
          003 FILE 22

 
//STEP02   EXEC PGM=SORT               
//SORTJNF1 DD *                        
001 FILE 1                             
002 FILE 1                             
//SORTJNF2 DD *                        
001 FILE 2                             
003 FILE 2                             
//SORTOUT  DD SYSOUT=*                 
//SYSOUT   DD SYSOUT=*                 
//SYSIN    DD *                        
 OPTION COPY                           
 JOINKEYS FILES=F1,FIELDS=(1,3,CH,A)   
 JOINKEYS FILES=F2,FIELDS=(1,3,CH,A)   
 REFORMAT FIELDS=(F1:1,10,F2:1,10,?)   
 JOIN UNPAIRED,F1                      
/*                                     
 
Output of the above step
001 FILE 1001 FILE 2B
002 FILE 1          1

 
//STEP03   EXEC PGM=SORT                
//SORTJNF1 DD *                         
001 FILE 1                              
002 FILE 1                              
//SORTJNF2 DD *                         
001 FILE 2                              
003 FILE 2                              
//SORTOUT  DD SYSOUT=*                  
//SYSOUT   DD SYSOUT=*                  
//SYSIN    DD *                         
 OPTION COPY                            
 JOINKEYS FILES=F1,FIELDS=(1,3,CH,A)    
 JOINKEYS FILES=F2,FIELDS=(1,3,CH,A)    
 REFORMAT FIELDS=(F1:1,10,F2:1,10,?)    
 JOIN UNPAIRED,F2                       
/*                                      
 
Output of the above step
001 FILE 1001 FILE 2B
          003 FILE 22

 
//STEP04   EXEC PGM=SORT               
//SORTJNF1 DD *                        
001 FILE 1                             
002 FILE 1                             
//SORTJNF2 DD *                        
001 FILE 2                             
003 FILE 2                             
//SORTOUT  DD SYSOUT=*                 
//SYSOUT   DD SYSOUT=*                 
//SYSIN    DD *                        
 OPTION COPY                           
 JOINKEYS FILES=F1,FIELDS=(1,3,CH,A)   
 JOINKEYS FILES=F2,FIELDS=(1,3,CH,A)   
 REFORMAT FIELDS=(F1:1,10,F2:1,10,?)   
 JOIN UNPAIRED,F1,F2,ONLY              
/*                                     
 
Output of the above step
002 FILE 1          1
          003 FILE 22

 
//STEP05   EXEC PGM=SORT              
//SORTJNF1 DD *                       
001 FILE 1                            
002 FILE 1                            
//SORTJNF2 DD *                       
001 FILE 2                            
003 FILE 2                            
//SORTOUT  DD SYSOUT=*                
//SYSOUT   DD SYSOUT=*                
//SYSIN    DD *                       
 OPTION COPY                          
 JOINKEYS FILES=F1,FIELDS=(1,3,CH,A)  
 JOINKEYS FILES=F2,FIELDS=(1,3,CH,A)  
 REFORMAT FIELDS=(F1:1,10,?)          
 JOIN UNPAIRED,F1,ONLY                
/*                                    
 
Output of the above step
002 FILE 11 

 
//STEP06   EXEC PGM=SORT               
//SORTJNF1 DD *                        
001 FILE 1                             
002 FILE 1                             
//SORTJNF2 DD *                        
001 FILE 2                             
003 FILE 2                             
//SORTOUT  DD SYSOUT=*                 
//SYSOUT   DD SYSOUT=*                 
//SYSIN    DD *                        
 OPTION COPY                           
 JOINKEYS FILES=F1,FIELDS=(1,3,CH,A)   
 JOINKEYS FILES=F2,FIELDS=(1,3,CH,A)   
 REFORMAT FIELDS=(F2:1,10,?)           
 JOIN UNPAIRED,F2,ONLY                 
/*                                     
//*
 
Output of the above step
003 FILE 22