RE: SAVCHGOBJ RCVMSG

["Jose Vega" <jvega@xxxxxxxxx>]

Thanks for the advice, this is the code. I am using. Basically
submitting the command after checking the flag to make sure the tape
drive was not empty.



IF  COND(&EMPTY1 *NE '1') THEN(DO)
SBMJOB     CMD(SAVCHGOBJ OBJ(*ALL) +
LIB(HD1100PD PLTPD) DEV(TAP04) +
REFDATE(*SAVLIB) REFTIME(*NONE) +
ENDOPT(*UNLOAD) SAVACT(*SYNCLIB) +
SAVACTWAIT(0) SAVACTMSGQ(QSYSOPR) +
ACCPTH(*NO) OUTPUT(*NONE) OUTMBR(*FIRST
     *REPLACE)) +
JOB(SAVETAPE04) JOBQ(QGPL/BACKUP) JOBPTY(3)LOG(4 0 *SECLVL)
LOGCLPGM(*YES)

MONMSG MSGID(CPF3774 CPF3770 CPF3702 CPF3707)
   ENDDO

retrieve the values from SAVETAP04 into variables of &DATA1     */


 RCVMSG     MSGDTA(&DATA1)    *this is where it pulls in the device name
and volume identifier.*
 CHGVAR     VAR(&JOBNAM1) VALUE(%SST(&DATA1 1 10))
 CHGVAR     VAR(&USRNAM1) VALUE(%SST(&DATA1 11 10))
 CHGVAR     VAR(&JOBNUM1) VALUE(%SST(&DATA1 21 6))


   /* Stays in loop until backup job have completed */


LOOP: DSPJOB   JOB(&JOBNAM1/&USRNAM1/&JOBNUM1)                    *This
is where it is bombing*
       MONMSG   MSGID(CPF1164 CPF1241 CPF2443 CPF1070) +
        EXEC(CHGVAR VAR(&DONE1) +
                           VALUE('1'))

             IF  COND(&DONE1 *NE '1') THEN(DO) +

                GOTO       CMDLBL(LOOP)

             ENDDO
END:




-----Original Message-----
From: David.X.Kahn@gsk.com [mailto:David.X.Kahn@gsk.com]
Sent: Tuesday, November 20, 2001 9:39 AM
To: midrange-l@midrange.com
Subject: Re: SAVCHGOBJ RCVMSG


Jose wrote:

> I am wondering if their is any special consideration that should be
> given to the RCVMSG command when used with SAVCHGOBJ. MSGDATA should
> reflect the Jobname 1-10,username 11-20, jobnumber 21-26.

I presume you mean the CPF1164 completion message? The message data
should
be consistent for this message. It sounds as though your backup had a
problem and your program is picking up an escape message related to that
rather than the expected completion message. If you post a little more
detail about your program - maybe a code snippet - and explain exactly
what
you are trying to accomplish you'll probably get just the help you need.

Dave...

"The sooner we get behind schedule, the more time we will have to make
it
up." -- Anon Construction Superintendent

=======================================================
The opinions expressed in this communication are my own and do not
necessarily reflect those of my employer.

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.