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

Post a question here that you have - let's see if we can answer it...

Moved

I can't believe they still teach COBOL in scholls. :)

Quote:

---

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.

Quote:

---

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!).

Quote:

---

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!!!

The Big Blues still push around a 1000-byte cobol formatted record - the packed numeric datatypes are so difficult to deal with in SQL...

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???

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.

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.??

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?

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 ****************************************

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) ??

Would you mind editing those two last posts and use VBCODE tags instead of CODE tags...

It stops the scroll bars...

Actually you are having some nasty carriage return issues on those posts...

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

Quote:

---

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.

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

First of all this link:'

http://publib.boulder.ibm.com/infoce...oc/tpqsm21.htm

says this:

Quote:

---

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.

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?

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,.

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

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".

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