>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 | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 From: Brad Wissink <bjwi...@iastate.edu> To: IBM-MAIN@bama.ua.edu Date: 05/03/2012 02:39 PM Subject: active IODF data set Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN