*
      *  To compile:
      *
      *             CRTCLPGM PGM(YOURLIB/DSPDTAQDVC) SRCFILE(YOURLIB/QCLSRC)
      *
      *=======================================================================
             PGM        PARM(&QUELIB)

             DCL        VAR(&QUELIB) TYPE(*CHAR) LEN(20)
             DCL        VAR(&QUE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MSG1) TYPE(*CHAR) LEN(24)
             DCL        VAR(&MSG2) TYPE(*CHAR) LEN(14)

             CHGVAR     VAR(&QUE) VALUE(%SST(&QUELIB 1 10))
             CHGVAR     VAR(&LIB) VALUE(%SST(&QUELIB 11 10))
             CHGVAR     VAR(&MSG1) VALUE('0000' *cat &QUE *cat &LIB)
             CHGVAR     VAR(&MSG2) VALUE('0000' *cat &LIB)

             CHKOBJ     OBJ(&LIB/&QUE) OBJTYPE(*DTAQ)
             MONMSG     MSGID(CPF9801) EXEC(DO)
             SNDPGMMSG  MSGID(DQ00001) MSGF(BCMSGF) MSGDTA(&MSG1) +
                          TOPGMQ(*PRV) MSGTYPE(*DIAG)
             SNDPGMMSG  MSGID(CPF0002) MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
             ENDDO

             MONMSG     MSGID(CPF9810) EXEC(DO)
             SNDPGMMSG  MSGID(BC00400) MSGF(BCMSGF) MSGDTA(&MSG2) +
                          TOPGMQ(*PRV) MSGTYPE(*DIAG)
             SNDPGMMSG  MSGID(CPF0002) MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
             ENDDO


             ENDPGM