* Kommentar
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    MBV00240.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE    ASSIGN TO INFILE.
           SELECT SORT-FILE ASSIGN TO SORTFILE.
       DATA DIVISION.
       FILE SECTION.
       FD  INFILE
           LABEL RECORDS STANDARD
           BLOCK CONTAINS 0 RECORDS.
       01  IN-REC                  PIC X(80).
       SD  SORT-FILE.
       01  SORT-REC.
           05  SIDE-A              PIC 9(01).
           05  SIDE-B              PIC 9(01).
           05  SIDE-C              PIC 9(01).
           05  FILLER              PIC X(69).
           05  SEQ-FIELD           PIC X(08).
       WORKING-STORAGE SECTION.
       01  STRING-LITERALS.
           05  TRI                 PIC  X(09)   VALUE 'TRIANGLES'.
           05  TRI-TYPE OCCURS 4 TIMES
           PIC X(11).
       01  NAME-N-CNTR-TABLE.
           05  N-N-C               OCCURS 4 TIMES
           INDEXED BY TX.
           10  N-NAME          PIC X(21).
           10  N-CNTR          PIC 9(04).
       01  OUT-OF-RECS             PIC X.
           88  EOF                 VALUE 'Y'.
           88  MORE-RECS           VALUE 'N'.
       01  TRIANGLE-TYPE           PIC 9.
       01  SUB1                    PIC S9(04)  COMP.
       01  SUB2                    PIC S9(04)  COMP.
       01  WORK-REC.
           05  SIDE-A              PIC 9(01).
           05  SIDE-B              PIC 9(01).
           05  SIDE-C              PIC 9(01).
       01  TESTFELD                PIC X(40).
      *
      * QBV 6 Karte für Version und Datum
      *
       PROCEDURE DIVISION.
       MAIN-PARA.
           MOVE     'SORTDD' TO SORT-CONTROL
           SORT SORT-FILE
           ASCENDING SEQ-FIELD
           ASCENDING SIDE-A OF SORT-REC
           ASCENDING SIDE-B OF SORT-REC
           ASCENDING SIDE-C OF SORT-REC
           USING INFILE
           GIVING INFILE
      *    DISPLAY 'THE VS COBOL II SORT-RETURN REGISTER WAS: '
      *    SORT-RETURN
           PERFORM
              INITIALIZE NAME-N-CNTR-TABLE
              SUB1
              MOVE     'EQUILATERAL' TO TRI-TYPE (1)
              MOVE     'ISOSCELES' TO TRI-TYPE (2)
              MOVE     'SCALENE' TO TRI-TYPE (3)
              MOVE     'INVALID' TO TRI-TYPE (4)
              PERFORM 4 TIMES
                 MOVE 1 TO SUB2
                 COMPUTE SUB1 = SUB1 + 1
                 STRING TRI-TYPE (SUB1) DELIMITED BY SPACE
                    SPACE DELIMITED BY SIZE
                    TRI   DELIMITED BY SIZE
                    INTO N-NAME (SUB1)
                    ON OVERFLOW
      *             DISPLAY 'INVALID NAME: ' N-NAME (TX)
                    CONTINUE
                    END-STRING
                 END-PERFORM
              OPEN INPUT INFILE
              SET MORE-RECS TO TRUE
              END-PERFORM
           PERFORM ANALYZE-NEXT-REC
           UNTIL EOF
           CLOSE INFILE
           CALL 'MBV00260' USING NAME-N-CNTR-TABLE
           GOBACK.
       ANALYZE-NEXT-REC.
           READ INFILE INTO WORK-REC
           AT END SET EOF TO TRUE
           END-READ
           IF       MORE-RECS
              MOVE     ZERO TO TRIANGLE-TYPE
              CALL 'MBV00250' USING WORK-REC TRIANGLE-TYPE
              SET TX TO TRIANGLE-TYPE
              ADD 1 TO N-CNTR (TX)
            END-IF.
       ANALYZE-NEXT-REX.
           READ INFILE INTO WORK-REC
           AT END SET EOF TO TRUE
           END-READ
           IF       MORE-RECS
              MOVE     ZERO TO TRIANGLE-TYPE
              CALL 'MBV00250' USING WORK-REC TRIANGLE-TYPE
              SET TX TO TRIANGLE-TYPE
              ADD 1 TO N-CNTR (TX)
        END-IF.

      * Dies hier auch ein Kommentar 2.10.2001
      * TEST