I think I figured out a solution:
DOX078 DS 0H
*C IF LASTCB EQ 0 THEN
*C SET LASTCB= FIRSTCB = MSEGCB JUST BUILT
CDS R4,R2,FIRSTCB IF MSEGF & MSEGL = 0, STM 2,3,FIRSTCB
*C ELSE
*C SET FIRSTCB = POINTER_TO_NEW_MSEG IF FIRSTCB = ZERO
CS R4,R8,FIRSTCB IF FIRSTCB = 0, ST R8 FIRSTCB
*C IF LASTCB= LASTCB (R2)
*C SET LASTCB= POINTER_TO_NEW_MSEG (R1)
*C SET NEXTCB = POINTER_TO_NEW_MSEG (R1)
LA R0,CSDST
PLO R2,CSAMSEGL,0,PL
BNZ DOX078
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
