Hi Steve, Thanks.
Just thought of updating here for anyone else encountering similar issue. I was able to fix that issue, as you suggested. I coded the REF=ST code in the storage group routine and it worked. Regards Varun On Fri, Sep 26, 2014 at 8:41 PM, Gormley, Steve <[email protected]> wrote: > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
