PDA

View Full Version : Backup im Restricted Mode schedulen



mic74
15-08-08, 10:21
Hallo Mitstreiter,

ich brauche mal einen kurzen Rat.
Ich möchte einen Fullsave laufen lassen, den aber im restricted Mode.
Kann ich im CL einen TFRJOB JOBQ(QCTL) hinterlegen damit der Job im QCTL weiterläuft, wenn ich die Subsysteme beende ?
Falls nicht, bin ich für jeden weiteren Rat dankbar.
Da das System in einem externen Rechenzentrum steht, kann ich as leider nicht direkt an der Console machen.

Danke für die Hilfe.

holgerscherer
15-08-08, 11:01
Kann ich im CL einen TFRJOB JOBQ(QCTL) hinterlegen damit der Job im QCTL weiterläuft, wenn ich die Subsysteme beende ?

Warum so umständlich? Submitte einfach:

SBMJOB CMD(CALL QGPL/SAVEBCH)) JOBQ(QCTL)

Und hier SAVEBCH: (vorsicht, aus dem Schädel)



PGM

DCL VAR(&ZAHL) TYPE(*DEC) LEN(1)

MONMSG MSGID(CPF0000)
CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES) +
LOGOUTPUT(*JOBEND)

CHGVAR VAR(&ZAHL) VALUE(5)

ENDSBS SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)
DLYJOB DLY(120)
ENDSBS SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)
DLYJOB DLY(120)

INZTAP DEV(TAP01) NEWVOL(SAVE21) CHECK(*NO) +
DENSITY(*CTGTYPE)
SAVESYS:
SAVSYS DEV(TAP01) ENDOPT(*LEAVE)
MONMSG MSGID(CPF3785) EXEC(DO)
CHGVAR VAR(&ZAHL) VALUE(&ZAHL - 1)
IF COND(&ZAHL *EQ 0) THEN(GOTO CMDLBL(ENDABN))
GOTO CMDLBL(SAVESYS)
ENDDO


SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
ACCPTH(*YES)
SAVDLO DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE)
SAV DEV('/qsys.lib/tap01.devd') OBJ(('/*') +
('/QDLS' *OMIT) ('/QSYS.LIB' *OMIT))
CHKTAP DEV(TAP01) ENDOPT(*REWIND)
DSPTAP DEV(TAP01) DATA(*SAVRST) OUTPUT(*PRINT)
STRSBS SBSD(QCTL)
GOTO CMDLBL(ENDE)

ENDABN:
SNDMSG MSG('Problem beim SAVSYS!') TOUSR(QSYSOPR)
ENDE:
ENDPGM


Viel Spass!

Holger

UFK
16-08-08, 10:21
Beides geht, denke ich.

Zur Synchronisation habe ich auch schon Jobs duch verschiedene Warteschlangen geschickt. Man muß sich nur den Status irgendwie passend merken oder als Parameter weitergeben, und den Prozeß jedesmal an der richtigen Stelle wieder aufsetzen.

Und auch eine Dialogsession, die an QINTER hängt, kann man nachträglich an QCTL transferrieren ...

Fuerchau
16-08-08, 11:04
Achtung: Im eingeschränkten Zustand gibts keine Batch-Jobs !
Da gibts nur einen einzigen Dialog-Job.

holgerscherer
16-08-08, 17:16
Achtung: Im eingeschränkten Zustand gibts keine Batch-Jobs !
Da gibts nur einen einzigen Dialog-Job.

Lieber Baldur,
seit V5R3 geht die Methode oben, und das ist ein schnuckeliger (aber der einzige) Batch-Job ;-)

-h