Rexx执行假脱机命令

Upendrasri

我有以下查询，

我已经运行了以下作业以通过批处理执行假脱机命令，并编写了Rexx例程以执行以下命令。

尼克·克劳斯顿

你尝试了什么？似乎有一个JCL语句可以更改以尝试您想要的。

Upendrasri

嗨尼克

感谢您的答复。我已将以下Rexx编码

“ ALLOC DD（ISFOUT）DA（'TEST1.SPOOL.OUT1'）SHR重用”
“ ALLOC DD（CMDOUT）DA（'TEST2.JES.OUTPUT'）MOD重用”
“ ALLOC DD（ISFIN）NEW REU”
队列“设置控制台批”
队列“设置延迟600”
队列“ /£DJQ'” J“'，SPL”
队列“打印文件CMDOUT”
队列“ ULOG”
排队“打印”
排队“打印关闭”
“ EXECIO” QUEUED（）“ DISKW ISFIN（FINIS”
“呼叫*（SDSF）”
结束

TEST1.SPOOL.OUT1-此文件包含作业名称（位于假脱机中）

读取此文件后，请提交上述Jes命令以了解这些乔布斯所占阀芯百分比。

在CMDOUT数据集中获得了预期的输出，但能够在Spool中看到在此过程中执行的所有那些命令。命令超过1000条。

因此，我需要执行这些命令，并且希望将它们放在我的数据集中，但我不想在Spool中看到它们。

谢谢！
起来

恩里科·索里切蒂

Upendrasri

嗨，恩里科，

是的..你是真的。但是这些命令占据了假脱机，我们还有人来监视假脱机。

谢谢！

尼克·克劳斯顿

您仍然没有解决我给您的有关JCL可能更改的提示-DDNAME之一已分配给假脱机。当它变哑或指向其他对象时会发生什么？

Upendrasri

嗨尼克

我已经尝试了以下两种

1.
// SDSF EXEC PGM = SDSF
// ISFOUT DD DUMMY
// CMDOUT DD DSN = TEST.COMMAND.OUTPUT，DISP = SHR
// ISFIN DD *
设置控制台批处理
设定延迟600
/ DJQ TEST0001，SPL
打印文件CMDOUT
ULOG
打印
打印关闭
/ *
//

2.
// SDSF EXEC PGM = SDSF
// ISFOUT DD DSN = TEST.COMMAND.OUTPUT，DISP = SHR
// CMDOUT DD DSN = TES1.COMMAND.OUTPUT，DISP = SHR
// ISFIN DD *
设置控制台批处理
设定延迟600
/ D短信
打印文件CMDOUT
ULOG
打印
打印关闭
/ *
//

在两种情况下都可以在假脱机中看到以下输出

D短信
IGD002I 15:11:00显示短信461
SCDS = LSWN.N1SMS.SCDS
ACDS = LSWN.N1SMS.ACDS
COMMDS = LSWN.S1SMS.COMMDS
ACDS级别= z / OS V2.2
DINTERVAL = 150
靠谱=否
ACSDEFAULTS =否
系统配置级别间隔秒
PLEXS1 2017/09/29 15:10:53 15
IEA631I操作员批现在不活动，系统= BSOS，LU = BATCH

谢谢！

佩德罗

您也可以尝试一个作业消息类，其中在作业运行后删除输出。

史蒂夫·迈尔斯

$ DQ命令才不是显示单个作业的SPOOL利用率。它显示系统当前的SPOOL利用率。我认为您最好打开 z / OS JES2命令您的z / OS版本的手册。

最好使用SDSF作业状态输出中的TGPct列，而不是使用操作员命令。

Upendrasri

嗨，佩德罗，

谢谢。但是我需要的是通过此Job将要执行多个命令（超过1000条），即使从spool中删除Job，该作业处理的命令也将存在于spool中。所以我想避免它们。

我的要求是：我的命令应在后台执行，而这些命令和输出不应在假脱机中显示。

谢谢！

Upendrasri

嗨史蒂夫，

我发出下面的Jes命令以了解后台打印作业所占的后台打印百分比

/ $ DJQ'JOBNAME'，SPL

这是一个例子。

/ $ DJQ'TESTNEW1'，SPL
£HASP890作业（TESTNEW1）
£HASP890 Job（TESTNEW1）SPOOL =（VOLUMES =（IN1103,04,01,02），TGS = 8，
£HASP890 PERCENT = 0.0039）

