× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks Rob, I will take a look at this 

Michael Smith
iSeries.mySeries.


-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] 
Sent: Tuesday, May 10, 2005 3:40 PM
To: Midrange Systems Technical Discussion
Subject: RE: Save system and tape drive


Then I suggest that you change your nightly backup to check the volume
id 
and eject the tape if it's still in there from the previous save. Let's
say your nightly backup fits on one tape.  Let's say your volume 
id's are then SUN, MON, TUE, WED, THU.  Do a CHKTAP in your save
program. 
If the volume id does not match QDAYOFWEEK (with the asterisk stripped 
off) repeat the CHKTAP with the ENDOPT(*UNLOAD) to kick the tape out and

load the next one in.

Customize for your whim.  Warning, it's all V5R3 CL
/* ---------------------------------------------------------------- */
/* 05/06/05 by R.Berendt, CCP, of GDS LLC                           */
/*          Try a new technique to handle what if there are mul-    */
/*          tiple GDIHQ, (or other system) tapes in the tape drive  */
/*          prior to the GDI tape.  This will allow us to stack     */
/*          more than just two tape backups into one drive in prep  */
/*          for the TSM move to 3582.                               */
/*                                                                  */
/* ---------------------------------------------------------------- */

PGM (                                                                +
      &Prefix          /* Prefix of the requested tape volume     */ +
      &TapeDrive       /* Tape drive to process                   */ +
    )
    DCL  &TAPEDRIVE   *CHAR  10  /* Tape drive to process            */
    DCL  &MSG         *CHAR 132  /* First level message text         */
    DCL  &MSGDTA      *CHAR 132  /* Message data                     */
    DCL  &MSGID       *CHAR   7  /* Message id                       */
    DCL  &VOLID       *CHAR  14  /* Volume id of the tape            */
    DCL  &PREFIX      *CHAR   1  /* Prefix of the requested tape vol */
+
                                 /* A = ADSM, or old TSM             */
+
                                 /* D = Domino backup on GDIHQ       */
+
                                 /* G = GDI                          */
+
                                 /* H = GDIHQ DB2                    */
+
                                 /* S = GDISYS                       */
+
                                 /* W = GDWEB                        */
    DCL  &TAPCHKLOOP  *CHAR   1  '0'
+
                                 /* '0' = Do not exit loop yet       */
                                 /* '1' = Exit loop                  */
    DCL  &Subject     *CHAR  80  /* Email subject                    */
    DCL  &Body        *CHAR 400  /* Email body                       */
    DCL  &SysName     *CHAR   8  /* System name                      */



/* Rob Berendt 9/21/2004, Updated 05/06/05 */
/* Make sure that the tape is for this backup and not another system or
+
   backup */

  DoUntil (&TapChkLoop='1')
    CHKTAP   DEV(&TapeDrive) ENDOPT(*REWIND)
    MONMSG   MSGID(CPF0000)
    RCVMSG   MSGQ(*PGMQ) MSG(&Msg) MSGDTA(&MsgDta) MSGID(&MsgId) +
             MSGTYPE(*LAST)
    Select
    When (&MsgId = 'CPC6778') Then(DO)
       /* Volume &2 found on device &1.  CHKTAP found a volume id loaded

*/
       /* Is it the one we want?    */
      CHGVAR   VAR(&VolId) VALUE(%SST(&MsgDta 11 6))
      Select
      When COND(%SST(&VolId 1 1) *EQ &Prefix) THEN(DO)
          /* We got our tape, let's go on */
          ChgVar &TapChkLoop '1'
        EndDo
      Otherwise (DO)
        /* Not the right tape for this backup.  Kick it out and hope the

right +
           one loads in */
        CHKTAP   DEV(&TapeDrive) ENDOPT(*UNLOAD)
        EndDo  /* Volid was NOT the right one for this backup */
      EndSelect /* Checking the volumne id prefix */
      EndDo  /* CHKTAP found a tape.  CPC6778 */
    When (&MsgId = 'CPF6760') Then(DO)
      /* Device not ready.  May mean: */
      /* We've ejected every tape in the drive and have not yet found
one. 
+
         Abort */
      /* GDI custom internal command to  Alert the team was removed */
      ChgVar &TapChkLoop '1'
      EndDo
    Otherwise (DO)
      /* Wow dude, what's up?  */
      RtvNetA Sysname(&SysName)
      chgvar (&Subject) (&SysName *tcat ':  Error during backup to 
device,' +
             *bcat &TapeDrive *tcat '.')
      ChgVar (&Body) (&MsgId)
      SndEmail addressee((removed@xxxxxxxxxx)) subject(&subject) 
