Проблема компиляции с программой COBOL

У меня есть программа cobol, которая дает следующие проблемы. Любая помощь? Это в основном программа для расчета GPA студентов на основе входного файла, предоставленного пользователем. Я скомпилировал его с помощью cobc -x-free, но все равно получаю следующие проблемы.Проблема компиляции с программой COBOL

Это ошибки компиляции.

P2.cob:137: Warning: Line not terminated by a newline 
    P2.cob:142: Warning: Line not terminated by a newline 
    P2.cob: In paragraph 'BEGIN': 
    P2.cob:70: Error: syntax error, unexpected '*' 
    P2.cob: In paragraph '002-WRITEHEADING': 
    P2.cob:80: Warning: Alphanumeric literal has zero length 
    P2.cob:80: Warning: A SPACE will be assumed 
    P2.cob:83: Warning: Alphanumeric literal has zero length 
    P2.cob:83: Warning: A SPACE will be assumed 
    P2.cob: In paragraph '004-DISPLAYSEMESTERHEADING': 
    P2.cob:102: Warning: Alphanumeric literal has zero length 
    P2.cob:102: Warning: A SPACE will be assumed 
    P2.cob: In paragraph '006-SubRead': 
    P2.cob:114: Error: syntax error, unexpected '*' 
    P2.cob:116: Warning: Alphanumeric literal has zero length 
    P2.cob:116: Warning: A SPACE will be assumed 
    P2.cob:123: Warning: Alphanumeric literal has zero length 
    P2.cob:123: Warning: A SPACE will be assumed 
    P2.cob:131: Warning: Alphanumeric literal has zero length 
    P2.cob:131: Warning: A SPACE will be assumed 
    P2.cob:140: Warning: Alphanumeric literal has zero length 
    P2.cob:140: Warning: A SPACE will be assumed 
    P2.cob:145: Warning: Alphanumeric literal has zero length 
    P2.cob:145: Warning: A SPACE will be assumed 
    P2.cob:161: Warning: Alphanumeric literal has zero length 
    P2.cob:161: Warning: A SPACE will be assumed 
    P2.cob:168: Warning: Alphanumeric literal has zero length 
    P2.cob:168: Warning: A SPACE will be assumed 
    P2.cob:174: Warning: Alphanumeric literal has zero length 
    P2.cob:174: Warning: A SPACE will be assumed

Код размещен после этого:

IDENTIFICATION DIVISION. 
PROGRAM-ID. P2. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT INPUTFILE ASSIGN TO "P2In.dat" 
    ORGANIZATION IS LINE SEQUENTIAL ACCESS MODE IS SEQUENTIAL. 
SELECT OUTPUTFILE ASSIGN TO "P2Out.dat" 
    ORGANIZATION IS LINE SEQUENTIAL ACCESS MODE IS SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 
FD OUTPUTFILE. 
01 OutDatFile. 
    02 DatFile  PIC X(100). 
FD INPUTFILE. 
01 INPUTFILELINE. 
    02 RunningLine  PIC X(100). 

WORKING-STORAGE SECTION. 
01 VARIABLES. 
    02 LineLength  PIC X(100). 
    02 StudentName  PIC X(15). 
    02 StudentWnumber PIC X(8). 
    02 NameAvailable PIC X(1) VALUE "Y". 
    02 NewSemAvailable PIC X(1) VALUE "Y". 
    02 NewSem   PIC X(1) VALUE "N". 
    02 LargeSpace  PIC X(4) VALUE SPACES. 
    02 SemesterName  PIC X(20). 
    02 SubjectID  PIC X(10). 
    02 SubjectName  PIC X(30). 
    02 SubjectPTS  PIC 99. 
    02 SubjectCredit PIC 99. 
    02 SubjectGrade  PIC X(1). 
    02 obtainedGrade PIC 99. 
    02 SemesterGrade PIC 99. 
    02 SemesterToalHour PIC 9(1).9(2). 
    02 SemesterGPA  PIC 9(1).9(2). 
    02 CommulativeGpa PIC 9(1).9(2). 
    02 SemesterCredit PIC 99. 
    02 TotalHours  PIC 99. 
    02 QtPoints   PIC 99. 
    02 QualityPoints PIC 999. 
    02 FirstSem   PIC X(1) VALUE "Y". 

01 FLAGS. 
    02 EndOfFile  PIC X(3) VALUE "NO". 

