ILE COBOL on AS/400
Irfan Elahi
Kindly help me out in the following matter. I am in deep trouble
Please help, i would highly appreciate......
We are running OS/400 5769-SS1 V4R1 with ILE COBOL 5716-CB1.
In SEU while writing cobol source program, the following two problems
are encountered:
1- entering the following statements the SEU gives message 'COBOL
reserved word or special character END expected - msg id LNC0917.
PROCEDURE DIVISION.
DECLARATIVES.
ERROR-IT SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON INPUT-DATA.
ERROR-ROUTINE.
IF CHECK-IT = "30" ADD 1 TO DECLARATIVES-ERRORS.
END DECLARATIVES.
The line USE AFTER and label ERROR-ROUTINE are highlighted with the
message posted on the bottom.
2 - SEU gives the mesage 'COBOL reserved word or special character
FILE-CONTROL expected FILE-CONTROL assumed. msg id LNC0917.
INPUT-OUTPUT SECTION.
I-O-CONTROL.
COMMITMENT CONTROL FOR ACCOUNT-FILE.
The statement I-O-CONTROL is highlighted with the message posted at
the bottom line.
We can get around this problem if we set syntax checking to no. Also
note that this problem only occurs with TYPE=CBLLE.
We have checked for known fixes but found none. Kindly advise if we
need to set some paramenters in SEU to handle CBLLE statements.
Best regards,
Irfan Elahi...........................................
Walter
> FILE-CONTROL expected FILE-CONTROL assumed. msg id LNC0917.
> INPUT-OUTPUT SECTION.
> I-O-CONTROL.
> COMMITMENT CONTROL FOR ACCOUNT-FILE.
My opinion (maybe wrong):
The order in io-section is first file-control then commitment control,
because you have to introduce the filenames with select before using them
for anything, e.g. commitment control.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT file1
SELECT file2
... <all the file selects>
I-O-CONTROL.
COMMITMENT CONTROL FOR ...
Walter