Here is the "meat" from something I wrote 15 years ago :
Notes :
(1) You must be supervisor and key0
(2) You must be nonswap
(3) DEV_ARRAY is the address of unit array
(4) DEV_ENTRIES contains number of entries in the array
(5) Test the code on a TEST system!
LA R4,DEV_INPUT
USING VDEV,R4
MVC VDEV_ID(4),=CL4'VDEV'
MVI VDEV_VERSION,VDEV_VERN
OI VDEV_KEYWORDS1,VDEV_OFFLINE
L R3,DEV_ARRAY
MODESET MODE=SUP,KEY=ZERO
SYSEVENT DONTSWAP
IEEVARYD OPERATION=DEV_INPUT,
DEVICES=(R3),
NUMDEVS=DEV_ENTRIES,
CALLERID==CL8'xxxxxxxx',
RETCODE=DEV_RC,
RSNCODE=DEV_RSN,
SYSEVENT OKSWAP
...
DEV_RC DS F
DEV_RSN DS F
DEV_ENTRIES DS F
DEV_ARRAY DS A
DEV_INPUT DS XL(VDEV_LENGTH)
Rob Scott
Lead Developer
Rocket Software
275 Grove Street * Newton, MA 02466-2272 * USA
Tel: +1.617.614.2305
Email: rsc...@rs.com
Web: www.rocketsoftware.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Leonardo Vaz
Sent: 02 December 2011 17:18
To: IBM-MAIN@bama.ua.edu
Subject: Assembler calling macro IEEVARYD
Hello all. I'm still crawling when it comes to assembler, but i've already done
some cool thigs like changing the APF list, dynamically adding modules to the
LPA or using the callrtm macros, real fun.
But I'm having a problem I can't bypass... I keep getting S0C4 when trying to
use the IEEVARYD macro, I'm supposed to getmain some storage but I'm not really
sure how to. I'm trying something very similar to IBM's example 2:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a2b0/72.1.14?SHELF=iea2bkb0.bks&DT=20100630112343
You guys have any tips for me? Anyone has a working example?
Thanks,
Leo
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
