How to remove MCD code from a Librarian master file

Products

• Librarian

Issue/Introduction

Is there a way to remove the MCD from the Librarian master file?

Environment

Release : 4.4

Component : CA Librarian

Resolution

Steps to remove the MCD code from the Librarian master file.

 

Run the INDEX report against the current master file

//STEP1         EXEC PGM=AFOLIBR2,PARM='DEPTH=38,NJTA,NRJS'            
//STEPLIB      DD  DSN=YOUR.LIBRARIAN.CALJLINK,DISP=SHR           
//INDEX          DD       SYSOUT=*                                       
//MASTER       DD  DISP=SHR,DSN=YOUR.LIBRARIAN.MASTERFILE                    
//SYSPRINT    DD  SYSOUT=*                                            
//OSJOB    DD  DUMMY                                                  
//SYSIN    DD  *                                                       
-OPT INDEX(S)                                                         
-END   
//     

                                                          

Run the BACKUP DISK

//STEP1   EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'  
//STEPLIB  DD DISP=SHR,DSN=YOUR.LIBRARIAN.CALJLINK                
//SYSPRINT DD SYSOUT=*                                                 
//MASTER  DD DISP=SHR,DSN=YOUR.LIBRARIAN.MASTERFILE                  
//BACKUP  DD  DSN= YOUR.LIBRARIAN.MASTERFILE.BKUP,
//             DISP=(,CATLG),
//             SPACE=(CYL,(60)),
//             UNIT=SYSDA,VOL=SER=XXXXXX
//LIST     DD  SYSOUT=*
//INDEX  DD  SYSOUT=*
//OSJOB  DD  DUMMY
//SYSIN  DD  *
-OPT BKUPDISK,INDEX
-END
//

 

Create new master file

//***************************************************************      
//*   THIS SAMPLE JCL WILL CATALOG AND INITIALIZE A NEW BDAM                  *      
//*   CA-LIBRARIAN MASTER FILE.                                                                              *       
//*   THIS SAMPLE JCL USES THE DEFAULT INITIALIZATION                                  *      
//*   OPTIONS.  A SAMPLE INIT STATEMENT WITH OPTIONAL SETTINGS             *      
//*   IS ALSO SHOWN.                                                                                                    *
//* Note: when creating the new Masterfile use the initialization options that                 *
//* are specified in the INDEX report                                                                               *     
//***************************************************************
//STEP1        EXEC PGM=AFOLIBR,PARM='NJTA,NRJS'
//STEPLIB    DD DSN=YOUR.LIBRARIAN.CALJLINK,DISP=SHR
//MASTER     DD  DSN=YOUR.LIBRARIAN.MASTERFILE.NEW,
//             DISP=(,CATLG),
//             UNIT=SYSDA,VOL=SER=XXXXX,
//             SPACE=(CYL,(75)),
//             DCB=((DSORG=DA),BLKSIZE=27998)
//OSJOB        DD  DUMMY
//SYSPRINT     DD  SYSOUT=*
//SYSIN        DD  *
-OPT INIT,DISK,ARC=255,COMPRESS=FULL,NOEXEC,YESBYPP,SEQ=/73,8,10,10/
-END
//

Run the BACKUP disk again pointing to the newly created Masterfile and backup file  

//STEP1   EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//STEPLIB DD DISP=SHR,DSN=YOUR.LIBRARIAN.CALJLINK                
//SYSPRINT DD SYSOUT=*                                                
//MASTER DD DISP=SHR,DSN=YOUR.LIBRARIAN.MASTERFILE.NEW              
//BACKUP DD  DSN= YOUR.LIBRARIAN.MASTERFILE.BKUP,DISP=SHR 
//LIST   DD  SYSOUT=*
//INDEX  DD  SYSOUT=*
//OSJOB  DD  DUMMY
//SYSIN  DD  *
-OPT BKUPDISK,INDEX
-END
//

In ISPF rename the original master file with suffix OLD

Rename the new Masterfile to the original Librarian Masterfile