Re: QIBM_QTG_DEVINIT

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.