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

使用SERCMPAR的Rexx工具


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
rmn

新的用户


已加入:2007年9月5日
帖子:6
所在地:卡纳塔克邦

发布发表:2009年10月9日,星期五5:08 pm
引用回复

大家好...
我创建了一个REXX工具,该工具从版本控制工具(Changeman)中提取数据并将其保存在用户指定的位置。
我的工具如下
1)它使用程序SERCMPAR将变更员中的更新组件与生产中的基准版本进行比较。然后将比较的结果存储在输出数据集中。
2)它还直接将changeman中的新组件写入输出数据集。
3)最后,它将输出数据集下载到用户指定的位置。

面临的问题
登录会话后首次运行该工具时,我在比较程序中遇到以下错误。但是从第二次开始,该工具运行正常。

码:
用户权限代码0005,原因代码00000001。
退出主机命令SELECT或地址环境例程ISPEXEC。
用户权限代码0005,原因代码00000001。
退出主机命令ISPEXEC或地址环境例程TSO。


我面临的代码是

码:
地址“ ISPEXEC”                                     
说'从地址返回代码='RC                   
"SELECT PGM(SERCMPAR)"                               
说'从比较返回代码='RC                   
O =外出(OFF)                                     
                                                     
地址“ MVS”                                         
"EXECIO" TRAP2.0 "DISKW SYSPRINT (FINIS STEM TRAP2." 
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年10月9日,星期五7:26 pm
引用回复

引用:
登录会话后首次运行该工具时

您在哪里运行它?您如何调用它?
回到顶部
查看用户资料 发送私信
rmn

新的用户


已加入:2007年9月5日
帖子:6
所在地:卡纳塔克邦

发布发表:2009年10月14日,星期三,下午4:37
引用回复

我直接使用Line Command“ EX”提交。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年10月14日,星期三,9:13 pm
引用回复

重复:

您在哪里运行它?
回到顶部
查看用户资料 发送私信
rmn

新的用户


已加入:2007年9月5日
帖子:6
所在地:卡纳塔克邦

发布发表:2009年10月23日,星期五2:50 pm
引用回复

您能以描述性的方式进行解释吗.....
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年10月23日,星期五7:43 pm
引用回复

实际上,我想请您以描述性的方式进行解释。

登录时,您会看到什么菜单,选择什么,面板ID是什么?

您发出的EX命令的完整语法是什么?

syslog中是否有任何消息?

SERCMPAR程序有什么作用,您可以在没有rexx程序的情况下调用它吗?它的行为是否相同。
回到顶部
查看用户资料 发送私信
rmn

新的用户


已加入:2007年9月5日
帖子:6
所在地:卡纳塔克邦

发布发表:2009年10月26日星期一4:59 pm
引用回复

实际上,我没有通过任何工作运行REXX程序,但我直接提交了该程序。
rexx程序存在于PDS成员中,如下所示,并使用EXECUTE COMMAND(EX)执行该程序。

码:
视图              USERID.TEST.REXX                         Row 00001 of 00003
 Command ===>                                                  Scroll ===> CSR
            Name     Prompt       Size   Created          Changed          ID 
 _________ JCLPARM                   2  2008/11/11  2009/04/10 04:06:32  USERID
 _________ PAN1                     22  2008/10/14  2009/08/12 00:34:15  USERID
 __EX_____ REXXPROG  *Viewed        345  2008/10/08  2009/08/12 00:33:49  USERID

一旦执行,便会创建PANEL,它会在changeman中要求包装号。
面板代码如下...

码:
"ISPEXEC LIBDEF ISPPLIB数据集ID('USERID.TEST.REXX')"               
 "ISPEXEC显示面板(PAN1)"
/ *询问包裹编号的面板* /

程序SERCMPAR是Changeman比较的批处理版本。它将指定程序包(直通面板)中的组件与基准版本进行比较。也可以在没有REXX程序的情况下调用SERCMPAR,并且工作正常。

我的问题是..

每当我第一次登录大型机并尝试在PDS中执行REXX程序(调用程序SERCMPAR),如上所示……
我收到以下错误。但是第二次它按预期工作。
码:

用户权限代码0005,原因代码00000001。
退出主机命令SELECT或地址环境例程ISPEXEC。
用户权限代码0005,原因代码00000001。
退出主机命令ISPEXEC或地址环境例程TSO。
回到顶部
查看用户资料 发送私信
rmn

新的用户


已加入:2007年9月5日
帖子:6
所在地:卡纳塔克邦

发布发表:2009年10月26日星期一5:34 pm
引用回复

嗨,Pedro .....

我试图执行我的REXX程序,该程序通过JCL调用SERCMPAR,但没有成功...

码:
// PS10     EXEC PGM = IKJEFT1B,PARM = REXXPROG                                                   
// SYSTSPRT  DD SYSOUT=*                                                                         
// SYSEXEC   DD DSN = USERID.TEST.REXXBKP,DISP = SHR     
// SYSTSIN   DD DUMMY                                 
/ *
// *


