RE: Printer dying after IPL. -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Jeff
What is CNTPRTWTR?
Is this a custom program?
Does this just do a strprtwtr *all?

Michael Smith
iSeries.mySeries.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
Sent: Monday, July 16, 2007 3:34 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: Printer dying after IPL.

I have a 5-minute delay on starting printer writers. This is what's in
my startup program:

/* START PRINTER WRITERS */

QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) +
RTNVAR(&STRWTRS)
IF COND(&STRWTRS = '1') +
THEN(DO)
ADDTIM NBRSECS(&DLYSECS) +
ENDTIM(&HHMMSS) +
ENDDAT(&YYMMDD)
SBMJOB CMD(CNTPRTWTR ACTION(*START)) +
JOB(CNTPRTWTR) +
JOBQ(QCTL) +
JOBPTY(1) +
SCDDATE(&YYMMDD) +
SCDTIME(&HHMMSS)
SNDPGMMSG MSGID(USR9897) +
MSGF(MSG) +
MSGDTA('Printers will be started in' *BCAT &DLYSECS
*BCAT +
'seconds (to insure TCP/IP is up).') +
TOMSGQ(QSYSOPR)
MONMSG MSGID(CPF0000)
ENDDO

By submitting to batch, the rest of the program can proceed. There's
probably a more elegant way, but this works for me.

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.