« COBOL/Conditions » : différence entre les versions

Contenu supprimé Contenu ajouté
m Robot : Remplacement de texte automatisé (-(<\/?)source +\1syntaxhighlight)
 
Ligne 25 :
{{définition
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
IF condition
THEN instructions
[ELSE instructions]
END-IF.
</syntaxhighlight>
</source>
}}
 
Ligne 38 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-condition.
Ligne 50 :
000010 STOP RUN.
000011 END PROGRAM ex-condition.
</syntaxhighlight>
</source>
}}
 
Ligne 62 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-condition.
Ligne 83 :
000019 STOP RUN.
000020 END PROGRAM ex-condition.
</syntaxhighlight>
</source>
}}
 
Ligne 95 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-condition.
Ligne 112 :
000015 STOP RUN.
000016 END PROGRAM ex-condition.
</syntaxhighlight>
</source>
}}
 
Ligne 122 :
{{définition
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
EVALUATE Z|condition|TRUE|FALSE
WHEN condition|TRUE|FALSE|{[NOT] X [THRU Y]}
Ligne 129 :
WHEN OTHER instructions
END-EVALUATE.
</syntaxhighlight>
</source>
}}
 
Ligne 137 :
{{définition
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
EVALUATE Z
WHEN [NOT] X [THRU Y]
Ligne 144 :
WHEN OTHER instructions
END-EVALUATE.
</syntaxhighlight>
</source>
}}
 
Ligne 154 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-evaluate.
Ligne 172 :
000016 STOP RUN.
000017 END PROGRAM ex-evaluate.
</syntaxhighlight>
</source>
}}
 
Ligne 180 :
{{définition
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
EVALUATE condition|TRUE|FALSE
WHEN condition|TRUE|FALSE
Ligne 187 :
WHEN OTHER instructions
END-EVALUATE.
</syntaxhighlight>
</source>
}}
 
Ligne 197 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-evaluate.
Ligne 216 :
000017 STOP RUN.
000018 END PROGRAM ex-evaluate.
</syntaxhighlight>
</source>
}}
 
Ligne 228 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
77 x PIC ...
88 nom-variable1 VALUE valeur1.
88 nom-variable2 VALUE valeur2.
...
</syntaxhighlight>
</source>
}}
 
Ligne 241 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
88 nom-variable VALUE littéral [THRU littéral].
88 nom-variable VALUE littéral [, ...].
</syntaxhighlight>
</source>
}}
 
Ligne 252 :
{{définition
| contenu =
<sourcesyntaxhighlight lang="cobolfree">
SET nom-condition ... TO TRUE.
</syntaxhighlight>
</source>
}}
 
Ligne 266 :
{{exemple
| contenu =
<sourcesyntaxhighlight lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-condition.
Ligne 288 :
000020 STOP RUN.
000021 END PROGRAM ex-condition.
</syntaxhighlight>
</source>
}}