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

需要为DSNREXX NDM RUN任务分配SDSNLOAD


IBM大型机论坛 -> DB2
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期二十一月06,2018 4:55上午
引用回复

我正在尝试将rexx db2程序作为NDM运行任务运行
现在无法正常工作,因为我无法弄清楚如何分配SDSNLOAD
有谁知道如何做到这一点?

NDM进程
码:

COPPROCESS SNODE=DEL -                                           
   &REXXLIB = HLQ.REXX.LIB-                                   
   &SDSNLOAD = SYS5.DB2.DB2D.SDSNLOAD-                                 
   &PROFILE=JOBNAME -                                                 
   &LASTGEN = HLQ.LEVEL1.LEVEL2                     
/ * * /                                                                 
/ *免费文件* /                                                       
/ * * /                                                                 
FREE1运行任务( PGM=DMRTDYN, 极点, PARM =( -                         
      C"UNALLOC DDNAME = SYSEXEC" F"-1" -                               
      C"UNALLOC DDNAME = SYSTSIN" F"-1" -                               
      C"UNALLOC DDNAME = SYSTSPRT" ) )                                   
/ * * /                                                                 
/ * ALLOC文件* /                                                     
/ * * /                                                                 
ALLOC跑步任务( PGM=DMRTDYN, 极点, PARM =( -                         
      C"ALLOC DDNAME = SYSEXEC DISP = SHR DSN =&REXXLIB" F"-1" -           
      C"ALLOC DDNAME=STEPLIB  DISP=SHR DSN=&SDSNLOAD" F"-1" -         
      C"ALLOC DDNAME = SYSTSIN DUMMY" F"-1" -     
      C"ALLOC DDNAME = SYSTSPRT SYSOUT = *" -                             
      C" DCB=(RECFM=FB, LRECL=80 )" ) )                               
/ * * /                                                                 
雷克斯跑任务( PGM=IRXJCL, 极点, -                                   
     PARM=(C"CKCOPYRC &PROFILE &LASTGEN"))                             
/ * * /                                                                 
/ *如果RC不是0,则发出通知* /                                         
/ * * /                                                                 
DMNOTIFY IF(REXX <> 0) THEN                                           
     RUN TASK (PGM=DMNOTIFY, 极点, -                                 
     PARM=('FAIL', CL44"IRXJCL" ))                                     
     EIF                                                               
/ * * /                                                                 
/ *免费文件* /                                                       
/ * * /                                                                 
FREE2跑步任务( PGM=DMRTDYN, 极点, PARM =( -                         
      C"UNALLOC DDNAME = SYSEXEC" F"-1" -                               
      C"UNALLOC DDNAME = SYSTSIN" F"-1" -                               
      C"UNALLOC DDNAME = SYSTSPRT" ) )                                       


Rexx程序
码:

/ * rexx * /                                                             
parse arg 个人资料 lastgen                                               
子系统    = 'DB2D'                                                     
地址左"subcom dsnrexx"                                           
如果rc然后                                                             
do                                                                     
  s_rc = rxsubcom('add','dsnrexx','dsnrexx')                           
结束                                                                     
地址dsnrexx                                                         
"connect" 子系统                                                       
if <> 0 then                                                   
do                                                                     
   say " 从连接是"sqlcode                               
   exit 12                                                             
结束                                                                     
更新  = "更新ccddpgm.transmission_setup",                       
            " set lastgen = ?",                                         
            " where 个人资料 = ?"                                       
地址dsnrexx                                                         
"execsql从准备s1:updatels"                                     
if /= 0 then                                                   
    说" 从准备更新是"sqlcode                       
"execsql使用以下命令执行s1:lastgen, :profile"                           
出口                                                            


NDM日志
码:

功能     => 跑步任务(PNODE)     Step Start Time => 18:03:14               
进程名称=> CKCOPYRC             Step End Time   => 18:03:14               
进程编号  => 33,486                                                         
                                        Comp Code    => 00000014               
