Sicherung der iSeries und deren Programme

[KingofKning]

Mal so als Vorlage

PGM
/************************************************** **************/
/* */
/* Programm: SAVALL . */
/* */
/* erstellt: 14.12.2009 Copyright 2007 by XX */
/* von.....: GS */
/* */
/* Tel: 022 */
/* Fax: 022 */
/*. */
/*. */
/*. AUFRUF MIT */
/*. SBMJOB CMD(CALL PGM(xx/SAVALL)) JOBQ(QCTL) */
/*. */
/* Nr. Datum wer was */
/* 01 24.06.11 GS BENUTZERPROFILE SICHERN */
/* 02 24.12.11 GS 2 X ENDSBS EINGEBAUT */
/* xxxx xx.xx.xx xxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx */
/************************************************** **************/
CHKTAP DEV(TAP01)
MONMSG MSGID(CPF6760) EXEC(GOTO CMDLBL(ENDE))
INZTAP DEV(TAP01) NEWVOL(SAVALL) +
NEWOWNID(JAHRESDASI) CHECK(*NO) +
DENSITY(*ULTRIUM3)
MONMSG MSGID(CPF0000)
CHKTAP DEV(TAP01)
MONMSG MSGID(CPF6760) EXEC(GOTO CMDLBL(ENDE))
ENDDOMSVR SERVER(DOM01) JSC(*YES)
DLYJOB DLY(90)
CALL PGM(ENDFAX)
MONMSG MSGID(CPF0000)
DLYJOB DLY(15)
CALL PGM(ENDFAXSPL)
MONMSG MSGID(CPF0000 TLX1100)
DLYJOB DLY(15)
/*02*/
ENDSBS SBS(ASLSTSUB) DELAY(30)
DLYJOB DLY(45)
ENDSBS SBS(CONTROL400) DELAY(30)
DLYJOB DLY(45)
ENDSBS SBS(*ALL) OPTION(*CNTRLD) DELAY(30) +
ENDSBSOPT(*NOJOBLOG) BCHTIMLMT(180)
MONMSG MSGID(CPF0000)
DLYJOB DLY(60)
ENDSBS SBS(*ALL) OPTION(*CNTRLD) DELAY(30) +
ENDSBSOPT(*NOJOBLOG) BCHTIMLMT(180)
MONMSG MSGID(CPF0000)
*01*/
DLYJOB DLY(90)
SAVSYS DEV(TAP01) ENDOPT(*LEAVE) OUTPUT(*PRINT) +
CLEAR(*ALL)
MONMSG MSGID(CPF0000)
SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
ACCPTH(*YES) SPLFDTA(*ALL) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000)
SAVDLO DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE)
MONMSG MSGID(CPF0000)
SAV DEV('/QSYS.LIB/TAP01.DEVD') OBJ(('/*') +
('/QDLS' *OMIT) ('/QSYS.LIB' *OMIT)) +
ENDOPT(*REWIND)
MONMSG MSGID(CPF0000)
SAVCFG DEV(TAP01) ENDOPT(*LEAVE)
MONMSG MSGID(CPF0000)
SAVSECDTA DEV(TAP01) ENDOPT(*LEAVE) /* BENUTZERPROFILE +
SICHERN */
MONMSG MSGID(CPF0000)
PWRDWNSYS DELAY(60) RESTART(*YES *FULL)
ENDE: ENDPGM


GG

[-rada-]

danke kingofkning
werde das mir genauer anschauen.

[Pikachu]

Wo wir gerade dabei sind, bei BRMS gibt es ja eine Zeitdauer, nach der spätestens der eingeschränkte Zustand verlassen werden soll, falls die Maschine nicht von selbst wieder hoch kommt.
Wie definiert man soetwas dann ohne BRMS?

Beim ENDSBS gibts dafür (ab V5R4) den Parameter BCHTIMLMT.