MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Generating Librarian control cards

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
Pudah
Beginner


Joined: 20 Jun 2003
Posts: 27
Topics: 8
Location: East of the Rock, West of the Hard Place
PostPosted: Wed Dec 10, 2003 2:38 pm    Post subject: Generating Librarian control cards Reply with quote
Back in the good old days before my company got cheap and got rid of several useful tools, I used to use COMPAREX to compare two Librarian datasets and generate Librarian control statements. The JCL I used to use looked something like:

Code:
//SRCCMPR  EXEC PGM=COMPAREX                                   
//SYSPRINT  DD SYSOUT=*                                         
//MASTER    DD DSN=OLDLIB.LIBRIAN(PRGMSRCE),DISP=SHR     
//LIB1      DD DSN=OLDLIB.LIBRIAN(PRGMSRCE),DISP=SHR     
//LIB2      DD DSN=NEWLIB.LIBRIAN(PRGMSRCE),DISP=SHR     
//SYSUT3    DD DSN=LIBRIAN.CNTL.CARDS(PRGMSRCE),DISP=OLD         
//SYSIN     DD DDNAME=XCARDS                                   
//XCARDS    DD *                                               
 CPXIFACE=CPXIFACE                                             
 LINE=80, COPYDIFF=(LIB,VERS=NO), HALT=NO, TEXT=$BAL, BUFF=1024
 MLC=40, SYSUT1=(LIB,DDNAME=LIB1,MEMBER=PRGMSRCE),             
 SYSUT2=(LIB,DDNAME=LIB2,MEMBER=PRGMSRCE)                       
/*                                                             


Which might create something similar to:

Code:
-SEL PRGMSRCE,PSWD               
-INS 00123450                     
         MVC   FIELDA,=C'000000'
         ZAP   FIELDB,=P'0'       
         ZAP   FIELDC,=P'0'       
         ZAP   FIELDD,=P'0'     
-DEL 00213450                     
-REP 00321450                     
         AP    CNTRFLD,=P'1'   
-EMOD
-END


in LIBRIAN.CNTL.CARDS(PRGMSRCE) which could be applied to the OLD Librarian source to make it look like the NEW Librarian source.

Do any of you know of any other tool that might provide similar functionality?
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Thu Dec 11, 2003 7:21 am    Post subject: Reply with quote
Pudah,

panavalet comes with a utility program "PCOMPARE" which is used to compare two librarian datasets. And I also beleive that FILE-AID can be used to compare the librarian datasets

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Thu Dec 11, 2003 4:45 pm    Post subject: Reply with quote
Librarian comes with a utility program "COMP2". I use it like this:


Code:

//*                                                         
//STEP010  EXEC PGM=COMP2                                   
//SYSUT1   DD   DISP=SHR,DSN=YOUR OLD LIBRARY               
//SYSUT2   DD   DISP=SHR,DSN=YOUR NEW LIBRARY               
//SYSUT3   DD   UNIT=WORK,SPACE=(960,834,,CONTIG,ROUND)     
//SYSUT4   DD   UNIT=WORK,SPACE=(960,834,,CONTIG,ROUND)     
//SYSPRINT DD   SYSOUT=*                                   
//SYSPUNCH DD   DSN=&&TCHANGES,DISP=(NEW,PASS),UNIT=WORK,   
//         SPACE=(CYL,(1,1))                               
//SYSIN    DD   *                                           
OLDFILE MEMBER=WHATEVER                                     
NEWFILE MEMBER=WHATEVER                                     
DECK PUNCH=YES                                             
//*                                                         
//STEP020  EXEC PGM=ICEGENER                               
//SYSPRINT DD   SYSOUT=*                                   
//SYSUT1   DD   DSN=&&TCHANGES,DISP=OLD                     
//SYSUT2   DD   SYSOUT=*                                   
//SYSIN    DD   DUMMY                                       
//*                                                         


The ICEGENER step just prints the Librarian control statements.
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
Pudah
Beginner


Joined: 20 Jun 2003
Posts: 27
Topics: 8
Location: East of the Rock, West of the Hard Place
PostPosted: Fri Dec 12, 2003 7:52 am    Post subject: Reply with quote
Thanks for the tip Mervyn. That worked great.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group