>From the wonderful IPLINFO command, I find: PROC_IODF: /* IODF details ##*/ cvt = Storage(10,4) /* get the CVT address */ cvtixavl = Storage(D2x(C2d(cvt)+124),4) /* get the IOCOM address */ cvtext2 = Storage(D2x(C2d(cvt)+328),4) /* get the EXT2 address */ cvtiocid = Storage(D2x(C2d(cvtext2)+6),2) /* active IO config id */ iociovtp = Storage(D2x(C2d(cvtixavl)+208),4)/* get the IOVT address */ cda = Storage(D2x(C2d(iociovtp)+24),4) /* get the CDA address */ iodfname = Storage(D2x(c2d(cda)+32),44) /* get the IODF name */ iodfcfgi = Storage(D2x(c2d(cda)+92),8) /* get the IODF config id */ iodfedt = Storage(D2x(c2d(cda)+104),2) /* get the IODF EDT */ iodfproc = Storage(D2x(c2d(cda)+124),8) /* get the IODF Proc */ iodfdate = Storage(D2x(c2d(cda)+156),8) /* get the IODF Date */ iodftime = Storage(D2x(c2d(cda)+164),8) /* get the IODF Time */ iodfdesc = Storage(D2x(c2d(cda)+172),16) /* get the IODF Descriptn */ Return /* */
Chip Grantham | Ameritas | Sr. IT Consultant | [email protected] 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 From: Brad Wissink <[email protected]> To: [email protected] Date: 05/03/2012 02:39 PM Subject: active IODF data set Sent by: IBM Mainframe Discussion List <[email protected]> I want to dynamically allocate the current active IODF data set in an assembler program. does anyone know where that information is stored and how I can get it? Thanks ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ******* This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. ******* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
