COBOL 85,回车和换行

问题描述:

我在cobol85编码,我已经有2条记录,截至目前COBOL 85,回车和换行

""1";"S";"20140211095016";;;;;"KANATA";"ON";"K2V 1A5";"ZR1 
;;;;;;;;;;"-503.15";;"1715.27";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"26696.33 
";"78.22";"3275.95";;;;;"30050.50";;" 
""1";"S";"20140211088445";;;;;"MANATA";"ON";"K2V 1A5";"ZR1 
;;;;;;;;;;"-503.15";;"1715.27";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"26696.33 
";"78.22";"3275.95";;;;;"30350.50";;" 

我读此输入记录的输入文件,我希望把每个记录为不同通过检查回车或/和换行符将变量分为两个不同的变量,但我该如何做到这一点我尝试使用“X'ODOA”,但我无法分离它。请帮助我如何检查和分离记录

+1

感谢迈克尔的格式化,以便更好地理解:-) –

我在第一张唱片完成"30050.50";;",第二张唱片开始于""1";"S"

如果这些是顺序文件中的两个单独记录,则不需要检查CR或LF,因为每个READ都将读取一个新行。

你能发表该文件的SELECTFD吗?

+0

是的莫洛斯科你对记录开始和结束的支持是正确的。 选择CPC-INVOICE-FILE分配到TB9002D1 访问模式是连续的 组织是连续的 文件状态是WS-CPC-FILE-STATS。 FD CPC-INVOICE-FILE LABEL RECORDS are OMITTED。 01 CPC-INVOICE-RECORD PIC X(3530)。 而输入文件是非结构化文件。 –

+0

因为它是01 CPC-INVOICE-RECORD PIC X(3530)我在这个变量中获得完整的输入数据,然后我使用INSPECT命令检查CPC-INVOICE-RECORD TALLYING WS-TALL-CNT for ALL LINE-FEED检查命令不检查换行或回车。请帮忙。 –

+0

截至目前,我的CPC-INVOICE-RECORD包含“”1“;”S“;”20140211095016“;;;;”KANATA“;”ON“;”K2V 1A5“;”ZR1 ;;;;;;;; ;;;; “ - 503.15” ;; “1715.27” ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;“26696.33 ”;“78.22”;“3275.95”;;;;;“30050.50”;;“”?13?10“”“1”;“S”;“20140211088445”;;;;;“MANATA “;”ON“;”K2V 1A5“;”ZR1 ;;;;;;;;“503.15”;;“1715.27”;;;;;;;;;;;; “26696.33 ”;“78.22”;“3275.95”;;;;;“30350.50”;;“ “?13?10” –