What is your RMODE? If you look at your last ECB pointer, you have DC X'80' DC AL3(ECB$REFRESH)
This means that ECB$REFRESH *must* be in RMODE(24) storage. Try replacing those two statements with: DC A(ECB$REFRESH+X'80000000') -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Assembler List [mailto:ASSEMBLER- > l...@listserv.uga.edu] On Behalf Of esst...@juno.com > Sent: Tuesday, August 28, 2012 3:16 PM > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > Subject: SYSTEM COMPLETION CODE=201 > > SYSTEM COMPLETION CODE=201 > Im getting a System Completion code of 201 on the first Invocation of a > WAIT macro. Im waitig on a list of events with only 1 ECB required to > be posted. I looked up the 201 Abend Code. I am In Key 8 with AMODE 31, > the ECBS are not corrupted. > After the Job is initialized I issue the WAIT macro instruction below. > THE ECBS are not corrupted, this is the first Invocation of the WAIT > Macro after the address space has been initialized. > I dont understand why the S201. > > WAIT 1,ECBLIST=ECBLIST2 > > DS 0D ALIGNMENT > ECBLIST2 EQU * ECB List > DC A(ECB$COM) Address Of Shut/Stop ECB > DC A(ECB$INTRVL) Address Of Time Refresh ECB > DC X'80' > DC AL3(ECB$REFRSH) Address Of Requested Refresh EC > DC A(0) reserved > ORG , > > > DS 0D > ECB$COM DC A(0) Console ECB > ECB$SHUT DC A(0) Shutdown ECB > ECB$STIMR DC A(0) Stimer ECB > ECB$INTRVL DC A(0) Refresh Interval ECB > ECB$REFRSH DC A(0) Refresh Request ECB > DS A(0) AVAILABLE > > > Any Ideas as to what I am doing incorrectly. > > Paul D'Angelo
