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