PROCEDURE DIVISION. 
BEGIN. 

    PERFORM 005-INITIALIZEFILE. 

    PERFORM 002-WRITEHEADING. 

* PERFORM 004-DISPLAYSEMESTERHEADING. 

    PERFORM 006-SubRead 
     UNTIL EndOfFile = "YES". 


    CLOSE INPUTFILE, OUTPUTFILE 
STOP RUN. 

002-WRITEHEADING. 
    MOVE "" TO DatFile 
    STRING LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,"SOUTHEASTERN LOUISIANA UNIVERSITY" INTO DatFile  
    WRITE OutDatFile 
    MOVE "" TO DatFile 
    STRING LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,"HAMMOND, LA, 70402",x'0a' INTO DatFile 
    WRITE OutDatFile  
    DISPLAY "    ","LOUISIANA UNIVERSITY" 
    DISPLAY "     ","BATON, LA, 70402",x'0a'. 


003-WriteNameandWnumber. 
    MOVE RunningLine to StudentName. 
    MOVE StudentName TO DatFile. 
    WRITE OutDatFile 
    MOVE StudentWnumber TO DatFile. 
    WRITE OutDatFile. 
    DISPLAY StudentName. 
    DISPLAY StudentWnumber. 

004-DISPLAYSEMESTERHEADING. 
    STRING "COURSE",LargeSpace,LargeSpace,"TITLE",LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace," GR",LargeSpace,"EARNED"," ","QPTS" INTO DatFile 
    WRITE OutDatFile 
    MOVE "" TO DatFile 
    DISPLAY "COURSE",LargeSpace,LargeSpace,"TITLE",LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace," GR",LargeSpace,"EARNED"," ","QPTS". 

005-INITIALIZEFILE. 
    OPEN INPUT INPUTFILE. 
    OPEN OUTPUT OUTPUTFILE. 
    READ INPUTFILE 
     AT END 
      MOVE "YES" TO EndOfFile  
     END-READ. 

006-SubRead. 
*  MOVE RunningLine TO LineLength 
     IF NameAvailable = "Y" 
      MOVE "" TO DatFile 
      UNSTRING RunningLine 
      DELIMITED BY ' ' INTO StudentName, StudentWnumber 
        DISPLAY StudentName 
        DISPLAY StudentWnumber 
        STRING StudentName INTO DatFile 
        WRITE OutDatFile 
        MOVE "" TO DatFile 
        STRING StudentWnumber INTO DatFile 
        WRITE OutDatFile 
        MOVE "N" TO NameAvailable 
     ELSE 
      IF RunningLine = "$$"       
       MOVE "Y" TO NewSem 
       IF FirstSem ="N" 
        MOVE "" TO DatFile 
        Compute SemesterGPA = SemesterGrade/SemesterCredit 
        Compute TotalHours = TotalHours + SemesterCredit 
        Compute QualityPoints = QualityPoints + SemesterGrade 
        Compute CommulativeGpa = QualityPoints/TotalHours 
        DISPLAY LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,"SEMESTER", LargeSpace,LargeSpace,LargeSpace," ", SemesterCredit, LargeSpace," ",SemesterGrade,LargeSpace,SemesterGPA 
        STRING LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,"SEMESTER", LargeSpace,LargeSpace,LargeSpace,"  ", SemesterCredit, LargeSpace," ",SemesterGrade,LargeSpace,SemesterGPA INTO OutDatFile 
        WRITE OutDatFile 
        MOVE "" TO DatFile 
        DISPLAY LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,"CUMULATIVE", LargeSpace,LargeSpace,LargeSpace," ", TotalHours, LargeSpace," ",QualityPoints,LargeSpace,CommulativeGpa 
        STRING LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,LargeSpace,"CUMULATIVE", LargeSpace,LargeSpace,LargeSpace," ", TotalHours, LargeSpace," ",QualityPoints,LargeSpace,CommulativeGpa INTO OutDatFile 
        WRITE OutDatFile 
        MOVE "" TO DatFile 
        MOVE "0" TO CommulativeGpa 
        MOVE "0" TO SemesterCredit 
        MOVE "0" TO SemesterGPA 
        MOVE "0" TO SemesterGrade 
       END-IF 
       MOVE "N" TO FirstSem 
      ELSE 
       IF RunningLine = "**" 
        MOVE "YES" TO EndOfFile 
       ELSE  
        IF NewSem = "Y"    
         MOVE RunningLine TO SemesterName 
         DISPLAY x'0a',SemesterName 
         STRING x'0a',SemesterName INTO OutDatFile 
         WRITE OutDatFile 
         MOVE "" TO DatFile 
         MOVE "N" TO NewSem 
         PERFORM 004-DISPLAYSEMESTERHEADING 
        ELSE 
         UNSTRING RunningLine 
         DELIMITED BY '__' INTO SubjectID, SubjectName, SubjectCredit,SubjectGrade 
         PERFORM 007-ComputeQualityPoints  
         DISPLAY SubjectID,LargeSpace,SubjectName,""SubjectGrade,LargeSpace," ",SubjectCredit,LargeSpace," ",obtainedGrade 
         STRING SubjectID,LargeSpace,SubjectName," ",SubjectGrade,LargeSpace," ",SubjectCredit,LargeSpace," ",obtainedGrade INTO OutDatFile 
         COMPUTE SemesterCredit = SemesterCredit + SubjectCredit 
         COMPUTE SemesterGrade = SemesterGrade + obtainedGrade 
