Different output error less or more by version

[M_D]

Hi everyone,

I am using Centos 8.

when i launch the compiler i have less or more error by version, i don't understand:

For example in version 3.1.2 i have this output:

[303495]$ bash compil-MDCSF20.sh
COMPILATION DE > ./MDCFS20.cob
./MDCFS20.cob:115: erreur : MDA1DOSS: Aucun fichier ou dossier de ce type
./MDCFS20.cob:114: erreur : clause PICTURE requise pour « EXT-DOS »
./MDCFS20.cob: dans la section « TRAITEMENT » :
./MDCFS20.cob: dans le paragraphe « 1-INITIALISATION » :
./MDCFS20.cob:390: erreur : « DOS-CLEDOS » n'est pas défini
./MDCFS20.cob: dans le paragraphe « 111-RECH-TDS » :
./MDCFS20.cob:420: erreur : « DOS-NUSER » n'est pas défini
./MDCFS20.cob:420: erreur : « DOS-NUORD » n'est pas défini
./MDCFS20.cob:422: erreur : « DOS » n'est pas défini
./MDCFS20.cob: dans le paragraphe « 21-TRAIT-DOS » :
./MDCFS20.cob:490: erreur : « DOS-NOMPRF » n'est pas défini
./MDCFS20.cob: dans le paragraphe « 291-RECH-DOS-SUIVANT » :
./MDCFS20.cob:749: erreur : expression invalide
./MDCFS20.cob: dans le paragraphe « 2911-VERIF-SERV-EXPL » :
./MDCFS20.cob:773: erreur : « DBO-LG-SER » n'est pas défini

Here is the code reproduced in attachment .

Thank for your help.

[serge lacombe]

Bonjour,

Il semble que cobc ne trouve pas le copybook MDA1DOSS.cpy.la variable environnementale COBCPY est peut-etre mal initialisée.

Bonne chance!

It seems that cobc does not find the copybook. Set COBCPY to it's path.

[M_D]

Hello Serge,

Thanks for your response.
I have uppercase the name of my copy file but I still have the other errors

I don’t know if you’ve test the reproduction of the problem in the attachment?

Thanks for your help.

[serge lacombe]

Here is what i did:

1-add " >> format is free" in the first line of the program because it seems to be in free format.

2- rename mda1doss.cpy to MDA1DOSS.cpy

Running the compile scripts generate way less errors.

serge@rubis ~/ttttt/code_303495 $ ./*.sh
COMPILATION DE > ./MDCFS20.cob
./MDCFS20.cob: in section 'TRAITEMENT':
./MDCFS20.cob: in paragraph '291-RECH-DOS-SUIVANT':
./MDCFS20.cob:70: error: invalid expression
./MDCFS20.cob: in paragraph '2911-VERIF-SERV-EXPL':
./MDCFS20.cob:80: error: 'DBO-LG-SER' is not defined

Hope it helps.

[M_D]

Hello Serge,

Thanks for your response but what's the origin of the another error.

Thanks for your help.

[serge lacombe]

First error in line 70:

 IF NOT    <------ **if not what?** 
    SET FIN-DOS                     TO TRUE
 ELSE
    IF DOS-NUSER NOT = W-DOS-NUSER
       MOVE DOS-NUSER                   TO W-DOS-NUSER
       PERFORM 2911-VERIF-SERV-EXPL
    END-IF
 END-IF

Second error in line 80:

DBO-LG-SER is not defined in the program.