Do you have real operators mounting the tapes or are they in stackers or an automated tape library, or do you have a tape management program like VMTape? Four different situations requiring four different programming ef forts.
If you have operators, you can send a msg to them to mount the next scrat ch tape and reply to you with the volser. Then use WAKEUP to intercept their message, parse it for volser and then compare against the real tape volse r when you read it from the tape. If you have stackers full of scratch tapes, just use TAPE RUN to drop the full tape, and read the volser of the next tape when it comes ready. You can loop on 'CP REWIND 181' until it responds or you can misuse another IBM program WAITDEV from the TCPIP product and just wait for 181 to come read y. Then read the volser of the next scratch tape and assume it is correct. If you have an IBM ATL, the DFSMSRM command can be used to request a scra tch mount, and then you can read the tape volser when the command completes. If you have a tape management program like VMTape, use its command to request a scratch tape and I think it has an option to give you the volse r, if not, then read the volser from the tape when the mount command complet es. /Tom Kern On Tue, 9 Mar 2010 17:00:11 +0300, Sergio Lima <sergiovm...@hotmail.com> wrote: > >Hello List. > >I'm doing a REXX here that will do a backup from some DISKS of Maint machine to tape. >So, We want backup more than one disk to tape, using the LEAVE option fr om all DUMP statements. >When the DDR find the END of the TAPE, can I give control in my REXX pro gram ? >Another words, Can I get a retun code, and say "operator pelase mount th e next volume ?" >We also need have a history from the Tapes used from backup to restore l ater. >Someone have experienced this situation ? > >Thanks very much > >Sergio Lima Costa >System Support >GRV Solutions >Sao Paulo - Brazil
