|
-
Feb 13th, 2007, 09:32 PM
#1
Thread Starter
Addicted Member
COBOL forums
I need a forum just like this one, where I can get COBOL help !
Does anyone know of one, or does anyone here really nifty with COBOL themselves ? I have a class now, and it is unreal how much help I need. So please if anyone feels they can help , I'd very much apperciate it.
I have a giant 700+ pg txt book, but it dosen't give help like a person. And in a class with over 60 students, it's hard to get personal help from the Prof.
Any any any one out there that knows of good help....please.
Thanks again - justin
-
Feb 14th, 2007, 07:55 AM
#2
Re: COBOL forums
Post a question here that you have - let's see if we can answer it...
-
Feb 14th, 2007, 08:06 AM
#3
-
Feb 14th, 2007, 08:46 AM
#4
Re: COBOL forums
I can't believe they still teach COBOL in scholls. 
-
Feb 14th, 2007, 09:07 AM
#5
Re: COBOL forums
 Originally Posted by RhinoBull
I can't believe they still teach COBOL in scholls.
With all of the legacy COBOL code out there I can see a need for COBOL programmers for years to come.
Here is a COBOL FAQ site that I found with a forum. I can not attest to its quality however.
I Googled "Cobol Forums" and got back quite a few hits. Try it and see if you find anything that looks interesting.
-
Feb 14th, 2007, 09:15 AM
#6
Re: COBOL forums
Originally Posted by RhinoBull
I can't believe they still teach COBOL in scholls.
Check out this link - look for COBOL in some of the graphs - it's actually still a lot bigger then most people want to believe...
http://www.dedasys.com/articles/lang...opularity.html
Most of the big legacy insurance and claims processing software is still written in COBOL - lot's of ordering systems - will take 20 more years for it to all be ported or "glazed over" (with COBOL still as the backend!).
-
Feb 14th, 2007, 09:18 AM
#7
Re: COBOL forums
Originally Posted by szlamany
Most of the big legacy insurance and claims processing software is still written in COBOL
I'm in the insurance industry and I can definately attest to this!!!
-
Feb 14th, 2007, 09:26 AM
#8
Re: COBOL forums
The Big Blues still push around a 1000-byte cobol formatted record - the packed numeric datatypes are so difficult to deal with in SQL...
-
Feb 14th, 2007, 09:49 AM
#9
Re: COBOL forums
Hmm, I'm well aware of the legacy apps but what I am surprised is the fact that there were many (many) COBOL programmers "let go" after the Y2K nonsense was over and many of them are still looking to get back so why in the heck would you want to hire someone with no COBOL background when you can [figurally speaking] wistle and get someone with very heavy experience???
-
Feb 14th, 2007, 10:03 AM
#10
Re: COBOL forums
I think that the COBOL needs are different now - the cobol apps are being amended with web-frontends - people using screen scrapers to put new GUI's on top - it's a different COBOL world then the "develop on a dumb terminal" COBOL world of the 70's and 80's.
COBOL is now being taught in more and more colleges so that the new breed of programmers can handle the mixed world that COBOL exists in.
COBOL is on the increase right now...
http://www.technewsworld.com/story/55346.html
In 2000 60% of our income came from COBOL contracts. In 2001 that number was still near 50%. It would still be a major factor if we didn't start focusing on a VB/SQL product line here.
It's nice to know that we can always bring back online our COBOL consulting business in the future.
-
Feb 14th, 2007, 11:37 AM
#11
Thread Starter
Addicted Member
Re: COBOL forums
alright, i'm going to post my code in here in a couple of minutes, but it's good to see that people still care about cobol. That's what my professsor told the class, that "you might not think it's widley used', but really i guess it is. thanks for all the replies, ill get this together in no time. -thanks justin.....
Actully, quik question, how am I able to copy my code that i have on the iseries server. I use putty to access it, and i can't find a way to copy and past my file in a notepad of some sorts...any ideas.??
Last edited by jlbovo; Feb 14th, 2007 at 11:48 AM.
--thanks for the help.
-
Feb 14th, 2007, 12:19 PM
#12
Re: COBOL forums
From what I can remember when you select the text with Putty it's automatically copied to the clipboard.
Have you tried it?
What is your backend machine?
-
Feb 14th, 2007, 01:14 PM
#13
Thread Starter
Addicted Member
Re: COBOL forums
VB Code:
FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 IDENTIFICATION DIVISION.
0002.00 *************************
0003.00 ** CIS 3741 LAB 2
0004.00 **
0005.00 **JANUARY 30 - 2007
0006.00 **********************
0007.00 *
0008.00 PROGRAM-ID. LAB2.
0009.00 ENVIRONMENT DIVISION.
0010.00 INPUT-OUTPUT SECTION.
0011.00 FILE-CONTROL.
0012.00 SELECT STUDENT-FILE-IN
0013.00 ASSIGN TO DISK-PESTUDENT.
0014.00 SELECT STUDENT-FILE-OUT
0015.00 ASSIGN TO PRINTER-QPRINT.
0016.00 DATA DIVISION.
0017.00 FILE SECTION.
0018.00 FD STUDENT-FILE-IN.
0019.00 01 STUDENT-RECORD-IN.
0020.00 05 STUDENT-NAME-IN PIC X(20).
0021.00 05 NUMBER-OF-CREDITS-IN PIC 9(2).
0022.00 05 PIC X(58).
0023.00 FD STUDENT-FILE-OUT.
0024.00 01 PRINT-REC-OUT.
0025.00 05 STUDENT-NAME-OUT PIC X(20).
0026.00 05 PIC X(20).
0027.00 05 NUMBER-OF-CREDITS-OUT PIC 9(2).
0028.00 05 PIC X(20).
0029.00 05 TUITION-OUT PIC 9(4).
0030.00 05 PIC X(14).
0031.00 WORKING-STORAGE SECTION.
0032.00 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
0033.00 01 PART-TIME-TUITION PIC 9(3) VALUE 525.
0034.00 01 FULL-TIME-TUITION PIC 9(4) VALUE 6300.
0035.00 01 LINE-CNTR PIC 9(2) VALUE 99.
0036.00 01 HEADING-LINE-1.
0037.00 05 PIC X(10) VALUE SPACES.
0038.00 05 PIC X(13) VALUE
0039.00 "STUDENT NAME".
0040.00 05 PIC X(10) VALUE SPACES.
0041.00 05 PIC X(17) VALUE
0042.00 "NUMBER OF CREDITS".
0043.00 05 PIC X(10) VALUE SPACES.
0044.00 05 PIC X(7) VALUE
0045.00 "TUITION".
0046.00 PROCEDURE DIVISION.
0047.00 0-MAIN-MODULE.
0048.00 OPEN INPUT STUDENT-FILE-IN
0049.00 OUTPUT STUDENT-FILE-OUT
0050.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0051.00 READ STUDENT-FILE-IN
0052.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0053.00 NOT AT END PERFORM 1-PROCESS-STUDENT
0054.00 END-READ
0055.00 END-PERFORM
0056.00 CLOSE STUDENT-FILE-IN
0057.00 STUDENT-FILE-OUT
0058.00 STOP RUN.
0059.00 1-PROCESS-STUDENT.
0060.00 IF LINE-CNTR > 50
0061.00 THEN
0062.00 PERFORM 2-PRINT-PAGE-HEADINGS
0063.00 END-IF
0064.00 MOVE SPACES TO PRINT-REC-OUT
0065.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0066.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0067.00 IF NUMBER-OF-CREDITS-IN > 12
0068.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0069.00 ELSE
0070.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0071.00 GIVING TUITION-OUT
0072.00 END-IF
0073.00 WRITE PRINT-REC-OUT AFTER ADVANCING 1 LINE
0074.00 ADD 1 TO LINE-CNTR.
0075.00 2-PRINT-PAGE-HEADINGS.
0076.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-1
0077.00 AFTER PAGE
0078.00 MOVE 1 TO LINE-CNTR.
****************** End of data ****************************************
Last edited by jlbovo; Feb 14th, 2007 at 10:27 PM.
--thanks for the help.
-
Feb 14th, 2007, 01:22 PM
#14
Thread Starter
Addicted Member
Re: COBOL forums
ok thanks the code, there. and here's my output....
VB Code:
File . . . . . : QPRINT Page/Line 2/1
Control . . . . . Columns 1 - 78
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+...
STUDENT NAME NUMBER OF CREDITS TUITION
Johnson, Derek 12 $ 6300
Murray, Susan 11 $ 5775
Hartman, Tom 13 $ 6300
Wilson, Lisa 12 $ 6300
Browne, Dan 18 $ 6300
Roberts, Doug 16 $ 6300
Smith, Arlene 08 $ 4200
........
now i have to add another heading. it has to have Date, Title, and Page #.
this is what i came up with in class...
VB Code:
0051.00 01 STUDENT-LINE-1.
0052.00 05 DATE-OUT PIC XX/XX/XX.
0053.00 05 PIC X(24) VALUE SPACES.
0054.00 05 PIC X(15) VALUE
0055.00 "STUDENT SUMMARY".
0056.00 05 PIC X(11) VALUE SPACES.
0057.00 05 PIC X(13) VALUE
0058.00 "PAGE NUMBER:".
0059.00 05 PAGE-OUT PIC ZZ9 VALUE ZEROS.
0060.00 05 PIC X(15) VALUE SPACES.
....and thsi si how it looks now...
VB Code:
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+...
02/13/07 STUDENT SUMMARY PAGE NUMBER: 1
STUDENT NAME NUMBER OF CREDITS TUITION
Johnson, Derek 12 $6,300
Murray, Susan 11 $5,775
Hartman, Tom 13 $6,300
Wilson, Lisa 12 $6,300
Browne, Dan 18 $6,300
Roberts, Doug 16 $6,300
Smith, Arlene 8 $4,200
....but how do i get a line in between the heading 1 (date page title) and heading -2 (name,credit, tutition) ??
Last edited by jlbovo; Feb 14th, 2007 at 10:40 PM.
--thanks for the help.
-
Feb 14th, 2007, 01:31 PM
#15
Re: COBOL forums
Would you mind editing those two last posts and use VBCODE tags instead of CODE tags...
It stops the scroll bars...
-
Feb 14th, 2007, 01:32 PM
#16
Re: COBOL forums
Actually you are having some nasty carriage return issues on those posts...
-
Feb 14th, 2007, 10:29 PM
#17
Thread Starter
Addicted Member
Re: COBOL forums
i went back and editied them. I really think it made a difference.
How can i stop them from return carriageing like that ??
mayb i'll try to telnet from the cmd, and see if that looks any better...
VB Code:
SEU==> LAB2_3
FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 IDENTIFICATION DIVISION.
0002.00 *************************
0003.00 ** CIS 3741 LAB 2
0004.00 **
0005.00 **JANUARY 30 - 2007
0006.00 **********************
0007.00 *
0008.00 PROGRAM-ID. LAB2.
0009.00 ENVIRONMENT DIVISION.
0010.00 INPUT-OUTPUT SECTION.
0011.00 FILE-CONTROL.
0012.00 SELECT STUDENT-FILE-IN
0013.00 ASSIGN TO DISK-PESTUDENT.
0014.00 SELECT STUDENT-FILE-OUT
0015.00 ASSIGN TO PRINTER-QPRINT.
0016.00 DATA DIVISION.
0017.00 FILE SECTION.
0018.00 FD STUDENT-FILE-IN.
0019.00 01 STUDENT-RECORD-IN.
0020.00 05 STUDENT-NAME-IN PIC X(20).
0021.00 05 NUMBER-OF-CREDITS-IN PIC 9(2).
0022.00 05 PIC X(58).
0023.00 FD STUDENT-FILE-OUT.
0024.00 01 PRINT-REC-OUT.
0025.00 05 STUDENT-NAME-OUT PIC X(20).
0025.00 05 STUDENT-NAME-OUT PIC X(20).
0026.00 05 PIC X(20).
0027.00 05 NUMBER-OF-CREDITS-OUT PIC Z9(2).
0028.00 05 PIC X(20).
0029.00 05 TUITION-OUT PIC $Z9(4).
0030.00 05 PIC X(14).
0031.00 WORKING-STORAGE SECTION.
0032.00 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
0033.00 01 PART-TIME-TUITION PIC 9(3) VALUE 525.
0034.00 01 FULL-TIME-TUITION PIC 9(4) VALUE 6300.
0035.00 01 LINE-CNTR PIC 9(2) VALUE 99.
0036.00 01 HEADING-LINE-1.
0037.00 05 PIC X(10) VALUE SPACES.
0038.00 05 PIC X(13) VALUE
0039.00 "STUDENT NAME".
0040.00 05 PIC X(10) VALUE SPACES.
0041.00 05 PIC X(17) VALUE
0042.00 "NUMBER OF CREDITS".
0043.00 05 PIC X(10) VALUE SPACES.
0044.00 05 PIC X(7) VALUE
0045.00 "TUITION".
0046.00 PROCEDURE DIVISION.
0047.00 0-MAIN-MODULE.
0048.00 OPEN INPUT STUDENT-FILE-IN
0049.00 OUTPUT STUDENT-FILE-OUT
0050.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0051.00 READ STUDENT-FILE-IN
0052.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0053.00 NOT AT END PERFORM 1-PROCESS-STUDENT
0054.00 END-READ
0055.00 END-PERFORM
0056.00 CLOSE STUDENT-FILE-IN
0057.00 STUDENT-FILE-OUT
0058.00 STOP RUN.
0059.00 1-PROCESS-STUDENT.
0060.00 IF LINE-CNTR > 50
0061.00 THEN
0062.00 PERFORM 2-PRINT-PAGE-HEADINGS
0063.00 END-IF
0064.00 MOVE SPACES TO PRINT-REC-OUT
0065.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0066.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0067.00 IF NUMBER-OF-CREDITS-IN > 12
0068.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0069.00 ELSE
0070.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0071.00 GIVING TUITION-OUT
0072.00 END-IF
0073.00 WRITE PRINT-REC-OUT AFTER ADVANCING 1 LINE
0074.00 ADD 1 TO LINE-CNTR.
0075.00 2-PRINT-PAGE-HEADINGS.
0076.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-1
0077.00 AFTER PAGE
0078.00 MOVE 1 TO LINE-CNTR.
****************** End of data ****************************************
YAY!!! - ok now , i'll go back up and edit those post 2 !. - justin
Last edited by jlbovo; Feb 14th, 2007 at 10:34 PM.
--thanks for the help.
-
Feb 15th, 2007, 07:48 AM
#18
Re: COBOL forums
Originally Posted by jlbovo
....but how do i get a line in between the heading 1 (date page title) and heading -2 (name,credit, tutition) ??
Well - you already know about AFTER ADVANCING x LINE in the WRITE statement.
You are not showing the code with the "second heading" line - so I can't be specific...
But I would guess you would add AFTER ADVANCING 2 LINES to the WRITE.
-
Feb 15th, 2007, 12:13 PM
#19
Thread Starter
Addicted Member
Re: COBOL forums
Good thing you pointed out, I did post my old code, here's the new...
VB Code:
SEU==> LAB_3
FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 IDENTIFICATION DIVISION.
0002.00 *************************
0003.00 ** CIS 3741 LAB 3
0004.00 **
0005.00 **FEBUARY 13 - 2007
0006.00 **********************
0007.00 *
0008.00 PROGRAM-ID. LAB3.
0009.00 ENVIRONMENT DIVISION.
0010.00 INPUT-OUTPUT SECTION.
0011.00 FILE-CONTROL.
0012.00 SELECT STUDENT-FILE-IN
0013.00 ASSIGN TO DISK-PESTUDENT.
0014.00 SELECT STUDENT-FILE-OUT
0015.00 ASSIGN TO PRINTER-QPRINT.
0016.00 DATA DIVISION.
0017.00 FILE SECTION.
0018.00 FD STUDENT-FILE-IN.
0019.00 01 STUDENT-RECORD-IN.
0020.00 05 STUDENT-NAME-IN PIC X(20).
0021.00 05 NUMBER-OF-CREDITS-IN PIC 9(2).
0022.00 05 PIC X(58).
0023.00 FD STUDENT-FILE-OUT.
0024.00 01 PRINT-REC-OUT.
0025.00 05 STUDENT-NAME-OUT PIC X(20).
0026.00 05 PIC X(20).
0027.00 05 NUMBER-OF-CREDITS-OUT PIC Z9.
0028.00 05 PIC X(20).
0029.00 05 TUITION-OUT PIC $Z,ZZ9.
0030.00 05 PIC X(14).
0031.00 01 PRINT-SUMM-OUT-PART.
0032.00 05 PART-TIME-NOS PIC ZZZ9.
0033.00 05 PART-TIME-NOC PIC ZZ,ZZ9.
0034.00 05 PART-TIME-TUITIONS PIC $Z,ZZZ,ZZ9.
0035.00 01 PRINT-SUMM-OUT-FULL.
0036.00 05 FULL-TIME-NOS PIC ZZZ9.
0037.00 05 FULL-TIME-NOC PIC ZZ,ZZ9.
0038.00 05 FULL-TIME-TUITIONS PIC $Z,ZZZ,ZZ9.
0039.00 01 TOTAL-SUMM.
0040.00 05 TOTAL-NOS PIC ZZZ9.
0041.00 05 TOTAL-NOC PIC ZZ,ZZ9.
0042.00 05 TOTAL-TUITIONS PIC $Z,ZZZ,ZZ9.
0043.00 WORKING-STORAGE SECTION.
0044.00 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
0045.00 01 PART-TIME-TUITION PIC 9(3) VALUE 525.
0046.00 01 FULL-TIME-TUITION PIC 9(4) VALUE 6300.
0047.00 01 PT-TUITION-CNTR PIC 9(2) VALUE ZEROS.
0048.00 01 FT-TUITION-CNTR PIC 9(2) VALUE ZEROS.
0049.00 01 PAGE-NUMB PIC 99 VALUE ZEROS.
0050.00 01 LINE-CNTR PIC 9(2) VALUE 99.
0051.00 01 HEADING-LINE-1.
0052.00 05 DATE-OUT PIC XX/XX/XX.
0053.00 05 PIC X(24) VALUE SPACES.
0054.00 05 PIC X(15) VALUE
0055.00 "STUDENT SUMMARY".
0056.00 05 PIC X(11) VALUE SPACES.
0057.00 05 PIC X(13) VALUE
0058.00 "PAGE NUMBER :".
0059.00 05 PAGE-OUT PIC ZZ9 VALUE ZEROS.
0060.00 05 PIC X(15) VALUE SPACES.
0061.00 01 HEADING-LINE-2.
0062.00 05 PIC X(13) VALUE
0063.00 "STUDENT NAME".
0064.00 05 PIC X(22) VALUE SPACES.
0065.00 05 PIC X(17) VALUE
0066.00 "NUMBER OF CREDITS".
0067.00 05 PIC X(10) VALUE SPACES.
0068.00 05 PIC X(7) VALUE
0069.00 "TUITION".
0070.00 01 DATE-IN.
0071.00 05 YR-IN PIC X(2).
0072.00 05 MO-IN PIC X(2).
0073.00 05 DA-IN PIC X(2).
0074.00 01 DATE-WS PIC X(8).
0075.00 01 DATE-TEMP REDEFINES DATE-WS.
0076.00 05 MO-TEMP PIC X(2).
0077.00 05 DA-TEMP PIC X(2).
0078.00 05 YR-TEMP PIC X(2).
0079.00 PROCEDURE DIVISION.
0080.00 0-MAIN-MODULE.
0081.00 OPEN INPUT STUDENT-FILE-IN
0082.00 OUTPUT STUDENT-FILE-OUT
0083.00 ACCEPT DATE-IN FROM DATE
0084.00 MOVE MO-IN TO MO-TEMP
0085.00 MOVE DA-IN TO DA-TEMP
0086.00 MOVE YR-IN TO YR-TEMP
0087.00 MOVE DATE-WS TO DATE-OUT
0088.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0089.00 READ STUDENT-FILE-IN
0090.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0091.00 NOT AT END PERFORM 1-PROCESS-STUDENT
0092.00 END-READ
0093.00 END-PERFORM
0094.00 CLOSE STUDENT-FILE-IN
0095.00 STUDENT-FILE-OUT
0096.00 STOP RUN.
0097.00 1-PROCESS-STUDENT.
0098.00 IF LINE-CNTR > 50
0099.00 THEN
0100.00 PERFORM 1-2-PRINT-PAGE-HEADINGS
0101.00 END-IF
0102.00 MOVE SPACES TO PRINT-REC-OUT
0103.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0104.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0105.00 IF NUMBER-OF-CREDITS-IN > 12
0106.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0107.00 ADD 1 TO FT-TUITION-CNTR
0108.00 ELSE
0109.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0110.00 GIVING TUITION-OUT
0111.00 ADD 1 TO PT-TUITION-CNTR
0112.00 END-IF
0113.00 WRITE PRINT-REC-OUT AFTER ADVANCING 1 LINE
0114.00 ADD 1 TO LINE-CNTR.
0115.00 1-2-PRINT-PAGE-HEADINGS.
0116.00 ADD 1 TO PAGE-NUMB
0117.00 MOVE PAGE-NUMB TO PAGE-OUT
0118.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-1
0119.00 AFTER ADVANCING 1 LINE
0120.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-2
0121.00 AFTER ADVANCING 1 LINE
0122.00 MOVE 1 TO LINE-CNTR.
0123.00 2-PRINT-SUMMARY.
0124.00 IF LINE-CNTR > 50 THEN
0125.00 PERFORM 2-2-PAGE-HEADINGS
0126.00 END-IF
0127.00 MOVE SPACES TO PRINT-REC-OUT
0128.00 MOVE FT-TUITION-CNTR TO FULL-TIME-NOS.
0129.00 2-2-PAGE-HEADINGS.
****************** End of data ****************************************
ok, that is that if it helps you help me answer the question about the blank line. Does it no show on the screen put possibly print the blank line out when it's sent to the printer ?
and the other thing the is I need 2-print-summary to run after 1-process student is done running to would I want to put the PERFORM clause for 2-print-summary somewhere like this...
VB Code:
0080.00 0-MAIN-MODULE.
0081.00 OPEN INPUT STUDENT-FILE-IN
0082.00 OUTPUT STUDENT-FILE-OUT
0083.00 ACCEPT DATE-IN FROM DATE
0084.00 MOVE MO-IN TO MO-TEMP
0085.00 MOVE DA-IN TO DA-TEMP
0086.00 MOVE YR-IN TO YR-TEMP
0087.00 MOVE DATE-WS TO DATE-OUT
0088.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0089.00 READ STUDENT-FILE-IN
0090.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0091.00 NOT AT END PERFORM 1-PROCESS-STUDENT
0092.00 END-READ
0093.00 END-PERFORM
**my pseudocode
move yes to are the-more-records
0088.00 PERFORM 2-print-summary
0093.00 END-PERFORM
*****end of my pcode.
0094.00 CLOSE STUDENT-FILE-IN
0095.00 STUDENT-FILE-OUT
0096.00 STOP RUN.
....something like that ?! Thanks so much for helping tho! -justin
-
Feb 15th, 2007, 12:40 PM
#20
Re: COBOL forums
First of all this link:'
http://publib.boulder.ibm.com/infoce...oc/tpqsm21.htm
says this:
If the printed page is held on an intermediate device (a disk, for example), the format can appear different from the expected format when the output is edited or browsed.
So the ADVANCING 2 might look different on screen then on paper. I don't recall that fact with the COBOL I've worked with - but different O/S could be a factor with that.
I'll work on your other question shortly.
-
Feb 15th, 2007, 12:58 PM
#21
Re: COBOL forums
Ok - I've posted the bottom part of your code with some ideas - I've put them in bold - hopefully they show up that way
From what I understand you want to do 2-PRINT-SUMMARY at the "end" of the run - is that right? I hope so...
Otherwise you wanted to do 2-PRINT-SUMMARY after each student - but I'm not clear on that - I'll assume after the "end" of the run.
VB Code:
0088.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0089.00 READ STUDENT-FILE-IN
0090.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0091.00 NOT AT END PERFORM 1-PROCESS-STUDENT
[b]009x.00 AT END PERFORM 2-PRINT-SUMMARY[/B] <-- you could put it here
0092.00 END-READ
0093.00 END-PERFORM
[b]009x.00 PERFORM 2-PRINT-SUMMARY[/B] <-- you could also put it here
0094.00 CLOSE STUDENT-FILE-IN
0095.00 STUDENT-FILE-OUT
0096.00 STOP RUN.
0097.00 1-PROCESS-STUDENT.
0098.00 IF LINE-CNTR > 50
0099.00 THEN
0100.00 PERFORM 1-2-PRINT-PAGE-HEADINGS
0101.00 END-IF
0102.00 MOVE SPACES TO PRINT-REC-OUT
0103.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0104.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0105.00 IF NUMBER-OF-CREDITS-IN > 12
0106.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0107.00 ADD 1 TO FT-TUITION-CNTR
0108.00 ELSE
0109.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0110.00 GIVING TUITION-OUT
0111.00 ADD 1 TO PT-TUITION-CNTR
0112.00 END-IF
0113.00 WRITE PRINT-REC-OUT AFTER ADVANCING 1 LINE
0114.00 ADD 1 TO LINE-CNTR.
0115.00 1-2-PRINT-PAGE-HEADINGS.
0116.00 ADD 1 TO PAGE-NUMB
0117.00 MOVE PAGE-NUMB TO PAGE-OUT
0118.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-1
0119.00 AFTER ADVANCING 1 LINE
0120.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-2
0121.00 AFTER ADVANCING 1 LINE
0122.00 MOVE 1 TO LINE-CNTR.
0123.00 2-PRINT-SUMMARY.
0124.00 IF LINE-CNTR > 50 THEN
0125.00 PERFORM 2-2-PAGE-HEADINGS
0126.00 END-IF
0127.00 MOVE SPACES TO PRINT-REC-OUT
0128.00 MOVE FT-TUITION-CNTR TO FULL-TIME-NOS.
0129.00 2-2-PAGE-HEADINGS.
****************** End of data ****************************************
I'm seeing that 2-PRINT-SUMMARY is incomplete - I'm guessing you have ideas on how to finish that. And 2-2-PAGE-HEADINGS is empty - I'm also guessing you will rip the other PAGE-HEADINGS logic and drop it there.
It seems you are actually in pretty good shape here - you've got most of what you need done already. Am I missing something?
-
Feb 15th, 2007, 02:11 PM
#22
Thread Starter
Addicted Member
 Re: COBOL forums
