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