拔罐治风湿:COBOL - SAMPLE - PS REWRITE & DELETE

来源:百度文库 编辑:偶看新闻 时间:2024/04/27 13:51:24
1. REWRITEENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.                         
FILE-CONTROL.                                 
    SELECT EMP-FILE ASSIGN TO EMPFIL          
      ORGANIZATION   IS SEQUENTIAL            
      ACCESS MODE    IS SEQUENTIAL            
      FILE STATUS    IS WS-EMPFIL-STATUS.      
   PROCEDURE DIVISION.              OPEN I-O    EMP-FILE.                                                -> open mode must be I-O     READ EMP-FILE MOVE 'WANG ZHONG JUN'     TO EMP-NAME  
REWRITE EMP-FILE-REC                    CLOSE EMP-FILE.          2. DELETE      -> It is NOT possible to delete records of a seq file