|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
我正在尝试将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 |
|
|
| 回到顶部 |
|
 |
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
| 我认为这是关于如何指定loadlib的。我尝试了各种ddname，但没有一个起作用。应该有办法我不是，这是一个非常复杂的问题。我只是不知道如何解决。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
| 您得到什么错误？？？ |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
这是我上面粘贴的Ndm日志中
补码=> 00000014
SMFID =>HO42比较消息=> SRTA005I
[/码] |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
我已经看到了...但是它是过程最后的完成代码，
它不能告诉过程在什么时候失败
你可以尝试与
它有点冗长，但是它告诉所有您可能想知道运行脚本时会发生什么 |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
当我将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" |
[/码] |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
我从未使用JOBLIB进行过测试...
我通常将其添加到steplib串联中
| 码： |
今天双色球开奖结果 DD DSN = xxxxxxxxxx.SDSNEXIT
今天双色球开奖结果 DD DSN = xxxxxxxxxx.SDSNLOAD
|
如果您的rexx脚本作为NDM启动任务的子任务运行
您可能尝试将db2数据集添加到NDM steplib串联中 |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
我试过了，但是没有用。也许需要将其添加到NDM启动任务的steplib中，以保持NDM正常运行。那将是一场漫长的战斗，我将输掉 
应该有一种方法可以告诉DSNREXX连接查看特定的loadlib，对吗？也许不吧。我有主意如果我可以通过RUN TASK直接更新DB2表，这将为我省去很多麻烦。 |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
| TSOLIB怎么样？我尝试了TSOLIB，但遇到一个错误，提示它需要在TSO / E下运行 |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
如果有一种方法可以使用IRXJCL或其他方法在TSO / E下运行rexx
我无法将IKJEFT01作为NDM RUN TASK运行
有谁知道如何做到这一点 ？ |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
在IKJEFT01下运行时，以下批处理作品（不是NDM RUN TASK）
| 码： |
/ * rexx * /
"allocate file(myload) dataset('SYS5.DB2.DB2D.SDSNLOAD') shr"
如果rc = 0则
push "tsolib activate file(myload)"
出口 |
|
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
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
|
|
|
| 回到顶部 |
|
|
马索
雷克斯Moderator
已加入：2006年3月13日
帖子：1348
地点：以色列
|
|
|
|
| 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地址的人吗？ |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
TS可能没有发布整个跟踪内容
在上一篇文章中...
| 码： |
地址dsnrexx
"connect" 子系统 |
|
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
| 是的，没有发布rexx的前几行。抱歉。但是当我运行它的时候 |
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
| 码： |
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 出口
|
|
|
| 回到顶部 |
|
|
ris丸
新的用户
已加入：2005年6月14日
职位：65
|
|
|
|
听起来除了通过以下方式提交单独的作业之外，没有其他方法可以使用：DMRTSUB
请让我知道是否有一个不涉及更改链接列表或NDM库串联的情况 |
|
| 回到顶部 |
|
|
|
|
