ps存储jpg如何存储圆形:VSAM - SAMPLE- KSDS-SEQUENTIAL REWRITE & DELETE

来源:百度文库 编辑:中财网 时间:2024/04/29 15:59:11
 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.
 DATA DIVISION.                           PROCEDURE DIVISION.    
 OPEN I-O   EMP-FILE.  *   * REWRITE FIRST 1 RECORD*
READ EMP-FILE    NEXT RECORD         -> NEXT RECORD can't not be ignored            
MOVE 'NAME BBBB'  TO EMP-NAME     
REWRITE  EMP-FILE-REC   *   *  DELETE THE SECOND RECORD*      READ EMP-FILE NEXT RECORD    -> NEXT RECORD can't not be ignored             
         DELETE EMP-FILE*CLOSE EMP-FILE.            1. Note read  first and then rewrite