COBOL program to implement Alpha Numeric Sorting.

COBOL program to implement Alpha Numeric Sorting.

PROGRAM:  

       IDENTIFICATION DIVISION.

       PROGRAM-ID SORT.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

        01 ARRAY.

           02 A1 PIC X(4) OCCURS 5 TIMES.

           77 I PIC 9(3).

           77 J PIC 9(3).

           77 K PIC 9(3).

           77 N PIC 9(3).

           77 TEMP PIC X(4).

           77 NUM PIC 9(3).

           77 NUM1 PIC 9(3).

           77 DISP PIC X(3).

       PROCEDURE DIVISION.

       MAIN-PARA.

           DISPLAY 'ENTER THE TOTAL NUMBER OF ELEMENTS TO SORT :'.

           ACCEPT N.

           DISPLAY 'THE VALUE OF N IS', N.

           DISPLAY  ' '.

           DISPLAY 'ENTER NUMBER TO BE SORTED'.

           DISPLAY ' '.

           PERFORM ACC-PARA VARYING I FROM 1 BY 1 UNTIL I>N.

       SORT-PARA.

           PERFORM BUBBLEPARA VARYING I FROM 1 BY 1 UNTIL I>N.

           DISPLAY 'THE SORTED ELEMENTS ARE'.

           DISPLAY ' '.

           PERFORM DISP-PARA VARYING I FROM 1 BY 1 UNTIL I>N.

           DISPLAY ' '.

           STOP RUN.

       ACC-PARA.

           DISPLAY 'ENTER THE ELEMENT NUMBER', I.

           ACCEPT A1(I).

       DISP-PARA.

           MOVE A1(I) TO DISP.

           DISPLAY DISP.

       BUBBLEPARA.

           SUBTRACT I FROM N GIVING K.

           PERFORM COMPARE-PARA VARYING J FROM 1 BY 1 UNTIL J>K.

       COMPARE-PARA.

           COMPUTE NUM = J.

           COMPUTE NUM1 = NUM + 1.

           IF A1(NUM) IS GREATER THAN A1(NUM1)

           MOVE A1(NUM) TO TEMP

           MOVE A1(NUM1) TO A1(NUM)

           MOVE TEMP TO A1(NUM1).