DCL DD PCO CHAR(512) BASPCO;
    DCL SYSPTR @QWCBT00  DEF(PCO) POS(433);

DCL SPCPTR .WCB-ROOT;
DCL DD WCB-ROOT CHAR(2048) BAS(.WCB-ROOT);
    DCL SYSPTR .JOB-INDEX DEF(WCB-ROOT) POS(545); /* OFFSET 220 */

DCL SPCPTR .JOB-RECEIVER INIT(JOB-RECEIVER);
DCL DD      JOB-RECEIVER CHAR(4800) BDRY(16);
    DCL DD  JOB-ENTRY(100) CHAR(48) DEF(JOB-RECEIVER) POS(1);

DCL SPCPTR .ARGUMENT INIT(ARGUMENT);
DCL DD      ARGUMENT CHAR(32);
    DCL DD  ARG-PREFIX      CHAR( 1) DEF(ARGUMENT) POS( 1);
    DCL DD  ARG-DEVICE      CHAR(10) DEF(ARGUMENT) POS( 2);
    DCL DD  *               CHAR(21) DEF(ARGUMENT) POS(12);

DCL SPCPTR .OPTIONS INIT(OPTIONS);
DCL DD      OPTIONS CHAR(10);
    DCL DD  OPT-RULE        CHAR(2) DEF(OPTIONS) POS(1) INIT(X'0001');
    DCL DD  OPT-ARG-LENGTH   BIN(2) DEF(OPTIONS) POS(3) INIT(11);
    DCL DD  OPT-ARG-OFFSET   BIN(2) DEF(OPTIONS) POS(5) INIT( 0);
    DCL DD  OPT-MAX-COUNT    BIN(2) DEF(OPTIONS) POS(7) INIT(100);
    DCL DD  OPT-RETURN-COUNT BIN(2) DEF(OPTIONS) POS(9);

DCL SPCPTR .PARM1 PARM;
    DCL DD PARM-DEVICE CHAR(10) BAS(.PARM1);

DCL OL PARAMETERS(.PARM1) EXT PARM MIN(1);

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

ENTRY * (PARAMETERS) EXT;
    SETSPPFP    .WCB-ROOT, @QWCBT00;
    CPYBLA       ARG-PREFIX, "1";
    CPYBLA       ARG-DEVICE, PARM-DEVICE;
    FNDINXEN    .JOB-RECEIVER, .JOB-INDEX, .OPTIONS, .ARGUMENT;
    CPYBLAP      MSG-TEXT, "IT WORKS", " ";
    CALLX       .SEPT(4268), QMHSNDM, *; /* SEND MSG TO MSGQ */
    RTX          *;

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 SYSPTR .SEPT(6440) BAS(SEPT-POINTER);
DCL SPC PROCESS-COMMUNICATION-OBJECT BASPCO;
    DCL SPCPTR SEPT-POINTER DIR;

PEND;