Quelle  bubblesort.cob   Sprache: Cobol

      *@OPTIONS MAIN 
      IDENTIFICATION DIVISION. 
      PROGRAM-ID. BUBSORT. 
      ENVIRONMENT DIVISION. 
      CONFIGURATION SECTION. 
      INPUT-OUTPUT SECTION. 
      FILE-CONTROL. 
      SELECT INPUTDATA 
      ASSIGN TO 'G:\AssignmentFiles\inputdata.txt' 
      ORGANIZATION IS LINE SEQUENTIAL. 
      SELECT outputdata 
      ASSIGN TO 'G:\AssignmentFiles\outputdata.txt' 
      ORGANIZATION IS LINE SEQUENTIAL. 
      
      DATA DIVISION. 
      FILE SECTION. 
      FD INPUTDATA. 
      01 INPUTREC. 
      05 FIELD1 PIC 9(2). 
      05 FILLER PIC X(1). 
      05 field2 PIC X(3). 
      05 FILLER PIC X(74). 
      
      FD OUTPUTDATA. 
      01 OUTPUTREC. 
      05 FIELD1OUT PIC 9(2). 
      05 FILLER PIC X(1). 
      05 FIELD2OUT PIC X(3). 
      05 FILLER PIC X(74). 
      
      WORKING-STORAGE SECTION. 
      01 ARE-THERE-MORE-RECORDS PIC XXX VALUE 'YES'. 
      88 THERE-ARE-NO-MORE-RECORDS VALUE 'NO '. 
      
      01 DUMMY-TABLE. 
      05 DUMMY-FIELD1 PIC 9(2). 
      05 FILLER PIC X(1) VALUE SPACES. 
      05 DUMMY-FIELD2 PIC X(3). 
      05 FILLER PIC X(74) VALUE SPACES. 
      
      01 BUB-SORT-TABLE. 
      03 BUB-SORT-FIELDS OCCURS 20 TIMES. 
      05 BUBFIELD1 PIC 9(2). 
      05 FILLER PIC X(1) VALUE SPACES. 
      05 BUBFIELD2 PIC X(3). 
      05 FILLER PIC X(74) VALUE SPACES. 
      01 TABLE-COUNTER1 PIC 99 VALUE ZEROS. 
      01 TABLE-COUNTER2 PIC 99 VALUE ZEROS. 
      01 SAVE-CODE PIC 9(2) VALUE ZEROS. 
      01 TABLE-MAX PIC 9(2) VALUE 20. 
      
      
      PROCEDURE DIVISION. 
      
      100-MAIN-MODULE. 
      OPEN INPUT INPUTDATA 
      OUTPUT OUTPUTDATA 
      INITIALIZE BUB-SORT-TABLE 
      PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO ' 
      READ INPUTDATA 
      AT END 
      MOVE 'NO ' TO ARE-THERE-MORE-RECORDS 
      NOT AT END 
      PERFORM 200-BUBSORT-RTN 
      END-READ 
      END-PERFORM 
      CLOSE INPUTDATA 
            OUTPUTDATA 
      STOP RUN. 
      
      200-BUBSORT-RTN. 
      ADD 1 TO TABLE-COUNTER1 
      ADD 2 TO TABLE-COUNTER2 
      MOVE INPUTREC TO DUMMY-TABLE 
      MOVE DUMMY-TABLE TO BUB-SORT-TABLE 
      EVALUATE TRUE 
      WHEN BUBFIELD1(TABLE-COUNTER2) LESS THAN BUBFIELD1(TABLE-COUNTER1)
      MOVE BUBFIELD1(TABLE-COUNTER2) TO SAVE-CODE 
      MOVE BUBFIELD1(TABLE-COUNTER1) TO BUBFIELD1(TABLE-COUNTER2) 
      MOVE SAVE-CODE TO BUBFIELD1(TABLE-COUNTER1) 
      END-EVALUATE 
      WRITE OUTPUTREC from BUB-SORT-TABLE.