討論區快速選單
知識庫快速選單
傑米的攝影旅遊筆記 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
請大大幫幫忙....
更改我的閱讀文章字型大小
作者 : hero730827(半妖)
[ 貼文 24 | 人氣 4115 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/15 下午 03:33:50
IDENTIFICATION DIVISION.
     PROGRAM-ID. ADD3.
     AUTHOR. BETTY.
     DATE-WRITTEN. 92 / 01 / 08.
     ENVIRONMENT DIVISION.
     CONFIGURATION SECTION.
     SOURCE-COMPUTER. RMCOBOL-8X.
     OBJECT-COMPUTER. RMCOBOL-8X.
     INPUT-OUTPUT SECTION.
     FILE-CONTROL.
     SELECT INPUTF ASSIGN TO DISK "GOOD1.DAT" ORGANIZATION
     IS INDEXED ACCESS IS DYNAMIC
     RECORD KEY IS NODATE
     ALTERNATE RECORD KEY IS NAME1 WITH DUPLICATES.

     DATA DIVISION.
     FILE SECTION.
     FD INPUTF.
     01 P-R.
     05 DEL PIC X.
     05 CLASS1 PIC 9(4).
     05 KK PIC X.
     05 NAME1 PIC X(8).
     05 KK1 PIC X.
     05 NODATE.
     07 NO1 PIC 9(7).
     07 KK2 PIC X.
     07 DATE1.
     09 YY PIC 99.
     09 KK31 PIC X.
     09 MM PIC 99.
     09 KK32 PIC X.
     09 DD PIC 99.
     09 KK33 PIC X.
     05 GOODT PIC 9.
 
     WORKING-STORAGE SECTION.
     01 W-R.
     05 WCLASS1 PIC 9(4).
     05 WKK PIC X VALUE SPACE.
     05 WNAME1 PIC X(8).
     05 WKK1 PIC X VALUE SPACE.
     05 WNODATE.
     07 WNO1 PIC 9(7).
     07 WKK2 PIC X VALUE SPACE.
     07 WDATE1.
     09 WYY PIC 99.
     09 WKK31 PIC X VALUE "/".
     09 WMM PIC 99.
     09 WKK32 PIC X VALUE "/".
     09 WDD PIC 99.
     09 WKK33 PIC X VALUE "/".
     05 WGOODT PIC 9.
  
    
作者 : hero730827(半妖)
[ 貼文 24 | 人氣 4115 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/15 下午 03:34:19
01 FOUND PICTURE X VALUE "Y".
     01 LOOP1 PICTURE X VALUE "Y".
     01 CODE1 PICTURE X.
     01 RECALL PICTURE X.
     01 WNO PICTURE 9(7).
    
     LINKAGE SECTION.
     COPY LL.CBL.
     77 PCLASS1 PIC 9(4).
     77 PNO1 PIC 9(7).
     77 PNAME1 PIC X(8).
     77 PYY PIC X(2).
     77 PMM PIC X(2).
     77 PDD PIC X(2).
     PROCEDURE DIVISION USING PCLASS1 PNO1 PNAME1 PYY PMM PDD.
     1000-RTN.
     OPEN I-O INPUTF.
     MOVE " " TO CODE1.
     PERFORM PROCESS-RTN UNTIL CODE1 = "N" OR CODE1 = "n".
    
     CLOSE INPUTF.
     EXIT PROGRAM.
     PROCESS-RTN.
     MOVE PNO1 TO NO1.
     MOVE PYY TO YY.
     MOVE PMM TO MM.
     MOVE PDD TO DD.
     MOVE PCLASS1 TO CLASS1.
     MOVE PNAME1 TO NAME1.
     DISPLAY " " ERASE.
     READ INPUTF INVALID KEY MOVE "N" TO FOUND.
     IF FOUND = "N"
作者 : hero730827(半妖)
[ 貼文 24 | 人氣 4115 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/15 下午 03:34:35
MOVE " " TO FOUND
     DISPLAY "************* ADD *************"
     LINE 2 POSITION 25
     DISPLAY " NO :" LINE 5 POSITION 25
     DISPLAY " NAME :" LINE 7 POSITION 25
     DISPLAY " CLASS :" LINE 9 POSITION 25
     DISPLAY " DATE :" LINE 11 POSITION 25
     DISPLAY " GOODT :" LINE 13 POSITION 25
    
     DISPLAY NO1 LINE 5 POSITION 35
     DISPLAY NAME1 LINE 7 POSITION 35
     DISPLAY CLASS1 LINE 9 POSITION 35
     DISPLAY YY LINE 11 POSITION 35
     DISPLAY "/" LINE 11 POSITION 37
     DISPLAY MM LINE 11 POSITION 39
     DISPLAY "/" LINE 11 POSITION 41
     DISPLAY DD LINE 11 POSITION 43
     ACCEPT WGOODT LINE 13 POSITION 35
    
     MOVE WGOODT TO GOODT
    
     WRITE P-R
    
     ELSE
     IF DEL NOT = "D"
     DISPLAY "RECORD EXIST" LINE 20 POSITION 40
     ELSE
     DISPLAY " " LINE 22 POSITION 40
     DISPLAY " RECORD HAS BEEN DELETED. RECALL(Y/N)"
     LINE 20 POSITION 40
     ACCEPT RECALL LINE 20 POSITION 78
     IF RECALL = "Y" OR RECALL = "y"
     MOVE " " TO DEL
     REWRITE P-R INVALID KEY DISPLAY "CNANOT RECALL"
     LINE 23 POSITION 30
     ELSE
     DISPLAY " " LINE 23 POSITION 30
     DISPLAY "DATE NOT RECALL " LINE 20 POSITION 30.
     DISPLAY "*HOME *" LINE 22 POSITION 40.
     DISPLAY "CONTINUE(Y/N)" LINE 23 POSITION 40.
     ACCEPT CODE1 LINE 23 POSITION 55.
     DISPLAY " " ERASE.
作者 : hero730827(半妖)
[ 貼文 24 | 人氣 4115 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/15 下午 03:36:49
這三張是同一隻程式.......是我的新增第三支程式....如果我想要回第二支程式的話...要如何修改呀.....例如:按y會回第二支程式.....按n會回最主的畫面.......請大大幫幫我的忙.....快畢業了....case 還是作不出來...救救我吧...
作者 : whitlock(阿強)
[ 貼文 63 | 人氣 1302 | 評價 310 | 評價/貼文 4.92 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/23 下午 12:48:04
等等在看程式中應該晚上會出來


我也是學徒
作者 : whitlock(阿強)
[ 貼文 63 | 人氣 1302 | 評價 310 | 評價/貼文 4.92 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/23 下午 09:02:53
我很笨不要罵我只提供個人意見
1.我想整個專案的架構有點奇怪這是我想的我會覺得COBOL的寫法不要想太複雜吧
2.我在想大部份COBOL的專案都是新增,刪除,印表,查詢,處理,等等.......
3.這是我的想法應該有個主畫面大約是
     ************************************
     * 產品管理系統 *
     * 1. 產 品 建 檔 *
     * 2. 列 印 產 品 *
     * 3. 查 詢 產 品 *
     * 4. 離 開 *
     ************************************
作者 : whitlock(阿強)
[ 貼文 63 | 人氣 1302 | 評價 310 | 評價/貼文 4.92 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/23 下午 09:31:46
PROCEDURE DIVISION.
     *-----------------------------------------*
     MAIN-RTN SECTION.
     0000-BEGIN.
     * PS:程式一進就把螢幕資料印出.
     DISPLAY " " ERASE.
     DISPALY "********************************************"
     LINE 01 COL 01 POSITION.
     DISPLAY "* 產 品 管 理 系 統 *"
     LINE 02 COL 01 POSITION.
     DISPLAY "* 1. 產 品 建 檔          *"
     LINE 03 COL 01 POSITION.
     DISPLAY "* 2. 列 印 產 品         *"
     LINE 04 COL 01 POSITION.
     DISPLAY "* 3. 查 詢 產 品 *"
     LINE 05 COL 01 POSITION.
     DISPLAY "* 4. 離 開 *"
     LINE 06 COL 01 POSITION.
     DISPLAY "* 選 項 : *"
     LINE 06 COL 01 POSITION.
     DISPALY "********************************************"
     LINE 07 COL 01 POSITION.
     *開始進入程式
     PERFORM 1000-MENU THRU 1000-EXIT.
    
     0000-EXIT.
     EXIT PROGRAM.
     0000-STOP.
     STOP RUN.
    
     *---------------------------------------------------------------*
     1100-MENU.
     ACCEPT ANS LINE 06 POSITION 16.
    
     EVALUATE ANS
     WITH 1 CALL "1"
     CANCEL "1"
     WITH 2 CALL "2"
     CANCEL "2"
     WITH 3 CALL "3"
     CALCEL "3"
     END-EVALUATE.
    
     IF ANS NOT = 4
     GO TO 1100-MENU.
     1100-EXIT.
     EXIT.
作者 : whitlock(阿強)
[ 貼文 63 | 人氣 1302 | 評價 310 | 評價/貼文 4.92 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/23 下午 09:39:11
我剛去找以前的書太概寫的,
如果可以的話可否把檔案壓縮一個檔再寄到
whitlockmiu@hotmail.com 最好把你的程式想法和要做什麼寫出來
比較好改吧上面那三段我很笨還要理解很久
或是各位大大幫幫忙修改一下看可以可以更快解決
作者 : whitlock(阿強)
[ 貼文 63 | 人氣 1302 | 評價 310 | 評價/貼文 4.92 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/23 下午 09:40:57
上面打錯了
 PERFORM 1000-MENU THRU 1000-EXIT.
對應過去是1000-MENU.
     ..................................
     1000-EXIT.
     EXIT.
不是1100感謝
作者 : hero730827(半妖)
[ 貼文 24 | 人氣 4115 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/24 下午 10:39:04
現在只剩下一個問題囉!就是如何從第三隻程式直接跳到主畫面呢?
不過前面有二隻程式都是相關的…
請大大幫幫忙…
作者 : hero730827(半妖)
[ 貼文 24 | 人氣 4115 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/4/24 下午 10:39:15
現在只剩下一個問題囉!就是如何從第三隻程式直接跳到主畫面呢?
不過前面有二隻程式都是相關的…
請大大幫幫忙…
 板主 : 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.046875