RE: What REMOTE system started the RUNRMTCMD

Tom, thanks for the response.  I did say SNA.
Before I got your email, I already came up with a solution, but yours is
much more elegant.  I will try it and see what is there.  That is how I was
hoping to solve the problem..... With an API.
Regards,
cjg

Carl J. Galgano
EDI Consulting Services, Inc.
550 Kennesaw Avenue, Suite 800
Marietta, GA  30060
(770) 422-2995 - voice
(419) 730-8212 - fax
mailto:cgalgano@xxxxxxxxxxxxxxxxx
http://www.ediconsulting.com
AS400 EDI, Networking, E-Commerce and Communications Consulting and
Implementation 
http://www.icecreamovernight.com
Premium Ice Cream Brands shipped Overnight

Visit our website to subscribe to our FREE AS/400 Timesharing Service

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Tom Liotta
Sent: Friday, October 10, 2003 6:47 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: What REMOTE system started the RUNRMTCMD


Carl:

Overnight I got to thinking "Did he say SNA back at the beginning?" Well,
okay, then try this...

On SYSTEMA:

 ==> runrmtcmd cmd( call yourlib/TSTRMTCMD ) +
               rmtlocname( SYSTEMB ) +
               rmtuser( CARL ) +
               rmtpwd( carlspwd )

On SYSTEMB, have the following compiled in library(yourlib):

pgm

   dcl     &uowid        *char      24
   dcl     &ji400        *char     467

   call    QUSRJOBI    ( +
                         &ji400       +
                         x'000001D3'  +
                         'JOBI0400'   +
                         '*'          +
                         ' '          +
                       )

   chgvar  &uowid        %sst( &ji400 124 24 )

dmpclpgm

return
endpgm

Compile it named TSTRMTCMD of course.

Examine the CL dump and review the content of the &uowid variable. Perhaps
this will give you the info you need to create your solution.

Tom Liotta

midrange-l-request@xxxxxxxxxxxx wrote:

>   7. RE: What REMOTE system started the RUNRMTCMD (Carl Galgano)
>
>Tom (et al.)
>I have 2 AS400s that start jobs on a 3rd AS400 using the RUNRMTCMD.  
>They use *SNA, not TCPIP.  Not sure this fact matters. Based on which 
>AS400 executes the RNURMTCMD on the 3rd system I want to be able to do 
>something (ie add the correct library to the library list that contains 
>the DDM file definitions that point to the AS400 that started the 
>process).  I figured this should be (would be) as easy as retrieving a 
>job attribute in the QNMAREXECD job.  If you look at the job log for 
>these jobs (when they are active), they know what profile and what 
>system started the RUNRMTCMD.
>
>I have solved this, however my solution is not elegant.  I wrote a 
>command called RTVRMTINF.  It calls a CL that dumps the joblog to an 
>outfile, and then calls an RPG program to read the file in reverse 
>sequence to get the message IDs CPIAD02 (contains the user info) and 
>CPI81C7 (contains the remote system (APPN) name).  I parse the message 
>data and I have the info I need.  It was a little convoluted, but it 
>works.

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com


__________________________________________________________________
McAfee VirusScan Online from the Netscape Network. Comprehensive protection
for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397

Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455
_______________________________________________
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.