Re: Syncing time on the as/400

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

Okay, consider this then.  If you have access to a machine that is on the web,
and on the private network, run some program on that PC that gets the date, then
snatch it from the AS/400.

There is a definite time issue involved, though.  How long does it take you to
get the data from the AS/400 from the PC?

An even better alternative, I had written a program in Delphi that ran on a PC.
It listened to a given port, and forwarded all requests to another port.  So,
think of this, have this PC listen to some port, say 12345, and when it receives
an OPEN request, have it request an OPEN on the internet to some other port.
This gives you a "window" to the internet that is very secure.  No one from the
internet can get to your AS/400 by any means.  But, you can still get to the
Internet from the AS400 on specific ports.  It would, in fact, be a proxy server
for a given port.

Fairly easy to do on the PC side (I did it from Telnet port 25 to Serial  so I
could transfer files from a  McDonnell Douglas Pic Basic system (serial) to a
Linux based Pic system (Telnet).  Worked quite well actually.  We wound up using
that same code to do a number of things.  We then were able to allow dial up to
Telnet or Telnet to the Pic System.  Quite versatile, once all the conversion 
was
done in code.

At this company we just have the AS/400, mainly, and a few PCs for other things,
mainly to connect to the internet.

Regards,

Jim Langston

Chris Bipes wrote:

> Thank All of you who sent me the NISTIME.zip.  Ask and you shall receive.  I
> love this list.  Now for the fun part, translating "C" to RPG.  I am getting
> the hang of this.  I also need management to let me open the 400 to the web.
> Currently we do not have direct access to the internet, (10.x.x.x address.)
>
> Christopher K. Bipes    mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst  mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.        http://www.cross-check.com
> 6119 State Farm Drive   Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928  Fax: 707 586-1884
>
> *Note to Recruiters
> I nor anyone that I know of is interested in any new and/or exciting
> positions. Please do not contact me.
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---