Besides that issue, the refback should ALWAYS be to the previous step, not the first step. If it ever goes to a 2nd volume you will get an abend. Gee... it's been so long that I've dealt with anyone doing that I can't remember, but I think it's an A13 abend.
Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:[email protected] Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Tue, 5 Jun 2012 16:05:05 -0500, McKown, John <[email protected]> wrote: >I'm fairly sure you need the > >REF=*.STEP01.PROC001.TAPE > >to be > >REF=*.PROC001.STEP01.TAPE > >-- >John McKown >Systems Engineer IV >IT > >Administrative Services Group > >HealthMarkets® > >9151 Boulevard 26 . N. Richland Hills . TX 76010 >(817) 255-3225 phone . >[email protected] . www.HealthMarkets.com > >Confidentiality Notice: This e-mail message may contain confidential or >proprietary information. If you are not the intended recipient, please contact >the sender by reply e-mail and destroy all copies of the original message. >HealthMarkets® is the brand name for products underwritten and issued by the >insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance >Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA >Life and Health Insurance Company.SM > >> -----Original Message----- >> From: IBM Mainframe Discussion List >> [mailto:[email protected]] On Behalf Of John Dawes >> Sent: Tuesday, June 05, 2012 4:02 PM >> To: [email protected] >> Subject: JCL PROBLEM >> >> G'Day, >> >> I am having a problem (jcl error) trying to run this job. >> The object is to have all the backups written out to a 3592 tape. >> //*************************************************************** >> //PROC001 EXEC FCBPRDXX,TARGET='FQ8A00',SOURCE='PAGE01',LB='1' >> //PROC002 EXEC FCBPRDXX,TARGET='FQ8A01',SOURCE='CSYS01',LB='2' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC003 EXEC FCBPRDXX,TARGET='FQ8A02',SOURCE='CSYS02',LB='3' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC004 EXEC FCBPRDXX,TARGET='FQ8A03',SOURCE='CSYS03',LB='4' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC005 EXEC FCBPRDXX,TARGET='FQ8A04',SOURCE='CSYS04',LB='5' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC006 EXEC FCBPRDXX,TARGET='FQ8A05',SOURCE='CSYS05',LB='6' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC007 EXEC FCBPRDXX,TARGET='FQ8A06',SOURCE='CSYS06',LB='7' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC008 EXEC FCBPRDXX,TARGET='FQ8A07',SOURCE='CSYS07',LB='8' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC009 EXEC FCBPRDXX,TARGET='FQ8A08',SOURCE='PAGE02',LB='9' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> //PROC010 EXEC FCBPRDXX,TARGET='FQ8A09',SOURCE='HFSC01',LB='10' >> //STEP01.TAPE DD VOL=(,RETAIN,,REF=*.STEP01.PROC001.TAPE) >> >> This is the proc: >> >> //FCBPRDXX PROC >> //* >> //STEP01 EXEC PGM=ADRDSSU PARM='TYPRUN=NORUN' >> //DISK DD VOL=SER=&TARGET,DISP=SHR,UNIT=3390 >> //*TAPE DD DSN=BKUP.XXXX.XXXXXX.V&SOURCE.XXXXXX, >> //TAPE DD DSN=BKUP.DISTR.PRDDLY.V&SOURCE..D050612.TEST, >> // DSORG=PS,TRTCH=COMP,UNIT=MAN3590, >> // VOL=(,RETAIN),DISP=(NEW,CATLG,DELETE), >> // LABEL=(&LB,SL) >> //SYSPRINT DD SYSOUT=* >> //SYSIN DD DISP=SHR,DSN=SYS3.FLASHCPY.PROCLIB(#FCCOPY) >> //* >> >> The message I get is : >> IEF645I INVALID REFERBACK IN THE REF SUBPARAMETER OF THE VOLUME FIELD >> >> I cannot spot my error. Can someone help me out? >> >> Thanks in advance. >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> >> > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
