- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个cobol程序,它给出以下问题。有什么帮助吗?这基本上是一个程序,用于根据用户提供的输入文件来计算学生的GPA。我使用cobc -x -free编译了它,但仍然遇到以下问题。
这些是编译错误。
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.
最佳答案
如果在代码中加上行号会更容易。
首先:
02 SemesterToalHour PIC 9(1).9(2).
02 SemesterGPA PIC 9(1).9(2).
02 CommulativeGpa PIC 9(1).9(2).
02 SemesterToalHour PIC 9(1)V99.
02 SemesterGPA PIC 9(1)V99.
02 CommulativeGpa PIC 9(1)V99.
CLOSE INPUTFILE, OUTPUTFILE
关于compiler-errors - COBOL程序的编译问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32466018/
reqwest v0.9 将 serde v1.0 作为依赖项,因此实现 converting serde_json errors into reqwest error . 在我的代码中,我使用 se
我有这个代码: let file = FileStorage { // ... }; file.write("Test", bytes.as_ref()) .map_err(|e| Mu
我只是尝试用angular-cli创建一个新项目,然后运行服务器,但是它停止并显示一条有趣的消息:Error: No errors。 我以这种方式更新了(希望有帮助):npm uninstall -g
我从我的 javascript 发送交易 Metamask 打开传输对话框 我确定 i get an error message in metamask (inpage.js:1 MetaMask -
这个问题在这里已经有了答案: How do you define custom `Error` types in Rust? (3 个答案) How to get a reference to a
我想知道两者之间有什么大的区别 if let error = error{} vs if error != nil?或者只是人们的不同之处,比如他们如何用代码表达自己? 例如,如果我使用这段代码: u
当我尝试发送超过 50KB 的图像时,我在 Blazor 服务器应用程序上收到以下错误消息 Error: Connection disconnected with error 'Error: Serv
我有一个error-page指令,它将所有异常重定向到错误显示页面 我的web.xml: [...] java.lang.Exception /vi
我有这样的对象: address: { "phone" : 888, "value" : 12 } 在 WHERE 中我需要通过 address.value 查找对象,但是在 SQL 中有函数
每次我尝试编译我的代码时,我都会遇到大量错误。这不是我的代码的问题,因为它在另一台计算机上工作得很好。我尝试重新安装和修复,但这没有帮助。这是整个错误消息: 1>------ Build starte
在我的代码的类部分,如果我写一个错误,则在不应该的情况下,将有几行报告为错误。我将'| error'放在可以从错误中恢复的良好/安全位置,但是我认为它没有使用它。也许它试图在某个地方恢复中间表情? 有
我遇到了 csv 输入文件整体读取故障的问题,我可以通过在 read_csv 函数中添加 "error_bad_lines=False" 来删除这些问题来解决这个问题。 但是我需要报告这些造成问题的文
在 Spring 中,验证后我们在 controller 中得到一个 BindingResult 对象。 很简单,如果我收到验证错误,我想重新显示我的表单,并在每个受影响的字段上方显示错误消息。 因此
我不知道出了什么问题,因为我用 Java 编程了大约一年,从来没有遇到过这个错误。在一分钟前在 Eclipse 中编译和运行工作,现在我得到这个错误: #A fatal error has been
SELECT to_char(messages. TIME, 'YYYY/MM/DD') AS FullDate, to_char(messages. TIME, 'MM/DD
我收到这些错误: AnonymousPath\Anonymized.vb : error BC30037: Character is not valid. AnonymousPath\Anonymiz
我刚刚安装了 gridengine 并在执行 qstat 时出现错误: error: commlib error: got select error (Connection refused) erro
嗨,我正在学习 PHP,我从 CRUD 系统开始,我在 Windows 上安装了 WAMP 服务器,当我运行它时,我收到以下错误消息。 SCREAM: Error suppression ignore
我刚刚开始一个新项目,我正在学习核心数据教程,可以找到:https://www.youtube.com/watch?v=zZJpsszfTHM 我似乎无法弄清楚为什么会抛出此错误。我有一个名为“Exp
当我使用 Jenkins 运行新构建时,出现以下错误: "FilePathY\XXX.cpp : fatal error C1853: 'FilePathZ\XXX.pch' precompiled
我是一名优秀的程序员,十分优秀!