BPX4IPT (mvsiptaffinity) example

The following code executes the assembler routine EXITRTN on the IPT of the requesting thread, and passes EXITPARM as input in R1. The requesting thread is blocked until EXITRTN runs. For the callable service, see mvsiptaffinity (BPX1IPT, BPX4IPT) — Run a program on the IPT thread. AMODE 31 callers use BPX1IPT (mvsiptaffinity) example.

                                              
         MVC   EXITRTNA,=AD(EXITRTN)  ->Routine address                 
*        MVC   EXITPLA,=AD(EXITPARM) ->Input parameter list             
         SPACE ,                                                        
         CALL  BPX4IPT,                                                +
               (EXITRTNA,            Input: Routine address            +
               EXITPLA,              Input: Parm list address or 0     +
               RETVAL,               Return value: -1 or not return    +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------