Subject: RE: POFFLOAD to VSAM VTAPE
From: Wakser, David (David.Wakser@infocrossing.com)
Date: Tue Nov 17 2009 - 12:53:11 EST
Thanks, Kevin.
David Wakser
From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf
Of Kevin Corkery
Sent: Tuesday, November 17, 2009 12:50 PM
To: VSE Discussion List
Subject: RE: POFFLOAD to VSAM VTAPE
Mine looks something like this ...
* $$ JOB JNM=S#PRTQUE,CLASS=S,DUETIME=0140,DUEDAY=DAILY
* $$ LST CLASS=B,DISP=H,USER='BACKUP PRT QUEUE',EXPDAYS=3
// JOB S#PRTQUE < FROM VOLLIE MEMBER SYS.S#PRTQUE >
* $$ SLI MEM=STDBEGIN.JCL
* ************************************************************ *
* CREATE POFFLOAD OF LST QUEUE ON VTAPE FILE *
* ************************************************************ *
// SETPARM FAILURE=CONTINUE
// SETPARM TAPE=78F
// SETPARM LAST=STEP99
// ON $CANCEL GOTO STEP04
// ON $ABEND GOTO STEP04
// ON $RC>=16 GOTO STEP04
// GOTO STEP01 <<== ALWAYS RERUN STARTING AT STEP01
/. STEP01 *************************************************** *
* STEP01..DELETE AND DEFINE VSAM VIRTUAL TAPE FILE *
// RESET ALL *********************************************** *
// EXEC PROC=BKUPCAT
// EXEC IDCAMSV
DELETE TAPE.BACKUP.LSTQUE PATH PURGE
DELETE TAPE.BACKUP.LSTQUE.&SYSDAYX CLUSTER PURGE
SET MAXCC = 0
DEFINE CLUSTER(NAME(TAPE.BACKUP.LSTQUE.&SYSDAYX) -
MODEL(LOCAL.MODEL.ESDS) -
CYLINDERS(050 050) FOR(0005) -
RECORDSIZE(18422 18422) SPANNED -
CONTROLINTERVALSIZE(18432) -
BUFFERSPACE(368640) -
OWNER(POFFLOAD) -
DEFAULTVOLUMES) -
DATA(NAME(TAPE.BACKUP.LSTQUE.&SYSTODS))
IF LASTCC > 4 THEN CANCEL JOB
DEFINE PATH(NAME(TAPE.BACKUP.LSTQUE) -
PATHENTRY(TAPE.BACKUP.LSTQUE.&SYSDAYX))
IF LASTCC > 4 THEN CANCEL JOB
/* END-OF-STEP
/. STEP02 *************************************************** *
* STEP02..START VIRTUAL TAPE AND INITIALIZE LABEL *
// RESET ALL *********************************************** *
// VTAPE START,UNIT=&TAPE,LOC=VSAM,FILE='@LSTQUE',SCRATCH
// ASSGN SYS005,&TAPE
LISTIO SYS005
// MTC REW,SYS005
// UPSI 10
// EXEC DITTO
$$DITTO SET HEADERPG=NO
$$DITTO WTM OUTPUT=SYS005
$$DITTO REW OUTPUT=SYS005
/* END-OF-STEP
/. STEP03 *************************************************** *
/. STEP03 *************************************************** *
* STEP03..ISSUE POFFLOAD COMMAND TO POWER AND WAIT A LITTLE *
// RESET ALL *********************************************** *
// EXEC DTRIATTN,PARM='POFFLOAD BACKUP,LST,&TAPE,,* '
/* NOTE => WAITING FOR 5 MINUTES FOR THE COMMAND TO COMPLETE
// EXEC IESWAIT,PARM='60'
// EXEC IESWAIT,PARM='60'
// EXEC IESWAIT,PARM='60'
// EXEC IESWAIT,PARM='60'
// EXEC IESWAIT,PARM='60'
// GOTO STEP05
/. STEP04 *************************************************** *
* STEP04..ERRORS HAVE OCCURED ON BACKUP *
// RESET ALL *********************************************** *
// SETPARM LAST=STEP98
// EXEC IESWAIT,PARM='10'
/. STEP05 *************************************************** *
* STEP05..RESET VIRTUAL DEVICE AND STOPS TAPE SERVICE *
// RESET ALL *********************************************** *
// ON $CANCEL GOTO STEP98
// ON $ABEND GOTO STEP98
// ON $RC>=16 GOTO STEP98
// VTAPE STOP,UNIT=&TAPE
// GOTO &LAST
* $$ SLI MEM=STDFINIS.JCL
/& *********************************** END-OF-JOB
* $$ EOJ
________________________________
From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf
Of Wakser, David
Sent: Tuesday, November 17, 2009 12:39 PM
To: VSE Discussion List
Subject: POFFLOAD to VSAM VTAPE
All:
Does anyone have an example of using VSAM VTAPE for a POFFLOAD?
Thanks, in advance.
David Wakser
Confidentiality Note: This e-mail, including any attachment to it, may
contain material that is confidential, proprietary, privileged and/or
"Protected Health Information," within the meaning of the regulations
under the Health Insurance Portability & Accountability Act as amended.
If it is not clear that you are the intended recipient, you are hereby
notified that you have received this transmittal in error, and any
review, dissemination, distribution or copying of this e-mail, including
any attachment to it, is strictly prohibited. If you have received this
e-mail in error, please immediately return it to the sender and delete
it from your system. Thank you.
Confidentiality Note: This e-mail, including any attachment to it, may contain material that is confidential, proprietary, privileged and/or "Protected Health Information," within the meaning of the regulations under the Health Insurance Portability & Accountability Act as amended. If it is not clear that you are the intended recipient, you are hereby notified that you have received this transmittal in error, and any review, dissemination, distribution or copying of this e-mail, including any attachment to it, is strictly prohibited. If you have received this e-mail in error, please immediately return it to the sender and delete it from your system. Thank you.
This archive was generated by hypermail 2b25 : Sun Nov 22 2009 - 16:05:07 EST