Hi,
Do you have something like this coded in your STORGRP routine -
WHEN (&ANYVOL='REF=ST') DO
SET &STORGRP =&STORGRP
EXIT
END
This is needed when you code VOL=REF for SMS managed tape.
The ACS routines are passed the following values in the &ALLVOL and
&ANYVOL read-only variables when VOL=REF is used:
’REF=SD’ - The reference is to an SMS-managed DASD or VIO data set
’REF=ST’ - The reference is to an SMS-managed tape data set
’REF=NS’ - The reference is to a non-SMS-managed data set
Restrictions: Consider the following restrictions when using VOL=REF:
v If the referenced data set is on SMS-managed tape, then the new data set must
be allocated to the same storage group.
Steve
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Mainframe Sysprog
Sent: 26 September 2014 09:26
To: [email protected]
Subject: Re: Refer Back in JCL
Hi Edgard,
I think your suggestion worked to some extent, but I am still stuck. I modified
the JCL to what you suggested, the first step worked, but this time I got stuck
with a different error on the second step.
I got this :
IGD01012I DATA SET ALLOCATION REQUEST FAILED - THE ACS STORAGE GROUP ROUTINE
ASSIGNED A NON-TEMPORARY OR VSAM DATA SET TO A STORAGE GROUP WHICH IS NOT OF
TYPE POOL
I can't figure out why it would complain on ACS routines setup when I have the
same SMS setup for both the datasets.
This is the new JCL..
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//DASD DD UNIT=3390,VOL=SER=H3SNC1,DISP=SHR
//TAPE DD DSN=CIMSSP.TAPE3592.BACKUP.H3SNC1,
// UNIT=3592ATLC,DISP=(NEW,CATLG),LABEL=(1,SL),
// RETPD=1,VOL=(,RETAIN)
//SYSIN DD *
DUMP IDD(DASD) ODD(TAPE) -
DATASET(INCLUDE(**)) TOL(ENQF)
/*
//STEP2 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//DASD DD UNIT=3390,VOL=SER=RSDV02,DISP=SHR
//TAPE DD DSN=CIMSSP.TAPE3592.BACKUP.RSDV02,
// UNIT=3592ATLC,DISP=(,CATLG),LABEL=(2,SL),
// RETPD=1,VOL=(,RETAIN,REF=CIMSSP.TAPE3592.BACKUP.H3SNC1)
//SYSIN DD *
DUMP IDD(DASD) ODD(TAPE) -
DATASET(INCLUDE(**)) TOL(ENQF)
On Thu, Sep 25, 2014 at 6:18 PM, Edgard Balter Jr. < [email protected]>
wrote:
> Hi Varun,
>
> have you tried to refer back to the dataset name? I have a similar JCL
> with the output vol specified like this (on the second and subsequent
> steps):
>
> //TAPE2 DD DSN=CIMSSP.TAPE3592.BACKUP.RSDV02,
> // UNIT=3592ATLC,DISP=(,CATLG),LABEL=(2,SL),
> // RETPD=1,VOL=(,RETAIN,REF=CIMSSP.TAPE3592.BACKUP.RSDV01)
>
> Regards,
> Edgard
>
>
> IBM Mainframe Discussion List <[email protected]> gravou em
> 25/09/2014 09:36:23:
>
> > De: Mainframe Sysprog <[email protected]>
> > Para: [email protected]
> > Data: 25/09/2014 09:36
> > Assunto: Refer Back in JCL
> > Enviado por: IBM Mainframe Discussion List
> > <[email protected]>
> >
> > Hi All,
> >
> > I have been trying the REFER Back statement in JCL to take multiple
> backups
> > on a 3592 tape using a JCL such as below. However, for some reason
> > this doesn't seem to be working.
> >
> > //STEP1 EXEC PGM=ADRDSSU
> > //SYSPRINT DD SYSOUT=*
> > //DASD1 DD UNIT=3390,VOL=SER=RSDV01,DISP=SHR
> > //TAPE1 DD DSN=CIMSSP.TAPE3592.BACKUP.RSDV01,
> > // UNIT=3592ATLC,DISP=(NEW,CATLG),LABEL=(1,SL),
> > // RETPD=1,VOL=(,RETAIN)
> > //SYSIN DD *
> > DUMP IDD(DASD1) ODD(TAPE) -
> > DATASET(INCLUDE(**))
> > /*
> > //STEP2 EXEC PGM=ADRDSSU
> > //SYSPRINT DD SYSOUT=*
> > //DASD2 DD UNIT=3390,VOL=SER=RSDV02,DISP=SHR
> > //TAPE2 DD DSN=CIMSSP.TAPE3592.BACKUP.RSDV02,
> > // UNIT=3592ATLC,DISP=(,CATLG),LABEL=(2,SL),
> > // RETPD=1,VOL=(,RETAIN,REF=*.STEP1.TAPE1)
> > //SYSIN DD *
> > DUMP IDD(DASD1) ODD(TAPE) -
> > DATASET(INCLUDE(**))
> >
> > I keep getting an error such as :
> >
> > IGD306I UNEXPECTED ERROR DURING CBRXLCS PROCESSING 326 RETURN CODE
> > 12 REASON CODE 67 THE MODULE THAT DETECTED THE ERROR IS IGDIDMUS SMS
> > MODULE TRACE BACK - IDMUS IDMSU IDM00 SSIRT SYMPTOM RECORD CREATED,
> > PROBLEM ID IS IGD00148
> >
> > The backups work fine if I try only one backup at a time.
> >
> > Does anybody see any errors with my JCL or have any suggestions on
> > what should I look at?
> >
> > Thanks
> > Varun
> >
>
>
> ----------------------------------------------------------------------
> 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
