Several macros require paying close attention to RMODE

Scott ford
www.identityforge.com

On Aug 28, 2012, at 9:18 PM, "[email protected]" <[email protected]> wrote:

> Thanks For Responding
> RMODE is actually ANY
> But I see Your Point.
> I will try using the satement You provided
> DC A(ECB$REFRESH+X'80000000')
>
>
> ---------- Original Message ----------
> From: "McKown, John" <[email protected]>
> To: [email protected]
> Subject: Re: SYSTEM COMPLETION CODE=201
> Date: Tue, 28 Aug 2012 15:29:11 -0500
>
> 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 *
> [email protected] * 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-
>> [email protected]] On Behalf Of [email protected]
>> Sent: Tuesday, August 28, 2012 3:16 PM
>> To: [email protected]
>> 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

Reply via email to