SMFID        => HO42                    Comp Msg     => SRTA005I               
用户身份       => ECCCHXS                                                       
职务名称     => ECCCHXSB                Job ID       => JOB40507               
主节点=> NDMTEST                 Step Name    => REXX                   
会话类别=> 002                                                           
程序名称=> IRXJCL                                                         
   Parm data => (                                                             
                 \ C'CKCOPYRC职位名称HLQ.LEVEL1.LEVEL2'\                                             
                )                                                             
  Time on CP => 00:00:00.005                                                   
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表:星期二十一月06,2018 5:22下午
引用回复

我认为这是关于如何指定loadlib的。我尝试了各种ddname,但没有一个起作用。应该有办法我不是,这是一个非常复杂的问题。我只是不知道如何解决。
回到顶部
View user's 个人资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:星期二十一月06,2018 5:34下午
引用回复

您得到什么错误???
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表:星期二十一月06,2018 5:56下午
引用回复

这是我上面粘贴的Ndm日志中
补码=> 00000014

SMFID =>HO42比较消息=> SRTA005I

[/码]
回到顶部
View user's 个人资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:星期二十一月06,2018 6:10下午
引用回复

我已经看到了...但是它是过程最后的完成代码,
它不能告诉过程在什么时候失败

你可以尝试与
码:
跟踪"I"


它有点冗长,但是它告诉所有您可能想知道运行脚本时会发生什么
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期三十一月07,2018 3:55上午
引用回复

当我将rexx作为NDM RUN TASK运行时,消息未写入
我在没有Db2的情况下以NDM RUN TASK的身份运行了基本的rexx-它有效
我还使用IKJEFT01而不是NDM来运行Db2 rexx,删除了今天双色球开奖结果 JOBLIB DD DISP = SHR,DSN = SYS5.DB2.DB2D.SDSNLOAD
我犯了同样的错误
The 连接 fails
我需要弄清楚如何通过NDM Run TAsk运行rexx时如何分配SYS5.DB2.DB2D.SDSNLOAD
码:

   >O>   "connect DB2D"                           
   +++ RC(-3) +++                                 
12 *-* if <> 0                           
   >L>   "SQLCODE"                               
   >L>   "0"                                     
   >O>   "1"                                     
   *-*  then                                     
13 *-*  do                                       
14 *-*   say " 从连接是"sqlcode   
   >L>     " 从连接是"             
   >L>     "SQLCODE"                             
   >O>     " 从连接是SQLCODE"     
连接的ode是SQLCODE                       
15 *-*   exit                              
   >L>     "SQLCODE"                             
[/码]
回到顶部
View user's 个人资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表于:星期三十一月07,2018 4:30上午
引用回复

我从未使用JOBLIB进行过测试...

我通常将其添加到steplib串联中
码:

今天双色球开奖结果         DD DSN = xxxxxxxxxx.SDSNEXIT
今天双色球开奖结果         DD DSN = xxxxxxxxxx.SDSNLOAD


如果您的rexx脚本作为NDM启动任务的子任务运行
您可能尝试将db2数据集添加到NDM steplib串联中
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期三十一月07,2018 5:07上午
引用回复

我试过了,但是没有用。也许需要将其添加到NDM启动任务的steplib中,以保持NDM正常运行。那将是一场漫长的战斗,我将输掉 icon_redface.gif
应该有一种方法可以告诉DSNREXX连接查看特定的loadlib,对吗?也许不吧。我有主意如果我可以通过RUN TASK直接更新DB2表,这将为我省去很多麻烦。
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期三十一月07,2018 5:09上午
引用回复

TSOLIB怎么样?我尝试了TSOLIB,但遇到一个错误,提示它需要在TSO / E下运行
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期三十一月07,2018 9:17下午
引用回复

如果有一种方法可以使用IRXJCL或其他方法在TSO / E下运行rexx
我无法将IKJEFT01作为NDM RUN TASK运行
有谁知道如何做到这一点 ?
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期三十一月07,2018 9:19下午
引用回复

在IKJEFT01下运行时,以下批处理作品(不是NDM RUN TASK)
码:

