欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

cobol中的write有关问题

更新时间: 2014-01-05 02:55:17 责任编辑: Author_N1

 

cobol中的write问题
我想在一个文件里写入一些记录,代码如下:
DATA DIVISION.
  FILE SECTION.
  FD READFILE LABEL RECORD IS OPEN-R,OPEN-S.
  01 OPEN-R.
  02 OPEN-FIR PIC X(6).
  02 OPEN-SEC PIC X(6).
  02 OPEN-THR PIC X(6).
  01 OPEN-S PIC X(5).
   
  WORKING-STORAGE SECTION.
  01 CNT PIC 9(2).  
   
  PROCEDURE DIVISION.
   
  MOVE 'NEWORD' TO OPEN-FIR.
  MOVE 'SECOND' TO OPEN-SEC.
  MOVE 'THRIDE' TO OPEN-THR.
   
  MOVE 'YUMEN' TO OPEN-S.
   
  OPEN EXTEND READFILE.
  PERFORM VARYING CNT FROM 1 BY 1
  UNTIL CNT IS GREATER THAN 10
  IF CNT < 10
  THEN 
  WRITE OPEN-R AFTER ADVANCING 1 LINES
  ELSE
  CONTINUE
  END-IF
  END-PERFORM.
  WRITE OPEN-S AFTER ADVANCING 1 LINES
  CLOSE READFILE.
其他地方和这里关系不大,所以没贴上来,我得到的文件内容却是这样的:

YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMENDSECONDTHRIDE
YUMEN
其实我想得到的是:
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
NEWORDSECONDTHRIDE
YUMEN

我认为这个程序的逻辑会得到我想要的格式啊 为什么open-r的一部分内容会被open-s的内容覆盖了呢?请帮忙看看,谢谢了!!!


--参考方法--
变量在用的时候没有初始化吧?
--参考方法--
检查变量,应该是初始化问题。
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:55:17
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/16218/
本文WWW.DOC100.NET DOC100.NET版权所有。