asked on

error message

Hi i have an error message " F5BA2019 The error is found in the procedure " anytime i tried to compile my cobol program. Below is the diagnostic message.
** DIAGNOSTIC MESSAGE ** (SHEET1)

C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 1 : JMN2500I-S THERE IS WORD 'DIVISION' WHERE STATEMENT MUST APPEAR.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 2 : JMN2503I-S USER WORD 'ACCEPT-DATE' IS UNDEFINED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 2 : JMN2557I-S FORMAT OF PERFORM STATEMENT IS INCOMPLETE.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 3 : JMN2557I-S FORMAT OF PERFORM STATEMENT IS INCOMPLETE.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 4 : JMN2557I-S FORMAT OF PERFORM STATEMENT IS INCOMPLETE.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 3 : JMN2503I-S USER WORD 'CALCULATE-DAYS' IS UNDEFINED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 4 : JMN2503I-S USER WORD 'TYPE-RESULT' IS UNDEFINED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 8 : JMN2500I-S THERE IS WORD '"ENTER 2-DIGIT LUNAR MONTH"' WHERE STATEMENT MUST APPEAR.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 9 : JMN2503I-S USER WORD 'MONTH' IS UNDEFINED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 13 : JMN2503I-S USER WORD 'MONTH' IS UNDEFINED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 14 : JMN2503I-S USER WORD 'MONTH' IS UNDEFINED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 10 : JMN2500I-S THERE IS WORD '"THANK YOU, ENTER 2-DIGIT DAY"' WHERE STATEMENT MUST APPEAR.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 11 : JMN2501I-S 'DAY' IN ACCEPT STATEMENT MUST BE IDENTIFIER.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 13 : JMN2557I-S FORMAT OF SUBTRACT STATEMENT IS INCOMPLETE.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 14 : JMN2557I-S FORMAT OF MULTIPLY STATEMENT IS INCOMPLETE.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 15 : JMN2502I-S 'DAY' IN ADD STATEMENT MUST BE IDENTIFIER OR NUMERIC LITERAL. 'DAY' IGNORED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 15 : JMN2557I-S FORMAT OF ADD STATEMENT IS INCOMPLETE.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 1 : JMN1019I-W INDICATOR AREA MUST CONTAIN '-','*','/','D',OR BLANK. A BLANK IS ASSUMED TO BE SPECIFIED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 2 : JMN1019I-W INDICATOR AREA MUST CONTAIN '-','*','/','D',OR BLANK. A BLANK IS ASSUMED TO BE SPECIFIED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 7 : JMN1019I-W INDICATOR AREA MUST CONTAIN '-','*','/','D',OR BLANK. A BLANK IS ASSUMED TO BE SPECIFIED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 12 : JMN1019I-W INDICATOR AREA MUST CONTAIN '-','*','/','D',OR BLANK. A BLANK IS ASSUMED TO BE SPECIFIED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 16 : JMN1019I-W INDICATOR AREA MUST CONTAIN '-','*','/','D',OR BLANK. A BLANK IS ASSUMED TO BE SPECIFIED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 1 : JMN1103I-W PERIOD IS MISSING. ASSUMED TO BE CODED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 8 : JMN1103I-W PERIOD IS MISSING. ASSUMED TO BE CODED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 10 : JMN1103I-W PERIOD IS MISSING. ASSUMED TO BE CODED.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 2 : JMN1004I-W RESERVED WORD 'PERFORM' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 3 : JMN1004I-W RESERVED WORD 'PERFORM' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 4 : JMN1004I-W RESERVED WORD 'PERFORM' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 5 : JMN1004I-W RESERVED WORD 'STOP' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 9 : JMN1004I-W RESERVED WORD 'ACCEPT' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 11 : JMN1004I-W RESERVED WORD 'ACCEPT' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 13 : JMN1004I-W RESERVED WORD 'SUBTRACT' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 14 : JMN1004I-W RESERVED WORD 'MULTIPLY' MUST START IN AREA B. ASSUMED TO START IN AREA B.
C:\USERS\MJARJU\DOCUMENTS\MYP.WIN SHEET1-PROCEDURE 15 : JMN1004I-W RESERVED WORD 'ADD' MUST START IN AREA B. ASSUMED TO START IN AREA B.
STATISTICS: HIGHEST SEVERITY CODE=S, PROGRAM UNIT=1

Can someone help me on this please.

Kent Olsen

Hi Atouray,

Post the first few lines of what you're trying to compile.

Kent

Atouray

ASKER

PROCEDURE DIVISION.
P1. PERFORM ACCEPT-DATE.
PERFORM CALCULATE-DAYS.
PERFORM TYPE-RESULT.
STOP RUN.

ACCEPT-DATE.
DISPLAY "ENTER 2 DIGIT MONTH".
ACCEPT MONTH.
DISPLAY "THANK YOU, ENTER 2 DIGIT DAY".
ACCEPT DAY.
CALCULATE-DATE.
PERFORM FIND-DAYS-IMPLIED-BY-MONTH.
ADD DAY TO MONTH.
TYPE-RESULT.
DISPLAY "THANK YOU, THE DAY NUMBER IS " TOT-DAYS.
FIND-DAYS-IMPLIED-BY-MONTH.
IF MONTH=1
COMPUTE TOT-DAYS=0.
IF MONTH=2
COMPUTE TOT-DAYS =31.

same thing till december.
thanks

Kent Olsen

A couple of things jump out at me.

Where are the IDENTIFICATION, ENVIRONMENT, and DATA divisions?

Is the compiler expecting fixed-column input? Is free-form input optional?

Atouray

ASKER

Got none of the above.

ASKER CERTIFIED SOLUTION

Kent Olsen

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Atouray

ASKER

Ok i have seen your point. I defined all the variables on the data section included all the division and is working thanks alot. you really helped!!!!

Atouray

ASKER

Thanks for the help? How good are you at COBOL, cause i have some codes to modify to suit my needs that's why i am reading cobol maybe you can help. Let me know what you that. Write to me at mljarju84@gmail.com.
Thankd

Kent Olsen

Hi Atouray,

I'm a "gray-beard" in the industry. I've written many thousands of lines of COBOL programs and will be glad to offer assistance to you.

My email address is in my profile. Write me if you're serious about getting some help.

Kent