Assembler Program Using IKJEFTSI

Figure 1. Assembler Language Program Demonstrating the Use of IKJEFTSI

******************************************************************
*                                                                *
* SET UP THE PARAMETER LIST FOR IKJEFTSI.  A VALUE OF ZERO IS    *
* PASSED FOR ALL PARAMETERS.                                     *
*                                                                *
******************************************************************
     XC    IKJEFTSJ(72),IKJEFTSJ     INITIALIZE PARAMETER VALUES

     LA    R2,EFTSI_ECTPARM          PLACE ADDRESS OF ECTPARM
     ST    R2,EFTSI_ECTPARM@          IN PARAMETER LIST
     LA    R2,EFTSI_RESERVED         PLACE ADDRESS OF RESERVED
     ST    R2,EFTSI_RESERVED@         DATA IN PARAMETER LIST
     LA    R2,EFTSI_TOKEN            PLACE ADDRESS OF TOKEN
     ST    R2,EFTSI_TOKEN@            DATA IN PARAMETER LIST
     LA    R2,EFTSI_ERROR            PLACE ADDRESS OF ERROR
     ST    R2,EFTSI_ERROR@            DATA IN PARAMETER LIST
     LA    R2,EFTSI_ABEND            PLACE ADDRESS OF ABEND
     ST    R2,EFTSI_ABEND@            DATA IN PARAMETER LIST
     LA    R2,EFTSI_REASON           PLACE ADDRESS OF REASON
     ST    R2,EFTSI_REASON@           DATA IN PARAMETER LIST
     OI    EFTSI_REASON@,X'80'       SET HIGH ORDER BIT


     LA    R1,IKJEFTSJ               REG 1 POINTS TO PARM LIST
     CALLTSSR EP=IKJTSFI             INVOKE IKJEFTSI, SPECIFYING
*                                     ENTRY POINT IKJTSFI.

     ST    R15,IKJEFTSI_RC           SAVE RETURN CODE
*

******************************************************************
*                                                                *
*  CHECK THE RETURN CODE FROM IKJEFTSI.                          *
*                                                                *
******************************************************************
     SR    R3,R3                        DETERMINE IF THE RETURN
     CR    R15,R3                       CODE IS ZERO
     BL    NO_ERROR                    BRANCH ON ZERO RC
     B     ERROR                        BRANCH ON NON-ZERO RC