即使第二次也不起作用... icon_sad.gif
请找到线轴的详细信息..

JESMSGLG:
码:
IEA995I症状转储输出  350                           
系统完成码= 013 原因码= 00000018           
 TIME=06.40.40  SEQ=03688  CPU=0000  ASID=0321             
 PSW AT TIME OF ERROR  075C1000   80E28242  ILC 2  INTC 0D
   未找到有效的模块                                 
   NAME=UNKNOWN   


JESYSMSG:
码:
IGD17364I数据集NBDN3RH.TEST。#001502.OUTPUT 
未授权指定的到期日期      
到期日期重置为最大允许值0.0   


SYSPRINT:

码:
基线成员(MEM1)  PAKAGE MEMBER(MEM1)     
从地址返回代码= 0                                           
   258 *-*     "SELECT PGM(SERCMPAR)"                                 
       +++ RC(-3) +++                                                 
从比较返回代码= -3                                         
数据集USERID.TEST。#001502。未分配输出,数据集太多+
您的会话允许的最大数据集分配数 


哪里 USERID.TEST。#001502.OUTPUT 是输出数据集,我将在其中写入比较结果并将其下载。


希望这能给您您询问的信息....

提前致谢................
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年10月26日星期一7:33 pm
引用回复

Abend 013表示还显示消息IEC141I。在您的系统日志中查找。

在消息和代码手册中查找messaqe IEC141I以及返回代码18。
回到顶部
查看用户资料 发送私信
rmn

新的用户


已加入:2007年9月5日
帖子:6
所在地:卡纳塔克邦

发布发表:2009年12月10日,星期四,下午5:32
引用回复

rmn写道:
嗨,Pedro .....

我试图执行我的REXX程序,该程序通过JCL调用SERCMPAR,但没有成功...

码:
// PS10     EXEC PGM = IKJEFT1B,PARM = REXXPROG                                                   
// SYSTSPRT  DD SYSOUT=*                                                                         
// SYSEXEC   DD DSN = USERID.TEST.REXXBKP,DISP = SHR     
// SYSTSIN   DD DUMMY                                 
/ *
// *


即使第二次也不起作用... icon_sad.gif
请找到线轴的详细信息..

JESMSGLG:
码:
IEA995I症状转储输出  350                           
系统完成码= 013 原因码= 00000018           
 TIME=06.40.40  SEQ=03688  CPU=0000  ASID=0321             
 PSW AT TIME OF ERROR  075C1000   80E28242  ILC 2  INTC 0D
   未找到有效的模块                                 
   NAME=UNKNOWN   


JESYSMSG:
码:
IGD17364I数据集USERID.TEST。#001502.OUTPUT 
未授权指定的到期日期      
到期日期重置为最大允许值0.0   


SYSPRINT:

码:
基线成员(MEM1)  PAKAGE MEMBER(MEM1)     
从地址返回代码= 0                                           
   258 *-*     "SELECT PGM(SERCMPAR)"                                 
       +++ RC(-3) +++                                                 
从比较返回代码= -3                                         
数据集USERID.TEST。#001502。未分配输出,数据集太多+
您的会话允许的最大数据集分配数 


哪里 USERID.TEST。#001502.OUTPUT 是输出数据集,我将在其中写入比较结果并将其下载。


希望这能给您您询问的信息....

提前致谢................
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2009年12月10日,星期四,下午6:41
引用回复

佩德罗写道:
Abend 013表示还显示消息IEC141I。在您的系统日志中查找。

在消息和代码手册中查找messaqe IEC141I以及返回代码18。

您是否按照Pedro的建议进行操作,并查找RC18的IEC141I消息。

仅重新发布以前的帖子并没有好处,您必须学习自己使用手册。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年12月10日,星期四10:26 pm
引用回复

Abend 013表示还显示消息IEC141I。在您的系统日志中查找。

在消息和代码手册中查找messaqe IEC141I以及返回代码18。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年12月10日,星期四10:40 pm
引用回复

您的JCL没有SYSPRINT dd语句,但是您向我们展示了其中的内容。它从哪里来的?

在您的REXXPROG中,添加:
码:

地址TSO'PROFILE MSGID'

重新运行程序,然后查看SYSPRINT / SYSTSPRT文件。使用消息ID,查找消息。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 从REXX调用FTP的任何示例吗? 清单& REXX 1
没有新帖 SummeRx:REXX z / OS的新框架 清单& REXX 6
没有新帖 更改存在的LRECL的命令... JCL和VSAM 7
没有新帖 使用REXX访问SDSF;我是什么 ... 清单& REXX 38
没有新帖 从REXX调用汇编程序 PL / I和组装商 5
搜索我们的论坛:


回到顶部