On Fri, 17 Apr 2009 07:56:06 -0500, Brown, Larry - St. Louis, MO
<[email protected]> wrote:
>have access to Endevor manuals - yet. So, I am assuming (hoping) we can
>check out jobs en mass from Endevor some how with a batch job. And then
Do get these manuals; you will need them.
A check-out in Endevor lingo is called retrieve.
//* RETRIEVE ELEMENTS
//*
//STP010 EXEC PROC=NDVRBRET
//RETRIEVE DD DISP=OLD,DSN=<your.newjcl.pds>
//BSTIPT01 DD *
SET FROM ENVIRONMENT '<yourfromenv>'
SYSTEM '<yourfromsystem>'
SUBSYSTEM '<yourfromsubsys>'
STAGE 'D'.
SET TO DDNAME 'RETRIEVE'.
SET OPTIONS UPDATE CCID '<yourccid>'
SEARCH
.
RETRIEVE ELEMENT '<nameyourjclmember>' FROM TYPE '<thejcltype>'.
RETRIEVE ELEMENT '<nameyourjclmember>' FROM TYPE '<thejcltype>'.
RETRIEVE ELEMENT '<nameyourjclmember>' FROM TYPE '<thejcltype>'.
...
/*
//*
The JCL proc:
//NDVRBRET PROC
//*
//*********************************************************
************
//* *
//* ENDEVOR/MVS BATCH RETRIEVE PROCESSING *
//* *
//*********************************************************
************
//C1BM3000 EXEC PGM=NDVRC1,
// PARM=C1BM3000,
// DYNAMNBR=1500,
// REGION=0M
//CONLIB DD DISP=SHR,DSN=SYS2.ENDVR39.CONLIB
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*********************************************************
************
//* SORT WORK FILES *
//*********************************************************
************
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//*********************************************************
************
//* PANVALET SUPPORT *
//*********************************************************
************
//C1TPDD01 DD UNIT=SYSDA,SPACE=(CYL,3),
// DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPDD02 DD UNIT=SYSDA,SPACE=(CYL,5),
// DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPLSIN DD UNIT=SYSDA,SPACE=(CYL,3),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//C1TPLSOU DD UNIT=SYSDA,SPACE=(CYL,5)
//C1PLMSGS DD SYSOUT=*
//*********************************************************
************
//* OUTPUT DATA SETS *
//*********************************************************
************
//C1MSGS1 DD SYSOUT=*
//C1PRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SYSABEND DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*********************************************************
************
//* REQUEST DATA SET *
//*********************************************************
************
//BSTIPT01 DD DUMMY
Others have indicated how to mass-change the JCL. I would use FileAid,
because that is available over here and does the job quickly and easily.
Then you have to add (that's what a check-in is called in Endevor lingo) them
all again. A similar job as for the retrieve, but with following SCL:
ADD ELEMENT '<nameyourmemberandwildcardisallowed>'
FROM DSNAME '<your.newjcl.pds>'
TO TYPE '<thejcltype>'
OPTIONS PROC GROUP '<theprocgroup>'.
Then create a package for promoting up to production. Cast and execute that.
Cheers,
Jantje.
P.S. Should you need JCL for the package operations, just call...
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
