cobol85

3熱度

2回答

爲什麼我不能在COBOL中執行這個嵌套的執行循環？如果我把END-PERFORM。在任何一行中都比我在退出程序之前的最後一行快 - 它工作正常。但我需要程序每次都顯示INPUT C值。在外部執行循環中。它使我瘋狂。 PROCEDURE DIVISION USING INPUTC CIPHER. COMPUTE CIPHERMAX = CIPHER. MULTIPLY -1 BY CIPHER

1熱度

3回答

如何在位置未知時從文件中獲取COBOL中的字符串？

我是新來的網站以及COBOL。我正試圖編寫一個讀取80字節文件的程序，並找到一個特定的字符串，並抓取另一個位於該字符串之後的字符串。我遇到的唯一問題是字符串的起始位置並不總是在整個文件中的相同字節中。例如，我想下面找到字符串是整個文件中出現兩次的長度（#####）字符串： LENGTH(14909135) FILEID(DD:EDIREC) MSGDATE(130723) MSGDATELON

4熱度

2回答

從打包十進制字段中拆分數字

我在我的文件上有一個7位的打包十進制字段。如何定義可提取/分離這7位數字的數據項？例如我想在一個數據項中有前兩位數字，而在另一個數據項中有其他數字，所以我可以在以後處理它們。

1熱度

2回答

COBOL85-文件處理

我正在讀取輸入文件並將其寫入輸出文件，直到達到EOF，但我的程序的問題是在輸出文件中寫入記錄之後，直到達到EOF輸出文件包含一個記錄與輸入文件相比是額外的，即如果輸入文件包含10個記錄，則輸出文件包含11個記錄。輸出文件中的額外記錄與最後一條記錄相同，即最後一條記錄被重複兩次。所以，你可以讓我知道我的代碼是什麼問題。我的程序代碼。 ?SYMBOLS ?INSPECT IDENTIFICA

1熱度

1回答

COBOL編譯問題（鏈接到C程序）

有大約10個COBOL模塊鏈接到4個fortran模塊。我將Fortran代碼轉換爲C程序。並將10個cobol模塊連接到替換的4個C模塊。在這10個COBOL模塊中，現在應該有「ENTER C」語句替換ENTER FORTRAN語句。在編譯之後，我發現其中兩個COBOL模塊 - 在編譯時拋出錯誤。其他不要。我得到的錯誤是：「算術表達式太複雜：使用浮點數！」 - 它指向這些COBOL模塊中的相

0熱度

3回答

程序打開COBOL索引文件

我最近開始了COBOL課程，因爲我的電腦配置（Windows 7 64 Bits和GNU/Linux 64Bits)我不得不使用Dosbox編譯和執行程序。一切都很順利，但何時掛起， I'n發現了一些麻煩，當我試圖打開一個Indexed file，無論是I-O或Ouput模式。我可以編譯和鏈接，但在執行時，dosbox獲得凍結。我的編譯器版本是MS-COBOL 5.0和DosBox爲0.74（

0熱度

1回答

COBOL 85是或否輸入驗證

我只想知道如何確保用戶輸入的輸入只有Y，y，N或n。我用這個代碼： 01 ANSWER PIC X. 88 VALID-ANSWER VALUE "Y" "y" "N" "n". 但還是不起作用。用戶仍然可以鍵入其他字符。任何幫助將不勝感激。提前致謝。

2熱度

2回答

我在用Cobol語言

IDENTIFICATION DIVISION. PROGRAM-ID. MP4-5. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 SEAT-DESCRIPTION. 03 FILLER PIC X(50) VALUE "01 DRIVER". 03 FILLER PIC X(50

1熱度

1回答

在23個字符文件名文件上的打開語句上的錯誤94,20

我正在將由第三方供應商提供的csv文件導入到COBOL應用程序中。文件名是.csv格式的23個字符。這些交付的文件已成功正確讀取到Excel，Word和Vi中。當我打開任何使用所提供的文件名，我收到了COBOL錯誤94,20這些文件 - 文件未找到。這發生在SCO OpenServer 5.0.7（Unix）和Windows 7運行時環境中。但是，如果我縮短文件名（任意4個字符），我可以打開，

2熱度

1回答

COBOL 85，回車和換行

我在cobol85編碼，我已經有2條記錄，截至目前 ""1";"S";"20140211095016";;;;;"KANATA";"ON";"K2V 1A5";"ZR1 ;;;;;;;;;;"-503.15";;"1715.27";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"26696.33 ";"78.22";"3275.95";;;;;"30050.50"