例

以下に示すサンプル・ユーザー出口のソフトコピーも、データ・セット IDINDFUE のメンバー IDI.SIDISAM1 として提供されます。トランザクション ID が FTN1 で、異常終了コードが FABN である場合、この サンプル・アセンブラー出口は R15 を 1 に設定します。

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