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

EZACFSM1将不会写入INTRDR?


IBM大型机论坛 -> 所有其他大型机主题
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
赤胜

全球主持人


已加入:2009年10月3日
职位:1788
地点:伊利诺伊州布卢明顿

发布发表:2010年2月17日星期三凌晨1点09分
引用回复

我的一个 口海 请求以下JCL的帮助:
码:
// CURDATE JOB,'RUNJCL',CLASS = F,MSGCLASS = 1,   
//         NOTIFY=&SYSUID,REGION=4096K       
// STEP00   EXEC PGM=EZACFSM1                 
// SYSIN    DD DATA,DLM=@@                     
// MEEBDATE JOB,'RUNJCL',CLASS = F,MSGCLASS = 1, 
//         NOTIFY=&SYSUID,REGION=4096K       
// STEP01   EXEC PGM=IEFBR14                   
// SYSUT2   DD  DSN =MEEB.WORK.D&LYYMMDD,       
//             DISP=(NEW,CATLG,DELETE),       
//             UNIT = SYSDA,RECFM = FB,LRECL = 80, 
//             SPACE=(CYL,(1,1),RLSE)         
@@                                           
// SYSOUT   DD SYSOUT =(*,INTRDR)               

他无法让EZACFSM1写入SYSOUT。我也不行如果 它被定义为SYSOUT =(*,INTRDR)。没什么,没问题。但是,以下JCL 做了 达到预期的效果:
码:
// SHGBD1   作业,'RUNJCL',CLASS = F,MSGCLASS = 1,                       
//         NOTIFY=&SYSUID,REGION=4096K                             
// STEP00   EXEC PGM=EZACFSM1                                       
// SYSPRINT DD SYSOUT =*                                             
// SYSIN    DD DATA,DLM=@@                                           
// SHGBD2   作业,'RUNJCL',CLASS = F,MSGCLASS = 1,                       
//         NOTIFY=&SYSUID,REGION=4096K                             
// STEP01   EXEC PGM=IEFBR14                                         
// SYSUT2   DD  DSN =SHGB.WORK.D&LYYMMDD,                             
//             DISP=(NEW,CATLG,DELETE),                             
//             UNIT = SYSDA,RECFM = FB,LRECL = 80,                       
//             SPACE=(CYL,(1,1),RLSE)                               
@@                                                                 
// SYSOUT   DD DSN =&&FOO,DISP=(NEW,PASS),SPACE=(TRK,1),UNIT=TEMPDISK,
//         DCB=(RECFM = FB,LRECL = 80,BLKSIZE = 0)                       
// STEP02   EXEC PGM=IEBGENER                                       
// SYSPRINT DD   SYSOUT=*                                           
// SYSIN    DD   DUMMY                                               
// SYSUT1   DD   DSN=&&FOO,DISP=(OLD,DELETE)                         
// SYSUT2   DD   SYSOUT=(*,INTRDR)                                 

有没有人看到过类似的现象?本地定义的出口,甚至是zap?
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

发布发表:2010年2月17日星期三凌晨1点24分
引用回复

我需要为// SYSOUT DD语句包括两个语句RECFM = FB和LRECL = 254。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


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

发布发表:2010年2月17日,星期三,凌晨1:28
引用回复

你有没有尝试过
码:
// CURDATE JOB,'RUNJCL',CLASS = F,MSGCLASS = 1,   
//         NOTIFY=&SYSUID,REGION=4096K       
// STEP00   EXEC PGM=EZACFSM1                 
// SYSIN    DD DATA,DLM=@@                     
// MEEBDATE JOB,'RUNJCL',CLASS = F,MSGCLASS = 1,
//         NOTIFY=&SYSUID,REGION=4096K       
// STEP01   EXEC PGM=IEFBR14                   
// SYSUT2   DD  DSN =MEEB.WORK.D&LYYMMDD,       
//             DISP=(NEW,CATLG,DELETE),       
//             UNIT = SYSDA,RECFM = FB,LRECL = 80,
//             SPACE=(CYL,(1,1),RLSE)         
@@                                           
// SYSOUT   DD SYSOUT =(*,INTRDR),LRECL = 80,BLKSIZE = 80,BUFNO = 1,RECFM = F     
回到顶部
查看用户资料 发送私信
赤胜

全球主持人


已加入:2009年10月3日
职位:1788
地点:伊利诺伊州布卢明顿

