Re: BRMS in a CL redeaux

["Jim Franz" <franz400@xxxxxxxxxxxx>]

Nick - i don't use BRMS, but I use the following cl to verify the tape is
ready
before running the save cmd. If the parm &error = Y i can bypass the save.
It handles
tape in the drive but not initialized, no tape in the drive, or tape in
drive but not able
to init.
jim
*************** Beginning of data *************************************
             PGM        PARM(&ERROR)
             DCL        VAR(&ERROR) TYPE(*CHAR) LEN(1)
             DCL        VAR(&STATUS) TYPE(*DEC) LEN(5 0)
             DCL        VAR(&TRY) TYPE(*DEC) LEN(5 0)
             CHGVAR     VAR(&ERROR) VALUE('N')
/* VERIFY TAPE READY                                                */
/* IF NOT VARIED ON - VARY OFF/ON AND TRY AGAIN                     */
 $RTV:       RTVCFGSTS  CFGD(TAP01) CFGTYPE(*DEV) STSCDE(&STATUS) /* +
                          see help for status code descriptions */
             IF         COND(&STATUS = 30) THEN(GOTO CMDLBL($INZ)) +
                          /* varied on - ok  */
             CHGVAR     VAR(&TRY) VALUE(&TRY + 1)
             IF         COND(&TRY > 3) THEN(GOTO CMDLBL($INZ)) /* +
                          let it fail */
             VRYCFG     CFGOBJ(TAP01) CFGTYPE(*DEV) STATUS(*OFF)
             MONMSG     MSGID(CPF0000)
             DLYJOB     DLY(03)
             VRYCFG     CFGOBJ(TAP01) CFGTYPE(*DEV) STATUS(*ON)
             MONMSG     MSGID(CPF0000)
             DLYJOB     DLY(03)
             GOTO       CMDLBL($RTV)
/* INITIALIZE TAPE                                                  */
 $INZ:       INZTAP     DEV(TAP01) NEWVOL(IBMIRD) NEWOWNID(SAVE) +
                          CHECK(*NO) DENSITY(*CTGTYPE)
             MONMSG     MSGID(CPF9999 CPF6760) EXEC(GOTO CMDLBL($INZ1))
             GOTO       CMDLBL($OK)
 $INZ1:
             CHGVAR     VAR(&ERROR) VALUE('Y')
             GOTO       CMDLBL($END)
 $OK:
 $END:       ENDPGM
----- Original Message ----- 
From: "Nick Franco" <franco.nick@xxxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, April 07, 2005 9:04 AM
Subject: BRMS in a CL redeaux


> About 1 year ago I posted this question but have not gotten a resolution
as
> of yet. Here it goes again: I have a BRMS question for those familiar. We
> currently have a CL that does our nightly processing and backups. We
> replaced the SAVLIB command in it with STRBKUBRM. The CL already runs in
> batch and the STRBKUBRM cmd is entered as SBMJOB(*no) so it will continue
> in the same CL. The problem is this: We need to monitor messages for the
> STRBKUBRM so that, if there is no valid BRMS tape loaded or a scratch tape
> is not loaded, the CL will continue and complete the rest of the steps it
> needs to complete. What happens now is that we get a CPA4086 error(Device
> not ready or next volume was not loaded). We've tried monitoring for BRMS
> messages with a MONMSG BRM0000 and we've tried monitoring for CPA0000 but
> that does not work. We do not want to replace the CL with a BRMS control
> group that has multiple *EXITs because it can be run with different
> parameters. And here's the kicker....CHKTAP won't work when checking for a
> valid BRMS tape (as far as I've seen). What MONMSGs are needed or how else
> can we make this work? Thanks.
>
>  NF
>
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>