ok, im in class now.
i think i have to do this so i can come up with the totals in the 2-print-summary. i need full time number of students, full time number of credits, full time tuitions. and part-time number of students, part time number of credits, and part time tuitions. then total number of students, total number of credits, and total tuitions.
in 1-process-student where i decide if they are full time student or a part time student. so i can keep track 2-print sum needs the follow infomarion in it
VB Code:
0031.00 01 PRINT-SUMM-OUT-PART.
0032.00 05 PART-TIME-NOS PIC ZZZ9.
0033.00 05 PART-TIME-NOC PIC ZZ,ZZ9.
0034.00 05 PART-TIME-TUITIONS PIC $Z,ZZZ,ZZ9.
0035.00 01 PRINT-SUMM-OUT-FULL.
0036.00 05 FULL-TIME-NOS PIC ZZZ9.
0037.00 05 FULL-TIME-NOC PIC ZZ,ZZ9.
0038.00 05 FULL-TIME-TUITIONS PIC $Z,ZZZ,ZZ9.
0039.00 01 TOTAL-SUMM.
0040.00 05 TOTAL-NOS PIC ZZZ9.
0041.00 05 TOTAL-NOC PIC ZZ,ZZ9.
0042.00 05 TOTAL-TUITIONS PIC $Z,ZZZ,ZZ9
.....so again in 1-process-student
VB Code:
0097.00 1-PROCESS-STUDENT.
0098.00 IF LINE-CNTR > 50
0099.00 THEN
0100.00 PERFORM 1-2-PRINT-PAGE-HEADINGS
0101.00 END-IF
0102.00 MOVE SPACES TO PRINT-REC-OUT
0103.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0104.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0105.00 IF NUMBER-OF-CREDITS-IN > 12
0106.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0107.00 ADD 1 TO FT-TUITION-CNTR
***my pcode****
move tuition-out to full-time-tuitions (so i can keep track of fulltime tuition)
move number-of-credits-out to full time-noc (so i can keep track of full time credit hrs)
0108.00 ELSE
0109.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0110.00 GIVING TUITION-OUT
0111.00 ADD 1 TO PT-TUITION-CNTR
******pcode move tuition-out to part-time-tutitions
move number-of credits-out to part-time-credits.
0112.00 END-IF
...somethign along those lines plus i need to keep track fo the TOTALS total-students, total number of credits and total tutitons,.
-
Feb 15th, 2007, 10:53 PM
#23
Thread Starter
Addicted Member
Re: COBOL forums
ok, impretty sure i got this wrapped up almost. I worked on it for 2 hrs today towards the end of class and I got some help from a student next to me. ALong with tehir help, and alllll the help i got here, i thik i am close to beign done. I will post my almost finished code up tomm along with anymore questioons i might have. thanks again - justin
-
Feb 16th, 2007, 11:12 AM
#24
Thread Starter
Addicted Member
Re: COBOL forums
here we go, after all this long hard work. Thsi si it, i'm so glad people here cna help, here it is...
VB Code:
FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 IDENTIFICATION DIVISION.
0002.00 *************************
0003.00 ** CIS 3741 LAB 3
0004.00 **
0005.00 **FEBUARY 13 - 2007
0006.00 **********************
0007.00 *
0008.00 PROGRAM-ID. LAB3.
0009.00 ENVIRONMENT DIVISION.
0010.00 INPUT-OUTPUT SECTION.
0011.00 FILE-CONTROL.
0012.00 SELECT STUDENT-FILE-IN
0013.00 ASSIGN TO DISK-PESTUDENT.
0014.00 SELECT STUDENT-FILE-OUT
0015.00 ASSIGN TO PRINTER-QPRINT.
0016.00 DATA DIVISION.
0017.00 FILE SECTION.
0018.00 FD STUDENT-FILE-IN.
0019.00 01 STUDENT-RECORD-IN.
0020.00 05 STUDENT-NAME-IN PIC X(20).
0021.00 05 NUMBER-OF-CREDITS-IN PIC 9(2).
0022.00 05 PIC X(58).
0023.00 FD STUDENT-FILE-OUT.
0024.00 01 PRINT-REC-OUT.
0025.00 05 STUDENT-NAME-OUT PIC X(20).
0026.00 05 PIC X(20).
0027.00 05 NUMBER-OF-CREDITS-OUT PIC Z9.
0028.00 05 PIC X(20).
0029.00 05 TUITION-OUT PIC 9(5).
0030.00 05 PIC X(14).
0031.00 WORKING-STORAGE SECTION.
0032.00 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
0033.00 01 PART-TIME-TUITION PIC 9(3) VALUE 525.
0034.00 01 FULL-TIME-TUITION PIC 9(4) VALUE 6300.
0035.00 01 PART-TIME-TUITION-AMOUNT PIC 9(4).
0036.00 01 PT-TUITION-CNTR PIC 99 VALUE ZEROS.
0037.00 01 FT-TUITION-CNTR PIC 99 VALUE ZEROS.
0038.00 01 TUITION-CNTR PIC 99 VALUE ZEROS.
0039.00 01 PT-TUITION-TOTAL PIC 9(7) VALUE ZEROS.
0040.00 01 FT-TUITION-TOTAL PIC 9(7) VALUE ZEROS.
0041.00 01 TUITION-TOTAL PIC 9(7) VALUE ZEROS.
0042.00 01 PT-CREDITS-TOTAL PIC 9(5) VALUE ZEROS.
0043.00 01 FT-CREDITS-TOTAL PIC 9(5) VALUE ZEROS.
0044.00 01 CREDITS-TOTAL PIC 9(5) VALUE ZEROS.
0045.00 01 PAGE-NUMB PIC 99 VALUE ZEROS.
0046.00 01 LINE-CNTR PIC 9(2) VALUE 99.
0047.00 01 TOTAL-TUITIONS-WS PIC 9(7) VALUE ZEROS.
0048.00 01 TOTAL-NOS-WS PIC 99 VALUE ZEROS.
0049.00 01 TOTAL-NOC-WS PIC 9(5) VALUE ZEROS.
0050.00 01 HEADING-LINE-1.
0051.00 05 DATE-OUT PIC XX/XX/XX.
0052.00 05 PIC X(54) VALUE SPACES.
0053.00 05 PIC X(13) VALUE
0054.00 "PAGE NUMBER:".
0055.00 05 PAGE-OUT PIC ZZ9 VALUE ZEROS.
0056.00 05 PIC X(15) VALUE SPACES.
0057.00 01 STUDENT-TITLE-LINE.
0058.00 05 PIC X(20) VALUE
0059.00 "STUDENT SUMMARY".
0060.00 01 STUDENT-HEADING-LINE.
0061.00 05 PIC X(13) VALUE
0062.00 "STUDENT NAME".
0063.00 05 PIC X(20) VALUE SPACES.
0064.00 05 PIC X(17) VALUE
0065.00 "NUMBER OF CREDITS".
0066.00 05 PIC X(10) VALUE SPACES.
0067.00 05 PIC X(7) VALUE
0068.00 "TUITION".
0069.00 01 PRINT-SUMM-OUT-PART.
0070.00 05 PIC X(10) VALUE
0071.00 "PART-TIME".
0072.00 05 PIC X(8) VALUE SPACES.
0073.00 05 PART-TIME-NOS PIC ZZZ9.
0074.00 05 PIC X(18) VALUE SPACES.
0075.00 05 PART-TIME-NOC PIC ZZ,ZZ9.
0076.00 05 PIC X(18) VALUE SPACES.
0077.00 05 PART-TIME-TUITIONS PIC $Z,ZZZ,ZZ9.
0078.00 01 PRINT-SUMM-OUT-FULL.
0079.00 05 PIC X(10) VALUE
0080.00 "FULL-TIME".
0081.00 05 PIC X(8) VALUE SPACES.
0082.00 05 FULL-TIME-NOS PIC ZZZ9.
0083.00 05 PIC X(18) VALUE SPACES.
0084.00 05 FULL-TIME-NOC PIC ZZ,ZZ9.
0085.00 05 PIC X(18) VALUE SPACES.
0086.00 05 FULL-TIME-TUITIONS PIC $Z,ZZZ,ZZ9.
0087.00 01 TOTAL-SUMM.
0088.00 05 PIC X(10) VALUE
0089.00 "TOTALS".
0090.00 05 PIC X(8) VALUE SPACES.
0091.00 05 TOTAL-NOS PIC ZZZ9.
0092.00 05 PIC X(18) VALUE SPACES.
0093.00 05 TOTAL-NOC PIC ZZ,ZZ9.
0094.00 05 PIC X(18) VALUE SPACES.
0095.00 05 TOTAL-TUITIONS PIC $Z,ZZZ,ZZ9.
0096.00 01 DATE-IN.
0097.00 05 YR-IN PIC X(2).
0098.00 05 MO-IN PIC X(2).
0099.00 05 DA-IN PIC X(2).
0100.00 01 DATE-WS PIC X(8).
0101.00 01 DATE-TEMP REDEFINES DATE-WS.
0102.00 05 MO-TEMP PIC X(2).
0103.00 05 DA-TEMP PIC X(2).
0104.00 05 YR-TEMP PIC X(2).
0105.00 01 HEADING-LINE-3.
0106.00 05 PIC X(13) VALUE SPACES.
0107.00 05 PIC X(18) VALUE
0108.00 "NUMBER OF STUDENTS".
0109.00 05 PIC X(8) VALUE SPACES.
0110.00 05 PIC X(17) VALUE
0111.00 "NUMBER OF CREDITS".
0112.00 05 PIC X(8) VALUE SPACES.
0113.00 05 PIC X(8) VALUE
0114.00 "TUITION".
-
Feb 16th, 2007, 11:13 AM
#25
Thread Starter
Addicted Member
Re: COBOL forums
VB Code:
0115.00 PROCEDURE DIVISION.
0116.00 0-MAIN-MODULE.
0117.00 OPEN INPUT STUDENT-FILE-IN
0118.00 OUTPUT STUDENT-FILE-OUT
0119.00 ACCEPT DATE-IN FROM DATE
0120.00 MOVE MO-IN TO MO-TEMP
0121.00 MOVE DA-IN TO DA-TEMP
0122.00 MOVE YR-IN TO YR-TEMP
0123.00 MOVE DATE-WS TO DATE-OUT
0124.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0125.00 READ STUDENT-FILE-IN
0126.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0127.00 NOT AT END PERFORM 1-PROCESS-STUDENT
0128.00 END-READ
0129.00 END-PERFORM
0130.00 PERFORM 2-PRINT-SUMMARY
0131.00 CLOSE STUDENT-FILE-IN
0132.00 STUDENT-FILE-OUT
0133.00 STOP RUN.
0134.00 1-PROCESS-STUDENT.
0135.00 IF LINE-CNTR > 50
0136.00 THEN
0137.00 PERFORM 1-2-PRINT-PAGE-HEADINGS
0138.00 END-IF
0139.00 MOVE SPACES TO PRINT-REC-OUT
0140.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0141.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0142.00 IF NUMBER-OF-CREDITS-IN >= 12
0143.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0144.00 ADD FULL-TIME-TUITION TO FT-TUITION-TOTAL
0145.00 ADD 1 TO FT-TUITION-CNTR
0146.00 ADD NUMBER-OF-CREDITS-IN TO FT-CREDITS-TOTAL
0147.00 ELSE
0148.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0149.00 GIVING PART-TIME-TUITION-AMOUNT
0150.00 MOVE PART-TIME-TUITION-AMOUNT TO TUITION-OUT
0151.00 ADD PART-TIME-TUITION-AMOUNT TO PT-TUITION-TOTAL
0152.00 ADD 1 TO PT-TUITION-CNTR
0153.00 ADD NUMBER-OF-CREDITS-IN TO PT-CREDITS-TOTAL
0154.00 END-IF
0155.00 ADD PT-TUITION-TOTAL TO FT-TUITION-TOTAL
0156.00 GIVING TOTAL-TUITIONS-WS
0157.00 ADD PT-TUITION-CNTR TO FT-TUITION-CNTR
0158.00 GIVING TOTAL-NOS-WS
0159.00 ADD PT-CREDITS-TOTAL TO FT-CREDITS-TOTAL
0160.00 GIVING TOTAL-NOC-WS
0161.00 WRITE PRINT-REC-OUT AFTER ADVANCING 1 LINE
0162.00 ADD 1 TO LINE-CNTR.
0163.00 1-2-PRINT-PAGE-HEADINGS.
0164.00 ADD 1 TO PAGE-NUMB
0165.00 MOVE PAGE-NUMB TO PAGE-OUT
0166.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-1
0167.00 AFTER ADVANCING 2 LINES
0168.00 WRITE PRINT-REC-OUT FROM STUDENT-TITLE-LINE
0169.00 WRITE PRINT-REC-OUT FROM STUDENT-HEADING-LINE
0170.00 MOVE 1 TO LINE-CNTR.
0171.00 2-PRINT-SUMMARY.
0172.00 IF LINE-CNTR < 50 THEN
0173.00 PERFORM 2-2-PRINT-PAGE-HEADINGS
0174.00 END-IF
0175.00 MOVE FT-CREDITS-TOTAL TO FULL-TIME-NOC
0176.00 MOVE FT-TUITION-TOTAL TO FULL-TIME-TUITIONS
0177.00 MOVE FT-TUITION-CNTR TO FULL-TIME-NOS
0178.00 MOVE PT-CREDITS-TOTAL TO PART-TIME-NOC
0179.00 MOVE PT-TUITION-TOTAL TO PART-TIME-TUITIONS
0180.00 MOVE PT-TUITION-CNTR TO PART-TIME-NOS
0181.00 MOVE TOTAL-TUITIONS-WS TO TOTAL-TUITIONS
0182.00 MOVE TOTAL-NOS-WS TO TOTAL-NOS
0183.00 MOVE TOTAL-NOC-WS TO TOTAL-NOC
0184.00 WRITE PRINT-REC-OUT FROM PRINT-SUMM-OUT-PART
0185.00 WRITE PRINT-REC-OUT FROM PRINT-SUMM-OUT-FULL
0186.00 WRITE PRINT-REC-OUT FROM TOTAL-SUMM.
0187.00 ADD 1 TO PAGE-NUMB
0188.00 MOVE PAGE-NUMB TO PAGE-OUT.
0189.00 2-2-PRINT-PAGE-HEADINGS.
0190.00 ADD 1 TO PAGE-NUMB
0191.00 MOVE PAGE-NUMB TO PAGE-OUT
0192.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-3
0193.00 AFTER ADVANCING 2 LINES.
****************** End of data ****************************************
and here's my output...
VB Code:
02/16/07 PAGE NUMBER: 1
STUDENT SUMMARY
STUDENT NAME NUMBER OF CREDITS TUITION
Johnson, Derek 12 06300
Murray, Susan 11 05775
Hartman, Tom 13 06300
Wilson, Lisa 12 06300
Browne, Dan 18 06300
Roberts, Doug 16 06300
Smith, Arlene 8 04200
NUMBER OF STUDENTS NUMBER OF CREDITS TUITION
PART-TIME 2 19 $ 9,975
FULL-TIME 5 71 $ 31,500
TOTALS 7 90 $ 41,475
........thansk for all the help. I'm usre this won't be my last COBOL problem i need help with thansk thanks thanks...- justin
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote
