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」，但我無法分離它。請幫助我如何檢查和分離記錄

來源

2015-06-22 Mohammed Baseet

感謝邁克爾的格式化，以便更好地理解:-) –

我在第一張唱片完成"30050.50";;"，第二張唱片開始於""1";"S"

如果這些是順序文件中的兩個單獨記錄，則不需要檢查CR或LF，因爲每個READ都將讀取一個新行。

你能發表該文件的SELECT和FD嗎？

來源

2015-06-23 13:03:40 Molusco

是的莫洛斯科你對記錄開始和結束的支持是正確的。選擇CPC-INVOICE-FILE分配到TB9002D1 訪問模式是連續的組織是連續的文件狀態是WS-CPC-FILE-STATS。 FD CPC-INVOICE-FILE LABEL RECORDS are OMITTED。 01 CPC-INVOICE-RECORD PIC X（3530）。而輸入文件是非結構化文件。 –

因爲它是01 CPC-INVOICE-RECORD PIC X（3530）我在這個變量中獲得完整的輸入數據，然後我使用INSPECT命令檢查CPC-INVOICE-RECORD TALLYING WS-TALL-CNT for ALL LINE-FEED檢查命令不檢查換行或回車。請幫忙。 –

截至目前，我的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」 –

COBOL 85，回車和換行

回答

相關問題