RE: Retrieve source ip address in signin exit program -- MIDRANGE-L

The IP address for IPv6 is in a different location.

1005 3ED CHAR(45) Internet Protocol (IPv6) version 6 internet address in
character representation

Don Brown

Senior Consultant

[1]OneTeam IT Pty Ltd
P: 1300 088 400

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Raul
Alberto Jager Weiler
Sent: Thursday, 11 September 2025 6:39 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Retrieve source ip address in signin exit program

15 characters for the IP, not enough for IPv6

On Tue, Sep 9, 2025 at 2:37 PM Rob Berendt <robertowenberendt@xxxxxxxxx>
wrote:

> 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: [2]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
> > [3]https://archive.midrange.com/midrange-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
> > related questions.
> >
> >
> --
> 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: [4]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
> [5]https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
> related questions.
>
>
--
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: [6]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
[7]https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
Message protected by MailGuard: e-mail anti-virus, anti-spam and content
filtering.
[8]https://www.mailguard.com.au

References

Visible links
1. https://www.oneteamit.com.au/
2. https://lists.midrange.com/mailman/listinfo/midrange-l
3. https://archive.midrange.com/midrange-l.
4. https://lists.midrange.com/mailman/listinfo/midrange-l
5. https://archive.midrange.com/midrange-l.
6. https://lists.midrange.com/mailman/listinfo/midrange-l
7. https://archive.midrange.com/midrange-l.
8. https://www.mailguard.com.au/