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

找不到活动模块(DSNREXX& DSNTZANB)....


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

活跃用户


已加入:2014年2月5日
职位:164
地点:印度

发布发表:星期五六月05,2015 4:07下午
引用回复

你好

我正在尝试将REXX与DB2连接。这是我在REXX中使用DB2的第一个代码。下面的错误表明我在库中未找到该模块的地方,才知道它在库“ *** GRP.SDSNLOAD”中。我试图在REXX代码中包含以下内容,但出现错误。

码:


/ * REXX * /
跟踪(?)
SUBSYS ="***"
查询="选择* FROM ***。TABNAME"
地址ISPEXEC"LIBDEF ISPLLIB数据集ID('****GRP.SDSNLOAD')"
地址TSO"SUBCOM DSNREXX"
  IF RC THEN
     S_RC=RXSUBCOM('ADD','DSNREXX','DSNREXX')
地址DSNREXX"CONNECT" SUBSYS
  IF SQLCODE<>0然后输出SQLCA
地址DSNREXX"S1的EXECSQL DECLARE C1游标"
  IF SQLCODE<> 0 THEN CALL SQLCA
地址DSNREXX"EXECSQL PREPARE S1从:QUERY"
  IF SQLCODE<> 0 THEN CALL SQLCA
地址DSNREXX"执行描述S1到:OUTPUT"
  IF SQLCODE<> 0 THEN CALL SQLCA
 ADDRESS DSNREXX "EXECSQL OPEN C1"
   IF SQL代码<> 0 THEN CALL SQLCA
 DO UNTIL (SQLCODE <> 0)
    地址DSNREXX"使用描述符的EXECSQL FETCH C1:OUTPUT"
    IF SQLCODE= 0 THEN
       DO
          SAY "  > COLUMN NUMBER: " I
          SAY "    COLUMN NAME:   " 输出值.I.SQLNAME
          SAY "    COLUMN TYPE:   " 输出值.I.SQLTYPE
          SAY "    COLUMN VALUE:  " 输出值.I.SQLDATA
       END
 END


我得到如下错误:

码:

 找不到CSV003I要求的模块DSNTZANB
 CSV028I ABEND806-04  JOBNAME=*****   STEPNAME=LOGON
 IRX0250E系统异常终止代码806,原因代码为00000004。
 IRX0255E在主机命令CONNECT或地址环境例程DSNREXX中中止。
IEA995I SYMPTOM DUMP 输出值
系统完成码= 806 原因码= 00000004
 TIME=06.35.37  SEQ=62430  CPU=0000  ASID=0074
 PSW AT TIME OF ERROR  070C1000   81555CD8  ILC 2  INTC 0D
   未找到有效的模块
   NAME=UNKNOWN
   DATA AT PSW  01555CD2 - 8400181E  0A0D18FB  180C181D
   GR 0: 00001F00   1: 84806000
      2: 00000000   3: 00000000
      4: 00000000   5: 008FD410
      6: 000000FF   7: 00000000
      8: 7F5ED168   9: 01556200
      A: 00000000   B: 00000000
      C: 00000000   D: 7F5ED168
      E: 84806000   F: 00000004
 END OF SYMPTOM DUMP
     9 *-* 地址DSNREXX"CONNECT" SUBSYS
       +++ RC(-2054) +++
IRX0100I +++交互式跟踪。 TRACE OFF结束调试,ENTER继续。 +++


我阅读了有关此论坛的一些帖子,并发现ISPEXEC无法在*** GRP.SDSNLOAD ...中使用。

有人可以帮助我理解实际的问题吗(仍然不清楚),并帮助我通过REXX连接到DB2。


谢谢,
萨克拉特
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2015年6月5日,星期五6:04 pm
引用回复

LIBDEF用于ISPF服务调用。 SELECT CMD(mycmd)或SELECT PGM(myprog)会在LIBDEF中找到您的模块,但这不是正常z / OS搜索顺序的一部分。

我认为您可以执行以下任一操作:
1.将“ *** GRP.SDSNLOAD”添加到登录过程的STEPLIB串联中。大多数人无权这样做。

2.使用TS​​OLIB命令将“ *** GRP.SDSNLOAD”添加到搜索顺序。在启动ISPF之前执行此操作

3.在启动ISPF之前,将“ *** GRP.SDSNLOAD”添加到ISPLLIB串联中。
回到顶部
查看用户资料 发送私信
萨克拉特

活跃用户


已加入:2014年2月5日
职位:164
地点:印度

发布发表:2015年6月5日星期五6:20 pm
引用回复

佩德罗写道:

3.在启动ISPF之前,将“ *** GRP.SDSNLOAD”添加到ISPLLIB串联中。


添加到ISPLLIB意味着我该怎么做。抱歉,我无法理解这一点。
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


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

发布发表:2015年6月5日星期五6:28 pm
引用回复

佩德罗写道:

3.在启动ISPF之前,将“ *** GRP.SDSNLOAD”添加到ISPLLIB串联中。

