Re: TELNET IP filtering

Al

You should be able to do a DSPPGM on ZTGINIT - the source member will be on the initial display if it is an OPM program, or in the description of the module in the 3rd screen if it is ILE - CLE is usually a C/C++ program and they are usually ILE. QCLSRC, by the way, is usually OPM CL, not C/C++ - QCLLESRC is usually ILE CL.

HTH
Vern

-------------- Original message --------------
From: macwheel99@xxxxxxxxxx

Thanks, you definitely placed a good X on my treasure map.

I found TELNET Initialization followed immediately by TELNET Termination.

Looks like here we can assign a program, but not change the program.

Our program for TELNET Initialization is ZTGINIT in library KSATOOLS
Our program for TELNET Termination is nothing there.

In library KSATOOLS I found
CLE program ZTGINIT & PF Telnet exit mapping

I dumped the file ... it has TELNET rules, not IP addresses.
It would have been too simple to have something I could DFU patch.

I am now on a hunt for the source code for the CLE program.
The library does not have QCLESRC, does have QCLSRC, but it aint there.

On Thu, 18 Sep 2008 18:49:06 -0500, Wayne McAlpine wrote

Al, more than likely you have an exit program that checks the IP
addresses allowed to use TELNET. This program is called whenever a
TELNET connection is requested. To find the program do a WRKREGINF
command and scroll down to QIBM_QTG_DEVINIT; do an option 8 to find
the name of the program.

macwheel99@xxxxxxxxxx wrote:

Where/how do we change TELNET settings?

We have AS/400 model 170 V5R1 forever thanks to BPCS extortionist

pricing.

Years ago, we had our tech support setup our system to accept TELNET

from a

consultant of our coporate owners. They are moving their offices and

need

us to change the collection of IP addresses allowed to reach our system.

I have no idea how to do that. I looked in vain on our system, in

probably

many wrong places.

Asking my boss to approve a call to tech support is like an infinite

number

of visits to the dentist, except that dentist visits tend to accomplish
something.

Al Macintyre
Lots/400 I do not know

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options, visit:
http://lists.midrange.com/mailman/listinfo/midrange-l or email:
MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment
to review the archives at http://archive.midrange.com/midrange-l.

--
WOW! Homepage (http://www.wowway.com)

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.