Acmlm's Board - I2 Archive - Programming - Need Cobol help
| User | Post |
dormento
Posts: 45/99 |
Edit: oops, stupid me, hadn't realized it was for a VAX.
|
Deleted User
Posts: 1/12 |
Hi
Right now I'm just trying to add two numbers. Yes I know that sounds easy, but im about to go insane trying to do it. I'm trying to add the number of hours to a total count basically. I'm reading the number from a .dat file and I can get the number just fine from the file EARNED-POINTS the value will be 3.00 then i try and add that number to HRS-COUNT to keep track of the total number of hours. This is what my file student.dat looks like
JOESEPH HOOPKINS S1234567 ENGL. LIT ENGL 223 B3.009.00
BIO DESIGN BIOL 105 A3.0012.00
so i print out or say display earned-points and it will show 3.00 then i try ADD EARNED-POINTS TO HRS-COUNT and say display hrs-count and I get 6000 then it says 2000. Really I need some help. Anything you could suggest would be much appreciated.
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG.
AUTHOR. ME
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. VAX.
OBJECT-COMPUTER. VAX.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STUDENT-FILE ASSIGN TO "STUDENT.DAT".
SELECT PRINT-FILE ASSIGN TO SYS$OUTPUT.
DATA DIVISION.
FILE SECTION.
FD STUDENT-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 63 CHARACTERS
DATA RECORD IS STUDENT-IN.
01 STUDENT-IN.
05 STU-NAME PIC X(25).
05 STU-NUMBER PIC X(9).
05 COURSE-NAME PIC X(10).
05 COURSE-NUM PIC X(9).
05 COURSE-GRAD PIC X(2).
05 EARNED-POINTS PIC 99V99.
05 QUALITY-POINTS PIC 99V99.
FD PRINT-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 56 CHARACTERS
DATA RECORD IS PRINT-LINE.
01 PRINT-LINE.
05 FILLER PIC X(5).
05 PRINT-COURSE PIC X(10).
05 FILLER PIC X(8).
05 PRINT-C-NUM PIC X(9).
05 FILLER PIC X(6).
05 PRINT-GRAD PIC X(5).
05 FILLER PIC X(2).
05 PRINT-POINTS PIC 99V99.
05 FILLER PIC X(3).
05 PRINT-QTY PIC 99V99.
WORKING-STORAGE SECTION.
01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
01 HRS-COUNT PIC 99V99 VALUE ZERO.
01 HEADER-1.
02 FILLER PIC X(50) VALUE" SCHOOL NAME |
|