/ * rexx * /                                                   
"allocate file(myload) dataset('SYS5.DB2.DB2D.SDSNLOAD') shr"
如果rc = 0则                                               
    push "tsolib activate file(myload)"                       
出口                                                         
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表于:星期四十一月08,2018 5:55上午
引用回复

DMRTSUB似乎大致上做了我想做的事
我想用它来捕获Db2表中NDM复制步骤的状态
但是,将为每个COPY运行单独的更新作业。如果我可以使用RUN TASK来更新表,那就更好了。有谁知道更好的方法吗?
码:

今天双色球开奖结果 JSTY020 EXEC INSPCDR2,                                               
今天双色球开奖结果       DSN01 ='COMM.NDM.V3R2.NETMAP.SA40',                           
今天双色球开奖结果       DSN02 ='COMM.NDM.MSG'                                         
今天双色球开奖结果PSTY0010.DMPUBLIB DD DISP=SHR,DSN=CSDDLTLX.NDM.PROCESS.LIB           
今天双色球开奖结果PSTY0010.SYSIN    DD *,DLM=ZZ                                         
 SIGNON CASE=YES                                                       
 SUBMIT PROC=REXXRUNT                                                   
 SIGNOFF                                                               
ZZ       


码:

编辑       CSDDLTLX.NDM.PROCESS.LIB(REXXRUNT) - 01.03      栏00001 00072
命令===>                                                  Scroll ===> PAGE
****** ******************************数据顶部************ ******************
000001 COPPROCESS SNODE = DEL-                                           
000002    &PROFILE=FPCS#W03 -                                                 
000003    &LASTGEN = CCDDLTQX.TRX.DEFAULT.FPCS#W01.G0003V00                     
000004 RUNUPDT  跑步任务(PGM=DMRTSUB )                  /* RUNTASK PGM   */ -
000005          SYSOPTS=\'\                              /* START SYSOPTS * /-
000006    "DSN=ECCCHXS.JCLLIB(CCDUPDST),DISP=SHR"        /* DATASET NAME  * /-
000007          "PROFILE &PROFILE"                       /* PARAMETER #1  * /-
000008          "LASTGEN &LASTGEN"                       /* PARAMETER #2  * /-
000009          \'\                                      /* END SYSOPTS   */ -
000010          SNODE                                                         
****** ****************************数据底部************* ***************


码:

视图       ECCCHXS.JCLLIB(CCDUPDST) - 01.02                栏00001 00072
命令===>                                                  Scroll ===> PAGE
000012 今天双色球开奖结果 SET 简介=&PROFILE                                                 
000013 今天双色球开奖结果 SET 拉斯特根=&LASTGEN                                                 
000014 今天双色球开奖结果 JS001000 EXEC PGM = IKJEFT01,                                           
000015 今天双色球开奖结果 PARM ='CCDUPDST&PROFILE &LASTGEN',                                   
000016 今天双色球开奖结果 DYNAMNBR = 256                                                         
000017 今天双色球开奖结果 SYSPRINT DD SYSOUT = *                                                 
000018 今天双色球开奖结果 SYSTSIN  DD DUMMY                                                     
000019 今天双色球开奖结果 SYSTSPRT DD SYSOUT = *                                                 
000020 今天双色球开奖结果 SYSEXEC DD DISP = SHR,DSN = CCDDLTLX.IMPL.ISPCLIB                       
000021今天双色球开奖结果         DD DISP = SHR,DSN = SYS7.ISPCLIB                                 


码:

今天双色球开奖结果 SET 简介=FPCS#W03                                                 
今天双色球开奖结果 SET 拉斯特根= CCDDLTQX.TRX.DEFAULT.FPCS#W01.G0003V00                   
今天双色球开奖结果 JS001000 EXEC PGM = IKJEFT01,                                           
今天双色球开奖结果 PARM ='CCDUPDST&PROFILE &LASTGEN',                                   
今天双色球开奖结果 DYNAMNBR = 256                                                         
今天双色球开奖结果 SYSPRINT DD SYSOUT = *                                                 
今天双色球开奖结果 SYSTSIN  DD DUMMY                                                     
今天双色球开奖结果 SYSTSPRT DD SYSOUT = *                                                 
今天双色球开奖结果 SYSEXEC DD DISP = SHR,DSN = CCDDLTLX.IMPL.ISPCLIB                       
今天双色球开奖结果         DD DISP = SHR,DSN = SYS7.ISPCLIB                             
回到顶部
View user's 个人资料 发送私信
马索

