Re: MVT COBOL under MVS3.8j.

---In [email protected], <kerravon86@...> wrote :

> Source code is apparently here:

Thanks Dave for providing source.

I've had a look myself, and I see:

ikfcbl00:

TBMESS4  DC   C'IKF0030I-D FRAGMENTED CORE. RUN IN LARGER SIZE REGION. X70040021
                COMPILATION ABANDONED.'                                 70060021

TBERR4   MVI   TBERCD,DX8          ABEND EVENTUALLY                     67380021
TBERR    STM   R0,R15,TBERRG       SAVE ALL REGISTERS FOR DUMP          67400021
         SR    R2,R2                                                    67420021
         IC    R2,TBERCD                                                67440021
         L     R3,TBERL(R2)        PICK UP MESSAGE LENGTH               67460021
         L     R2,TBERMSG(R2)      POINT TO MESSAGE                     67480021
         B     TBERRLG                                                  67500021
TBERMSG  DC    A(TBMESS2)                                               67520021
         DC    A(TBMESS3)                                               67540021
         DC    A(TBMESS4)                                               67560021


TBERR4 is branched to from multiple places,
so you will need to put in H'0' or EX 0,* before
different TBERR4 branches to see which one
is causing the abend. Also you will need to be
able to recompile from source.

Another thing I note is that it seems you can
get Cobol to produce an abend and show the
registers on this error. That might come in
useful. I didn't see how to get that done
though.

BFN. Paul.