|
*@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.
¤ Dauer der Verarbeitung: 0.19 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
