1

我正在使用 REXX 以编程方式调用 JOBTRAC，但我无法使用这种方法传递 JOBNAME 参数。这可以使用 REXX 完成吗？

这个想法是使用程序 jobtrac 查找作业运行的历史记录。我们使用 jobtrac 的时间表来查找作业运行发生时间的历史记录。我们在命令行中使用“TSO JOBTRAC”和供应历史命令“H XXXXXX”调用jobtrac（XXXXX - 作业名）

我正在考虑将 jobtrac 信息路由到一个平面文件并解析它，以便我可以在作业运行期间进行一些实时报告。上述问题也与以下情况有关：

If I give dslist 'DSLIST A.B.C.*'’  in the ISPF panel

它提供了一系列数据集...

A.B.C.A,
A.B.C.D
A.B.C.E

当我给

"SAVE ORANGE"

它将这个列表存储在

MYUSERID.ORANGE.DATASETS.

我知道这可以以编程方式自动化，我已经看到了。但我现在没有代码库来做这件事。这与我遇到的 jobtrack 问题非常相似。

这里有一些 REXX CODE 来帮助理解。我知道这段代码是错误的……我们不能为此使用 outtrap，因为它用于获取控制台输出。

say 'No. of month end jobs considered for history :'jobnames.0


    if jobnames.0 > 0 then do
        do i = 1 to jobnames.0

        say jobnames.i
        jobname = Word(jobnames.i,1);
        say 'jobname under consideration is ' jobname;
        tsocmd="JOBTRAC;ADDLOC=000;H "|| strip(jobname);
        say 'tso command is ' tsocmd;
        y = outtrap(jobdetails.)

        Address TSO "'tsocmd'"  ------------------> wrong…I believe I have to use ispexec
        say 'job details are ' jobdetails.6;

    end;
4

0 回答 0