Hi Steve,
I think you diagnosed the problem correctly and have pointed in the right
direction. I did not know about the &ANYVOL variable and how to use it.
However, after several trial and errors I am still missing something.
I think I haven't figured out how to correctly code the ACS routine
segment. Here are the relevant portions of my ACS routines (if you see and
can point out any logical error there):
*From the Storage Class routines:*
FILTLIST &FL_LIBUNIT INCLUDE('ETAPE','VTAPE','AFF=','AFF=SMST',
'3592ATLC')
.
.
.
FILTLIST &FL_TAPE3592_BACKUPS INCLUDE(**.TAPE3592.**)
.
.
.
SELECT
WHEN (&UNIT = &FL_LIBUNIT OR &ANYVOL EQ 'REF=ST')
SELECT
WHEN (&DATACLAS = &TAPE_DATACLAS)
DO
SET &STORCLAS = 'SCGRID8'
EXIT CODE(0)
END /* END TAPE */
WHEN (&DATACLAS = &TAPE_DATACLAS_H)
DO
SET &STORCLAS = 'SCGRID8H'
EXIT CODE(0)
END /* END TAPE */
WHEN (&DSN EQ &FL_TAPE3592_BACKUPS)
DO
SET &STORCLAS = 'SC3592C'
*From the Storage Group routines:*
WHEN (&STORCLAS = 'SC3592C')
DO
SET &STORGRP = 'SG3592C'
EXIT
END
In my second step, I am referring to the dataset instead of the DD name as
Edgard suggested in one of the previous post. This takes me past the first
step, but in the second step, I still get the same error.
Thanks
Varun
On Fri, Sep 26, 2014 at 4:42 PM, Gormley, Steve <[email protected]> wrote:
> 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
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
