Re: QIBM_QTG_DEVINIT
Daniel Gross <[email protected]>
| Newsgroups | gmane.comp.lang.as400.rpg |
|---|---|
| Message-ID | <[email protected]> |
Hi Jay, this is the IP address in "native" or "binary" - not in the usual "readable" 4-decimal-bytes-separated-by-dots form. Lets think of an IP address like: 192.168.123.1 That would be 0xC0A87B01 in hex format. And that would be 3232267009 in decimal. That's how IP addresses are internally stored. The dotted notation is only for us humans. Subneting, routing, firewalls - all use these internal forms. Your address 173409066 would read as 0x0A56032A in hex or 10.86.3.42 in readable (dotted) form. HTH Daniel > Am 22.08.2025 um 21:00 schrieb Jay Vaughn <[email protected]>: > > 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. > -- 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.