[AS400] Création fichier messages d'erreur + écriture dedans en Cobol

[alex2746]

Bonjour,
Pourriez-vous me dire comment créer un fichier de MESSAGES pour insérer dedans des erreurs qui se produisent dans un de mes programmes Cobol?

Il s'agit d'un programme cobol utilisant un DISPLAYFILE avec un champs input d'un caractère. Si le caractère entré dans le champs n'est pas 'A' 'B' ou 'C', un message d'erreur doit être indiqué dans le fichier de messages.


Merci d'avance et bonne journée.

[jupiter9]

Pour faire un contrôle aussi simple, pas besoin de fichier de messages d'erreur. Il te suffit d'indiquer la liste des valeurs valides au niveau du contrôle de validité de la zone, tel que:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Field . . . . . :   MYFLD                Usage . . :  I                       
Length  . . . . :   320                  Row . . . :  2    Column . . . :  1  
                                                                              
Type parameters for ONE of the following keywords, press Enter.               
                                                                              
  Keyword                Parameters                                      More 
  RANGE   Low  . . . .                                                        
          High . . . .                                                        
  COMP    Operator . .                                                        
          Value  . . .                                                        
  VALUES  List . . . .   'A' 'a' 'B' 'b' 'C' 'c'                              
                                                                              
Type choices, press Enter.                         Keyword        Y=Yes  Immed
  Validity check:                                  CHECK                      
    Name extended field  . . . . . . . . . . . .     VNE                      
    Name field . . . . . . . . . . . . . . . . .     VN                       
    Allow blanks . . . . . . . . . . . . . . . .     AB                       
    Modulus 10 self check  . . . . . . . . . . .     M10 / M10F               
    Modulus 11 self check  . . . . . . . . . . .     M11 / M11F               
                                                                  More...     
F3=Exit   F12=Cancel