Register | Login | |||||
Main
| Memberlist
| Active users
| ACS
| Commons
| Calendar
| Online users Ranks | FAQ | Color Chart | Photo album | IRC Chat |
| |
0 user currently in Programming. | 3 guests |
Acmlm's Board - I2 Archive - Programming - Need Cobol help | | | |
Add to favorites | "RSS" Feed | Next newer thread | Next older thread |
User | Post | ||
Deleted User Banned Level: 8 Posts: 1/12 EXP: 1736 For next: 451 Since: 01-23-01 Since last post: 13089 days Last activity: 21 days |
| ||
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 |
|||
dormento Shyguy Level: 17 Posts: 45/99 EXP: 24075 For next: 668 Since: 03-15-04 From: Esteio - Brasil Since last post: 182 days Last activity: 161 days |
| ||
Edit: oops, stupid me, hadn't realized it was for a VAX. (edited by dormento on 09-14-04 05:49 PM) (edited by dormento on 09-14-04 05:50 PM) (edited by dormento on 09-14-04 06:11 PM) |
Add to favorites | "RSS" Feed | Next newer thread | Next older thread |
Acmlm's Board - I2 Archive - Programming - Need Cobol help | | | |