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