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

从Cobol调用Rexx程序


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

新的用户


已加入:2020年9月5日
帖子:14
地点:印度

发布发表于:2020年10月29日,星期四6:00 pm
引用回复

大家好,

我有一个需要从Cobol调用REXX程序并且需要将一些参数传递给Rexx的要求。我是REXX的新手,所以不确定如何从Cobol调用rexx程序以及如何使用JCL执行。我搜索了论坛,但没有得到类似的示例程序。任何人都可以提供示例cobol程序,该程序进而用参数调用REXX程序以及JCL来执行cobol程序。

在此先感谢您的大力帮助。
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
帖子:939
所在地:马里兰

发布发表于:2020年10月29日,星期四6:40 pm
引用回复

从JCL调用COBOL的问题与从COBOL调用REXX完全无关。

1)尝试了解差异
2)尝试进行RTFM
3)尝试无缘无故地混合使用不同的环境,除非您清楚地了解了它们相互作用的机制
4)尝试做自己尝试做的任何事情,并在此处演示
回到顶部
查看用户资料 发送私信
斯里尼瓦斯B

新的用户


已加入:2020年9月5日
帖子:14
地点:印度

发布发表于:2020年10月29日,星期四6:56 pm
引用回复

感谢您的回复。但是我的要求是REXX模块已经存在,当前可以根据请求手动执行。我们正在尝试实现自动化。我们将添加新的DB2表,该表将包含请求详细信息,并且将根据请求类型执行不同的rexx模块。因此,我们添加了cobol程序,该程序将读取此DB2表并标识请求类型,并相应地调用不同的rexx模块来处理这些请求。

希望这可以澄清。

提前致谢。
回到顶部
查看用户资料 发送私信
达夫波塞兰

活跃的成员


加入时间:2006年12月1日
职位:747
所在地:宾夕法尼亚州

发布发表于:2020年10月29日,星期四7:00 pm
引用回复

尝试使用您喜欢的搜索引擎并搜索: cobol呼叫rexx

有几个示例,包括来自该论坛的一些示例。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表于:2020年10月29日,星期四7:05 pm
引用回复

码:
工作存储部分。
01  CALL-REXX          图十(6) VALUE "IRXJCL" .
01  CALL-PARM.
    05  PARM-LEN         PIC S9(4) BINARY VALUE 8.
    05  PARM-VALUE      图十(8)  VALUE "REXPROG1'.
程序部门。
   使用CALL-PARM调用CALL-REXX。
    STOP RUN.
在JCL中,请使用SYSEXEC属性。
回到顶部
查看用户资料 发送私信
斯里尼瓦斯B

新的用户


已加入:2020年9月5日
帖子:14
地点:印度

发布发表于:2020年10月29日,星期四7:20 pm
引用回复

谢谢罗希特。我尝试了此操作,但未调用REXX程序,并且我异常中止(*** BAD RC *** FROM REXX = 20048),并且还需要将参数传递给rexx程序。

能否请您提供运行良好的示例JCL和示例程序。

提前致谢。
回到顶部
查看用户资料 发送私信
斯里尼瓦斯B

新的用户


已加入:2020年9月5日
帖子:14
地点:印度

发布发表于:2020年10月29日,星期四7:34 pm
引用回复

抱歉Rohit..my Bad。现在,我更改了您建议的代码。

但是我仍然在打电话给REXX时得到RC-20。

码:
    05 WS-IRXJCL                     PIC X(8) VALUE 'IRXJCL'.
                                                                 
     01 ARGUMENT.                                                 
         03 ARG-LENGTH                 pic S9(4) BINARY VALUE 8. 
         03 ARG-CHAR                   pic x(6).                 


将“ REXXADD”移至ARG-CHAR                       
                                                 
呼叫WS-IRXJCL   USING ARGUMENT                 
IF  RETURN-CODE NOT = 0                         
   从REXX ='READ-CODE显示'*** Bad RC ***
其他                                             
   显示“ REXX呼叫成功”:' RETURN-CODE 
万一                                           

*****************************
***不良RC ***来自REXX = 00020



任何人都可以帮忙。
鳕鱼
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表于:星期五十月30,2020 12:45上午
引用回复

斯里尼瓦斯B写道:
谢谢罗希特。我尝试了此操作,但未调用REXX程序,并且我异常中止(*** BAD RC *** FROM REXX = 20048),并且还需要将参数传递给rexx程序。

能否请您提供运行良好的示例JCL和示例程序。

提前致谢。

通常,您的JCL没有REXX所需的那些库,但是您还需要在您的站点上查找进行此类调用的手册和现有作业。
请在需要时使用代码标签。

www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.rexa100/h1981605303.htm
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


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

发布发表于:星期五十月30,2020 3:10上午
引用回复

为什么混合使用COBOL和Rexx?您可以轻松地用Rexx编写程序来完成您的COBOL代码所要执行的工作。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表于:2020年10月30日,星期五1:27 pm
引用回复

同意。但是基于TS的知识,他似乎似乎并不了解REXX(这很好),因此根据Db2表中的值编写了一个cobol模块作为包装器来调用各种REXX模块(这也很好)。两者都应该起作用。
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
帖子:939
所在地:马里兰

发布发表于:2020年10月30日星期五5:36 pm
引用回复

罗希特·乌马尔吉卡(Rohit Umarjikar)写道:
同意。但是基于TS的知识,他似乎似乎并不了解REXX(这很好),因此根据Db2表中的值编写了一个cobol模块作为包装器来调用各种REXX模块(这也很好)。两者都应该起作用。

声称自己可以用COBOL编写“包装纸”的人 必须能够 从第一次尝试开始,在REXX中执行相同的操作。否则,我不得不怀疑他是否真的懂编程(任何语言)。

与将REXX与COBOL混合使用时相比,读一点REXX的花费要比所有头痛的花费要少得多。
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表于:2020年10月30日星期五晚上7:25
引用回复

但愿如此。他获得了前进所需的信息。
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


已加入:2010年7月6日
帖子:696
地点:加拿大安大略省惠特比

发布发表于:星期六十月31,2020 7:28上午
引用回复

IRXEXCOM可用于在COBOL和Rexx之间进行通信。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 从REXX调用FTP的任何示例吗? 清单& REXX 1
没有新帖 SummeRx:REXX z / OS的新框架 清单& REXX 6
没有新帖 更改存在的LRECL的命令... JCL和VSAM 7
该主题已锁定:您无法编辑帖子或回复。 将字段名称传递给COBOL程序 COBOL程式设计 10
没有新帖 使用REXX访问SDSF;我是什么 ... 清单& REXX 38
搜索我们的论坛:


回到顶部