CA IDMS VSAM Transparency User Exits › Assembler User Exit Program › Assembler User Exit Template

Assembler User Exit Template

Assembler exits for CA IDMS VSAM Transparency use standard z/OS and z/VSE linkage. Use the following code as a template. Insert your functional code as indicated.

 EXITNAME CSECT
          #MOPT  ENV=USER            SET EXIT TO USER MODE
          @MODE  MODE=BATCH,QUOTES=YES,DEBUG=YES
 *                                   DEFINE ENVIRONMENT
          STM    R14,R12,12(R13)     SAVE CALLER'S REGISTERS
          BALR   R12,0               ESTABLISH R12 AS BASE
          USING  *,R12
          B      START               BRANCH AROUND LITERAL
          DC     CL8'EXITNAME'       EYECATCHER
          USING  SSC,R2              SUBSCHEMA CONTROL
          USING  EXBDS,R3            EXIT DSECT ADDRESSABILITY
          USING  RECORD,R8           USER RECORD ADDRESSABILITY
          USING  CSA,R10             COMMON SYSTEM AREA
 START    LR     R7,R13              SAVE R13
          L      R3,0(R1)            R3 ─► EXB
          L      R2,4(R1)            R2 ─► SSC
          L      R8,8(R1)            R8 ─► RECORD BUFFER
          LA     R13,EXBSAVE         R13 ─► USER SAVE AREA
          ST     R13,4(0,R13)        BACKCHAIN SAVE AREA
          *
          *
insert your functional code here
          *
          *
 RTN      EQU    *
          L      R13,4(0,R13)        RESTORE ADDRESS OF R13 SAVE AREA
          LM     R14,R12,12(R13)     RESTORE CALLER'S REGISTERS
          SR     R15,R15             ZERO RETURN CODE
          BR     R14                 RETURN TO CALLER