Thank you worked now I have to try it a number if times
> On Dec 9, 2018, at 4:03 PM, Charles Mills 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
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'',COMCIBPT GET CIB ADDRESS FROM COM AREA
JZ
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
Speaking as someone who has worked on OS and I/O subsystem
development for more than 45 years, I wholeheartedly agree with the
comments and observations posted by Brent Longborough. I've always
found the style of invoking some function and depending upon the
Condition Code upon return to be