COBOL To Julia Converter

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMBERS PIC 9(5) OCCURS 100.
01 COUNT PIC 9(3) VALUE 0.
01 TOTAL PIC 9(7) VALUE 0.
01 AVERAGE PIC 9(7)V99 VALUE 0.
01 END-OF-LIST PIC X VALUE ‘N’.
01 USER-INPUT PIC 9(5).

PROCEDURE DIVISION.
MAIN-LOGIC.
DISPLAY “Enter integers (Type ‘0’ to stop):”
PERFORM UNTIL END-OF-LIST = ‘Y’
ACCEPT USER-INPUT
IF USER-INPUT = 0 THEN
MOVE ‘Y’ TO END-OF-LIST
ELSE
ADD USER-INPUT TO TOTAL
ADD 1 TO COUNT
MOVE USER-INPUT TO NUMBERS(COUNT)
END-IF
END-PERFORM

IF COUNT > 0 THEN
COMPUTE AVERAGE = TOTAL / COUNT
DISPLAY “Sum of the integers: ” TOTAL
DISPLAY “Average of the integers: ” AVERAGE
ELSE
DISPLAY “No integers were entered.”
END-IF.

STOP RUN.

function main()
numbers = fill(0, 100) # Array to hold up to 100 integers
count = 0
total = 0
average = 0.0
end_of_list = ‘N’

println(“Enter integers (Type ‘0’ to stop):”)
while end_of_list != ‘Y’
user_input = parse(Int, readline())
if user_input == 0
end_of_list = ‘Y’
else
total += user_input
count += 1
numbers[count] = user_input
end
end

if count > 0
average = total / count
println(“Sum of the integers: “, total)
println(“Average of the integers: “, average)
else
println(“No integers were entered.”)
end
end

end

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EmployeeFile ASSIGN TO ‘EMPLOYEE.DAT’
ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD EmployeeFile.
01 EmployeeRecord.
05 EmployeeName PIC X(30).
05 EmployeeSalary PIC 9(5)V99.

WORKING-STORAGE SECTION.
01 TotalSalary PIC 9(7)V99 VALUE 0.
01 EmployeeCount PIC 9(3) VALUE 0.
01 AverageSalary PIC 9(5)V99 VALUE 0.
01 WS-EOF PIC X VALUE ‘N’.
01 Message PIC X(50).

PROCEDURE DIVISION.
MAIN-PROCESS.
OPEN INPUT EmployeeFile
PERFORM UNTIL WS-EOF = ‘Y’
READ EmployeeFile INTO EmployeeRecord
AT END
MOVE ‘Y’ TO WS-EOF
NOT AT END
ADD EmployeeSalary TO TotalSalary
ADD 1 TO EmployeeCount
END-READ
END-PERFORM

IF EmployeeCount > 0
COMPUTE AverageSalary = TotalSalary / EmployeeCount
ELSE
DISPLAY ‘No employee records found.’
STOP RUN
END-IF

DISPLAY ‘Average Salary: ‘ AverageSalary.

RESET WS-EOF
REWRITE-DISPLAY-LOOP.

OPEN INPUT EmployeeFile
PERFORM UNTIL WS-EOF = ‘Y’
READ EmployeeFile INTO EmployeeRecord
AT END
MOVE ‘Y’ TO WS-EOF
NOT AT END
IF EmployeeSalary > AverageSalary
STRING EmployeeName DELIMITED BY SPACE
‘salary is above average’ INTO Message
ELSE
STRING EmployeeName DELIMITED BY SPACE
‘salary is below average’ INTO Message
END-IF
DISPLAY Message
END-READ
END-PERFORM

CLOSE EmployeeFile.
STOP RUN.

function main()
totalSalary = 0.0
employeeCount = 0
averageSalary = 0.0
wsEOF = false
message = “”

# Open Employee file for reading
open(“EMPLOYEE.DAT”, “r”) do file
# Read records until EOF
while !wsEOF
line = readline(file)
if isnothing(line)
wsEOF = true
else
splitLine = split(line, ‘,’) # Assuming records are comma-separated
employeeName = splitLine[1]
employeeSalary = parse(Float64, splitLine[2])

totalSalary += employeeSalary
employeeCount += 1
end
end

# Compute the average salary
if employeeCount > 0
averageSalary = totalSalary / employeeCount
else
println(“No employee records found.”)
return
end

println(“Average Salary: “, averageSalary)

# Reset EOF flag for second read
wsEOF = false
seek(file, 0) # Reset file reading position to the start

# Read records again to check against average salary
while !wsEOF
line = readline(file)
if isnothing(line)
wsEOF = true
else
splitLine = split(line, ‘,’) # Again assuming records are comma-separated
employeeName = splitLine[1]
employeeSalary = parse(Float64, splitLine[2])

if employeeSalary > averageSalary
message = “$employeeName salary is above average”
else
message = “$employeeName salary is below average”
end
println(message)
end
end
end
end

end # module