× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Trigger PC Job
  • From: Neil Palmer <NPalmer@xxxxxxxxxxx>
  • Date: Tue, 05 Aug 1997 12:39:30 -0400
  • Organization: NxTrend Technology - Canada

Mark Bauman wrote:
> 
> VenuGopal,
> 
> Excerpts from mail: 1-Aug-97 Trigger PC Job "Venu Gopal"@countrywide (1200*)
> 
> >  I am interested in some way on AS/400 to trigger the
> > PC job. I will be sending the files to PC and in the same AS job, I'll
> > trigger the PC job. Is this possible? Are there any better solutions?
> 
> Could you use the following sequence?:
> 
> 1) Start up job on AS/400 that will do FTP to PC
> 2) Start FTP session to AS/400 to PC
> 3) PUT file from AS/400 to PC
> 4) End FTP session
> 5) Submit a RUNRMTCMD to start the PC job
> 6) End job on AS/400
> 
> Please note that the PC must be running a rexecd (remote executing
> daemon) in order for the RUNRMTCMD to work.

We automated something almost identical for a customer using RUNRMTCMD.

Only difference was the remote system was an RS/6000 and not a PC.
It worked great.
The job sent a file to the RS/6000 with SNDTCPF, ran a job on the
RS/6000 with RUNRMTCMD, received an output file back with RCVTCPF, and
then ran a job using the file on the AS/400.

SNDTCPF & RCVTCPF are from the Aug/95 News/400 issue - code available
for download on their web site, although the downloaded code needs the
following 2 fixes:

In the SNDTCPFC CL program there's a bug at line 200.  Should be:
   IF  ( &maptbl *EQ '*NONE'  *OR  &maptbl *EQ '*DFT' )  DO  
Likewise, line 231 in RCVTCPFC should be:
   IF  ( &maptbl *EQ '*NONE'  *OR  &maptbl *EQ '*DFT' )  DO 



-- 
... Neil Palmer                                      AS/400~~~~~      
... NxTrend Technology -Canada       ____________          ___  ~     
... Markham,  Ontario,  Canada       |OOOOOOOOOO| ________  o|__||=   
... Phone: (905) 731-9000 x238       |__________|_|______|_|______)   
... url:http://www.NxTrend.com        oo      oo   oo  oo   OOOo=o\   
... mailto:NPalmer@NxTrend.com     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

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

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.