How to copy an entire Librarian Master file to VSE Library

Products

• Librarian

Issue/Introduction

Need sample JCL to copy all members from a Librarian Master file to a VSE library

Environment

Release : 4.1

 

Resolution

There are a couple things to note -

1.  Librarian does not have a variable for the Member Language so need to break down the copies by Librarian Lang.

In the example below, have specified LANG=JCL on the -SEL card and on the Catalog card specify the MemType used for JCL in the VSE library.

 

 

2. The variable ¢MODNAME is a fixed length of 8 so if the member name is shorter, the field is padded with blanks like this -

CATALOG NAME=DDASSO  .JCL     EOD=/#   

 

This will require the JOBSTR,'LIBR.WORK.FILE2' be updated to remove the blanks before inputting it into a LIBR job.

// JOB LIBRALL                                      
// OPTION LOG                                       
// LIBDEF PHASE,SEARCH=(LIB.SUBLIB)                 
*    MASTER FILE                                    
// ASSGN SYS004,DISK,VOL=VOLSER,SHR                 
// DLBL MASTER,'LIBR.MASTER'                        
// EXTENT SYS004,VOLSER,1,0,RELTRK,NTRCKS           
*    CONTROL STATEMENTS FOR INPUT TO NEXT STEP      
// ASSGN SYS008,DISK,VOL=VOLSER,SHR                 
// DLBL JOBSTR,'LIBR.WORK.FILE1',0,SD               
// EXTENT SYS008,VOLSER,1,0,RELTRK,NTRCKS           
// EXEC LIBRPROG,SIZE=768K                          
-OPT GPO                                            
-SEL NAME=,LANG=JCL,EXEC,TEMP,VAR,COPYDDOFF,CCOPYOFF
-INS FIRST                                          
CATALOG ¢MODNAME.JCL     R=Y EOD=/#                 
-INS LAST                                           
/#                                                  
-END                                                
/*                                                  
*    MASTER FILE                                    
// ASSGN SYS004,DISK,VOL=VOLSER,SHR                 
// DLBL MASTER,'LIBR.MASTER'                        
// EXTENT SYS004,VOLSER,1,0,RELTRK,NTRCKS           
*    OUTPUT FROM LIBRARIAN / INPUT TO LIBR          
// ASSGN SYS008,DISK,VOL=VOLSER,SHR                 
// DLBL JOBSTR,'LIBR.WORK.FILE2',0,SD               
// EXTENT SYS008,VOLSER,1,0,RELTRK,NTRCKS           
*    INPUT FROM PREVIOUS STEP                       
// ASSGN SYSIPT,DISK,VOL=VOLSER,SHR                 
// DLBL IJSYSIN,'LIBR.WORK.FILE1',,SD               
// EXTENT SYSIPT,VOLSER                             
// EXEC LIBRPROG,SIZE=768K                          
/*                                                  
CLOSE SYSIPT,SYSRDR                                 
/*                                                  
/&                                                  
* $$ EOJ