You Can View User Feedback To This Tip
Use PINGER to quickly verify connectivity
to all critical servers within your organization.
PGM
DCLF FILE(PINGERFM)
/*Initialize*/
RTVJOBA USER(&@SUSER)
DISPLAY: SNDRCVF RCDFMT(PINGER1)
IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(ENDCLPGM))
/*Initialize*/
CHGVAR VAR(&@SPL1) VALUE(' ')
CHGVAR VAR(&@SOMF) VALUE(' ')
CHGVAR VAR(&@SDBN) VALUE(' ')
CHGVAR VAR(&@SOAKW) VALUE(' ')
CHGVAR VAR(&@SDBNS) VALUE(' ')
CHGVAR VAR(&@SSOMF) VALUE(' ')
CHGVAR VAR(&@SSOCC) VALUE(' ')
CHGVAR VAR(&@SSOPD) VALUE(' ')
/*Plant1*/ PLANT1:
VFYTCPCNN RMTSYS('192.168.0.1') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SPL1) VALUE('*** Error connecting to +
Plant 1 0.1')
GOTO CMDLBL(OMF)
ENDDO
CHGVAR VAR(&@SPL1) VALUE('Plant 1 connection is OK')
/* OMF */ OMF:
VFYTCPCNN RMTSYS('192.168.24.1') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SOMF) VALUE('*** Error connecting to +
OMF 24.1')
GOTO CMDLBL(DBN)
ENDDO
CHGVAR VAR(&@SOMF) VALUE('OMF connection is OK')
/*Dearborn*/ DBN:
VFYTCPCNN RMTSYS('192.168.32.1') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SDBN) VALUE('*** Error connecting to +
Dearborn 32.1')
GOTO CMDLBL(OAKWOOD)
ENDDO
CHGVAR VAR(&@SDBN) VALUE('Dearborn connection is OK')
/*OAKWOOD*/ OAKWOOD:
VFYTCPCNN RMTSYS('192.168.0.7') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SOAKW) VALUE('*** Error connecting to +
OAKWOOD Server 0.7')
GOTO CMDLBL(DBNSRV)
ENDDO
CHGVAR VAR(&@SOAKW) VALUE('OAKWOOD Server +
connection is OK')
/*DEARBORN*/ DBNSRV:
VFYTCPCNN RMTSYS('192.168.0.6') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SDBNS) VALUE('*** Error connecting to +
DEARBORN Server 0.6')
GOTO CMDLBL(MALSRV)
ENDDO
CHGVAR VAR(&@SDBNS) VALUE('DEARBORN Server +
connection is OK')
/*MAIL*/ MALSRV:
VFYTCPCNN RMTSYS('192.168.0.8') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SMALS) VALUE('*** Error connecting to +
MAIL Server 0.8')
GOTO CMDLBL(INTIN)
ENDDO
CHGVAR VAR(&@SMALS) VALUE('MAIL Server +
connection is OK ')
/*INTERNET*/ INTIN:
VFYTCPCNN RMTSYS('192.168.0.4') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SINTI) VALUE('*** Error connecting to +
DSL Gateway 04.2')
GOTO CMDLBL(SPEDEOMF)
ENDDO
CHGVAR VAR(&@SINTI) VALUE('DSL Gateway connection +
is OK')
/*SPEDE OMF*/SPEDEOMF:
VFYTCPCNN RMTSYS('192.168.24.248') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SSOMF) VALUE('*** Error connecting to +
SPEDE OMF 24.248')
GOTO CMDLBL(SPEDEOCC)
ENDDO
CHGVAR VAR(&@SSOMF) VALUE('SPEDE OMF +
connection is OK')
/*SPEDE OCC*/SPEDEOCC:
VFYTCPCNN RMTSYS('192.168.8.249') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SSOCC) VALUE('*** Error connecting to +
SPEDE OCC 8.249')
GOTO CMDLBL(OPD)
ENDDO
CHGVAR VAR(&@SSOCC) VALUE('SPEDE OCC +
connection is OK')
/* OPD */ OPD:
VFYTCPCNN RMTSYS('192.168.0.247') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP0000) EXEC(DO)
CHGVAR VAR(&@SSOPD) VALUE('*** Error connecting to +
SPEDE OPD 0.247')
GOTO CMDLBL(END)
ENDDO
CHGVAR VAR(&@SSOPD) VALUE('SPEDE OPD connection is OK')
END: GOTO CMDLBL(DISPLAY)
ENDCLPGM: ENDPGM
A*******************************************************A
DSPSIZ(24 80 *DS3)
A MSGLOC(24)
A PRINT
A HELP
A CA03(03 'EXIT')
A R PINGER1
A*%%TS SD 20031113 154803 BOWLIN REL-V5R1M0 5722-WDS
A BLINK
A OVERLAY
A 1 2'PINGER'
A COLOR(BLU)
A 1 32'The Oakwood Group'
A COLOR(WHT)
A 1 72DATE
A EDTWRD(' / / ')
A COLOR(BLU)
A @SUSER 10A O 2 2COLOR(BLU)
A 2 32'Verify Connections'
A COLOR(WHT)
A 2 72TIME
A EDTWRD(' : : ')
A COLOR(BLU)
A 5 12'Plant 1 . . . . :'
A @SPL1 40A O 5 31
A 6 12'OMF . . . . . . :'
A @SOMF 40A O 6 31
A 7 12'Dearborn . . . . :'
A @SDBN 40A O 7 31
A 10 12'OAKWOOD . . . . :'
A @SOAKW 40A O 10 31
A 11 12'DEARBORN . . . . :'
A @SDBNS 40A O 11 31
A 12 12'Mail Server . . :'
A @SMALS 40A O 12 31
A 15 12'Internet IN . . :'
A @SINTI 40A O 15 31
A 18 12'SPEDE OMF . . . :'
A @SSOMF 40A O 18 31
A 19 12'SPEDE OCC . . . :'
A @SSOCC 40A O 19 31
A 20 12'SPEDE OPD . . . :'
A @SSOPD 40A O 20 31
A 23 2'F3=Exit'
A COLOR(BLU)
A 4 12'Plants'
A COLOR(WHT)
A 9 12'Servers'
A COLOR(WHT)
A 14 12'Internet'
A COLOR(WHT)
A 17 12'SPEDE Servers'
A COLOR(WHT)
USER FEEDBACK TO THIS TIP
==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: Tips, tutorials and more.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
Read this Search400.com Featured Topic: Monitoring your iSeries system .
Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.