为什么要做头疗:COBOL - SAMPLE - PS FILE WRITE

来源:百度文库 编辑:偶看新闻 时间:2024/04/29 19:29:22
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.