提问人:Jim French 提问时间:7/25/2023 最后编辑:Jim French 更新时间:7/25/2023 访问量:63
在 opencobolile 中读取文本文件
Reading a text file in opencobolile
问:
(窗户 11)我正在创建当前正在运行的任务的文本文件,但很难将其读入我的 OPENCOBOLILE 程序。打开很好,但在第一次读取时,我收到错误代码 1000(文件大小错误)。在查看文件时,它似乎是一个带有 crlf 的可变长度文件。我是一名 as/400 Cobol 程序员,几年后又回到了 Cobol,我从未在 Windows 上做过任何 COBOL 编码。任何人都可以就如何设置我的文件选择或环境变量来读取此文件提供任何建议吗?谢谢!
Environment division.
input-output section.
file-control.
select webinput assign to KEYBOARD
file status is ws-in-status.
select tasklist ASSIGN TO 'g:\temp\tasklist.txt'
file status is ws-if-status.
data division.
file section.
fd webinput.
01 chunk-of-post pic x(1024).
fd tasklist.
01 Ws-Input-Data.
05 filler pic x.
05 ws-id-name pic x(12).
05 filler pic x(1011).
PROCEDURE DIVISION.
OPEN InPUT tasklist.
display ws-if-status.
PERFORM UNTIL WS-EOF='Y'
READ tasklist at end
display ws-if-status
MOVE 'Y' TO WS-EOF
NOT AT END DISPLAY ws-value-string
END-READ
END-PERFORM.
CLOSE tasklist.
STOP RUN.
答: 暂无答案
评论
ORGANIZATION IS LINE SEQUENTIAL