MVSFORUMS.com

Deaf Smith · Beginner Joined: 22 Jul 2008 Posts: 18 Topics: 12

I'm able to ccpy loadlibs to loadlibs but I need to create a fresh loadlib late at night and then copy the production loadlib to the new test one.

ISPF will now show me the JCL behind the online procedure.

How is it done?

Thanks!
_________________
Deaf

semigeezer · Posted: Thu Jan 14, 2010 11:55 am Post subject:

ISPF uses dynamic allocation to create load libraries (SVC 99) but in JCL you would use a DD name with DISP=(New,catlg) and all the required attributes for the data set you want as a target. You can use that as SYSUT2 in an IEBCOPY step.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

Deaf Smith · Beginner Joined: 22 Jul 2008 Posts: 18 Topics: 12

Well this works for any of you that needs it:

//HACKLOAD JOB (0000),'LOADLIB',CLASS=A,MSGCLASS=X,REGION=8M
//*
//************************************************************
//* THIS WILL AUTOMATICLY CREATE A NEW LOADLIB AND THEN *
//* MOVE LOAD MODULES FROM OLD LOADLIB TO NEW ONE *
//************************************************************
//*
//STEP01 EXEC PGM=IEFBR14
//DD01 DD DSN=DEAFSMTH.LOADTST,
// DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0)
//*
//STEP02 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DSN=DEAFSMTH.LOAD,DISP=SHR
//SYSUT2 DD DSN=DEAFSMTH.LOADTST,DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(60,20),RLSE),
// DCB=(RECFM=U,LRECL=0,BLKSIZE=32760,DSORG=PO),
// DSNTYPE=LIBRARY
//SYSUT3 DD SPACE=(CYL,(10,2)),DISP=(,DELETE)
//SYSUT4 DD SPACE=(CYL,(10,2)),DISP=(,DELETE)
//SYSIN DD *
COPY OUTDD=SYSUT2,INDD=((SYSUT1,R))
/*
//
_________________
Deaf

Terry_Heinze · Posted: Thu Jan 14, 2010 7:10 pm Post subject:

Deaf, your job creates a PDSE load library. For those of you who are creating a PDS, be sure to add a "directory blocks" subparameter for SYSUT2.
_________________
....Terry

warp5 · Posted: Fri Jan 15, 2010 4:51 am Post subject:

You could use an ADRDSSU Copy Job to do the same, and probably faster. In your iefbr14 job I would also use a LIKE in the DD statement to make sure that the attributes of the new file are like the attributes of the old file.

Bill Dennis · Posted: Fri Jan 15, 2010 9:28 am Post subject:

warp,

Notice that the IEFBR14 step is merely to delete the current lib should it exist.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

warp5 · Posted: Mon Jan 18, 2010 1:59 am Post subject:

Bill, got me again. Good that you are around.