RE: Printer dying after IPL.

Arrghh. Sorry about that. It's a custom program that yes, start (or stops)
printer writers). Here it is:

PGM PARM(&ACTION &HOW)

/* PARAMETERS */

DCL VAR(&ACTION) +
TYPE(*CHAR) +
LEN(10)
DCL VAR(&HOW) +
TYPE(*CHAR) +
LEN(10)

/* CONSTANTS */

DCL VAR(&START) +
TYPE(*CHAR) +
LEN(10) +
VALUE('*START')
DCL VAR(&END) +
TYPE(*CHAR) +
LEN(10) +
VALUE('*END')
DCL VAR(&IMMED) +
TYPE(*CHAR) +
LEN(10) +
VALUE('*IMMED')
DCL VAR(&CNTRLD) +
TYPE(*CHAR) +
LEN(10) +
VALUE('*CNTRLD')
DCL VAR(&IMMEDTXT) +
TYPE(*CHAR) +
LEN(11) +
VALUE('immediately')
DCL VAR(&CNTRLDTXT) +
TYPE(*CHAR) +
LEN(10) +
VALUE('controlled')

/* VARIABLES */

DCL VAR(&ACTTXT) +
TYPE(*CHAR) +
LEN(50)

/* SET ACTUAL TEXT */

IF COND(&HOW *EQ &IMMED) +
THEN(DO)
CHGVAR VAR(&ACTTXT) +
VALUE(&IMMEDTXT)
ENDDO
IF COND(&HOW *EQ &CNTRLD) +
THEN(DO)
CHGVAR VAR(&ACTTXT) +
VALUE(&CNTRLDTXT)
ENDDO

/* START WRITERS */

IF COND(&ACTION *EQ &START) +
THEN(DO)
SNDPGMMSG MSGID(USR9897) +
MSGF(MSG) +
MSGDTA('Starting all printer writers.') +
TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
QSYS/STRPRTWTR DEV(P1) +
FORMTYPE(*STD)
MONMSG MSGID(CPF0000)
QSYS/STRPRTWTR DEV(P2) +
FORMTYPE(*STD)
MONMSG MSGID(CPF0000)
QSYS/STRPRTWTR DEV(P4) +
FORMTYPE(*STD)
MONMSG MSGID(CPF0000)
QSYS/STRPRTWTR DEV(P6) +
FORMTYPE(*STD)
MONMSG MSGID(CPF0000)
QSYS/STRPRTWTR DEV(P8) +
FORMTYPE(*STD)
MONMSG MSGID(CPF0000)
QSYS/STRPRTWTR DEV(ZEBRA1) +
OUTQ(ZEBRA) +
FORMTYPE(PKGLBL)
MONMSG MSGID(CPF0000)
QSYS/STRPRTWTR DEV(ZEBRA2) +
OUTQ(ZEBRA) +
FORMTYPE(PKGLBL)
MONMSG MSGID(CPF0000)
ENDDO

/* END WRITERS */

IF COND(&ACTION *EQ &END) +
THEN(DO)
SNDPGMMSG MSGID(USR9897) +
MSGF(MSG) +
MSGDTA('Ending all printer writers' *BCAT &ACTTXT *TCAT +
'.') +
TOPGMQ(*EXT) +
MSGTYPE(*STATUS)
QSYS/ENDWTR WTR(*ALL) +
OPTION(&HOW)
ENDDO

/* FORWARD ALL RECEIVED MESSAGES */

FWDPGMMSG MSGTYPE(*ALL)

ENDPGM