Re: AS400 Backup Job V4R5
Hi,
I have just made a simple CL program that I have put on the IBM scheduler
(i.e. savdaily)
see below for some cuts from savdaily,
/* End OneWorld sbs JDEB7332 with CMD ENDNET */
ENDNET
MONMSG CPF0000
CLRIPC
MONMSG CPF0000
DLYJOB DLY(600)
/* Delete SQL packages before starting OW services */
DLTOWSQL: CALL PGM(QGPL/DLTOWSQL)
MONMSG MSGID(CPF0000)
Here you put in your SAVLIB, SAVCHGJOB, ...............
/* Start OneWorld sbs JDEB7332 with CMD STRNET */
STRNET
MONMSG CPF0000
See below for prg DLTOWSQL:
DLTOWSQL: PGM
/* */
/* --------- DEFINE PROGRAM VARIABLES ------------------------------ */
/* */
DCLF FILE(QTEMP/DLTOWSQL)
/* */
/* --------- BEGIN PROCESSING -------------------------------------- */
/* */
DSPOBJD OBJ(*ALLUSR/*ALL) OBJTYPE(*SQLPKG) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/DLTOWSQL)
MONMSG MSGID(CPF2123) EXEC(GOTO CMDLBL(END))
RCVF: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(DLTF))
IF COND(%SST(&ODOBNM 1 1) *EQ 'Q') THEN(GOTO +
CMDLBL(RCVF))
IF COND(%SST(&ODOBNM 1 1) *EQ '_') THEN(GOTO +
CMDLBL(RCVF))
IF COND(&ODLBNM *EQ 'NULLID') THEN(GOTO +
CMDLBL(RCVF))
DLTSQLPKG SQLPKG(&ODLBNM/&ODOBNM)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(RCVF)
DLTF: DLTF FILE(QTEMP/DLTOWSQL)
END: ENDPGM
Hope it helps
Best regards
Mats Thunholm
---------------------------------------------------------------------------------------------------------
Mats Thunholm
APBiotech
Uppsala, Sweden
+46 18 612 0646 (w), +46 70 666 5819 (m)
[email protected]
---------------------------------------------------------------------------------------------------------
JDE Usr
<
[email protected] To:
[email protected]
m> cc:
Sent by: Subject: AS400 Backup Job V4R5
owner-jdelistml@j
delist.com
2001-06-27 23:07
Please respond to
jdelist
I need assistance setting up a job on the 400 that will shutdown
OneWorld(endnet), clear ipc, delete all sql pkgs, backup the system, and
finally startup Oneworld again(startnet). Does anyone have any sample
scripts to do this? I'm on V4R5.
_______________________________________________________
Send a cool gift with your E-Card
http://www.bluemountain.com/giftcenter/
B7332 SP11.3, AS400 V4R5
Mats Thunholm
APBiotech
Uppsala, Sweden