View Full Version : SAv21 im Batch
Wie IBM das macht kann man hier ansehen: RTVCLSRC QMNSRBND in eine Quellenteildatei und dann in der abgerufenen Quelle nach ENDSBS und ENDJOB suchen.
HenningSpandau
02-05-11, 09:00
Bitte klicken Sie auf eines der 'Direkt antworten'-Symbole unten rechts in den Beiträgen, um unkompliziert direkt in der Themenansicht auf einen Beitrag zu antworten.
HenningSpandau
02-05-11, 09:06
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
24-12-11, 07:04
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
02-01-12, 13:05
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
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
02-01-12, 20:39
Vor QDLS fehlt da noch ein Schrägstrich (/).
Vorm /QSYS.LIB auch (der Vollständigkeit halber) ;-)
-h
KingofKning
03-01-12, 08:06
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