PCDVD數位科技討論區

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php)
-   疑難雜症區 (https://www.pcdvd.com.tw/forumdisplay.php?f=34)
-   -   尋找會COBOL的programer.... (https://www.pcdvd.com.tw/showthread.php?t=934381)

cmwang 2011-06-29 10:05 AM
尋找會COBOL的programer....
 
鵝這邊有個case,是要幫user解民國百年蟲的(有source code,雖然不見得很簡單但至少不是mission impossible:laugh: ),因為鵝沒實際摸過COBOL所以還是讓專業的來吧,有興趣的朋友請pm給鵝以便詳談:p:p....

peter liou 2011-06-29 01:13 PM
RM85還是MS的? 建議user早日改寫, COBOLer都洗手賣雞排了.

cmwang 2011-06-29 04:27 PM
引用:
作者peter liou
RM85還是MS的?


這鵝也不太清楚,鵝只知道OS是SCO Openserver 5就是了:asae....

引用:
作者peter liou
建議user早日改寫, COBOLer都洗手賣雞排了.


其實user是找了寫Web based AP的人打算重寫,但卡在寫AP的人無法正確的把舊資料import進SQL,所以鵝只好連這部份一起想辦法了(鵝本來只是接換機和P2V的部份:ase),不過COBOLer都洗手賣雞排了倒有點出人意表----真有這麼慘嗎,應該可以轉戰其它程式語言吧:stupefy: ....BTW,以下是鵝稍微看了一下source code的印象,因為西元/民國換算是寫成獨立的procedure(傳入值是Unix系統日期,應該不至於有single byte的問題),只有4-5個procedure會呼叫這部份,是不是只要針對這些部份check就有機會啊:confused: :confused: ....

引用:
IDENTIFICATION DIVISION.
PROGRAM-ID. DATECHCK.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. ALTOS.
OBJECT-COMPUTER. ALTOS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WK-FILE-S.
05 DATE-CHK-1 PIC X(06).
05 DATE-CHK-2 REDEFINES DATE-CHK-1.
10 DATE-CHK-YY PIC 99.
10 DATE-CHK-MM PIC 99.
88 DATE-DAY-31 VALUE 1 3 5 7 8 10 12.
88 DATE-DAY-30 VALUE 4 6 9 11.
88 DATE-DAY-28 VALUE 2.
10 DATE-CHK-DD PIC 99.
05 DATE-CHK-LEAP PIC 9.
05 DATE-CHK-CNT PIC 9(05).
05 DATE-CHK-REM PIC 9(03).
05 DATE-CHK-QUO PIC 9(03).
05 YEAR-ERR PIC X(38) VALUE "年度錯誤.......!!".
05 MONTH-ERR PIC X(38) VALUE "月份錯誤.......!!".
05 DAY-ERR PIC X(38) VALUE "日期錯誤...... !!".
05 WIN-ERR PIC X(10) VALUE SPACES.
05 QUEST PIC X(01) VALUE SPACES.
LINKAGE SECTION.
COPY "DATECHCK.LNK".
PROCEDURE DIVISION USING DATE-LINK.
CHECK-RTN.
MOVE 0 TO DATE-CHK-RTN.
MOVE DATE-CHK TO DATE-CHK-1.
COMPUTE DATE-CHK-CNT = 1911 + DATE-CHK-YY.
PERFORM LEAP-YEAR-RTN.
IF DATE-CHK-YY IS NOT NUMERIC
MOVE 3 TO DATE-CHK-RTN
GO TO CHECK-1.
IF DATE-CHK-MM < 1 OR DATE-CHK-MM > 12
MOVE 1 TO DATE-CHK-RTN
GO TO CHECK-1.
IF DATE-DAY-31 IF (DATE-CHK-DD < 1 OR DATE-CHK-DD > 31)
MOVE 2 TO DATE-CHK-RTN
GO TO CHECK-1.
IF DATE-DAY-30 IF (DATE-CHK-DD < 1 OR DATE-CHK-DD > 30)
MOVE 2 TO DATE-CHK-RTN
GO TO CHECK-1.
IF DATE-DAY-28 PERFORM DAY-28-RTN.
CHECK-1.
EVALUATE TRUE
WHEN DATE-CHK-RTN = 1 OR 2 OR 3
DISPLAY WINDOW LINE 12 COL 21 LINES 3 SIZE 40
REVERSE POP-UP AREA WIN-ERR
EVALUATE DATE-CHK-RTN
WHEN 1
DISPLAY MONTH-ERR LINE 2 SIZE 40 CENTERED
WHEN 2
DISPLAY DAY-ERR LINE 2 SIZE 40 CENTERED
WHEN 3
DISPLAY YEAR-ERR LINE 2 SIZE 40 CENTERED
END-EVALUATE
ACCEPT QUEST LINE 2 COL 40 OFF NO BEEP AUTO
BEFORE TIME 100 ON EXCEPTION CONTINUE
END-ACCEPT
CLOSE WINDOW WIN-ERR
WHEN DATE-CHK-RTN = 0
PERFORM RTN-DAY-RTN
END-EVALUATE.
CHECK-E.
EXIT PROGRAM.

LEAP-YEAR-RTN.
MOVE 0 TO DATE-CHK-LEAP.
DIVIDE DATE-CHK-CNT BY 4 GIVING DATE-CHK-QUO
REMAINDER DATE-CHK-REM.
IF DATE-CHK-REM = 0 MOVE 1 TO DATE-CHK-LEAP.
DIVIDE DATE-CHK-CNT BY 400 GIVING DATE-CHK-QUO
REMAINDER DATE-CHK-REM.
IF DATE-CHK-REM = 0 MOVE 0 TO DATE-CHK-LEAP.

DAY-28-RTN.
IF DATE-CHK-LEAP = 0
IF (DATE-CHK-DD < 1 OR DATE-CHK-DD > 28)
MOVE 2 TO DATE-CHK-RTN
END-IF
ELSE
IF (DATE-CHK-DD < 1 OR DATE-CHK-DD > 29)
MOVE 2 TO DATE-CHK-RTN.
RTN-DAY-RTN.
IF DATE-DAY-28
IF DATE-CHK-LEAP = 0 MOVE 28 TO DATE-CHK-DD END-IF
IF DATE-CHK-LEAP = 1 MOVE 29 TO DATE-CHK-DD END-IF.
IF DATE-DAY-30 MOVE 30 TO DATE-CHK-DD.
IF DATE-DAY-31 MOVE 31 TO DATE-CHK-DD.
MOVE DATE-CHK-1 TO DATE-CHK.
END-PROGRAM.

peter liou 2011-06-29 05:08 PM
引用:
作者cmwang
這鵝也不太清楚,鵝只知道OS是SCO Openserver 5就是了:asae....

其實user是找了寫Web based AP的人打算重寫,但卡在寫AP的人無法正確的把舊資料import進SQL,所以鵝只好連這部份一起想辦法了(鵝本來只是接換機和P2V的部份:ase),不過COBOLer都洗手賣雞排了倒有點出人意表----真有這麼慘嗎,應該可以轉戰其它程式語言吧:stupefy: ....BTW,以下是鵝稍微看了一下source code的印象,因為西元/民國換算是寫成獨立的procedure(傳入值是Unix系統日期,應該不至於有single byte的問題),只有4-5個procedure會呼叫這部份,是不是只要針對這些部份check就有機會啊:confused: :confused: ....

SCO 的話, RM的可能性比較大, 日期欄位最怕的是在執行段作運算, 為了應付user
的一些奇怪報表, 有時會作日期拆碼重組....
COBOLer還在線上的, 可能要找金融業方面的software-house看看, 如果只要轉檔,
可能要看當初有沒有做檔案結構表, 沒有的話.....就傷腦筋了.
方便給一兩個資料檔給小弟看看? 小弟記得有直接讀取DAT 格式的工具支援RM.

pcdvd user 2011-06-29 05:42 PM
前年就已經把所有cobol的程式全部用java改寫, 就是要避百年年序問題, 現在會寫cobol的人不多了, 找一個會轉資料的人卡實在

parssi 2011-06-29 06:48 PM
cobol這個名稱 好久遠唷 XD

我還以為沒人在用這套軟體開發東西 :unbelief:

早期上寫資料庫程式都會教 不過那也是16-17年前

ccx1103 2011-06-29 09:27 PM
我不太會cobol, 但是單看程式碼, 問題未必出在這段程式.
這段程式只是在檢查日期後，傳回日期

10 DATE-CHK-YY PIC 99.
改成
10 DATE-CHK-YY PIC 999. 即可

其餘並沒有什麼重要的...
大概就是 100年+1911=2011年，
2011/4 整除就是閏年，閏年的2月=29天。
但是 2011/400 整除不是潤年
其他大概是檢視月份between 1 to 12,
日期 between 1~30 or 1~31
感覺出錯的機會並不大

kec 2011-06-30 12:54 AM
引用:
作者ccx1103
我不太會cobol, 但是單看程式碼, 問題未必出在這段程式.
這段程式只是在檢查日期後，傳回日期

10 DATE-CHK-YY PIC 99.
改成
10 DATE-CHK-YY PIC 999. 即可

其餘並沒有什麼重要的...
大概就是 100年+1911=2011年，
2011/4 整除就是閏年，閏年的2月=29天。
但是 2011/400 整除不是潤年
其他大概是檢視月份between 1 to 12,
日期 between 1~30 or 1~31
感覺出錯的機會並不大

只把DATE-CHK-YY改成PIC 999是不行地。
DATE-CHK-YY、DATE-CHK-MM與DATE-CHK-DD(各兩位數字)是對應到DATE-CHK-1，而DATE-CHK-1只有六位數字。DATE-CHK-1要能改成七位數字才行，這牽涉到程式其他部分怎麼用DATE-CHK-1。

或許用ETL(Extract, Transform and Load)工具把舊資料轉進DB是比較可行的作法。

seawind 2011-06-30 06:33 AM
銀行業的還有很多用COBOL啦∼∼∼

951 2011-07-01 03:07 PM
引用:
作者seawind
銀行業的還有很多用COBOL啦∼∼∼



券商也一堆...

有認識幾個還在裡面搞cobol的..還需要麼?


所有的時間均為GMT +8。 現在的時間是05:47 AM.

vBulletin Version 3.0.1
powered_by_vbulletin 2026。