[Tiny-cobol-users] (no subject)

[scott s. <kk...@ya...>]

hello all,
i am very new to the list. i hope it is not in bad
taste to post a small non working program in it's
intirety. if it is please tell me and i will not do it
again. 

ok here goes my proble. i wrote a tiny program  (see
below) and it will not compile. i have rid it of all
the stupid errors like typos and easly found bad code.
i however do not under stand the  compile errors. if
you would like a screen print of them please e-mail
me. 

thank you for your time
scott




       IDENTIFICATION DIVISION.
       PROGRAM-ID.    SUPPLIERS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.

        SELECT SUPPLIERS
            ASSIGN TO "SUP.dat"
            ORGANIZATION IS SEQUENTIAL.

       DATA DIVISION.

       FILE SECTION.

       FD         SUPPLIERS.

       01         SUPPLY-RECORD.
         03       PHONE.
           05     AREA-CODE              PIC  999.
           05     FIRST-THREE            PIC  999.
           05     LAST-FOUR              PIC  9999.
         03       COMPANY                PIC  X(20).
         03       ADDRESS-LINE-1         PIC  X(60).
         03       ADDRESS-LINE-2         PIC  X(60).
         03       CITY                   PIC  X(60).
         03       STATE                  PIC  9(02).
         03       ZIP                    PIC  9(05).
         03       EXTENSION              PIC  9(05).
         03       CONTACT                PIC  X(60).
         03       TERMS                  PIC  X(20).
         03       MINIMUM                PIC  9(04).
         03       CUSTOMER-NUMBER        PIC  X(20).

       WORKING-STORAGE SECTION.

       01         WS-SUPPLY-HOUSE.
         03       WS-PHONE.
           05     WS-AREA-CODE           PIC  999.
           05     WS-FIRST-THREE         PIC  999.
           05     WS-LAST-FOUR           PIC  9999.
         03       WS-COMPANY             PIC  X(20).
         03       WS-ADDRESS-LINE-1      PIC  X(60).
         03       WS-ADDRESS-LINE-2      PIC  X(60).
         03       WS-CITY                PIC  X(60).
         03       WS-STATE               PIC  9(02).
         03       WS-ZIP                 PIC  9(05).
         03       WS-EXTENSION           PIC  9(05).
         03       WS-CONTACT             PIC  X(60).
         03       WS-TERMS               PIC  X(20).
         03       WS-MINIMUM             PIC  9(04).
         03       WS-CUSTOMER-NUMBER     PIC  X(20).

       01   WS-PROCESS-ANOTHER           PIC X.
       01   WS-ANSWER-ONE                PIC X.
       01   WS-CORRECT                   PIC X.

	PROCEDURE DIVISION.

		PERFORM OPENING-PROCEDURE.

                PERFORM ENTER-ANOTHER
                  UNTIL WS-PROCESS-ANOTHER = "N".

		PERFORM CLOSING-PROCEDURE.

	PROGRAM-DONE.

		STOP RUN.

	OPENING-PROCEDURE.

                DISPLAY "would you like to enter a
supplier?   Y OR N".
                ACCEPT WS-ANSWER-ONE.

                IF WS-ANSWER-ONE = "Y"
                   OPEN INPUT SUPPLIERS
                   PERFORM ENTER-DATA
                   PERFORM IS-THIS-CORRECT
                ELSE
                   IF WS-ANSWER-ONE = "N"
                      PERFORM PROGRAM-DONE 
                   ELSE
                      PERFORM TRY-AGAIN-2
                   END-IF
                END-IF.

	CLOSING-PROCEDURE.

                CLOSE SUPPLIERS.

        ADD-RECORD.

		PERFORM FORMAT-THE-RECORD.
		PERFORM ADD-THIS-RECORD.

	FORMAT-THE-RECORD.

                MOVE SPACES TO SUPPLY-RECORD.
                MOVE WS-SUPPLY-HOUSE TO SUPPLY-RECORD.

	ADD-THIS-RECORD.

                WRITE SUPPLY-RECORD.

         ENTER-DATA.
 
              DISPLAY "enter company name"
                accept WS-COMPANY

              DISPLAY "enter adreess line 1"
                accept WS-ADDRESS-LINE-1

              DISPLAY "enter adreess line 2, leave
blank if none"
                accept WS-ADDRESS-LINE-2

              DISPLAY "enter city"
                accept WS-CITY

              DISPLAY "enter state"
                accept WS-STATE

              DISPLAY "enter zip code"
                accept WS-ZIP

              DISPLAY "phone number including area
code (no (,) or _)"
                accept WS-PHONE

              DISPLAY "enter extension, leave blank if
none"
                accept WS-EXTENSION

              DISPLAY "enter contact person, leave
blank if none"
                accept WS-CONTACT

              DISPLAY "enter terms (pre-pay, net 30)"
                accept WS-TERMS

              DISPLAY "enter minimum order"
                accept WS-MINIMUM

              DISPLAY "enter customer number, leave
blank if none"
                accept WS-CUSTOMER-NUMBER

        ENTER-ANOTHER.

                MOVE SPACES TO WS-ANSWER-ONE.

                DISPLAY "would you like to enter
another supplier   Y OR N".

                ACCEPT WS-ANSWER-ONE.

                IF WS-ANSWER-ONE = "Y"
                   PERFORM ENTER-DATA
                   PERFORM IS-THIS-CORRECT
                ELSE
                   IF WS-ANSWER-ONE = "N"
                      MOVE "N" TO WS-PROCESS-ANOTHER
                   ELSE
                      PERFORM TRY-AGAIN-2
                   END-IF
                END-IF.

        IS-THIS-CORRECT.

              DISPLAY "is this information correct"
              DISPLAY WS-COMPANY
              DISPLAY WS-ADDRESS-LINE-1
              DISPLAY WS-ADDRESS-LINE-2
              DISPLAY WS-CITY
              DISPLAY WS-STATE
              DISPLAY WS-ZIP
              DISPLAY "(" WITH NO ADVANCING
              DISPLAY WS-AREA-CODE WITH NO ADVANCING
              DISPLAY ") " WITH NO ADVANCING
              DISPLAY WS-FIRST-THREE WITH NO ADVANCING
              DISPLAY "-" WITH NO ADVANCING
              DISPLAY WS-LAST-FOUR
              DISPLAY WS-EXTENSION
              DISPLAY WS-CONTACT
              DISPLAY WS-TERMS
              DISPLAY WS-MINIMUM
              DISPLAY WS-CUSTOMER-NUMBER

              ACCEPT WS-CORRECT.

              IF WS-CORRECT = "N"
                 MOVE SPACES TO WS-SUPPLY-HOUSE
                 PERFORM ENTER-DATA
              ELSE
                 IF WS-CORRECT = "Y"
                    PERFORM ADD-RECORD
                 ELSE
                    PERFORM TRY-AGAIN-1
                 END-IF
              END-IF.

        TRY-AGAIN-1.

              DISPLAY "sorry i did not understand your
answer please answer"
              DISPLAY "with a Y or N"

              PERFORM IS-THIS-CORRECT.

        TRY-AGAIN-2.

              DISPLAY "sorry i did not understand your
answer "
              DISPLAY "please answer with a Y or N"

              PERFORM OPENING-PROCEDURE.



__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/