CA LIBRARIAN QUERY



All other tools like QACenter, Strobe, Endevor, Telon, APAS, Scheduler, Auditor, DATA-XPERT, CoolGen, Intertest, AdvantageGen, COBTEST etc.

CA LIBRARIAN QUERY

Postby ranjeet586 » Wed Jan 07, 2015 9:42 am

Hi,
This is regarding pulling a source module (a program) from Librarian, if it has multiple version of a program available.
I am able to pull the current version of program through jcl which I have. I am mentioning it below.

I need a modified jcl which could be used to pull older version of the program. I can see older version but I am not able to pull it. Please help if anybody have idea. Appreciate it.

I am using jcl to pull current version is

//EXTRACT EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//SYSPRINT DD SYSOUT=*
//MASTER DD DSN=KCT.CSC.L70MAST,
// DISP=SHR
//OSJOB DD DSN=KCT.ITO6192.SOURCE(ACFDEF),DISP=SHR
//* DISP=(,CATLG),
//* SPACE=(TRK,(1,1)),
//* UNIT=DEVPK,
//* DCB=80,BLKSIZE=4080
//SYSIN DD *
-OPT UTILITY
-EXTRACT ACFDEF VERSION 01 LEVEL 01
/*
ranjeet586
 
Posts: 9
Joined: Wed Jan 07, 2015 9:33 am
Has thanked: 0 time
Been thanked: 0 time

Re: CA LIBRARIAN QUERY

 

Re: CA LIBRARIAN QUERY

Postby ranjeet586 » Wed Jan 07, 2015 9:45 am

somebody suggested me to use below commands but I used it what I understood. I didnt get get the correct result to pull older version of module. If anybody has any idea how to use this in jcl, please share. Thanks.

Please try ARC option as highlighted below.


-EXTRACT

options ARC=, ARCINC=, With ARC= or ARCINC=, use the relative level number or the date (or date and time) form of specifying a level. Absolute level number specification is not supported.

If you do not specify ARC= or ARCINC=, -EXTRACT copies the data records of the most current level for the member
ARC=[date|Lx|-y] date

Lx The absolute level number as reported on the Update Record listing. You must precede the absolute level number with the letter L.

-y The relative level number. You must precede the relative number with a minus sign (-). The current level number is -0; -1 is one level older than the current level; -2 is two levels older than the current level, and so on.
ranjeet586
 
Posts: 9
Joined: Wed Jan 07, 2015 9:33 am
Has thanked: 0 time
Been thanked: 0 time

Re: CA LIBRARIAN QUERY

Postby Robert Sample » Wed Jan 07, 2015 5:18 pm

//EXTRACT EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//SYSPRINT DD SYSOUT=*
//MASTER DD DSN=KCT.CSC.L70MAST,
// DISP=SHR
//OSJOB DD DSN=KCT.ITO6192.SOURCE(ACFDEF),DISP=SHR
//* DISP=(,CATLG),
//* SPACE=(TRK,(1,1)),
//* UNIT=DEVPK,
//* DCB=80,BLKSIZE=4080
//SYSIN DD *
-OPT UTILITY
-EXTRACT ACFDEF ARC=-1
/*
Robert Sample
Global moderator
 
Posts: 3375
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 224 times

Re: CA LIBRARIAN QUERY

Postby ranjeet586 » Wed Jan 07, 2015 8:13 pm

EXTRACT ACFDEF ARC=-1 is not working as I tried this earlier. There might be some more options in sysin card
ranjeet586
 
Posts: 9
Joined: Wed Jan 07, 2015 9:33 am
Has thanked: 0 time
Been thanked: 0 time

Re: CA LIBRARIAN QUERY

Postby BillyBoyo » Wed Jan 07, 2015 8:58 pm

Try -EXTRACT with a comma:

-EXTRACT ACFDEF,ARC=-1


Have you looked in the documentation for the product?
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

Re: CA LIBRARIAN QUERY

Postby ranjeet586 » Wed Jan 07, 2015 11:54 pm

Thanks Billy.

EXTRACT ACFDEF,ARC=-1 has worked.

I was trying EXTRACT before as well but not in proper way. Thanks again for your help.
ranjeet586
 
Posts: 9
Joined: Wed Jan 07, 2015 9:33 am
Has thanked: 0 time
Been thanked: 0 time


Return to All Other Tools

 


  • Related topics
    Replies
    Views
    Last post