Assembler Program Using IKJEFTST

Figure 1. Assembler Language Program Demonstrating the Use of IKJEFTST

******************************************************************
*                                                                *
* SET UP THE PARAMETER LIST FOR IKJEFTST.  A VALUE OF ZERO IS    *
* PASSED FOR ALL PARAMETERS, EXCEPT FOR THE TOKEN THAT IS        *
* GOTTEN FROM IKJEFTSI.                                          *
*                                                                *
******************************************************************
     XC    IKJEFTSV(72),IKJEFTSV       INITIALIZE PARAMETER VALUES

     LA    R2,EFTST_ECTPARM            PLACE ADDRESS OF ECTADDR
     ST    R2,EFTST_ECTPARM@            DATA IN PARAMETER LIST
     LA    R2,EFTST_RESERVED           PLACE ADDRESS OF RESERVED
     ST    R2,EFTST_RESERVED@           DATA IN PARAMETER LIST
     LA    R2,EFTST_TOKEN              PLACE ADDRESS OF TOKEN
     ST    R2,EFTST_TOKEN@              DATA IN PARAMETER LIST
     MVC   EFTST_TOKEN(16),EFTSI_TOKEN PASS TOKEN FROM IKJEFTSI
     LA    R2,EFTST_ERROR              PLACE ADDRESS OF ERROR
     ST    R2,EFTST_ERROR@              DATA IN PARAMETER LIST
     LA    R2,EFTST_ABEND              PLACE ADDRESS OF ABEND
     ST    R2,EFTST_ABEND@              DATA IN PARAMETER LIST
     LA    R2,EFTST_REASON             PLACE ADDRESS OF REASON
     ST    R2,EFTST_REASON@             DATA IN PARAMETER LIST
     OI    EFTST_REASON@,X'80'         SET HIGH ORDER BIT

     LA    R1,IKJEFTSV                 REG 1 POINTS TO PARM LIST
     CALLTSSR EP=IKJTSFT               INVOKE IKJEFTST, SPECIFYING
*                                       ENTRY POINT IKJTSFT.

     ST    R15,IKJEFTST_RC             SAVE RETURN CODE

******************************************************************
*                                                                *
*  CHECK THE RETURN CODE FROM IKJEFTST.                          *
*                                                                *
******************************************************************
     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