感冒揪痧与性日志:VSAM - SAMPLE - KSDS - REWRITE & DELETE

来源:百度文库 编辑:偶看新闻 时间:2024/05/07 10:54:41
INPUT-OUTPUT SECTION.                        
FILE-CONTROL.                                
    SELECT EMP-FILE ASSIGN TO EMPFIL         
      ORGANIZATION   IS INDEXED               
      ACCESS MODE    IS DYNAMIC              
      RECORD KEY     IS EMP-NO                
      FILE STATUS    IS WS-EMPFIL-STATUS.     PROCEDURE DIVISION.      OPEN I-O   EMP-FILE.*                       
* DYNAMIC READ/REWRITE  
*                           MOVE '420115000000000004' TO EMP-NO         -> NO NEED READ FILE
  READ EMP-FILE RECORD KEY IS EMP-NO   MOVE 'HUANG NEI' TO EMP-NAME        
  REWRITE EMP-FILE-REC        ** DYNAMIC READ/DELETE    *MOVE '420115000000000001'  TO EMP-NO      -> NO NEED READ FILE
READ EMP-FILE RECORD KEY IS EMP-NO    
DELETE EMP-FILE                        CLOSE EMP-FILE.