message(&body)
      ChgVar &TapChkLoop '1'
      EndDo
    EndSelect /* Checking messages as a result of the CHKTAP */

  EndDo  /* Loop until &TapChkLoop = '1' */



 END:

 ENDPGM 




Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
05/10/2005 01:43 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx> cc

Subject
RE: Save system and tape drive






It appears the ENDOPT is (*REWIND) on the SAV command. 
This certainly does beg the question how it ever ejects the tape.  I'm
just going by what I've been told happens.  I can't say for certain that
the tape should or should not eject on the system save. 

The problem with it not ejecting is that we are a small shop and
technically we don't have an operator.  We have someone that changes the
tapes(ie a week at a time normally).  If we are off on Monday and the
Save system doesn't eject, then it won't load Monday nights tape for the
daily save. 

Michael Smith
iSeries.mySeries.


-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] 
Sent: Tuesday, May 10, 2005 2:19 PM
To: Midrange Systems Technical Discussion
Subject: RE: Save system and tape drive


If the ENDOPT is (*LEAVE) then how would a successful save ever eject a 
tape?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Ingvaldson, Scott" <SIngvaldson@xxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
05/10/2005 12:26 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: Save system and tape drive






I suspect that is the case, but I am not sure how to prove it.  The
ENDOPT on the SAV command in QMNSAVE is *LEAVE and it has been a long
time since I ran an option 21.

Pressing F1, then F9 on any of the QHST messages below will give you the
name, user and number of the job that ran the backup; you should then be
able to find the joblog if it exists.

Do you run the option 21 save daily or weekly?

Regards,
 
Scott Ingvaldson
iSeries System Administrator
GuideOne Insurance Group


-----Original Message-----
date: Tue, 10 May 2005 12:49:04 -0400
from: "Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>
subject: RE: Save system and tape drive

Here are the last save messages in QHST. 

316 libraries saved at 05/08/05 02:42:52. 
7429 document library objects saved. 
35335 objects saved. 1 not saved. 

I can find no joblog showing the save/not saved objects. 

I will ultimately have to determine the un saved object, but my
immediate concern with holidays coming up, is finding out if having the
1 object not saved is preventing the tape from ejecting or if there is
some other issue with the tape drive. 

Michael Smith
iSeries.mySeries.


-----Original Message-----
From: Ingvaldson, Scott [mailto:SIngvaldson@xxxxxxxxxxxx] 
Sent: Tuesday, May 10, 2005 11:02 AM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: Save system and tape drive


Check the joblog for a CPD384E or CPFA09E message.

Regards,
 
Scott Ingvaldson
iSeries System Administrator
GuideOne Insurance Group

-----Original Message-----
date: Tue, 10 May 2005 09:11:41 -0400
from: "Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>
subject: Save system and tape drive

Our operator has come to me with this issue.  He is telling me that
occasionally the tape drive is not ejecting after the system save(Go
Save 21).  We have a 3581 autoloader tape drive. 

Looking in QHST I see that the last part of the save SAV  shows 1 object
not saved.  It doesn't show me what wasn't saved however. 

Could/would this prevent the tape from ejecting on a system save. 

I can't seem to find the object that wasn't saved.  Is there any place
to look to see this?


Michael Smith
iSeries.mySeries.

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


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


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


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



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.