討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 網路投保旅行平安險 討論區最近新進100則主題
[ 回上頁 ] [ 討論區發言規則 ]
如何輸入並同時比對先前輸入的資料是否重覆?
更改我的閱讀文章字型大小
作者 : cmc0610(670610)
[ 貼文 22 | 人氣 9501 | 評價 0 | 評價/貼文 0 | 送出評價 21 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/6/8 下午 08:55:02
請問是否有辦法讓程式同時輸入資料、存至檔案並且比對先前輸入或存檔的資料是否重覆.....
例如:
    [科室編號] [科室名稱]
     A1001 政風科
     A2001 兵役課
     :
     :
     A2001 財稅課 <------------在輸入[編號]後能馬上告訴使用者
     ***[編號]重覆使用***

用Index file作為輸出檔可以嗎.....
請給我一個方向.......請指導........
作者 : cmc0610(670610)
[ 貼文 22 | 人氣 9501 | 評價 0 | 評價/貼文 0 | 送出評價 21 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/6/8 下午 08:56:06
我所使用的編譯器是RM/COBOL 85........
作者 : whitlock(阿強)
[ 貼文 63 | 人氣 1302 | 評價 310 | 評價/貼文 4.92 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人cmc0610註記此篇回應為很有道理 2005/6/9 上午 07:51:46
請問一下 你應該是二專生吧想問一下 index的章節有上過了嗎?因為可能講解下來會比較清楚吧之前有幫別人交流一下發現RMCOBOL和我現在用的ACU在訂key值會有點差異所以先要確定index部份的章節上了嗎
作者 : cmc0610(670610)
[ 貼文 22 | 人氣 9501 | 評價 0 | 評價/貼文 0 | 送出評價 21 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/6/10 下午 10:33:38
我不是二專生,COBOL是我自己看書學的,沒有人可以問,只好厚著臉皮PO出來求解!
作者 : jackkon(jackkon) 人氣指數超過10000點
[ 貼文 110 | 人氣 20745 | 評價 220 | 評價/貼文 2 | 送出評價 25 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人cmc0610註記此篇回應為很有道理 2005/6/13 下午 08:52:04
因為要在離開該欄位時做資料檢查
一方面要檢查畫面上有無重複的資料
一方面要拿A2001到檔案裡去讀看看有無一樣的KEY

作者 : oldcobol(lyf)
[ 貼文 7 | 人氣 1 | 評價 40 | 評價/貼文 5.71 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人cmc0610註記此篇回應為很有道理 2005/6/28 下午 04:48:08
一般的做法是將檔案設成 index file,
read file key is [科室編號];
if file-status = '00' display ' 科室編號 存在' .
作者 : fq3767(justin)
[ 貼文 6 | 人氣 5 | 評價 20 | 評價/貼文 3.33 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人cmc0610註記此篇回應為很有道理 2005/6/30 下午 12:04:32

    

    ACCEPT-RTN.
     MOVE SPACE TO PASS-CODE.
     ACCEPT-04-01.
     IF MODE-W NOT = "A"
     GO TO ACCEPT-05-01.
     ACCEPT CVNO-X LINE 04 POSITION 14
     PROMPT
     UPDATE
     COPY "../cpy/exctl.cpy".

     DISPLAY CVNO-X LINE 04 POSITION 14.

     IF ESC
     GO TO ACCEPT-Z.

     IF CVNO-X(1:1) = SPACE
     MOVE "客戶編號前碼空白..." TO MSGXX
     PERFORM MESSAGE-RESET
     GO TO ACCEPT-04-01.

     MOVE TYPE-PGM TO TYPE-FINV01.
     MOVE CVNO-X TO CVNO-FINV01.
     READ FINV01 WITH NO LOCK
     INVALID KEY
     MOVE 0 TO L1
     GO TO ACCEPT-05-01.

     IF CANCEL-FINV01 = SPACE
     MOVE "資料已存在..." TO MSGXX
     PERFORM MESSAGE-RESET
     GO TO ACCEPT-04-01
     ELSE
     MOVE 1 TO L1
     END-IF.
     ACCEPT-05-01.
     IF MODE-W = "M"
     MOVE OPMSG7 TO OPMSG
     ELSE
     MOVE OPMSG10 TO OPMSG.

     PERFORM DISPLAY-OPMSG.
     ACCEPT COMPA-X LINE 05 POSITION 14
     UPDATE
     COPY "../cpy/exctl.cpy".

     IF (ESC OR FUP)
     IF MODE-W = "A"
     GO TO ACCEPT-04-01
     ELSE
     IF MODE-W = "M"
     GO TO ACCEPT-QUIT
     END-IF
     END-IF.

     IF (F7 OR F8) AND
     MODE-W = "M"
     GO TO ACCEPT-Z.

     IF F10
     GO TO ACCEPT-CHECK.

   如要完整程式,當做參考.

   mail : fq3767@seed.net.tw
 板主 : Cheryl
 > COBOL - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - COBOL - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
COBOL
1 wen 500 
2 小毛 310 
3 阿強 300 
4 ysl561 120 
5 bobkids 120 
6 zhaoxf 100 
7 chen 80 
8 ozzy 50 
9 WDCHIANG 50 
10 50 
COBOL
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.0625