Re: QIBM_QTG_DEVINIT

Charles...

It made a difference for sure but I question if that is really the IP
address...

Here is my DS (with new embedded DS for ip address you pointed out)

dcl-ds ds_connect        qualified;

   lenConnDsc             int(10);

     dcl-ds ds_ip4AddressClient;

       sin_len                int(3);

       sin_family             int(3);

       sin_port               uns(5);

       sin_addr               uns(10);

       filler                 char(12);

     end-ds;

   clientPWValidated      char(1);

   workstationType        char(14);

   sslConnection          char(1);

…



> EVAL ds_connect

   DS_CONNECT.LENCONNDSC = 132

   DS_CONNECT.DS_IP4ADDRESSCLIENT.SIN_LEN = 16

   DS_CONNECT.DS_IP4ADDRESSCLIENT.SIN_FAMILY = 2

   DS_CONNECT.DS_IP4ADDRESSCLIENT.SIN_PORT = 56406

   DS_CONNECT.DS_IP4ADDRESSCLIENT.SIN_ADDR = 173409066

   DS_CONNECT.DS_IP4ADDRESSCLIENT.FILLER = '            '

   DS_CONNECT.CLIENTPWVALIDATED = '0'

   DS_CONNECT.WORKSTATIONTYPE = 'IBM-3477-FC   '

   DS_CONNECT.SSLCONNECTION = '1'

   DS_CONNECT.IP4ADDRESSSERVER = '███\█À██            '

   DS_CONNECT.CLIENTAUTHLEVEL = '0'

   DS_CONNECT.RESERVED01 = '   '

   DS_CONNECT.CLIENTCERTVALID = 0

   DS_CONNECT.OFFSETCLIENTCERT = 1362

   DS_CONNECT.CLIENTCERTLEN = 0

   DS_CONNECT.DS_IP6ADDRESSCLIENT.SIN_LEN = 28

   DS_CONNECT.DS_IP6ADDRESSCLIENT.SIN_FAMILY = 24


What else?


thanks

Jay

On Fri, Aug 22, 2025 at 2:23 PM Jay Vaughn <[email protected]>
wrote:

> That’s totally helpful Charles.
> Yes I’m overlooking the fact that up address is actually another DS!
>
> Let me address that.
>
> Thank you!
>
> On Aug 22, 2025, at 1:28 PM, Charles Wilt <[email protected]> wrote:
> >
> > Well, I'd say you're doing something wrong... :p
> >
> > Show the DS definition and how it's being loaded...
> >
> > A quick glance at the docs,
> >
> https://www.ibm.com/docs/en/i/7.4.0?topic=program-init0100-format-connection-description-information
> >
> > and I see that the IP address field is actually another DS...
> > Name
> > Size
> > Description
> > sin_len CHAR(1) Size of the sockaddr_in structure
> > sin_family CHAR(1) Protocol family IP (Version 4) is hex 02
> > sin_port CHAR(2) 16-bit unsigned port number
> > sin_addr CHAR(16) 4-byte unsigned
> > An RPG DS would be
> > dcl-ds ipAddr;
> >  len int(3);
> >  family int(3);
> >  port uint(5);
> >  addr uint(10);
> >  *n   char(12)
> > end-ds;
> >
> > Little confused about the sin_addr being defined as char(16) yet the
> > description is "4-byte unsigned"..
> >
> > I'm assuming that there's 12 bytes of filler...which looks to be the case
> > from what you posted...
> >
> > HTH,
> > Charles
> >
> >
> >> On Fri, Aug 22, 2025 at 10:57 AM Jay Vaughn <[email protected]>
> >> wrote:
> >>
> >> has anyone worked with this exit point before.
> >>
> >> My exit pgm is coded and my parms are coming in correctly aligned
> however
> >> some of the data is non legible and look like the following...
> >> 12:54 PM (0 minutes ago)
> >> to me
> >>
> >>> EVAL ds_connect
> >>
> >>  DS_CONNECT.LENCONNDSC = 132
> >>
> >>  DS_CONNECT.IP4ADDRESSCLIENT = '██ÉC█Õ█P            '
> >>
> >>  DS_CONNECT.CLIENTPWVALIDATED = '0'
> >>
> >>  DS_CONNECT.WORKSTATIONTYPE = 'IBM-3477-FC   '
> >>
> >>  DS_CONNECT.SSLCONNECTION = '1'
> >>
> >>  DS_CONNECT.IP4ADDRESSSERVER = '███\█À██            '
> >>
> >>  DS_CONNECT.CLIENTAUTHLEVEL = '0'
> >>
> >>  DS_CONNECT.RESERVED01 = '   '
> >>
> >>  DS_CONNECT.CLIENTCERTVALID = 0
> >>
> >>  DS_CONNECT.OFFSETCLIENTCERT = 1362
> >>
> >>  DS_CONNECT.CLIENTCERTLEN = 0
> >>
> >>  DS_CONNECT.IP6ADDRESSCLIENT = '██ÉC              ███Õ█P    '
> >>
> >>  DS_CONNECT.IP6ADDRESSSERVER = '███\              ███À██    '
> >>
> >>
> >> I have tried ccsid(*utf8) for the first ip4 address variable but no
> luck.
> >>
> >>
> >> Any idea why these are not coming through legible?
> >>
> >>
> >> tia
> >>
> >>
> >> Jay
> >> --
> >> This is the RPG programming on IBM i (RPG400-L) mailing list
> >> To post a message email: [email protected]
> >> To subscribe, unsubscribe, or change list options,
> >> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> >> or email: [email protected]
> >> Before posting, please take a moment to review the archives
> >> at https://archive.midrange.com/rpg400-l.
> >>
> >> Please contact [email protected] for any subscription
> related
> >> questions.
> >>
> >>
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list
> > To post a message email: [email protected]
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: [email protected]
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact [email protected] for any subscription
> related questions.
> >
>
-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.