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.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].