Re: QIBM_QTG_DEVINIT

exactly what I'm missing - thanks Bryan

thanks

Jay

On Fri, Aug 22, 2025 at 3:37 PM Bryan Dietz <[email protected]> wrote:

> Jay,
> See if this helps
>
> https://archive.midrange.com/midrange-l/200103/msg00908.html
>
> Bryan
>
>
> Jay Vaughn wrote on 8/22/2025 2:00 PM:
> > 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.
> >>>
> >>
>
> --
>
> -- .
> Bryan
>
> --
> 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.