Re: TELNET IP filtering

[vhamberg@xxxxxxxxxxx]

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.