Uncompress Endevor output listings stored with CONLIST
search cancel

Uncompress Endevor output listings stored with CONLIST

book

Article ID: 263062

calendar_today

Updated On:

Products

Endevor

Issue/Introduction

Endevor output listings that are stored using the CONLIST utility as follows:

//*******************************************************************
//* STORE THE LISTINGS IF: &LISTLIB=LISTING. LIBRARY NAME *
//*******************************************************************
//STORLIST EXEC PGM=CONLIST,MAXRC=0,PARM=STORE,COND=EVEN,
// EXECIF=(&LISTLIB.,NE,NO)
//C1LLIBO DD DSN=&LISTLIB.,DISP=SHR,
// MONITOR=&MONITOR.
//C1BANNER DD UNIT=&WRKUNIT.,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//LIST01 DD DSN=&&ASMLIST,DISP=(OLD,DELETE)
//LIST02 DD DSN=&&LNKLIST,DISP=(OLD,DELETE)
 
The listing is stored compressed. How can this be converted to a uncompressed format.

Environment

Release : all

Cause

The DCB of the dataset referred to in the DD C1LLIBO of the CONLIST step of the processor is RECFM=VBA.  This causes the listing to be stored in compressed format. 

If the RECFM was FBA the listing would be stored in uncompressed format.

Resolution

Create a new LISTLIB dataset that is RECFM=FBA. This can be PDS/PDSE or ELIB just like any other LISTLIB. Ensure the dataset is allocated with more space than the original LISTLIB.

Copy the existing listings from the original LISTLIB(RECFM=VBA) to the new LISTLIB(RECFM=FBA).  Use the processor utility BC1PNCPY in order to copy the member and uncompress the listings.  See the following JCL example:

//BC1PNCPY EXEC PGM=NDVRC1,PARM='BC1PNCPY',REGION=4096K  
//STEPLIB  DD DISP=SHR,DSN=hlq.mlq.CSIQAUTU              
//         DD DISP=SHR,DSN=hlq.mlq.CSIQAUTH              
//CONLIB   DD DISP=SHR,DSN=hlq.mlq.CSIQLOAD              
//ELIBI    DD DISP=SHR,DSN=hlq.mlq.LISTLIB                 
//ELIBO    DD DISP=SHR,DSN=hlq.mlq.LISTLIB.FBA                 
//SYSIN    DD *                                          
COPY                                                      
     INPUT  DDN ELIBI                                    
     OUTPUT DDN ELIBO                                    
     MEMBER *                                            
.                                                        
//BSTERR   DD SYSOUT=*                                    
//SYSPRINT DD SYSOUT=*                                    
//SYMDUMP  DD DUMMY                                      
//SYSDUMP  DD DUMMY  

Then rename the datasets.

Using the above example:

RENAME hlq.mlq.LISTLIB  to hlq.mlq.LISTLIB.VBA

then RENAME hlq.mlq.LISTLIB.FBA to hlq.mlq.LISTLIB 

 

Additional Information

NOTE: Member names may not match Element name. If the value of "COMPRESS/ENCRYPT" is Y in the Type Definition. The Member name will not be the same as the Element name.