Maybe it's about time we requested that IBM provide a "standard interface" to
return a list of allocated DDnames (whether from TIOT or XTIOT). All other
information can be found using SVC 99 Info requests I think.
Or does such a thing exist (i.e. without following pointers to the TIOT and
scanning it)?
Lennie
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Farley, Peter
Sent: 30 August 2024 16:45
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JAVA: Can it handle TIOT read?
Bernd, I don’t think that code handles the XTIOT (above the line), which is
pretty commonly standard these days.
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Bernd Oppolzer
Sent: Friday, August 30, 2024 11:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JAVA: Can it handle TIOT read?
Don't know, if this helps, but this is a function that reads the TIOT,
looking for a certain DDNAME, and returning success (pointer to the TIOT
entry)
or fail (NULL).
This is ANSI C. No DSECTs or structure definitions needed.
Cheers,
Bernd
static char *check_ddname (char *ddname)
/************************************************/
/* */
/* Vorgegebener DDName wird gesucht */
/* */
/************************************************/
{
char *adresse_tcb;
char *adresse_tiot;
char *laenge_tiot;
char *ddname_tiot;
adresse_tcb = adressiere_tcb ();
adresse_tiot = *(((char **) adresse_tcb) + 3);
for (laenge_tiot = adresse_tiot + 24;
*laenge_tiot != 0;
laenge_tiot += *laenge_tiot)
{
ddname_tiot = laenge_tiot + 4;
if (memcmp (ddname_tiot, ddname, 8) == 0)
{
return ddname_tiot;
}
}
return NULL;
}
Oh, I forgot the function to retrieve the address of the TCB:
static char *adressiere_tcb (void)
/************************************************/
/* */
/* Über die TIOT (Task-IO-Table) */
/* werden die DDNamen und die */
/* zugeordneten DSNamen gesucht */
/* */
/************************************************/
{
char ***cvt_pointer;
char **tcb_tabelle;
cvt_pointer = *((char ****) 16);
tcb_tabelle = *cvt_pointer;
return *(tcb_tabelle + 1);
}
Comments in German language, sorry for that.
Am 30.08.2024 um 17:13 schrieb Denis:
> Have you tried to use peekOSMemory, its a bit strange to do control Block
> hopping in Java and using this method, there is No dsect conversion or so,
> Just Pointer Arithmetik, but it should be possible to do similar Things as in
> Assembler.
> https://urldefense.com/v3/__https://github.com/zsystems/java-samples/b
> lob/master/PeekOSMemory.java__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!NEx7oh
> h6jGjaguKWNtdhaxAKUaFx-22ClbFpOzQ6bUKuJ3bdUqITCqnpPknJ8ySX0mHR1pByDDmZ
> gdn9EvuMtwbilCEF6ExPzws$<https://urldefense.com/v3/__https:/github.com
> /zsystems/java-samples/blob/master/PeekOSMemory.java__;!!Ebr-cpPeAnfNn
> iQ8HSAI-g_K5b7VKg!NEx7ohh6jGjaguKWNtdhaxAKUaFx-22ClbFpOzQ6bUKuJ3bdUqIT
> CqnpPknJ8ySX0mHR1pByDDmZgdn9EvuMtwbilCEF6ExPzws$>
>
> You could combine it with the jzos record Generator, that allows to create
> Byte identical Java records with getter and Setter methods based on cobol
> copybooks or Assembler dsects.
> But the Code Looks strange to a Java Developer.
> Denis.
> On Friday, August 30, 2024 at 04:57:29 PM GMT+2, Steve Thompson
> <ste...@wkyr.net<mailto:ste...@wkyr.net>> wrote:
>
> I'm working on a project to "modernize" ALC to Java.
>
> And I have code that is reading the TIOT to find DDs that the
> process is interested in.
>
> The subject is the question. I'm documenting routines (biz logic)
> and the program I'm working on is a bit challenging.
>
> I know Java, kinda, when I see it. But I haven't found any method
> for this.
>
> Anyone have to deal with this before (in Java)?
>
> Regards,
> Steve Thompson
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