发布发表:2010年2月17日,星期三,凌晨1:28
引用回复

嗯,既然您提到了这个主题,那么定义为SYSOUT = *的文件的DCB会不会是RECFM = FBA,LRECL = 133?这可能会导致INTRDR阻塞吗?
回到顶部
查看用户资料 发送私信
比尔·丹尼斯

活跃成员


已加入:2007年8月17日
帖子:562
地点:美国爱荷华州

发布发表:2010年2月17日星期三凌晨2:52
引用回复

SYSOUT并不总是“报告”文件。 SYSOUT的情况只是IN文件的OUT副本。

顺便说一句,我的JCL正常工作,而SYSOUT上没有任何DCB信息。
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


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

发布发表:2010年2月17日星期三凌晨3:12
引用回复

Bill,您使用的是JES3系统吗?
回到顶部
查看用户资料 发送私信
c

高级会员


已加入:2006年7月28日
职位:1702
所在地:澳大利亚

发布发表:2010年2月17日,星期三,凌晨3:16
引用回复

你好

没有DCB信息(JES2),我的工作也很好


格里
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2010年2月17日,星期三,下午3:07
引用回复

c写道:
没有DCB信息(JES2),我的工作也很好
同上。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2010年2月17日,星期三,下午3:14
引用回复

引用:
// SYSOUT DD SYSOUT =(*,INTRDR)


第二次工作看起来很奇怪
sysout = *构造将事物与msgclass放在同一sysout类中!
那通常是<printer> thing

传统班<punched> things is B

但需要进行一些测试才能找出|
回到顶部
查看用户资料 发送私信
阿努·达万(Anuj Dhawan)

高级会员


已加入:2006年4月22日
帖子:6250
地点:印度孟买

发布发表:2010年2月17日,星期三,下午3:19
引用回复

好的,我尝试了有无DCB参数-都对我有用。但是,当你说
引用:
他无法让EZACFSM1写入SYSOUT。如果将其定义为SYSOUT =(*,INTRDR),我也无法...
到底发生了什么?
回到顶部
查看用户资料 发送私信
赤胜

全球主持人


已加入:2009年10月3日
职位:1788
地点:伊利诺伊州布卢明顿

发布发表:2010年2月17日,星期三,下午4:45
引用回复

阿努·达万写道:
好的,我尝试了有无DCB参数-都对我有用。但是,当你说
引用:
他无法让EZACFSM1写入SYSOUT。如果将其定义为SYSOUT =(*,INTRDR),我也无法...
到底发生了什么?

据我所知,什么都没有。尚未提交JCL,并且系统消息中没有SYSOUT的EXCP。在左侧,当我将DD定义为SYSOUT = *或DSN = ...时,JCL出现在sysout或数据集中,并且有 EXCP到SYSOUT。

恩里科·索里切蒂写道:
传统班<punched> things is B

但需要进行一些测试才能找出|

我的办公室在几个小时后开放时,我将必须查阅标准的sysout类文档,但我99%的确定sysout类B已重新定义为某种抬头纸。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2010年2月17日,星期三,下午4:59
引用回复

那么RACF或系统出口拒绝使用INTRDR呢?
回到顶部
查看用户资料 发送私信
赤胜

全球主持人


已加入:2009年10月3日
职位:1788
地点:伊利诺伊州布卢明顿

发布发表:2010年2月17日,星期三,晚上8:22
引用回复

外籍人士写道:
那么RACF或系统出口拒绝使用INTRDR呢?

那就是我的想法,尽管我不确定他们是否可以检测到对INTRDR的写入来自EZACFSM1与IEBGENER,这对于真实的情况是必要的。
===
我认为,如果没有DCB参数,来自各个成员的答复是原始JCL对它们不起作用,这表明安装中存在足够的变化,这种行为虽然令人惊讶,但不应完全出乎意料。谢谢大家在这件事上所做的努力。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 所有其他大型机主题

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 写字符到十六进制文件中... COBOL程式设计 8
没有新帖 十六进制组比较并写入... DFSORT / ICETOOL 5
没有新帖 将记录分解为各个字段,每个字段... 同步排序 2
没有新帖 从文件中提取部分数据并写入... DFSORT / ICETOOL 9
没有新帖 将9(07)comp-3数据写入输出文件 DFSORT / ICETOOL 4
搜索我们的论坛:


回到顶部