RE: Solution : RE: GO SAVE 21 and V5R3

Thanks. Good idea. I will try it so that I don't be drived crazy...

But we don't have operators that have there eyes directly fixed on i5 console. 
The only thing I ask them to do is to insert tape in driver.

Regards.

-----Message d'origine-----
De : midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]De la part de Ingvaldson, Scott
Envoyé : jeudi 10 février 2005 16:10
À : midrange-l@xxxxxxxxxxxx
Objet : RE: Solution : RE: GO SAVE 21 and V5R3


This used to drive our operators crazy.  I don't remember where I got
this bit of code, but it displays the messages in the message queue on
line 27 so they could see that the backup was progressing...

LIN27MON:   PGM        PARM(&MSGQ &MSGQLIB &MSGKEY)                   
            DCL        VAR(&MSGQ) TYPE(*CHAR) LEN(10)                 
            DCL        VAR(&MSGQLIB) TYPE(*CHAR) LEN(10)              
            DCL        VAR(&MSGKEY) TYPE(*CHAR) LEN(4)                
            DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)              
                                                                      
            RCVMSG     MSGQ(&MSGQLIB/&MSGQ) MSGKEY(&MSGKEY) +         
                         RMV(*NO) MSG(&MSGDTA)                        
            SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(&MSGDTA) + 
                         TOPGMQ(*EXT) MSGTYPE(*STATUS)                
                                                                      
END:        ENDPGM              

Then just add CHGMSGQ MSGQ(QSYSOPR) DLVRY(*BREAK) SEV(xx)
PGM(*LIBL/LIN27MON) and/or CHGMSGQ MSGQ(*USRPRF) DLVRY(*BREAK) SEV(xx)
PGM(*LIBL/LIN27MON)at the beginning of your backup CL.

Regards,
 
Scott Ingvaldson
iSeries System Administrator
GuideOne Insurance Group                                      

-----Original Message-----
date: Thu, 10 Feb 2005 15:18:03 +0100
from: "MITTELHEISSER Jean Claude" <mitteljc@xxxxxxx>
subject: Solution : RE: GO SAVE 21 and V5R3

<Snip>

What's a little bit frightening is that console is not available while
saving. 

</Snip>

-- 
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.