雷克斯Moderator


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

发布发表于:星期四十一月08,2018 3:37下午
引用回复

ris丸写道:
...
我犯了同样的错误
The 连接 fails
...
码:

   >O>   "connect DB2D"                           
   +++ RC(-3) +++                                 
12 *-* if <> 0                           
   >L>   "SQLCODE"                               
   >L>   "0"                                     
   >O>   "1"                                     
   *-*  then                                     
13 *-*  do                                       
14 *-*   say " 从连接是"sqlcode   
   >L>     " 从连接是"             
   >L>     "SQLCODE"                             
   >O>     " 从连接是SQLCODE"     
连接的ode是SQLCODE                       
15 *-*   exit                              
   >L>     "SQLCODE"                             
[/码]

我是唯一认为RC(-3)意味着缺少DDDREXX地址的人吗?
回到顶部
View user's 个人资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表于:星期四十一月08,2018 4:27下午
引用回复

TS可能没有发布整个跟踪内容
在上一篇文章中...

码:
地址dsnrexx                                                         
"connect" 子系统         
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表:星期六十一月10,2018 1:41上午
引用回复

是的,没有发布rexx的前几行。抱歉。但是当我运行它的时候
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表:星期六十一月10,2018 1:46上午
引用回复

码:

 EDIT       CCDDLTLX.IMPL.ISPCLIB(CCDUPDST) - 01.07         Columns 00001 00072
 Command ===>                                                  Scroll ===> PAGE
 ****** ******************************数据顶部************ ******************
 000001 / * rexx * /                                                             
 000002 跟踪"I"                                                               
 000003 parse arg 个人资料 lastgen                                               
 000004 子系统    = 'DB2D'                                                     
 000005 地址左"subcom dsnrexx"                                           
 000006如果rc / = 0则                                                         
 000007 do                                                                     
 000008   s_rc = rxsubcom('add','dsnrexx','dsnrexx')                           
 000009 结束                                                                     
 000010地址dsnrexx                                                         
 000011 "connect" 子系统                                                       
 000012 if <> 0 then                                                   
 000013 do                                                                     
 000014    说" 从连接是"sqlcode                               
 000015    出口                                                          
 000016 结束                                                                     
 000017 更新  = "更新ccddpgm.transmission_setup",                       
 000018             " set lastgen = ?",                                         
 000019             " where 个人资料 = ?"                                       
000020地址dsnrexx                                                         
000021"execsql从准备s1:updatels"                                     
000022 if /= 0 then                                                   
000023     say " 从准备更新是"sqlcode                       
000024"execsql使用以下命令执行s1:lastgen, :profile"                           
000025 出口                                                            
回到顶部
View user's 个人资料 发送私信
ris丸

新的用户


已加入:2005年6月14日
职位:65

发布发表:星期六十一月10,2018 1:49上午
引用回复

听起来除了通过以下方式提交单独的作业之外,没有其他方法可以使用:DMRTSUB
请让我知道是否有一个不涉及更改链接列表或NDM库串联的情况
回到顶部
View user's 个人资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DB2

 


类似主题
话题 论坛 回覆
没有新帖 如何强制ISPF分配ISPF技术... TSO / ISPF 9
该主题已锁定:您无法编辑帖子或回复。 无法在...中分配消息库 清单和REXX 13
没有新帖 如何为DB2CONN i指定TCBLIMIT CICS 3
没有新帖 任务启动SSHD 所有其他大型机主题 1
没有新帖 如何在...中创建大型机监视器 所有其他大型机主题 4
搜索我们的论坛:


回到顶部