我正在使用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;