Does EXTACT support XTIOT?
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Steve Beaver <0000050e0c375a14-dmarc-requ...@listserv.ua.edu> Sent: Friday, August 30, 2024 12:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JAVA: Can it handle TIOT read? 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
