I think that was it 

From what I understand After getting the CIB address via extract 
I have to issue 2 QEDIT’s

The first with a BLOCK parameter to free the start CIB
The second to a limit on the number if CIB
L       RX,COMCIBPT
1st QEDIT ORIGIN=COMCIBPT,ORIGIN=(RX)
2nd QEDIT ORIGIN=COMCIBPT,CIBCTR=4
Thanks 


Joe Reichman
170-10 73 rd ave 
Fresh meadows NY 11366

> On Dec 7, 2018, at 9:27 AM, Joseph Reichman <[email protected]> wrote:
> 
> Let me check 
> Thanks 
> 
> 
> 
>> On Dec 7, 2018, at 9:20 AM, Charles Mills <[email protected]> wrote:
>> 
>> Do you perhaps have a logic error relative to QEDIT? If you don't free the 
>> CIB you may never get another MODIFY.
>> 
>> Charles
>> 
>> -----Original Message-----
>> From: IBM Mainframe Assembler List [mailto:[email protected]] 
>> On Behalf Of Joseph Reichman
>> Sent: Thursday, December 6, 2018 10:48 AM
>> To: [email protected]
>> Subject: Re: Modify ECB COMECBPT Intermittent response
>> 
>> It doesn’t have a wait bit there is only one task waiting on it 
>> The main task  has 2 ECB’s in the list 
>> One for the EZASMI SELECT and one for the communication ECB
>> 
>> The one task that got dispatched has a number of ECB’s waiting 
>> 
>> Things is 1 out of 4 times the posted logic works 

Reply via email to