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

文件状态码-39


IBM大型机论坛 -> COBOL程式设计
 发表新话题     回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
jz1b0c

活跃用户


已加入:2004年1月25日
帖子:160
地点:加拿大多伦多

 发布 发表:2007年8月25日星期六2:19 am
引用回复

在JCL中,我有LRECL = 360。并在程序中我有01 FD-outrec pic x(360)

该程序在打开文件时出现错误。

文件状态39。

IGZ0201W检测到文件属性不匹配。程序XXXXX01中的文件XXXXFILE的记录长度为361,而在ASSIGN子句中指定的文件的记录长度为360。

361是哪里来的?

这是程序:


选择分配给DD2的XXXXFILE
组织是顺序的
文件状态为WS-OUTPUT-STAT。


FD XXXXFILE。
01 FD-OUTREC PIC X(360)。


JCL:

// *
// DD2 DD DSN = PX01211.XXXXFILE.OUTPUT,
// DISP =(NEW,CATLG,DELETE),
// DCB =(SRCDSCB,RECFM = FB,LRECL = 360),
//空格=(360,(100,80),RLSE),AVGREC = K
// *
回到顶部
查看用户资料 发送私信
CICS 家伙

高级会员


已加入:2007年7月18日
帖子:2146
位置:在我的咖啡桌上

 发布 发表:2007年8月25日星期六3:13 am
引用回复

亚马逊物流?
忽略JCL,查看实际文件...
或您的作品是什么样的?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2007年8月25日星期六4:27 am
引用回复

CICS 家伙 ,
我认为他无法告诉您他的作品是什么样的。他从来没有打开过它。

但是,ops-sys将其dd语句解释为361字节lrecl的分配。因此,它是SRCDSCB-覆盖任何lrecl吗?或AVGREC = K
回到顶部
查看用户资料 发送私信
sachin_star3
警告:1

新的用户


已加入:2006年9月30日
帖子:78
地点:浦那

 发布 发表:2007年8月25日星期六1:20 pm
引用回复

一般在逻辑记录的记录长度时出现此错误的原因
和文件不匹配


在你的情况下,根据我的假设

您尝试将记录写入具有记录长度的opt文件中

是360,因此出现以下p0可能性会产生39个文件状态:

1.您尝试ro编写具有legnth的输入记录(或者<360 or >360)
与输出记录不同,首先查看输入或尝试写的内容检查此
第一

2.您检查文件的长度并尝试写入记录结构


--- sachin borase
回到顶部
查看用户资料 发送私信
CICS 家伙

高级会员


已加入:2007年7月18日
帖子:2146
位置:在我的咖啡桌上

 发布 发表:2007年8月25日星期六3:15 pm
引用回复

dbzTHEdinosauer 写道:
我认为他无法告诉您他的作品是什么样的。他从来没有打开过它。
我指的是写语句……只是想知道.....
回到顶部
查看用户资料 发送私信
香卡

活跃用户


已加入:2007年6月25日
帖子:196
地点:班加罗尔

 发布 发表:2007年8月25日星期六4:16 pm
引用回复

jz1b0c,

您是否在程序中使用WRITE ...在页面/ nLINES之前/之后。如果是,则编译器可以在字段描述的长度上增加一个字节。您的情况是360 + 1 = 361。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2007年8月25日星期六5:52 pm
引用回复

香卡 ,

好点。我误解了错误消息。后 查找它 我认为您的建议可能是准确的,因为它似乎不是可变长度的记录。

因此,dd语句应为RECFM = FBA,LRECL = 361?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2007年8月25日星期六5:54 pm
引用回复

CICS 家伙 ,

我的应用程序也很正确。
回到顶部
查看用户资料 发送私信
CICS 家伙

高级会员


已加入:2007年7月18日
帖子:2146
位置:在我的咖啡桌上

 发布 发表:2007年8月25日星期六6:12 pm
引用回复

迪克

我当时在想,但我看不出为什么有人会在360字节的行上指定回车控制..... icon_confused.gif

法案
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2007年8月25日星期六6:49 pm
引用回复

人们使用诸如WRITE AFTER之类的命令而无需查找其含义。
回到顶部
查看用户资料 发送私信
CICS 家伙

高级会员


已加入:2007年7月18日
帖子:2146
位置:在我的咖啡桌上

 发布 发表:2007年8月25日,星期六7:00 pm
引用回复

只是我在想.....
回到顶部
查看用户资料 发送私信
jz1b0c

活跃用户


已加入:2004年1月25日
帖子:160
地点:加拿大多伦多

 发布 发表:2007年8月27日星期一7:46 pm
引用回复

香卡

你是对的。该程序有所改进。
谢谢大家..
回到顶部
查看用户资料 发送私信
sgaid21

新的用户


已加入:2006年9月12日
帖子:16
地点:加拿大

 发布 发表:2007年8月27日星期一8:22 pm
引用回复

如果仍然得到不匹配的记录长度,则尝试添加应该解决该问题的“记录包含360个字符”。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
 发表新话题     回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> COBOL程式设计

 


类似主题
话题 论坛 回覆
 没有新帖 将匹配的记录写入输出文件 DFSORT / ICETOOL 10
 没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
 没有新帖 比较两个文件以查找位置/日期... 同步排序 2
 没有新帖 将文件从PD转换为显示... 同步排序 4
 没有新帖 无论先前的步骤如何,都执行步骤... JCL和VSAM 2
搜索我们的论坛:

 回到顶部