DCL DD DATA CHAR(20);
    DCL DD USERID   CHAR(10) DEF(DATA) POS( 1);
    DCL DD PASSWORD CHAR(10) DEF(DATA) POS(11);

DCL SYSPTR .SUBSYS BASPCO POS(H'211');
DCL SPCPTR .S;
DCL SPCPTR .UFCB BAS(.S) POS(H'1B1');
DCL SPCPTR .BUFFER BAS(.UFCB) POS(H'11');
DCL DD BUFFER BAS(.BUFFER) CHAR(32767);

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

ENTRY * EXT;
    SETSPPFP  .S, .SUBSYS;
    CPYBLA     USERID,   BUFFER(1:10);
    CPYBLA     PASSWORD, BUFFER(11:10);

    CPYBLAP    MSG-TEXT, DATA, " ";
    CALLI      SHOW-MESSAGE, *, .SHOW-MESSAGE;
    RTX        *;

/************************ SHOW A MESSAGE ***************************/

DCL SYSPTR .SEPT(6440) BAS(@SEPT);

DCL DD PCO CHAR(256) BASPCO;
   DCL SPCPTR @SEPT  DEF(PCO) POS( 1);
   DCL SPCPTR @QTEMP DEF(PCO) POS(65);

DCL DD PCO-POINTER CHAR(16) BDRY(16);
    DCL SPCPTR .PCO DEF(PCO-POINTER) POS( 1);

DCL SPCPTR .MSG-ID   INIT(MSG-ID);
DCL DD      MSG-ID   CHAR (7) INIT("       ");

DCL SPCPTR .MSG-FILE INIT(MSG-FILE);
DCL DD      MSG-FILE CHAR(20) INIT("                    ");

DCL SPCPTR .MSG-TEXT INIT(MSG-TEXT);
DCL DD      MSG-TEXT CHAR(70);

DCL SPCPTR .MSG-SIZE INIT(MSG-SIZE);
DCL DD      MSG-SIZE BIN( 4)  INIT(70);

DCL SPCPTR .MSG-TYPE INIT(MSG-TYPE);
DCL DD      MSG-TYPE CHAR(10) INIT("*INFO     ");

DCL SPCPTR .MSG-QS   INIT(MSG-QS);
DCL DD      MSG-QS   CHAR(20) INIT("*REQUESTER          ");

DCL SPCPTR .MSG-QSN  INIT(MSG-QSN);
DCL DD      MSG-QSN  BIN( 4)  INIT(1);

DCL SPCPTR .REPLY-Q  INIT(REPLY-Q);
DCL DD      REPLY-Q  CHAR(20) INIT("                    ");

DCL SPCPTR .MSG-KEY  INIT(MSG-KEY);
DCL DD      MSG-KEY  CHAR( 4);

DCL SPCPTR .ERR-CODE INIT(ERR-CODE);
DCL DD      ERR-CODE BIN( 4) INIT(0);

DCL OL QMHSNDM (.MSG-ID,   .MSG-FILE, .MSG-TEXT, .MSG-SIZE,
                .MSG-TYPE, .MSG-QS,   .MSG-QSN,  .REPLY-Q,
                .MSG-KEY,  .ERR-CODE)  ARG;

DCL INSPTR .SHOW-MESSAGE;
ENTRY       SHOW-MESSAGE INT;
    CALLX     .SEPT(4268), QMHSNDM, *; /* SEND MSG TO MSGQ */
    B         .SHOW-MESSAGE;

PEND;