167 lines
6.4 KiB
COBOL
Executable File
167 lines
6.4 KiB
COBOL
Executable File
*> Program Created by Gregory Campbell
|
|
|
|
identification division.
|
|
program-id. wordStat.
|
|
|
|
environment division.
|
|
input-output section.
|
|
file-control.
|
|
*>I set up the input and output files so the input file name is dynamic whereas the
|
|
*>output file is always created with the same name
|
|
select input-file assign to dynamic fname
|
|
organization is line sequential
|
|
file status is inputFS.
|
|
select output-file assign to "stats.txt"
|
|
organization is line sequential
|
|
file status is outputFS.
|
|
|
|
data division.
|
|
file section.
|
|
*>Declaration of all the variables used throughout the program
|
|
fd input-file.
|
|
01 finput pic x(80).
|
|
fd output-file.
|
|
01 foutput pic x(80).
|
|
|
|
working-storage section.
|
|
77 endOfFile pic 9 value 1.
|
|
77 inputFS pic xx.
|
|
77 outputFS pic xx.
|
|
77 fname pic x(30).
|
|
|
|
01 numSent pic s9(7) comp.
|
|
01 numWords pic s9(7) comp.
|
|
01 numChar pic s9(7) comp.
|
|
01 numNums pic s9(7) comp.
|
|
01 linePos pic s9(2) comp.
|
|
01 skip pic s9(2) comp.
|
|
01 input-area.
|
|
02 charScan pic x occurs 80 times.
|
|
01 output-title.
|
|
02 filler pic x(20) value "INPUT TEXT ANALYZED:".
|
|
01 output-underline.
|
|
02 filler pic x(40)
|
|
value "----------------------------------------".
|
|
02 filler pic x(40)
|
|
value "----------------------------------------".
|
|
01 output-area.
|
|
02 filler pic x value space.
|
|
02 out-line pic x(80).
|
|
01 output-stat-1.
|
|
02 filler pic x(20) value "number of sentences=".
|
|
02 outSent pic -(7)9.
|
|
01 output-stat-2.
|
|
02 filler pic x(16) value "number of words=".
|
|
02 outWords pic -(7)9.
|
|
01 output-stat-3.
|
|
02 filler pic x(16) value "number of chars=".
|
|
02 outChar pic -(7)9.
|
|
01 output-stat-4.
|
|
02 filler pic x(16) value "number of nums=".
|
|
02 outNums pic -(7)9.
|
|
01 output-stat-5.
|
|
02 filler pic x(33)
|
|
value "average number of words/sentence=".
|
|
02 averWordSent pic -(4)9.9.
|
|
01 output-stat-6.
|
|
02 filler pic x(31)
|
|
value "average number of symbols/word=".
|
|
02 averCharWord pic -(4)9.9.
|
|
|
|
*>Program starts by asking the user to input the name of the file that will be analyzed
|
|
procedure division.
|
|
display "Input filename: ".
|
|
accept fname.
|
|
|
|
*>checks if file exists, program ends if it doesnt exist
|
|
open input input-file.
|
|
if inputFS not = "00"
|
|
if inputFS = "35"
|
|
display "File not found: ", fname
|
|
stop run
|
|
end-if
|
|
end-if.
|
|
|
|
open output output-file.
|
|
|
|
write foutput from output-title after advancing 0 lines.
|
|
|
|
compute numSent = 0.
|
|
compute numWords = 0.
|
|
compute numChar = 0.
|
|
compute numNums = 0.
|
|
|
|
*> calls function that runs until the file is completely analyzed
|
|
perform readFile
|
|
until endOfFile is = 0.
|
|
|
|
*>stat values are moved into output variables and all output
|
|
*>is put onto the output file
|
|
compute outSent = numSent.
|
|
compute outWords = numWords.
|
|
compute outChar = numChar.
|
|
compute outNums = numNums.
|
|
compute averWordSent = numWords / numSent.
|
|
compute averCharWord = numChar / numWords.
|
|
write foutput from output-underline after advancing 1 line.
|
|
write foutput from output-stat-1 after advancing 1 line.
|
|
write foutput from output-stat-2 after advancing 1 line.
|
|
write foutput from output-stat-3 after advancing 1 line.
|
|
write foutput from output-stat-4 after advancing 1 line.
|
|
write foutput from output-stat-5 after advancing 1 line.
|
|
write foutput from output-stat-6 after advancing 1 line.
|
|
write foutput from output-underline after advancing 1 line.
|
|
|
|
close input-file.
|
|
close output-file.
|
|
|
|
display "Word Statistics generated to stats.txt".
|
|
|
|
stop run.
|
|
|
|
*>function that goes through everyline of the file until end of file is reached
|
|
*>writes every line of this file into the output file
|
|
*>calls a function that looks at every character
|
|
readFile.
|
|
compute linePos = 81.
|
|
read input-file into input-area
|
|
at end compute endOfFile = 0
|
|
end-read.
|
|
if endOfFile is not = 0
|
|
move input-area to out-line
|
|
write foutput from output-area after advancing 1 line
|
|
end-if.
|
|
compute linePos = 0.
|
|
perform statCheck
|
|
until linePos is > 80 or endOfFile is = 0.
|
|
|
|
*>function looks at every character in the file in order to determine
|
|
*>what statistic can be found based on the character and possibly
|
|
*>the character in after it depending on the character
|
|
statCheck.
|
|
compute skip = 0.
|
|
|
|
if charScan(linePos) is equal to space
|
|
compute linePos = linePos + 1
|
|
if charScan(linePos) is not equal to space
|
|
compute numWords = numWords + 1
|
|
else
|
|
compute skip = skip + 1
|
|
else if charScan(linePos) is equal to "." or "!" or "?"
|
|
compute numSent = numSent + 1
|
|
compute linePOs = linePos + 1
|
|
else if charScan(linePos) is numeric
|
|
compute linePos = linePos + 1
|
|
if charScan(linePos) is numeric
|
|
compute skip = skip + 1
|
|
else
|
|
compute numNums = numNums + 1
|
|
else if charScan(linePos) is not alphabetic
|
|
compute linePos = linePos + 1
|
|
else
|
|
compute numChar = numChar + 1
|
|
compute linePos = linePos + 1.
|
|
|
|
end-of-job.
|
|
|