聚狼庄网:VSAM - SAMPLE - KSDS SEQUENTIAL READ

来源:百度文库 编辑:偶看新闻 时间:2024/05/04 15:12:02
ENVIRONMENT DIVISION.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.    DATA DIVISION.  PROCEDURE DIVISION.    OPEN INPUT EMP-FILE.       PERFORM UNTIL C-EMPFIL-EOF              
  READ EMP-FILE NEXT RECORD           ->[next record ] can't be ignore in access mode is dynamic                                                                         -> it can be ignored in access mode is sequential
  IF C-EMPFIL-OK                        
    DISPLAY EMP-FILE-REC                
  END-IF                                
END-PERFORM      CLOSE   EMP-FILE