SAv21 im Batch

[HenningSpandau]

Hallo Frank, hallo an alle,
ich habe eine SAVSYS-Sicherung im Batch laufen. es sind lt. Protokoll 8 Meldungen in denen die Anzahl der gesicherten Objekte aufgezeigt werden.
Erst nach der letzten Meldung kommt die Meldung "aktive Datei auf dem Datenträger gefunden" CPA4278.

Frage: Wieso meldet das System nicht bereits nach der ersten Sicherung, das ative Dateien auf dem Band sind.

Danke
Henning

[KingofKning]

Hallo Frank, hallo an alle,
ich habe eine SAVSYS-Sicherung im Batch laufen. es sind lt. Protokoll 8 Meldungen in denen die Anzahl der gesicherten Objekte aufgezeigt werden.
Erst nach der letzten Meldung kommt die Meldung "aktive Datei auf dem Datenträger gefunden" CPA4278.

Frage: Wieso meldet das System nicht bereits nach der ersten Sicherung, das ative Dateien auf dem Band sind.

Danke
Henning

Tja das Problem habe ich auch gerade, ich hatte den Job schon mal direkt an der Console laufen lassen und da lief er durch jetzt von zu Hause melder er mir auch den Fehler, obwohl das Band vorher mit inztap inintialisiert wurde.
Verstehe ich nicht.

GG

[HenningSpandau]

Hallo KingofKning
hier mein CL, dass auf Version 6.x bereits einwandfrei über scheduler gelaufen ist.


***************** Datenanfang ***********************************************
0001.00 PGM
0002.00
0003.00 DCL VAR(&TAPE) TYPE(*CHAR) LEN(10) VALUE('TAP01')
0004.00 INZTAP DEV(TAP01) NEWVOL(RUF1) CHECK(*NO)
0005.00 ENDTCPSVR SERVER(*ALL)
0006.00 ENDHOSTSVR SERVER(*ALL)
0007.00 DLYJOB DLY(600)
0008.00 ENDTCP
0009.00 ENDSBS SBS(*ALL) OPTION(*IMMED) +
0010.00 ENDSBSOPT(*NOJOBLOG) BCHTIMLMT(300)
0011.00 /* 5 STUNDEN */
0012.00 DLYJOB DLY(300)
0013.00 ENDSBS_A1:
0014.00 ENDSBS SBS(*ALL) OPTION(*IMMED) +
0015.00 ENDSBSOPT(*NOJOBLOG) BCHTIMLMT(300)
0016.00 MONMSG MSGID(CPF1035) EXEC(DO)
0017.00 DLYJOB DLY(60)
0018.00 GOTO CMDLB(ENDSBS_A1)
0019.00 ENDDO
0021.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STRSBS))
0022.00 /* WARTEN BIS SUBSYSTEME BEENDET SIND 1200=2O MINUTEN */
0023.00 DLY:
0024.00 DLYJOB DLY(1200)
0025.00
0026.00 /* 21ER SICHERUNG */
0027.00 SAVSYS DEV(&TAPE) ENDOPT(*LEAVE)
0028.00 MONMSG MSGID(CPF3785) EXEC(GOTO CMDLBL(DLY))
0029.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STRSBS))
0030.00
0031.00 SAVLIB LIB(*NONSYS) DEV(&TAPE) ENDOPT(*LEAVE) +
0032.00 ACCPTH(*YES)
0033.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STRSBS))
0034.00
0035.00 SAVDLO DLO(*ALL) FLR(*ANY) DEV(&TAPE) ENDOPT(*LEAVE)
0036.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STRSBS))
0037.00
0038.00 SAV DEV(('/QSYS.LIB/' *TCAT &TAPE *TCAT +
0039.00 '.DEVD')) OBJ(('/*') ('QSYS.LIB' *OMIT) +
0040.00 ('QDLS' *OMIT)) OUTPUT(*NONE) UPDHST(*YES) 0041.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STRSBS))
0042.00
0043.00 STRSBS:
0044.00
0045.00 /* SUBSYSTEME STARTEN */
0046.00 STRSBS SBSD(QCTL)
0047.00
0048.00 PWRDWNSYS OPTION(*IMMED) RESTART(*YES)
0049.00 $ENDE: ENDPGM
Gruß und gutes Neues
Henning

[Pikachu]

0038.00 SAV DEV(('/QSYS.LIB/' *TCAT &TAPE *TCAT +
0039.00 '.DEVD')) OBJ(('/*') ('QSYS.LIB' *OMIT) +
0040.00 ('QDLS' *OMIT)) OUTPUT(*NONE) UPDHST(*YES)

Vor QDLS fehlt da noch ein Schrägstrich (/).

[holgerscherer]

Vor QDLS fehlt da noch ein Schrägstrich (/).

Vorm /QSYS.LIB auch (der Vollständigkeit halber) ;-)

-h

[KingofKning]

Hallo *all,
nur der Vollständigkeit halber, mein Problem war das der Savsys nicht sauber lief (CPA4278), der Rest schon. (Es gibt nichts schöneres als auf dsptap zu warten). Was mir geholfen hat, war der Zusatz:

SAVSYS DEV(TAP01) ENDOPT(*LEAVE) OUTPUT(*PRINT) +
CLEAR(*ALL)
Obwohl das inztap 2 Zeilen vorher stand,gab es Mecker.

GG