韩国仁川机场免税店品牌大全:COBOL-SAMPLE-SORT

来源:百度文库 编辑:偶看新闻 时间:2024/03/28 21:52:00
 ENVIRONMENT DIVISION.                                    
 CONFIGURATION SECTION.                                   
  SOURCE-COMPUTER. IBM-4341.                              
  OBJECT-COMPUTER. IBM-4341.                              
 INPUT-OUTPUT SECTION.                                    
 FILE-CONTROL.                                            
     SELECT  EMP-FILE-INPUT       ASSIGN TO EMPFIL.       
     SELECT  SORT-FILE            ASSIGN TO SORTFIL.      
     SELECT  EMP-FILE-SORTED      ASSIGN TO EMPOUT.       
*---------------------------                              
 DATA DIVISION.                                           
 FILE SECTION.                                            
 FD EMP-FILE-INPUT.                                       
    01 EMP-FILE-REC.                                      
       05 EMP-NO    PIC 9(5).                             
       05 EMP-NAME  PIC X(20).                            
       05 FILLER    PIC X(55).                            
 FD EMP-FILE-SORTED.                                      
    01 EMP-FILE-SORTED-REC.                               
       05 EMP-NO    PIC 9(5).                                  
       05 EMP-NAME  PIC X(20).                                 
       05 FILLER    PIC X(55).                                 
 SD SORT-FILE.                                                 
    01 SORT-FILE-REC.                                          
       05 EMP-NO    PIC 9(5).                                  
       05 EMP-NAME  PIC X(20).                                 
       05 FILLER    PIC X(55).                                 
 PROCEDURE DIVISION.                                           
 00000-MAIN.                                                   
     SORT SORT-FILE                                            
          ASCENDING KEY    EMP-NO OF SORT-FILE-REC             
          USING     EMP-FILE-INPUT                             
          GIVING    EMP-FILE-SORTED.                           
     STOP RUN.     JCL-//STEP0010 EXEC  PGM=ELTEST20                            
//STEPLIB  DD  DSN=SERS.MSI.RABIL.LOADLIB,               
//             DISP=SHR                                  
//EMPFIL   DD DISP=SHR,DSN=RABIL.BEL.EMP.FILE            
//SORTFIL  DD SPACE=(TRK,(10,1))                         
//EMPOUT   DD DISP=SHR,DSN=RABIL.BEL.EMP.FILE.OUT        
//SYSOUT DD SYSOUT=*