Thanks Rob!
I think it's just ignorance on my part, but I haven't had much luck calling
assembler services from Rexx - only some of those mentioned in the
"Callable Services for High Level Languages". There are a LOT of those
services that look extremely helpful for getting precise information, but I
just don't know how to take advantage of them.
On Thu, Dec 17, 2020 at 3:41 AM Rob Scott <rsc...@rocketsoftware.com> wrote:
> If something like hyperswap has moved the IODF to another device, then you
> can use the IOCINFO "IODFINFO" service and get the information from the
> IODI structure that is returned :
>
> IODI_IODFODEVoriginal IODF device
> IODI_IODFUCB UCB address of current - (if
> IODI_IODFUCBINVLD is OFF)
>
> Mapping macro is IOSDIODI in MACLIB
>
> Rob Scott
> Rocket Software
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf
> Of Steve Horein
> Sent: 16 December 2020 17:00
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: IODF address
>
> EXTERNAL EMAIL
>
>
>
>
>
> Hi!
> I am able to determine the IODF unit address from IPAIODFU in IPA.
> However, this value becomes stale if the address changes when the storage
> folks move disk around. I can see the MVS command DISPLAY IPLINFO accounts
> for those changes in message IEE254I:
>
> IEE254I hh.mm.ss IPLINFO DISPLAY text
>
> Explanation: Where text is:
>
> SYSTEM IPLED AT hh.mm.ss ON mm/dd/yyyy RELEASE fmid LICENSE = system
> USED LOADxx IN loadxxdsname ON devx ARCHLVL = n MTLSHARE = Y N IEASYM
> LIST = s1 NONE IEASYS LIST = s2{(OP)} IODF DEVICE: ORIGINAL(iodfdev1)
> CURRENT(iodfdev2) IPL DEVICE: ORIGINAL(ipldev1) CURRENT(ipldev2)
> VOLUME(iplvol)
>
> Is there an accessible (lives in COMMON), supported data area that also
> contains the "CURRENT" information that is present in the DISPLAY command?
> While I can parse the output of a console command, I would much rather
> fetch only the desired information from storage, if possible.
>
> Thanks,
> Steve Horein
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> ================================
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA
> 02451 ■ Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support:
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
> http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy -
> http://www.rocketsoftware.com/company/legal/privacy-policy
> ================================
>
> This communication and any attachments may contain confidential
> information of Rocket Software, Inc. All unauthorized use, disclosure or
> distribution is prohibited. If you are not the intended recipient, please
> notify Rocket Software immediately and destroy all copies of this
> communication. Thank you.
>
> ----------------------------------------------------------------------
> 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
