RE: AS400 Backup Job V4R5

ssolberg

VIP Member
RE: AS400 Backup Job V4R5

Assuming you are doing your backup through OS/400 provided backup utilities,
which uses the job scheduler, you could put entries in the job scheduler
(WRKJOBSCDE) to do the ENDNET, CLRIPC, then your backup, then STRNET.



Programmer/Developer/Anything-They-Give-Me
World A7.3 11 (quite stable and usually happy)
Attempting CO with Xe, AS/400, V4R5 (not happy)
 

mats_thunholm

Active Member
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)
mats.thunholm@eu.apbiotech.com
---------------------------------------------------------------------------------------------------------



JDE Usr
<JDEUSR@excite.co To: jdelistml@jdelist.com
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
 

daneppich

Active Member
RE: AS400 Backup Job V4R5

There is also a facility in Operations Navagator that you can attach an exit
program to the AS/400 "Go Backup" facility that will run a portion of the CL
before the backup and a portion after. I use this to drop JDE and all get
as close to restricted in batch as I can. This way there are no locks and I
can get almost the whole system if I want it.
 

Solack

Active Member
RE: AS400 Backup Job V4R5

How does that work? Do you have a copy of the program?
I am using a cl program on the as400 v4r4 doing a sav and savlib for specific libraries and directories with the save while active options activated. This program is scheduled to run daily in the wee hours of the morning. Dsplog does not report report any lock problems.

as400 v4r4 es
nt4 sql7 Dep
citrix terminal servers

There is also a facility in Operations Navagator that you can attach an exit
program to the AS/400 "Go Backup" facility that will run a portion of the CL
before the backup and a portion after. I use this to drop JDE and all get
as close to restricted in batch as I can. This way there are no locks and I
can get almost the whole system if I want it.



--------------------------
 
Top