I'm not really an asm programmer, but the 3rd parm '-1' looks iffy to me. Should you not OR the 2nd parm with x'80000000'? Or can you use link with a VL option instead?
Julian -- Sent from my Android phone with K-9 Mail. Please excuse my brevity. Staffan Tylen <[email protected]> wrote: I can't get my head around this one, I'm 100% sure the answer is starring at me but I just don't see it. I'm writing an assembler program that invokes SORT using LINK. There are E15 and E35 exits to handle records going in and out of the sort, but it keeps abending with S0C4 and sometimes S0C1, depending on whether the exit routines are half or fullword aligned :( To eliminate other possible causes I created the following very simple program where the E15 exit returns RC=16 to tell SORT just to terminate without doing anything. But it also abends in the same way. The PSW seems to point at an unrelated ISPF module in the LPA, but I haven't investigated that further. This is the code: TEST60 CSECT TEST60 AMODE 31 TEST60 RMODE ANY SAVE (14,12) LR 12,15 USING TEST60,12 LA 11,SAVEAREA ST 11,8(,13) ST 13,4(,11) LR 13,11 LA 1,SORTPARM LINK EP=SORT L 13,4(,13) ST 15,16(,13) LM 14,12,12(13) BR 14 DS 0F SAVEAREA DS 18F SORTPARM DC A(SORTSTMT) DC A(E15_EXIT) DC A(E35_EXIT) DC F'-1' SORTSTMT DC AL2(SORTEND-SORT) SORT DC C' SORT FIELDS=(1,1,CH,A)' DC C' RECORD TYPE=F,LENGTH=80' SORTEND EQU * E15_EXIT DS 0F LA 15,16 Terminate SORT BR 14 E35_EXIT DS 0F LA 15,8 BR 14 END TEST60 It can't be more simple than this, like any piece of "Hello World" code. I've tried linkedit as either RENT or NORENT, same result. The sort program produces diagnostic messages on SYSOUT as expected, so it gets called OK. So, who is the first to spot the obvious flaw that I can't see? Thanks for helping out. Staffan _____________________________________________ For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
