c语言异或:VSAM - SAMPLE- KSDS -START

来源:百度文库 编辑:中财网 时间:2024/05/12 19:39:53
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.                                             // INPUT or I-OMOVE '420115000000000006' TO EMP-NO      // need move to key     
START EMP-FILE KEY >=EMP-NO                      // can't code directly like start EMP-FILE KEY > 2
READ EMP-FILE                                 
DISPLAY 'READ FILE STATUS :'  WS-EMPFIL-STATUS
IF C-EMPFIL-OK                                
   DISPLAY EMP-FILE-REC                       
END-IF                                        
CLOSE EMP-FILE.