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