可以在数据部定义数组，比如输入的文件是80个BYTE的
01 WK-ARRY.
03 WK-ARRY1 PIC X(01) OCCURS 80.
然后将数据读取到定义的WK-ARRY中。
在执行部，循环读取WK-ARRY1(I)，就可以了。
也可以应用子字符串的概念。
比如原字符串内容为“wyw20051991”，并保存在变量A中。
如果想要按字符一个一个读取的话则为：
A(1:1)=w,
A(2:1)=y,
A(3:1)=w,
A(4:1)=2
以此类推。。。
(1,2,3,4表示起始位置，1，1，1，1表示读取长度）
当然如果是字符串太长的话，还是楼上的方法，用表比较实际。
FD readfile
01 in-file pic x(100).
....
read readfile
move 1 to IDX
perform until IDX > 100
move in-file(IDX,1) to 某变量
处理某变量
add 1 to IDX
end-perform
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024