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

B059文件提前结束


IBM大型机论坛 -> CA产品
 发表新话题     回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
Mvmadhuvenkatesh

新的用户


已加入:2018年6月18日
帖子:3
地点:印度

 发布 发表于:周二6月19,2018 10:50上午
引用回复

你好

我有一个简单的treive程序,已经在产品中成功运行了很多年。
我将easytrieve程序拉到一个changeman软件包中,对其进行了编译,并尝试使用我从产品中获得的RUN JCL执行。它开始给出PREMATURE FILE OF END。

一开始我得到了S30E异常终止。.我尝试在CA帮助站点上解决它。

标题:升级后的ABEND S30E
Advantage CA-Easytrieve Plus不向下兼容。编译时
并链接上一个Advantage CA-Easytrieve程序,您可以使用
相同或更高的发行级别。如果您要中止S30E,
您很可能已经编译并链接了Advantage CA-Easytrieve
程序使用Advantage CA-Easytrieve Plus 6.4,但正在执行该程序
使用Advantage CA-Easytrieve Plus 6.3或更低版本的程序。
Advantage CA-Easytrieve从未对此提供支持,但是现在
优势CA-Easytrieve Plus 6.4是31位,因此S30E异常终止总是会发生。

解决这个问题后我得到了

B059文件提前结束
在CA-Easytrieve Plus可以识别有效程序之前,在源程序输入文件上检测到文件结尾。验证将数据集与SYSIN(SYSIPT)关联的JCL语句有效。遇到空源程序时,将生成此消息。
我是否必须在jcl中包含更多的负载库?


我使用的JCL如下
码:

// S100   EXEC PGM=PXXXXX,                         
//            REGION=4096K,                         
//            COND=(0,LT)                           
// STEPLIB DD DSN = P123L.BATCH.LOAD,                 
//            DISP=SHR                             
//           DD DSN = SYS1.EASYPLUS.LOADLIB,DISP = SHR
                                             
// QT001INN DD DSN = P123P.QT02A060.DDD.XML.RAP2,     
//            DISP=(OLD,KEEP,KEEP)                 
// *                                                  
// QP001UT DD DSN = 123P.QP02A100.DDD.DL286EF,     
//            DISP=(NEW,CATLG,DELETE),             
//            SPACE=(9072,(700,100),RLSE),         
//            DCB=(RECFM = FBA,LRECL = 81,BLKSIZE = 9072)
// SORTWK01 DD SPACE =(CYL,1)                   
// SORTWK02 DD SPACE =(CYL,1)                   
// SORTWK03 DD SPACE =(CYL,1)                   
// EZTVFM   DD SPACE=(9074,(5000,200))         
// SYSPRINT DD SYSOUT = *                       
// SYSOUT   DD SYSOUT=*                       
// SYSOUTS  DD SYSOUT=*                       
// ABNLNODP DD DUMMY                           
// SYSUDUMP DD SYSOUT = E                       
// SYSIN    DD DUMMY                           
// *                                            


上面的jcl在prod中运行正常。当我从changeman软件包重新编译程序时,相同的jcl会给出错误。

我尝试在此处搜索CA产品论坛中的帖子,但它们不符合我的要求。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

 发布 发表于:周二六月19,2018 11:32上午
引用回复

请学习使用代码标签-如下所示-非常快

码:
 [code] your code in here [/code]



是STEPLIB或系统定义的库中的加载模块。
回到顶部
查看用户资料 发送私信
Mvmadhuvenkatesh

新的用户


已加入:2018年6月18日
帖子:3
地点:印度

 发布 发表于:周二六月19,2018 11:56上午
引用回复

我的easytrieve程序的加载模块在STEPLIB中
P123L.BATCH.LOAD。 SYS1.EASYPLUS.LOADLIB从生产开始。
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


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

 发布 发表于:2018年6月19日,星期二2:10 pm
引用回复

为什么您的JCL中有一个空行? thsat将生成一个// SYSIN DD *,稍后将覆盖它。
回到顶部
查看用户资料 发送私信
Mvmadhuvenkatesh

新的用户


已加入:2018年6月18日
帖子:3
地点:印度

 发布 发表于:2018年6月19日,星期二2:18 pm
引用回复

那只是粘贴代码中的错字错误..不是空白..而是注释
码:
// S100   EXEC PGM=PXXXXX,                         
//            REGION=4096K,                         
//            COND=(0,LT)                           
// STEPLIB DD DSN = P123L.BATCH.LOAD,                 
//            DISP=SHR                             
//           DD DSN = SYS1.EASYPLUS.LOADLIB,DISP = SHR
// *                                            
// QT001INN DD DSN = P123P.QT02A060.DDD.XML.RAP2,     
//            DISP=(OLD,KEEP,KEEP)                 
// *                                                  
// QP001UT DD DSN = 123P.QP02A100.DDD.DL286EF,     
//            DISP=(NEW,CATLG,DELETE),             
//            SPACE=(9072,(700,100),RLSE),         
//            DCB=(RECFM = FBA,LRECL = 81,BLKSIZE = 9072)
// SORTWK01 DD SPACE =(CYL,1)                   
// SORTWK02 DD SPACE =(CYL,1)                   
// SORTWK03 DD SPACE =(CYL,1)                   
// EZTVFM   DD SPACE=(9074,(5000,200))         
// SYSPRINT DD SYSOUT = *                       
// SYSOUT   DD SYSOUT=*                       
// SYSOUTS  DD SYSOUT=*                       
// ABNLNODP DD DUMMY                           
// SYSUDUMP DD SYSOUT = E                       
// SYSIN    DD DUMMY                           
// *    
[/码]
回到顶部
查看用户资料 发送私信
彼得·荷兰

全球主持人


已加入:2009年10月27日
帖子:2476
所在地:荷兰,阿姆斯特尔芬

 发布 发表于:星期三六月20,2018 1:15下午
引用回复

显示编译和链接运行的输出。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
 发表新话题     回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> CA产品

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
 没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
 没有新帖 比较两个文件以查找位置/日期... 同步排序 2
 没有新帖 将文件从PD转换为显示... 同步排序 4
 没有新帖 RECFM = U磁带文件的记录数 DFSORT / ICETOOL 17
搜索我们的论坛:


 回到顶部