RE: Printer dying after IPL.

["Jeff Crosby" <jlcrosby@xxxxxxxxxxxxxxxx>]

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