Re: Retrieve source ip address in signin exit program

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