Thank you worked now I have to try it a number if times
> On Dec 9, 2018, at 4:03 PM, Charles Mills <charl...@mcn.org> wrote: > > That is how I do it: > > EXTRACT COMADDR,FIELDS=COMM,MF=(E,EXTRACTL) > L R8,COMADDR GET ADDRESS OF THE AREA > USING COM,R8 USE R8 AS BASE ADDRESS OF COMM AREA > ICM R7,B'1111',COMCIBPT GET CIB ADDRESS FROM COM AREA > JZ CIBDELET_NoCIB NO CIB > > QEDIT ORIGIN=COMCIBPT,BLOCK=(R7) > > CIBDELET_NoCIB EQU * > QEDIT ORIGIN=COMCIBPT,CIBCTR=1 > > Charles > > > -----Original Message----- > From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] > On Behalf Of Joseph Reichman > Sent: Sunday, December 9, 2018 12:20 PM > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > Subject: Re: Modify ECB COMECBPT Intermittent response > > 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 <reichman...@gmail.com> wrote: >> >> Let me check >> Thanks >> >> >> >>> On Dec 7, 2018, at 9:20 AM, Charles Mills <charl...@mcn.org> 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:ASSEMBLER-LIST@LISTSERV.UGA.EDU] >>> On Behalf Of Joseph Reichman >>> Sent: Thursday, December 6, 2018 10:48 AM >>> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU >>> 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
