Re: Trigger PC Job

[Neil Palmer <NPalmer@xxxxxxxxxxx>]

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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *