免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › AS400下的COBOL里，如何删除记录！！！（急）
最近访问板块 发新帖
查看: 2509 | 回复: 3
打印 上一主题 下一主题

AS400下的COBOL里，如何删除记录！！！（急） [复制链接]

chmj

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2007-06-05 16:21 |只看该作者 |倒序浏览
AS400下的COBOL里，对一个有键字的数据库操作，当用键字找到数据时，如何删除该条记录。
最好能有实例程序，先谢谢各位大侠了！
pantierui

论坛徽章:
0
2楼 [报告]
发表于 2007-06-05 17:50 |只看该作者
PF:ABC


  2. 0001.00      A          R ABC               
  3. 0002.00      A            FLD            1A  
  4. 0003.00      A          K FLD               
复制代码


COBOL LE:

  2. 0001.00        IDENTIFICATION      DIVISION.                        
  3. 0002.00        PROGRAM-ID.         CBL2.                             
  4. 0003.00        ENVIRONMENT         DIVISION.                        
  5. 0004.00        INPUT-OUTPUT        SECTION.                          
  6. 0005.00        FILE-CONTROL.                                         
  7. 0006.00            SELECT   ABC                                      
  8. 0007.00              ASSIGN             TO DATABASE-ABC              
  9. 0008.00              ORGANIZATION       IS INDEXED                  
  10. 0009.00              ACCESS MODE        IS RANDOM                    
  11. 0010.00              RECORD KEY         IS EXTERNALLY-DESCRIBED-KEY  
  12. 0011.00              FILE   STATUS      IS ABC-FILE-STATUS.         
  13. 0012.00        DATA                DIVISION.                        
  14. 0013.00        FILE                SECTION.                          
  15. 0014.00        FD     ABC.                                          
  16. 0015.00        01     ABC-REC.                                       
  17. 0016.00                 COPY DDS-ABC     OF  ABC.                    
  18. 0017.00        WORKING-STORAGE     SECTION.                           
  19. 0018.00        77     ABC-FILE-STATUS  PIC     X(02)   VALUE   SPACE.  
  20. 0019.00        77     ABC-FLG          PIC     X       VALUE   SPACE.  
  21. 0020.00         PROCEDURE           DIVISION.                          
  22. 0021.00         SEC.                                                   
  23. 0022.00            OPEN I-O ABC                                       
  24. 0023.00            MOVE    SPACE         TO     ABC-REC               
  25. 0024.00            INITIALIZE                   ABC-REC               
  26. 0025.00            MOVE     "2"          TO     FLD                    
  27. 0026.00            READ    ABC                                         
  28. 0027.00            FORMAT  IS  "ABC-REC"                              
  29. 0028.00            INVALID   KEY                                       
  30. 0029.00              MOVE    "1"         TO     ABC-FLG               
  31. 0030.00            END-READ                                            
  32. 0031.00            IF  ABC-FLG      =   SPACE                          
  33. 0032.00                 DELETE   ABC                                   
  34. 0033.00            END-IF         
  35. 0034.00                 CLOSE   ABC                                   
  36. 0035.00                 STOP RUN.
复制代码

[ 本帖最后由 pantierui 于 2007-6-8 17:48 编辑 ]
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chmj

论坛徽章:
0
3楼 [报告]
发表于 2007-06-06 13:41 |只看该作者
谢谢楼上的帮助，问题已经解决了。
顺便问一句，ORGANIZATION有三种方式（SEQUENTIAL，RELATIVE，INDEXED）
RELATIVE资料上说是相对文件，这里所说的相对文件是什么意思？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
pantierui

论坛徽章:
0
4楼 [报告]
发表于 2007-06-06 15:15 |只看该作者
这个是删除多条等于2的COBOL LE程序.

  2. 0001.00        IDENTIFICATION      DIVISION.                        
  3. 0002.00        PROGRAM-ID.         CBL2.                             
  4. 0003.00        ENVIRONMENT         DIVISION.                        
  5. 0004.00        INPUT-OUTPUT        SECTION.                          
  6. 0005.00        FILE-CONTROL.                                         
  7. 0006.00            SELECT   ABC                                      
  8. 0007.00              ASSIGN             TO DATABASE-ABC              
  9. 0008.00              ORGANIZATION       IS INDEXED                  
  10. 0009.00              ACCESS MODE        IS RANDOM                    
  11. 0011.00              RECORD KEY         IS EXTERNALLY-DESCRIBED-KEY  
  12. 0012.00              FILE   STATUS      IS ABC-FILE-STATUS.         
  13. 0013.00        DATA                DIVISION.                        
  14. 0014.00        FILE                SECTION.                          
  15. 0015.00        FD     ABC.                                          
  16. 0016.00        01     ABC-REC.                                       
  17. 0017.00                 COPY DDS-ABC     OF  ABC.                    
  18. 0018.00        WORKING-STORAGE     SECTION.                           
  19. 0019.00        77     ABC-FILE-STATUS  PIC     X(02)   VALUE   SPACE.  
  20. 0020.00        77     ABC-FLG          PIC     X       VALUE   SPACE.  
  21. 0021.00         PROCEDURE           DIVISION.                          
  22. 0022.00         SEC.                                                   
  23. 0023.00            OPEN I-O ABC                                       
  24. 0024.00            MOVE    SPACE         TO     ABC-REC               
  25. 0025.00            INITIALIZE                   ABC-REC               
  26. 0027.00            EXIT.                                               
  27. 0028.00         RED.                                                   
  28. 0029.00            MOVE     "2"          TO     FLD                    
  29. 0030.00            READ    ABC                                         
  30. 0031.00            FORMAT  IS  "ABC-REC"                              
  31. 0032.00            INVALID   KEY                                       
  32. 0034.00              MOVE    "1"         TO     ABC-FLG               
  33. 0035.00            END-READ                                            
  34. 0036.00            EXIT.                        
  35. 0037.00         MAIN.                           
  36. 0038.00            PERFORM                     
  37. 0039.00            UNTIL  ABC-FLG    =  "1"     
  38. 0040.00                 DELETE   ABC            
  39. 0041.00                 PERFORM RED            
  40. 0042.00            END-PERFORM   
  41. 0043.00                 CLOSE    ABC
  42. 0046.00                 STOP RUN.               
复制代码

[ 本帖最后由 pantierui 于 2007-6-8 17:48 编辑 ]
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP