IBM JT400 获取数据队列条目数

Question

我在AS400/iSeries中使用数据队列，并使用jdbc jt400库从其中读取数据。

由于它是生产者（AS400）/消费者（myapp）模式，我想检查数据队列中现在有多少条目，并测量我的应用程序是否运行得足够快或我需要更改某些内容。

我可以获取数据队列的最大长度/大小，但不能获取当前长度/大小。

我如何获得或计算该值？

我可以使用rpg程序并调用它，但更喜欢jt400/jdbc解决方案。

谢谢

我编辑这个问题以添加应该执行此任务的代码，但我得到一个例外：

    String pname = "/QSYS.LIB/QMHQRDQD.PGM";
    int param0_size = 120; // RDQD0100 size
    int size = -1;
    ProgramCall spgm = new ProgramCall(as400);
    ProgramParameter[] params = new ProgramParameter[4];
    params[0] = new ProgramParameter(param0_size);
    AS400Bin4 length = new AS400Bin4();
    params[1]  = new ProgramParameter(length.toBytes(param0_size));
    AS400Text formatname = new AS400Text(8);
    params[2] = new ProgramParameter(formatname.toBytes("RDQD0100"));
    AS400Text dataqueuename = new AS400Text(20);
    params[3] = new ProgramParameter(dataqueuename.toBytes("DTQDTQ    LIBFIC    "));
    byte[] RDQD0100 = new byte[120];

    try {
        spgm.setProgram(pname, params);
        if (spgm.run() == true) {
            AS400Text out = new AS400Text(param0_size);
            RDQD0100 = out.toBytes(params[0].getOutputData());
            ByteBuffer bb = ByteBuffer.wrap(RDQD0100);
            bb.position(76);  // Number of entries currently allocated
            size = bb.getInt();
        }
    }
    catch (Exception e){
        Logger.error(" ERROR {} ", e);
    }

    return size;

我总是得到-1作为答案和RDQD0100=out.toB行中的异常。

例外情况是

java.lang.ClassCastException： [B 不能强制转换为 java.base/java.lang.String

有什么线索吗？再次感谢

Answer 1

使用base JT400，似乎没有办法获得数据队列中的条目数。

您可以使用 QMHQRDQD API 来获取队列中的消息数。

Answer 2

好的，我发现我的问题中增加了代码的失败，并想分享解决方案。

此代码返回库 LIBFIC 上数据队列 DTQDTQ 中的当前条目数，如果发生错误/异常，则返回 -1。

int getDQSize() {

    String pname = "/QSYS.LIB/QMHQRDQD.PGM";
    int param0_size = 120; // RDQD0100 size
    int size = -1;
    ProgramCall spgm = new ProgramCall(as400);
    ProgramParameter[] params = new ProgramParameter[4];
    params[0] = new ProgramParameter(param0_size);
    AS400Bin4 length = new AS400Bin4();
    params[1]  = new ProgramParameter(length.toBytes(param0_size));
    AS400Text formatname = new AS400Text(8);
    params[2] = new ProgramParameter(formatname.toBytes("RDQD0100"));
    AS400Text dataqueuename = new AS400Text(20);
    params[3] = new ProgramParameter(dataqueuename.toBytes("DTQDTQ    LIBFIC    "));
    byte[] RDQD0100 = new byte[120];

    try {
        spgm.setProgram(pname, params);
        if (spgm.run() == true) {
            ByteBuffer bb = ByteBuffer.wrap(params[0].getOutputData());
            bb.position(72);
            size = bb.getInt();
        }
    }
    catch (Exception e){
        Logger.error(" ERROR {} ", e);
    }

    return size;
}

再次感谢David G