这是我们在商店中使用的选项。有趣的是,我的大多数DSNREXX应用程序多年来一直不必要地使用SDSNLOAD。当我们的测试DB2子系统之一升级到V11并且我的所有应用程序都开始使用-805 sqlcode中断时,我得到了加强。没有多少LIBDEFing可以使我摆脱困境;我必须在登录过程中更改ISPLLIB串联。 icon_redface.gif
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:星期五六月05,2015 6:31下午
引用回复

或向您的支持咨询以了解是否 步骤库 命令可用
可以从cbttape下载并安装,
寻求支持

如果使用得当,它是周围最有用的工具之一
回到顶部
查看用户资料 发送私信
萨克拉特

活跃用户


已加入:2014年2月5日
职位:164
地点:印度

发布发表:星期六六月06,2015 7:38下午
引用回复

恩里科·索里切蒂写道:
或向您的支持咨询以了解是否 步骤库 命令可用
可以从cbttape下载并安装,
寻求支持

如果使用得当,它是周围最有用的工具之一


除了与支持团队沟通外,别无其他方法。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表:星期六六月06,2015 8:56下午
引用回复

引用:
除了与支持团队沟通外,别无其他方法。
我们不会不提出任何建议。当您被告知要与站点支持小组合作时,是因为每个站点上都有许多自定义的z / OS,因此,对一个站点有效的操作将在另一个站点上完全失败。您正在询问的是您网站特有的数据-除此以外。因此,除非您与站点支持小组联系并获取特定于站点的信息,否则您将无法继续。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表于:2015年6月9日,星期二6:16 am
引用回复

引用:
添加到ISPLLIB意味着我该怎么做。抱歉,我无法理解这一点。


与ISPF相关的文件类型有几种。例如,当程序说要显示面板时,ISPF在面板库串联ISPPLIB中搜索它。同样,当ISPF搜索负载模块时,它将在负载模块串联ISPLLIB中进行搜索。

串联只是分配给特定文件名的数据集。

我认为您想要做的是将DB2数据集添加到已分配给ISPLLIB的任何内容。询问您的支持人员是否有CONCAT或CONCATD命令。
回到顶部
查看用户资料 发送私信
萨克拉特

活跃用户


已加入:2014年2月5日
职位:164
地点:印度

发布发表:2015年6月9日星期二下午3:35
引用回复

佩德罗写道:
引用:
添加到ISPLLIB意味着我该怎么做。抱歉,我无法理解这一点。


与ISPF相关的文件类型有几种。例如,当程序说要显示面板时,ISPF在面板库串联ISPPLIB中搜索它。同样,当ISPF搜索负载模块时,它将在负载模块串联ISPLLIB中进行搜索。

串联只是分配给特定文件名的数据集。

我认为您想要做的是将DB2数据集添加到已分配给ISPLLIB的任何内容。询问您的支持人员是否有CONCAT或CONCATD命令。


谢谢,我找到了解决方案,并对另一条线有疑问,

当使用FETCH时,我们在FETCH INTO之后指定字段名称,但是我想根据用户提到的表名称来提取整个表方式...。

您能对此提出一些想法吗?
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表时间:2015年6月9日,星期二,9:13 pm
引用回复

关于DB2的东西,我认为您可以通过在DB2论坛中提问来获得更好的答案。
回到顶部
查看用户资料 发送私信
马索

REXX主持人


已加入:2006年3月13日
帖子:1348
地点:以色列

发布发表:2015年6月10日星期三晚上7:41
引用回复

萨克拉特写道:
当使用FETCH时,我们在FETCH INTO之后指定字段名称,但是我想根据用户提到的表名称来提取整个表方式...。

什么是“整桌方式”?
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


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

发布发表:2015年6月10日星期三晚上11:12
引用回复

不了解DB2,但是在PC上使用Rexx使用RexxSQL来访问SQLite数据库时,只需执行一个没有WHERE的SELECT并获取行,直到rowcount为0。


好的-几个小时后,我发现了一个处理光标的旧的m / f Rexx程序:SELECT,然后执行FETCH,然后执行循环处理返回的行,然后对下一行执行FETCH,直到FETCH给出非零的返回码。
回到顶部
查看用户资料 发送私信
唐·雷西

活跃的成员


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

发布发表于:2015年6月11日,星期四5:51 pm
引用回复

萨克拉特写道:

谢谢,我找到了解决方案,并对另一条线有疑问,

当使用FETCH时,我们在FETCH INTO之后指定字段名称,但是我想根据用户提到的表名称来提取整个表方式...。

您能对此提出一些想法吗?

如果程序不知道表的名称,因为用户提供了该表的名称,则必须处理SQLDA。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 如何在BMS Ph中列出BMS MAP屏幕... CICS 2
没有新帖 CTRL-M中的活动作业列表 JCL和VSAM 1
没有新帖 无法编译模块 PL / I和组装商 6
没有新帖 在PF3上找不到libdef为...的面板 TSO / ISPF 2
没有新帖 我需要有关COBOL分析的帮助... 所有其他大型机主题 14
搜索我们的论坛:


回到顶部