Utilities › RMODBASE - Database Maintenance › BLOAD Control Statement › UNLBANEX - Sample Banner Extraction Utility

UNLBANEX - Sample Banner Extraction Utility

UNLBANEX is a sample program to extract banners from an unloaded copy of a CA Deliver database and create PDS members.

Assemble and link UNLBANEX to CVDELOAD:

//       JOB    
//ASM    EXEC PGM=ASMA90,PARM=('NODECK,OBJECT')    
//SYSPRINT DD SYSOUT=*    
//SYSUT1   DD UNIT=SYSDA,SPACE=(TRK,(5,5))    
//SYSUT2   DD UNIT=SYSDA,SPACE=(TRK,(5,5))    
//SYSUT3   DD UNIT=SYSDA,SPACE=(TRK,(5,5))    
//SYSLIN   DD DSN=&&OBJ,DISP=(,PASS),    
//            SPACE=(CYL,(1,1)),UNIT=SYSDA    
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB    
//SYSIN    DD DISP=SHR,...CVDEOPTN(UNLBANEX)    <== Change    
//LKED   EXEC PGM=IEWL,PARM='XREF,LIST,NCAL'    
//SYSLMOD  DD DISP=SHR,DSN=...CVDELOAD         <== Change    
//SYSPRINT DD SYSOUT=*    
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(2,1))    
//SYSLIN   DD DSN=&&OBJ,DISP=(OLD,DELETE)    
//         DD *       
	ENTRY   UNLBANEX       
	NAME    UNLBANEX(R)    
/*    
//

Unload the CA Deliver database using the RMOBASE/UNLOAD utility and reformat the RMODBASE VBS output file to normal Fixed Blocked Variable records.

Note: When unloading the Deliver database, specify the HISTDELALL operand, as unloading the history detail creates an unnecessary large file.

//UNLOAD EXEC PGM=RMODBASE    
//STEPLIB  DD DISP=SHR,DSN=...CVDELOAD         <== Change    
//SYSPRINT DD  SYSOUT=*    
//RMOUNLD  DD  DSN=...UNLOAD,                  <== Change    
//             DISP=(,CATLG),    
//             SPACE=(TRK,(100,100)),UNIT=SYSDA    
//SYSIN    DD  *               
	    NAME ....db_hlq.....                <== Change               
	    UNLOAD HISTDELALL    
/*    
//FORMAT EXEC PGM=IEBGENER    
//SYSPRINT DD  SYSOUT=*    
//SYSUT1   DD  DISP=SHR,DSN=...UNLOAD          <== Change    
//SYSUT2   DD  DSN=...UNLOADR,                 <== Change    
//             DISP=(,CATLG),    
//             SPACE=(TRK,(100,100)),UNIT=SYSDA,    
//             DCB=(,RECFM=VB,LRECL=32756,BLKSIZE=32760)    
//SYSIN    DD  DUMMY    
// 

Pre-allocate a partitioned data set with the same file attributes as CVDED133 (CA Deliver Banner Library):

DSORG=PO     

RECFM=FB     

LRECL=133     

BLKSIZE=3990   

Run the UNLBANEX utility to create a member for each banner in the original CA Deliver database:

//RUN    EXEC PGM=UNLBANEX    
//STEPLIB  DD DISP=SHR,DSN=...CVDELOAD           <== Change    
//SYSPRINT DD SYSOUT=*    
//RMOBLIB  DD DISP=SHR,DSN=...PDS              <== Change    
//RMOUNLD  DD DISP=SHR,DSN=...UNLOADR          <== Change    
//