*----------------------------------------------------------------- 
*  METHOD 2: COBOL MAIN PROGRAM.                                   
*----------------------------------------------------------------- 
*  1. PRE-PROCESS:                                                 
*     A DFSORT OMIT CONTROL STATEMENT DELETES RECORDS WITH A       
*     'ZZZZZ' OMIT FIELD BEFORE SORTING. THE OMIT FIELD IS IN      
*     IN COLUMNS 30-34.                                            
*  2. SORT                                                         
*     THE PROGRAM CALLS DFSORT TO SORT THE RECORDS IN DESCENDING   
*     ORDER. THE KEY IS IN COLUMNS 5-24.                           
*  3. POST-PROCESS:                                                
*     A DFSORT SUM CONTROL STATEMENT WRITES ONE RECORD WITH        
*     EACH KEY AFTER SORTING.                                      
*                                                                  
*  INPUT/OUTPUT: DFSORT READS SORTIN AND WRITES SORTOUT.           
*----------------------------------------------------------------- 
 ID DIVISION.                                                      
  PROGRAM-ID. CASE2.                                               
 ENVIRONMENT DIVISION.                                             
  INPUT-OUTPUT SECTION.                           
    FILE-CONTROL.                                 
       SELECT SORTIN  ASSIGN TO SORTIN.           
       SELECT SORTOUT ASSIGN TO SORTOUT.          
       SELECT SORT-FILE  ASSIGN TO SORTFILE.      
 DATA DIVISION.                                   
   FILE SECTION.                                  
    FD SORTIN RECORD CONTAINS 160 CHARACTERS      
       LABEL RECORD STANDARD BLOCK 27840          
       DATA RECORDS ARE SORTIN-RECORD.            
    01 SORTIN-RECORD.                             
      05 FILLER          PIC X(160).              
    FD SORTOUT RECORD CONTAINS 160 CHARACTERS     
       LABEL RECORD STANDARD BLOCK 27840          
       DATA RECORDS ARE SORTOUT-RECORD.           
    01 SORTOUT-RECORD.                            
      05 FILLER          PIC X(160).              
    SD SORT-FILE RECORD CONTAINS 160 CHARACTERS   
       DATA RECORD SORT-RECORD.                   
     01 SORT-RECORD.              
      05 FILLER        PIC X(4).  
      05 SORT-KEY      PIC X(20). 
      05 FILLER        PIC X(136).
    WORKING-STORAGE SECTION.      
  PROCEDURE DIVISION.             
    MASTER SECTION.               
*----------------------------------------------------------------- 
*     CALL DFSORT TO SORT THE RECORDS IN DESCENDING ORDER.         
*----------------------------------------------------------------- 
      SORT SORT-FILE                                               
        ON DESCENDING KEY SORT-KEY                                 
        USING SORTIN                                               
        GIVING SORTOUT.                                            
      IF SORT-RETURN > 0                                           
        DISPLAY "SORT FAILED".                                     
      STOP RUN.