I can think of one way in HLASM
EXTRACT TIOT
Sent from my iPhone
No one said I could type with one thumb
> On Aug 30, 2024, at 10:58, Lennie Bradshaw <lennie-brads...@outlook.com>
> wrote:
>
> 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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
