GnuCobol 3.1.2 compiling loop?

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



Dear GnuCOBOL users / developers.

I've run into a problem using cobc version 3.1.2.

when trying to compile the following code (from Michael Coughlan)

cobc -free -x -o prog-exe test.cob

the compiler compiles forever ... runs into a loop ?

it worked with cobc version 2.2.0 flawlessly

do I have to use compiler-switches or change the code ?

Thanx in advance

kind regards

Lars

--------------------------

IDENTIFICATION DIVISION.
PROGRAM-ID.  TERMINAL-EXAM.
AUTHOR. Michael Coughlan.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT UNSORTED-NAMES ASSIGN TO "CLIENTS.DAT"
                 ORGANIZATION IS LINE SEQUENTIAL.

    SELECT WORK-FILE ASSIGN TO "TEMP.DAT".

      SELECT SORTED-NAMES ASSIGN TO "SCLIENTS.DAT"
                 ORGANIZATION IS LINE SEQUENTIAL.

    SELECT ERROR-FILE ASSIGN TO "ERROR.DAT"
                 ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.

FD  UNSORTED-NAMES.
01  UNSORTED-REC           PIC X(99).

SD  WORK-FILE.
01  WORK-REC.
    02 CLIENT-NAME         PIC X(35).
    02 CLIENT-ADDRESS      PIC X(60).
    02 COUNTY-NO           PIC 99.
    02 CLIENT-NO           PIC 9999.

FD  SORTED-NAMES.
01  SORTED-REC             PIC X(101).

FD  ERROR-FILE.
01  ERROR-REC              PIC X(99).

WORKING-STORAGE SECTION.
01  COUNTY-TABLE.
    02 COUNTY-VALUES.
       03    FILLER        PIC X(11) VALUE "ANTRIM".
       03    FILLER        PIC X(11) VALUE "ARMAGH".
       03    FILLER        PIC X(11) VALUE "CARLOW".
       03    FILLER        PIC X(11) VALUE "CAVAN".
       03    FILLER        PIC X(11) VALUE "CLARE".
       03    FILLER        PIC X(11) VALUE "CORK".
       03    FILLER        PIC X(11) VALUE "DERRY".
       03    FILLER        PIC X(11) VALUE "DONEGAL".
       03    FILLER        PIC X(11) VALUE "DOWN".
       03    FILLER        PIC X(11) VALUE "DUBLIN".
       03    FILLER        PIC X(11) VALUE "FERMANAGH".
       03    FILLER        PIC X(11) VALUE "GALWAY".
       03    FILLER        PIC X(11) VALUE "KERRY".
       03    FILLER        PIC X(11) VALUE "KILDARE".
       03    FILLER        PIC X(11) VALUE "KILKENNY".
       03    FILLER        PIC X(11) VALUE "LAOIS".
       03    FILLER        PIC X(11) VALUE "LEITRIM".
       03    FILLER        PIC X(11) VALUE "LIMERICK".
       03    FILLER        PIC X(11) VALUE "LONGFORD".
       03    FILLER        PIC X(11) VALUE "LOUTH".
       03    FILLER        PIC X(11) VALUE "MAYO".
       03    FILLER        PIC X(11) VALUE "MEATH".
       03    FILLER        PIC X(11) VALUE "MONAGHAN".
       03    FILLER        PIC X(11) VALUE "OFFALY".
       03    FILLER        PIC X(11) VALUE "ROSCOMMON".
       03    FILLER        PIC X(11) VALUE "SLIGO".
       03    FILLER        PIC X(11) VALUE "TIPPERARY".
       03    FILLER        PIC X(11) VALUE "TYRONE".
       03    FILLER        PIC X(11) VALUE "WATERFORD".
       03    FILLER        PIC X(11) VALUE "WESTMEATH".
       03    FILLER        PIC X(11) VALUE "WEXFORD".
       03    FILLER        PIC X(11) VALUE "WICKLOW".
    02 FILLER REDEFINES COUNTY-VALUES.
       03    COUNTY-NAME OCCURS 32 TIMES
                ASCENDING KEY COUNTY-NAME
                INDEXED BY COUNTY-NUM
                PIC X(11).


01  FILLER                 PIC 9 VALUE 0.
    88 END-OF-FILE         VALUE 1.

