html button 跳转:COBOL - SAMPLE - PS FILE WRITE

来源:百度文库 编辑:中财网 时间:2024/05/04 19:59:03
ENVIRONMENT 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 OUTPUT EMP-FILE.                              -> over ride exist reocrds if file exist. if need add new record for existing file using[open extend]MOVE '420115000000000004' TO EMP-NO    
MOVE 'WANG ZHONG JUN'     TO EMP-NAME  
WRITE EMP-FILE-REC                    CLOSE EMP-FILE.