|
midrange.com
This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Remember, if you use PING to test, then you need to use MSGMODE(*QUIET
*ESCAPE). This will let you do a MONMSG. Like this sample code:
/* Group Dekko Services, LLC */
/* ALL RIGHTS RESERVED. */
/* */
/* This program will see if the NOTESFAX Domino server is locked up */
/* */
/* */
/* Modification log: */
/* 12/31/98 by R.Berendt, CCP GDS,LLC */
/* Created. */
/* */
PGM
DCL &DAY *CHAR 2 /* Day */
DCL &DAYOFWEEK *CHAR 4 /* Day of week ie *MON */
DCL &HOLIDAY *CHAR 1 /* '0'=No, '1'=Yes */
DCL &HOUR *CHAR 2 /* Military format */
DCL &MONTH *CHAR 2 /* Month */
DCL &TRIES *DEC 2 /* */
LOOP:
/* +
| Don't check after hours. We just don't care that bad. +
*/
RTVSYSVAL SYSVAL(QHOUR) RTNVAR(&HOUR)
IF COND((&HOUR < '08') *OR +
(&HOUR > '16')) THEN(DO)
DLYJOB RSMTIME(080000)
GOTO CMDLBL(LOOP)
ENDDO
/* +
| Don't check on weekends. +
*/
RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DAYOFWEEK)
IF COND((&DAYOFWEEK = '*SAT') *OR +
(&DAYOFWEEK = '*SUN')) THEN(DO)
DLYJOB RSMTIME(080000)
GOTO CMDLBL(LOOP)
ENDDO
/* +
| Don't check on holidays. +
*/
RTVSYSVAL SYSVAL(QDAY) RTNVAR(&DAY)
RTVSYSVAL SYSVAL(QMONTH) RTNVAR(&MONTH)
CALL PGM(HOLIDAY) PARM( +
&MONTH /* Numeric month of year */ +
&DAY /* Numeric day of month */ +
&DAYOFWEEK /* Day of week, ie *MON - sysval QDAYOFWEEK */ +
&HOLIDAY /* 1=Yes, 0=No */ +
)
IF COND(&HOLIDAY='1') THEN(DO)
DLYJOB RSMTIME(080000)
GOTO CMDLBL(LOOP)
ENDDO
CHGVAR VAR(&TRIES) VALUE(0)
RETRY:
CHGVAR VAR(&TRIES) VALUE(&TRIES + 1)
PING RMTSYS(NOTESFAX) MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP3210 TCP3202 TCP3213) EXEC(GOTO
CMDLBL(ALERT))
DELAY:
DLYJOB DLY(900) /* 15 MINUTES */
GOTO CMDLBL(LOOP)
ALERT:
IF COND(&TRIES < 3) THEN(GOTO CMDLBL(RETRY))
SNDDST TYPE(*MSG) TOUSRID((CHRIS DEKKO) (CHRIS +
ARCH) (ROB DEKKO) (ROB ARCH) (WATSON +
DEKKO)) DSTD(BULLSHIRT) MSG('Unable to +
ping NOTESFAX')
GOTO CMDLBL(DELAY)
END:
ENDPGM
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"Graap, Ken" <keg@nwnatural.com>
Sent by: midrange-l-admin@midrange.com
11/25/2002 06:05 PM
Please respond to midrange-l
To: "'midrange-l@midrange.com'" <midrange-l@midrange.com>
cc:
Fax to:
Subject: RE: Check to see if TCP/IP is up
It doesn't give me an escape message... Just an information message
indicating it couldn't reach the host ... (???)
i.e. - TCP3210 Connection verification statistics: 0 of 5 successful (0
%).
-----Original Message-----
From: DeLong, Eric [mailto:EDeLong@Sallybeauty.com]
Sent: Monday, November 25, 2002 2:58 PM
To: 'midrange-l@midrange.com'
Subject: RE: Check to see if TCP/IP is up
Ping the local host? (127.0.0.1)
-----Original Message-----
From: Graap, Ken [mailto:keg@nwnatural.com]
Sent: Monday, November 25, 2002 4:54 PM
To: 'Midrange'
Subject: Check to see if TCP/IP is up
Could anyone suggest an easy way to test, from a CLP, to see if TCP/IP is
active...
I want to startup a process, but I want to wait until TCP/IP is active
before I do.
Kenneth
****************************************
Kenneth E. Graap
IBM Certified Specialist
AS/400e Professional System Administrator
NW Natural (Gas Services)
keg@nwnatural.com
Phone: 503-226-4211 x5537
FAX: 603-849-0591
****************************************
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
