MVS OS-390 - 如何以编程方式从CA-JOBTRAC捕获作业信息

时间:2013-09-24 20:29:10

标签: operating-system rexx

我正在使用REXX以编程方式调用JOBTRAC,但是我无法使用此方法传递JOBNAME参数。可以使用REXX完成吗?

我们的想法是使用程序jobtrac查找作业运行的历史记录。我们使用jobtrac的计划来查找工作运行发生的历史。我们使用调用jobtrac     'TSO JOBTRAC'和SUPPLY历史命令'H XXXXXX'在命令行中(XXXXX - jobname)

我正在考虑将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.

我知道这可以通过语言自动化,我已经看到了。但我现在没有代码库来做到这一点。这与我的职业跟踪问题非常相似。

这是一些有助于理解的REXX代码。我知道这段代码是错误的...我们不能使用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;

0 个答案:

没有答案