Hi, The REF=ST code should be in the STORGRP routine. But it above your 3592SG code
Steve -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Mainframe Sysprog Sent: 26 September 2014 14:49 To: [email protected] Subject: Re: Refer Back in JCL 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