01  LOWER-CASE             PIC X(26)
        VALUE "abcdefghijklmnopqrstuvwxyz".

01  UPPER-CASE             PIC X(26)
        VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".

01  HOLD-ITEMS.
    02 HOLD-CLIENT         PIC X(35).
    02 HOLD-NAME           PIC X(35).
    02 HOLD-COUNTY         PIC X(11).
    02 HOLD-CLIENT-NO      PIC X(4).

01  PTR-ITEMS.
    02 UNSTR-PTR           PIC 99.
       88 END-OF-ADDRESS   VALUE 61.
       88 END-OF-NAME      VALUE 36.
    02 STR-PTR             PIC 99.
    02 NAME-END            PIC 99.

PROCEDURE DIVISION.
CONVERT-FILE.
    SORT WORK-FILE ON ASCENDING COUNTY-NO, CLIENT-NAME
        INPUT PROCEDURE IS CONVERT-RECORDS
        GIVING SORTED-NAMES.
    STOP RUN.

CONVERT-RECORDS.
    OPEN INPUT UNSORTED-NAMES
    OPEN OUTPUT ERROR-FILE
    READ UNSORTED-NAMES
        AT END SET END-OF-FILE TO TRUE
    END-READ
    PERFORM UNPACK-RECORDS UNTIL END-OF-FILE
    CLOSE ERROR-FILE
    CLOSE UNSORTED-NAMES.

UNPACK-RECORDS.
    MOVE SPACES TO WORK-REC
    MOVE 1 TO UNSTR-PTR.

    UNSTRING UNSORTED-REC
        DELIMITED BY ","
        INTO HOLD-CLIENT, CLIENT-ADDRESS, HOLD-CLIENT-NO
    MOVE HOLD-CLIENT-NO TO CLIENT-NO.

    PERFORM UNTIL END-OF-ADDRESS
        UNSTRING CLIENT-ADDRESS DELIMITED BY ALL SPACES
            INTO HOLD-COUNTY
            WITH POINTER UNSTR-PTR

    END-PERFORM

    INSPECT HOLD-COUNTY CONVERTING LOWER-CASE TO UPPER-CASE.
    SEARCH ALL COUNTY-NAME
        AT END WRITE ERROR-REC FROM UNSORTED-REC
        WHEN COUNTY-NAME(COUNTY-NUM) = HOLD-COUNTY
            SET COUNTY-NO TO COUNTY-NUM
            PERFORM RESTRUCTURE-NAME
            RELEASE WORK-REC
    END-SEARCH
    MOVE SPACES TO UNSORTED-REC
    READ UNSORTED-NAMES
        AT END SET END-OF-FILE TO TRUE
    END-READ.

RESTRUCTURE-NAME.
    MOVE 1 TO UNSTR-PTR, STR-PTR.
    PERFORM UNTIL END-OF-NAME
        MOVE UNSTR-PTR TO NAME-END
        UNSTRING HOLD-CLIENT DELIMITED BY ALL SPACES
            INTO HOLD-NAME
            WITH POINTER UNSTR-PTR
    END-PERFORM

    STRING HOLD-NAME DELIMITED BY SPACES
        SPACE DELIMITED BY SIZE
        INTO CLIENT-NAME
        WITH POINTER STR-PTR.

    MOVE 1 TO UNSTR-PTR
    PERFORM UNTIL UNSTR-PTR >= NAME-END
        UNSTRING HOLD-CLIENT DELIMITED BY SPACES
            INTO HOLD-NAME
            WITH POINTER UNSTR-PTR
        STRING HOLD-NAME DELIMITED BY SPACES
            SPACE DELIMITED BY SIZE
            INTO CLIENT-NAME
            WITH POINTER STR-PTR
    END-PERFORM.

--------------------------

--
----------------------------------------------
Prof.(FH) DI DR. Lars Mehnen
University of Applied Science Technikum Wien
A-1200 Vienna
+43 1 333 40 77 - 5868
https://scholar.google.com/citations?hl=en&user=o_QHx6gAAAAJ
https://orcid.org/my-orcid?orcid=0000-0002-2228-0213





[Index of Archives]     [Gcc Help]     [Linux USB Devel]     [Linux Audio Users]     [Yosemite Info]     [Linux Kernel]     [Linux SCSI]     [Big List of Linux Books]

  Powered by Linux