*      COMPUTE SemesterGPA = SemesterGPA + obtainedGrade 
         WRITE OutDatFile 
         MOVE "" TO DatFile 
         END-IF 
       END-IF    
      END-IF 
     END-IF 
     READ INPUTFILE 
     AT END 
      MOVE "YES" TO EndOfFile  
     END-READ. 
007-ComputeQualityPoints. 
     IF SubjectGrade = "A" 
     MOVE "4" TO SubjectPTS 
     COMPUTE obtainedGrade = SubjectPTS * SubjectCredit 

     END-IF 
     IF SubjectGrade = "B" 
       MOVE "3" TO SubjectPTS 
       COMPUTE obtainedGrade = SubjectPTS * SubjectCredit 
     END-IF 
     IF SubjectGrade = "C" 
       MOVE "2" TO SubjectPTS 
       COMPUTE obtainedGrade = SubjectPTS * SubjectCredit 
     END-IF 
     IF SubjectGrade = "D" 
      MOVE "1" TO SubjectPTS 
      COMPUTE obtainedGrade = SubjectPTS * SubjectCredit 
     END-IF 
     IF SubjectGrade = "F" 
       MOVE "0" TO SubjectPTS 
       COMPUTE obtainedGrade = SubjectPTS * SubjectCredit 
     END-IF.

источник

2015-09-08 Beast

Итак, что вы пробовали ???; для начала попробуйте использовать комментарий к свободному формату *> вместо * также поместите пробел после запятой (http://stackoverflow.com/questions/17615622/is-it-possible-to-add-inline-comments-in- cobol) –

Yep, бесплатная форма GnuCOBOL не принимает звездочку в столбце 1 в качестве маркера комментария. Измените их на *>, и он будет скомпилирован, но вы получите предупреждения. COBOL на самом деле не содержит элементов данных нулевой длины, поэтому MOVE «TO ... становится MOVE» «TO ... –

Просто примечание: COBOL2014 явно добавляет буквенно-цифровые литералы нулевой длины. У них даже есть специальное использование в 'MOVE '' TO ITEM', где ITEM определяется как' PIC X DYNAMIC LENGTH'. –

Было бы проще, если бы вы положили линию-номер с кодом.

Первое:

02 SemesterToalHour PIC 9(1).9(2). 
02 SemesterGPA  PIC 9(1).9(2). 
02 CommulativeGpa PIC 9(1).9(2).

Я предполагаю, что вы хотите номер с 2-мя знаками после запятой. Определить это так:

02 SemesterToalHour PIC 9(1)V99. 
02 SemesterGPA  PIC 9(1)V99. 
02 CommulativeGpa PIC 9(1)V99.

Объяснение: http://www.pgrocer.net/Cis12/cobol3.html

Второе: Если вы хотите поместить некоторый код в комментарии, вы должны поставить * в 7-й позиции строки.

Третье:

ЗАКРЫТЬ файл_ввода, OUTPUTFILE

Поставьте точку в конце этой линии.

Измените это и перекомпилируйте.

источник

2016-05-13 07:19:03 pistach

Проблема компиляции с программой COBOL

ответ

Смежные вопросы