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