Ok instruction stream, my short hand balr 14,15 L 12,9/E8 STH 14 4/8 mvc 3 3/004 8/208 mvc 1 3/02a 8/1e2
but if you look at register 3, 00E34040, that value looks bogus. according to abendaid, R3 00E34040 14,893,120 A(ISPSUBX ) + 00001040 I don't remember if this was a batch program, but I suspect you are not really using ISPSUBX. So my next guess is that something got tromped and when R3 was loaded it got bad data. I.E. "T" blank, blank I know a long time ago, cobol vs, I used to use subroutines that fiddled with the file DCBs in a cobol program, but along the way IBM changed them to FCB or something like that and the DCB were off some other chain. I never tracked it down. Are you perhaps calling a subroutine and passing a FD name? So much for guesses. You'll have to open the program OFDBINIT, and look at the code. It might help to recompile OFDBINIT with the LIST option to see the code that is generated and match it to what the PSW is pointing at (to be sure you are at the right part of the code) Then try and figure out what the cobol source statement is doing. If you have the offset option in the parm you can just look in the offset map at location 1C6E to find the cobol statement, but this won't tell you what was the source for register 3. ----- Original Message ----- From: "David DeBervec" <[EMAIL PROTECTED]> To: <[email protected]>; "Harold Zbiegien" <[EMAIL PROTECTED]> Sent: Thursday, April 13, 2006 4:14 PM Subject: Re: COBOL2 Issues Harold, Is this enough information? Condition Information for Active Routines Condition Information for OFDBINIT (DSA address 0003DBA0) CIB Address: 0003ECA0 Current Condition: CEE0198S The termination of a thread was signaled due to an unhandled condition. Original Condition: CEE3204S The system detected a protection exception (System Completion Code=0C4). Location: Program Unit: OFDBINIT Entry: OFDBINIT Statement: Offset: +00001C6E Machine State: ILC..... 0006 Interruption Code..... 0004 PSW..... 078D0000 000920EC GPR0..... 0005E528 GPR1..... 0003E2F8 GPR2..... 000B50B8 GPR3..... 00E34040 GPR4..... 000B0038 GPR5..... 0000F738 GPR6..... 00000000 GPR7..... 00063200 GPR8..... 000905C8 GPR9..... 0005E360 GPR10.... 000B00B8 GPR11.... 00091D6A GPR12.... 00090574 GPR13.... 0003DBA0 GPR14.... 500920DA GPR15.... 00000000 Storage dump near condition, beginning at location: 000920D6 +000000 000920D6 908005EF 58C090E8 58409128 40F04008 D2033004 8208D201 302A81E2 D201302C |.......Y. j. 0 .K...b.K...aSK...| Thanks ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
