IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

Rexx执行假脱机命令


IBM大型机论坛 -> 清单& REXX
发表新话题   该主题已锁定:您无法编辑帖子或回复。
查看上一个主题 :: 查看下一个主题  
作者 信息
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期五九月29,2017 1:08下午
引用回复

我有以下查询,

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

码:
// USER01TS作业(),'EXAMPLE',NOTIFY=&SYSUID,CLASS = A,MSGLEVEL =(1,1),
// MSGCLASS = X
// SDSF EXEC PGM = SDSF
// ISFOUT DD SYSOUT = *
// CMDOUT DD DSN = USER01.COMMAND.OUTPUT,
// DISP =(,CATLG,DELETE),
// DCB =(RECFM = FBA,LRECL = 133,BLKSIZE = 0),
// SPACE =(CYL,(1,1)),UNIT=SYSDA
// ISFIN DD *
设置控制台批处理
设定延迟600
/天A,L
/ $ D SPOOL
打印文件CMDOUT
ULOG
打印
打印关闭
/ *
//


在这两种情况下(批处理JCL和Rexx),都可以将命令输出输出到CMDOUT数据集,但也可以在SPOOL中看到相同的输出。

我的需求是我希望命令输出到CMDOUT数据集,并且我不希望它们在SPOOL中,因为我需要执行多个假脱机命令(超过1000个)
有什么方法可以避免在假脱机中输出假脱机命令,并将其重定向到数据集?

谢谢!
Upendra

已编码
请下次自己做
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表于:星期五九月29,2017 2:09下午
引用回复

你尝试了什么?似乎有一个JCL语句可以更改以尝试您想要的。
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期五九月29,2017 5:17下午
引用回复

嗨尼克

感谢您的答复。我已将以下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中看到它们。

谢谢!
起来
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表:星期五九月29,2017 5:40下午
引用回复

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


如果您不想看到它们,请不要看着它们 icon_cool.gif

只要您在数据集中也得到输出,为什么它会打扰您?
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期五九月29,2017 5:49下午
引用回复

嗨,恩里科,

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

谢谢!
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表:星期五九月29,2017 7:08下午
引用回复

您仍然没有解决我给您的有关JCL可能更改的提示-DDNAME之一已分配给假脱机。当它变哑或指向其他对象时会发生什么?
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期五九月29,2017 7:44下午
引用回复

嗨尼克

我已经尝试了以下两种

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

谢谢!
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


已加入:2006年9月1日
帖子:2214
地点:硅谷

发布发表:星期六九月30,2017 5:40上午
引用回复

您也可以尝试一个作业消息类,其中在作业运行后删除输出。
回到顶部
查看用户资料 发送私信
史蒂夫·迈尔斯

活跃的成员


已加入:2013年11月30日
帖子:870
地点:宇宙

发布发表:星期六九月30,2017 6:29上午
引用回复

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

最好使用SDSF作业状态输出中的TGPct列,而不是使用操作员命令。
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期六九月30,2017 6:57上午
引用回复

嗨,佩德罗,

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

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

谢谢!
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表于:星期六九月30,2017 7:08上午
引用回复

嗨史蒂夫,

我发出下面的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)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表:星期六九月30,2017 1:48下午
引用回复

我认为您无法避免在使用SDSF批处理时将命令输出复制到假脱机中。
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表:星期六九月30,2017 1:50下午
引用回复

我强烈建议您查看SDSF REXX API。这样您就可以避免某些显示。
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期六九月30,2017 2:28下午
引用回复

嗨,威利·詹森,

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



谢谢!
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表:星期六九月30,2017 3:22下午
引用回复

当然。状态显示为您提供了TGPCT等信息。在SDSF中查看,如果信息显示在屏幕上,则很有可能从REXX API获得相同的信息。我知道可以使用TGPCT。
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期六九月30,2017 3:46下午
引用回复

嗨,威利·詹森,

其实我已经比较了两个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信息。

你可以给我一个例子吗?

谢谢!
回到顶部
查看用户资料 发送私信
普里诺
警告:1

高级会员


已加入:2009年2月7日
职位:1241
地点:立陶宛维尔纽斯

发布发表:星期六九月30,2017 3:52下午
引用回复

Upendrasri写道:

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

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

不知道如何联系他们。

嘘,听说过舍入吗?
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期六九月30,2017 3:57下午
引用回复

嗨,普里诺

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

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

谢谢!
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期六九月30,2017 4:09下午
引用回复

嗨,普里诺

如果没错,则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

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

谢谢!
回到顶部
查看用户资料 发送私信
普里诺
警告:1

高级会员


已加入:2009年2月7日
职位:1241
地点:立陶宛维尔纽斯

发布发表:星期六九月30,2017 4:29下午
引用回复

所以它不会舍入,但是会被截断,很重要...
回到顶部
查看用户资料 发送私信
史蒂夫·迈尔斯

活跃的成员


已加入:2013年11月30日
帖子:870
地点:宇宙

发布发表:星期六九月30,2017 5:04下午
引用回复

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

另一方面,如果要最大程度地使用线轴,只需从工作状态使用TGNUM即可,并且不要按比例弯曲。然后,至少您没有分数和舍入或截断!
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表:星期六九月30,2017 5:48下午
引用回复

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

REXX API示例(以防万一):
码:
 使用isfprefix isfowner isfsysname isfdest解析值'* STA * **'   
 zz=isfcalls('ON')                                                   
 Address SDSF "ISFEXEC ST (delayed prefix @.)"                       
 if rc<>0 then ....
 zz=isfcalls('OFF')                                                   
 do n=1 to @.jname.0                                                 
   说@ .jname.n @ .jobid.n @ .queue.n @ .status.n空间(@.retcode.n,0),
       @ .ownerid.n @ .tgpct.n                                         
 end
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表:星期六九月30,2017 11:04下午
引用回复

嗨,普里诺

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

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

谢谢!
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表于:星期日十月01,2017 6:37上午
引用回复

你好

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

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

谢谢!
回到顶部
查看用户资料 发送私信
Upendrasri

活跃用户


已加入:2017年9月28日
帖子:106
地点:印度

发布发表于:十月01,2017 6:52上午
引用回复

你好

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

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

谢谢!
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   该主题已锁定:您无法编辑帖子或回复。 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX 转到页面 1, 2  下一页

 


类似主题
话题 论坛 回覆
没有新帖 无论先前的步骤如何,都执行步骤... JCL和VSAM 2
没有新帖 从REXX调用FTP的任何示例吗? 清单& REXX 1
没有新帖 SummeRx:REXX z / OS的新框架 清单& REXX 6
没有新帖 更改存在的LRECL的命令... JCL和VSAM 7
没有新帖 使用REXX访问SDSF;我是什么 ... 清单& REXX 38
搜索我们的论坛:


回到顶部