IBM Mainframe Forum

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
/*

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.

EXTRACT ACFDEF ARC=-1 is not working as I tried this earlier. There might be some more options in sysin card

Try -EXTRACT with a comma:



Have you looked in the documentation for the product?

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.