DCL SPCPTR .MAT-RECEIVER INIT(MAT-RECEIVER);
DCL DD      MAT-RECEIVER CHAR(16) BDRY(16);
    DCL PTR .MAT-INVOC   DEF(MAT-RECEIVER) POS(1);

DCL SPCPTR .MAT-SELECT INIT(MAT-SELECT);
DCL DD      MAT-SELECT CHAR(32);
    DCL DD  MAT-NBR-ATTRS    BIN(4) DEF(MAT-SELECT) POS( 1) INIT( 1);
    DCL DD  MAT-ATTR-FLAGS   BIN(4) DEF(MAT-SELECT) POS( 5) INIT( 0);
    DCL DD  MAT-ATTR-OFFSET  BIN(4) DEF(MAT-SELECT) POS( 9) INIT( 0);
    DCL DD  MAT-ATTR-STORED  BIN(4) DEF(MAT-SELECT) POS(13) INIT( 0);

    DCL DD  MAT-ATTR-ID      BIN(4) DEF(MAT-SELECT) POS(17) INIT( 1);
    DCL DD  MAT-RECV-FLAGS   BIN(4) DEF(MAT-SELECT) POS(21) INIT( 0);
    DCL DD  MAT-RECV-OFFSET  BIN(4) DEF(MAT-SELECT) POS(25) INIT( 0);
    DCL DD  MAT-RECV-LENGTH  BIN(4) DEF(MAT-SELECT) POS(29) INIT(16);

/********************************************************************/

GET-OWN-INVOCATION:
    MATINVAT   .MAT-RECEIVER, *, .MAT-SELECT;

SIGNAL-CONDITION:
    CPYBWP     .EXCP-TO-INVOC, .MAT-INVOC;
    CPYBLA      EXCP-ID,        X'7777';
    CPYNV       EXCP-CMP-SIZE,  3;
    CPYBLA      EXCP-CMP-VAL,   "LSV";
    CPYBLAP     EXCP-DATA,   "Exception Data", " ";
    SIGEXCP    .EXCP-SIGNAL, .EXCP-INFO;

SIGNAL-ERROR:
    CPYBLA      EXCP-ID,        X'0C17';
    CPYNV       EXCP-CMP-SIZE,  4;
    CPYBLA      EXCP-CMP-VAL,   X'00000000'; /* MCH */
    SIGEXCP    .EXCP-SIGNAL, .EXCP-INFO;

    RTX         *;

DCL SPCPTR .EXCP-SIGNAL INIT(EXCP-SIGNAL);
DCL DD      EXCP-SIGNAL CHAR(20) BDRY(16);
    DCL PTR .EXCP-TO-INVOC        DEF(EXCP-SIGNAL) POS( 1);
    DCL DD  EXCP-OPTION   CHAR(1) DEF(EXCP-SIGNAL) POS(17) INIT(X'00');
    DCL DD  *             CHAR(1) DEF(EXCP-SIGNAL) POS(18) INIT(X'00');
    DCL DD  EXCP-1ST-DESCR BIN(2) DEF(EXCP-SIGNAL) POS(19) INIT(1);

DCL SPCPTR .EXCP-INFO INIT(EXCP-INFO);
DCL DD      EXCP-INFO CHAR(64) BDRY(16);
    DCL DD  EXCP-BYTES-PROV   BIN(4) DEF(EXCP-INFO) POS( 1) INIT(64);
    DCL DD  EXCP-BYTES-AVAIL  BIN(4) DEF(EXCP-INFO) POS( 5);
    DCL DD  EXCP-ID           BIN(2) DEF(EXCP-INFO) POS( 9);
    DCL DD  EXCP-CMP-SIZE     BIN(2) DEF(EXCP-INFO) POS(11);
    DCL DD  EXCP-CMP-VAL    CHAR(32) DEF(EXCP-INFO) POS(13);
    DCL DD  *                 BIN(4) DEF(EXCP-INFO) POS(45);
    DCL DD  EXCP-DATA       CHAR(16) DEF(EXCP-INFO) POS(49);

DCL EXCM MY-CONDITION EXCID(H'7777') BP(GOT-CONDITION) IMD CV("LSV");

GOT-CONDITION:
    RETEXCPD   .EXCP-INFO, X'00'; /* RETRIEVE FOR BRANCH POINT */
    CPYBLAP     MSG-TEXT, EXCP-DATA(1:16), " ";
    CALLI       SHOW-MESSAGE, *, .SHOW-MESSAGE;
    B           SIGNAL-ERROR;

%INCLUDE SHOWMSG