如果我们使用TGPct列获得类似的结果，请您协助我如何使用TGPct列检查单个作业使用的假脱机百分比？

谢谢！

威利·詹森（Willy Jensen）

我认为您无法避免在使用SDSF批处理时将命令输出复制到假脱机中。

威利·詹森（Willy Jensen）

我强烈建议您查看SDSF REXX API。这样您就可以避免某些显示。

Upendrasri

嗨，威利·詹森，

好的。无论如何，除了发出Jes命令外，是否还知道单个Job使用的假脱机百分比？

谢谢！

威利·詹森（Willy Jensen）

当然。状态显示为您提供了TGPCT等信息。在SDSF中查看，如果信息显示在屏幕上，则很有可能从REXX API获得相同的信息。我知道可以使用TGPCT。

Upendrasri

嗨，威利·詹森，

其实我已经比较了两个Jes spool命令TGPCT，如下所示

TKSR 00000290 $ DJQ'TTSYTKSR'，SPL
作业63125 00000090 $ HASP890作业（TTSYTKSR）685
685 00000090 $ HASP890作业（TTSYTKSR）SPOOL =（VOLUMES =（SPS101），TGS = 1，
685 00000090 $ HASP890 PER == 0.0019）

NP JOBNAME PrtDest SecLabel TGNum TGPct OrigNode ExecNode Devic
TTSYTKSR本地1 0.00本地

对于Job TTSYTKSR从Jes假脱机命令，假脱机百分比为：0.0019

但是对于相同的作业，TGPCT显示为0.00。

不知道如何联系他们。尝试阅读手册，但我无法理解TGPCT信息。

你可以给我一个例子吗？

谢谢！

普里诺

Upendrasri

嗨，普里诺

哦，是的，但是我想知道该特定作业占用的实际线轴百分比？

无论如何，有没有获得实际价值而不是TGPCT的舍入？

谢谢！

Upendrasri

嗨，普里诺

如果没错，则TGPCT在dot（。）之后仅显示两位数字。

从我上面的示例中，Jes命令的假脱机百分比为：0.0019

TGPCT值为：0.00

似乎它没有考虑第3位和第4位数字。我尝试了另一个例子。

JOB63237 00000090 $ HASP890作业（TTSYTKSR）689
689 00000090 $ HASP890作业（TTSYTKSR）SPOOL =（VOLUMES =（SPS101），TGS = 15，
689 00000090 $ HASP890 PER = 0.0299）

TGPCT值为：0.02

如果我的理解是错误的，请纠正我。

谢谢！

普里诺

所以它不会舍入，但是会被截断，很重要...

史蒂夫·迈尔斯

好吧，如果你真需要所有的精度-不太可能，但这仅是我的意见-您可以自己通过从SDSF SP com的线轴卷中添加总轨道组来自己计算百分比，然后使用作业状态显示中的TGNUM值来计算百分比您喜欢的精度。就像普里诺有时说的那样

另一方面，如果要最大程度地使用线轴，只需从工作状态使用TGNUM即可，并且不要按比例弯曲。然后，至少您没有分数和舍入或截断！

威利·詹森（Willy Jensen）

正如prino所说的那样，该值被x.xx pct截断了。问题是，您真正需要结果有多精确？截断或舍入时，该值仍将不精确。
顺便说一下，REXX API以与屏幕相同的精度显示值。 TGPCT的宽度定义为6个字节。

REXX API示例（以防万一）：

Upendrasri

嗨，普里诺

我尝试从SDSF Panel获得TGPCT Full价值，但是我没有获得全部价值。

您能给我一个提示或协助我吗？

谢谢！

Upendrasri

你好

我尝试使用现有的ST Panel执行程序在不截断的情况下获取TGPCT价值，但这确实让我感到困惑。

是否有与TGPCT值相关的ISPF功能？还是存在像ISFTGPCT这样的Rexx变量，我们可以基于Jobid从中访问此值？

谢谢！

Upendrasri

你好

我尝试从SDSF ST Panel执行程序中截取TGPct值而没有截断，但这确实让我感到困惑。

有人可以帮助我获得TGpct的全部价值吗？或提供一些提示以获取该价值。

谢谢！