Re: Retrieve source ip address in signin exit program

Bryan,
You're assuming 5250. I started out thinking that way too. Upon rereading
the OP, that is not the case.

On Tue, Sep 9, 2025 at 8:09 AM Bryan Dietz <bdietz400@xxxxxxxxx> wrote:

this is how i've done it:


* -- Retrieve Device Description (QDCRDEVD) API
D GetDevIP PR ExtPgm('QDCRDEVD')
D rcvr 1024A Const
D len 10I 0 Const
D fmt 8A Const
D dev 10A Const
D EC 1040A Const
* -- Ignore API Errors
D ErrorNull ds qualified
D BytesProv 10i 0 inz(0)
D BytesAvail 10i 0 inz(0)
* -- Misc Variables
D IP s 15a

//

GetDevIP(Rcvar:1024:'DEVD0600':Job:ErrorNull );
IP = %Subst(Rcvar:877:15);

Bryan


Don Brown via MIDRANGE-L wrote on 9/9/2025 1:13 AM:

I have a requirement to block signons for a specific user for a specific

source IP address.

Blocking the user is straight forward but I am not finding a way to get

the source ip.

Looking at the data structures for the exit programs

- QIBM_QZSO_SIGNON (Telnet/Remote)
- QIBM_QZDA_INIT (Database host)

I do not see any ip addresses.

What process/procedures can I use to get the source IP address.

Thanks

Don

Brisbane - Sydney - Melbourne


Don Brown

Senior Consultant




P: 1300 088 400




DISCLAIMER. Before opening any attachments, check them for viruses and

defects. This email and its attachments may contain confidential
information. If you are not the intended recipient, please do not read,
distribute or copy this email or its attachments but notify sender and
delete it. Any views expressed in this email are those of the individual
sender

--

-- .
Bryan

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.