Mark,

You can also back up your database to a named tape instead of a
scratch tape.  I believe this offers you better control over the
process and a better opportunity to manage the offsite storage of
vital data if you don't use ADSM's DRM offering.

I use a set of seven database backup tapes labelled DBB000 to DBB006
and a corresponding floppy disk for the volhist and config backups.  I
have my operations staff load the right tape (they are prompted for
the number) then my system checks for the corresponding diskette and
swears at them until they load the right one (it's got a dummy file on
it named DBBxxx.LBL).  They are supposed to record the backup tape
number on the daily log sheet so they know which one to use
tomorrow......Other than the recording of volser it's all automagic
using a couple of REXX execs and BAT files on NT.

ADSMDBBKUP.REX  - this is driven of a program icon in the main
operations window

Say 'Which tape are you going to use to backup the ADSM database?'
parse external tapevol
adsmdbbkup.bat tapevol


ADSMDBBKUP.BAT

:begin
if exist a:\%1.lbl goto disk_ok
net send aupadm The %1 diskette is not mounted.
pause Please mount the diskette labelled %1 in the a: drive before
proceeding.
goto begin
:disk_ok
cd c:\win32app\ibm\adsm\saclient
dsmadmc -id=admin -pass=admin backup db type=full dev=dltclass vol=%1
dsmadmc -id=admin -pass=admin -consolemode | rexx
c:\users\aupadm\conmon.rex
dsmadmc -id=admin -pass=admin backup volhistory file=a:\volhist.out
dsmadmc -id=admin -pass=admin backup devconfig  file=a:\devcnfg.out
dsmadmc -id=admin -pass=admin delete volhist type=dbb todate=today-5
REM Prompt operator to remove scratch tapes and return them to the
scratch pool
dsmadmc -id=admin -pass=admin q vol
pause Please move any tapes **NOT** in the above list to the scratch
pool.

CONMON.REX - this process monitors the console task started above and
traps mount messages.

Say 'Console monitor started.'
Do forever
parse external msgno msgtext
        select
        When msgno = 'ANR2280I' then do
                parse value msgtext with . . . . . . procstrt .
                end
        When msgno = 'ANR1360I' then do
                parse value msgtext with . . bkupvol .
                end
        When msgno = 'ANR1361I' then do
                parse value msgtext with . . closedvol .
                end
        When msgno = 'ANR8326I' then do
                "net send aupadm" msgtext
                end
        When msgno = 'ANR4550I' then do
                parse value msgtext with . . . . procend . stats
                leave
                end
        Otherwise
        end /* select section */
end /* do forever     */
kill DSMADMC.EXE      /* Kill the adsm console monitor feeding this
REXX */
Say 'The backup started on ' bkupvol ' and ended on ' closedvol '.'



Murray Nicholas
Systems Specialist
HALTEK PTY LTD/Galeforce Information Services Pty Ltd