Example

A softcopy of the sample user exit shown in the following is also provided as member IDINDFUE in data set IDI.SIDISAM1. This sample assembler exit sets R15 to 1 if the transaction ID is FTN1, and the abend code is FABN.

IDINDFUE CSECT
         PRINT ON,NOGEN
         STM   R14,R12,12(R13)
         LR    R12,R15
         USING IDINDFUE,R12
         L     R4,0(,R1)          Work Area
         L     R2,4(,R1)          Abend code
         L     R3,8(,R1)          Transaction ID

         SR    R15,R15            Assume no continuance.
         CLC   0(4,R2),=C'FABN'   Check Abend code
         BNE   RETURN
         CLC   0(4,R3),=C'FTN1'   Check Transaction ID
         BNE   RETURN
         LA    R15,1              Indicate analysis to be performed
*
RETURN   DS    0H
         L     R14,12(,R13)
         LM    R0,R12,20(R13)
         BR    R14                Return to Fault Analyzer
         END   IDINDFUE