i am stuck on something 'simple'

[J McNamara]

Hi -

I solved I don't know how many errors but can't fix this perform until- maybe i am tired.

please assist. thanks

PROCEDURE DIVISION.
MOVE 0 TO MENU-OPTION.
MAIN-RTN.

  * Start the loop until the user selects option 3
PERFORM UNTIL MENU-OPTION = 3
       DISPLAY "Menu:".
       DISPLAY "1. Enter data".
       DISPLAY "2. Delete data".
       DISPLAY "3. Update data".
       DISPLAY "Choose an option (1-3): ".

       ACCEPT MENU-OPTION.

  * Debugging: Display the value of MENU-OPTION
       DISPLAY "You chose option: " MENU-OPTION.

       EVALUATE MENU-OPTION
           WHEN 1
               DISPLAY "You selected Enter Data.".
           WHEN 2
               DISPLAY "You selected Delete Data.".
           WHEN 3
               DISPLAY "You selected Update Data.".
           WHEN OTHER
               DISPLAY "Invalid option. Please choose again.".
       END-EVALUATE.

END-PERFORM.

DISPLAY "Exiting program.".
STOP RUN.

cobc -c tp.cbl
tp.cbl: in paragraph 'MAIN-RTN':
tp.cbl:155: error: PERFORM statement not terminated by END-PERFORM
153 |
154 | * Start the loop until the user selects option 3
155 > PERFORM UNTIL MENU-OPTION = 3
156 | DISPLAY "Menu:".
157 | DISPLAY "1. Enter data".
tp.cbl:170: error: syntax error, unexpected WHEN
168 | WHEN 1
169 | DISPLAY "You selected Enter Data.".
170 > WHEN 2
171 | DISPLAY "You selected Delete Data.".
172 | WHEN 3
tp.cbl:172: error: syntax error, unexpected WHEN
170 | WHEN 2
171 | DISPLAY "You selected Delete Data.".
172 > WHEN 3
173 | DISPLAY "You selected Update Data.".
174 | WHEN OTHER
tp.cbl:174: error: syntax error, unexpected WHEN
172 | WHEN 3
173 | DISPLAY "You selected Update Data.".
174 > WHEN OTHER
175 | DISPLAY "Invalid option. Please choose again.".
176 | END-EVALUATE.
tp.cbl:176: error: syntax error, unexpected END-EVALUATE
174 | WHEN OTHER
175 | DISPLAY "Invalid option. Please choose again.".
176 > END-EVALUATE.
177 |
178 | END-PERFORM.
tp.cbl:178: error: syntax error, unexpected END-PERFORM
176 | END-EVALUATE.
177 |
178 > END-PERFORM.
179 |
180 | DISPLAY "Exiting program.".
$>
J. McNamara

Sent with Proton Mail secure email.

[Mickey White]

Have you tried removing all the periods in the Perform statement ?
You can remove all periods in the procedure division excpt the one at stop-run.

[J McNamara]

mickey,

I just fixed like this.

PROCEDURE DIVISION.
MOVE 0 TO MENU-OPTION.
MAIN-RTN.

• Start the loop until the user selects option 3
  PERFORM UNTIL MENU-OPTION = 3
  DISPLAY "Menu:"
  DISPLAY "1. Enter data"
  DISPLAY "2. Delete data"
  DISPLAY "3. Update data"
  DISPLAY "Choose an option (1-3): "

ACCEPT MENU-OPTION

• Debugging: Display the value of MENU-OPTION
  DISPLAY "You chose option: " MENU-OPTION

EVALUATE MENU-OPTION
WHEN 1
DISPLAY "You selected Enter Data."
WHEN 2
DISPLAY "You selected Delete Data."
WHEN 3
DISPLAY "You selected Update Data."
WHEN OTHER
DISPLAY "Invalid option. Please choose again."
END-EVALUATE

END-PERFORM.

DISPLAY "Exiting program." STOP RUN.

Sent with Proton Mail secure email.
THANKS
On Friday, November 29th, 2024 at 9:06 AM, Mickey White jamesbwhite@users.sourceforge.net wrote:

Have you tried removing all the periods in the Perform statement ?
You can remove all periods in the procedure division excpt the one at stop-run.

---

i am stuck on something 'simple'

---

Sent from sourceforge.net because you indicated interest in https://sourceforge.net/p/gnucobol/discussion/help/

To unsubscribe from further messages, please visit https://sourceforge.net/auth/subscriptions/