Discussion :

[beegees]

Bonjour tout le monde,

J'ai un programme qui coince

Il doit lire les lignes d'un fichier txt et calculer la date de naissance de chacune des personnes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
       IDENTIFICATION DIVISION.
       PROGRAM-ID. FICHIER-AGE.
       AUTHOR. JEAN.
       DATE-WRITTEN. 10/05/3008.
       DATE-COMPILED. 10/05/3008.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT AGE ASSIGN "FICHIER-AGE.TXT"
               ORGANIZATION IS LINE SEQUENTIAL
               ACCESS MODE IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD AGE.
       01 PERSONNE.
           88 FIN-AGE VALUE HIGH-VALUES.
           02 NOM PIC X(10).
           02 PRENOM PIC X(10).
           02 DATE-N.
               03 ANNEE PIC 9(4).
               03 MOIS PIC 9(2).
               03 JOUR PIC 9(2).
           02 COTE-COBOL PIC 9(3).
           02 COTE-ACCESS PIC 9(3).

       WORKING-STORAGE SECTION.

       77 DATE-AUJ PIC X(8).
       77 DATE-A PIC 9(4).
       77 DATE-B PIC 9(8).
       77 DATE-BBis PIC 9(4).
       77 AGE-USER PIC 9(2).
       PROCEDURE DIVISION.

           MOVE FUNCTION CURRENT-DATE TO DATE-AUJ.
           MOVE DATE-AUJ(1:4) TO DATE-A.
           OPEN INPUT AGE.

          PERFORM UNTIL FIN-AGE

          DISPLAY NOM " " PRENOM " " AGE-USER " " COTE-COBOL " "
          COTE-ACCESS
             READ AGE
                 AT END SET FIN-AGE TO TRUE
              END-READ

          MOVE DATE-N TO DATE-B
      *   MOVE DATE-B(5:8) TO DATE-BBis
          COMPUTE AGE-USER = ( DATE-A - DATE-B(5:8) )


          END-PERFORM

           CLOSE AGE.




           STOP RUN.

J'ai en fait un problème sur cette ligne-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

COMPUTE AGE-USER = ( DATE-A - DATE-B(5:8) )

Voici le message d'erreur :

34-S Operand DATE-B should be numeric

Je cherche depuis pas mal de temps mais sans succès, auriez-vous une idée ?

Merci d'avance pour votre aide.

beegees

[Hédhili Jaïdane]

Bonjour.

En fait parce que la reference modifier DATE-B(5:8) est de type alpha même si le contenu est numérique.

Tu extrais l'année à partir de DATE-N comme tu l'as fait pour DATE-A. D'ailleurs tu as commencé à le faire avec DATE-BBis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
       77 DATE-B PIC 9(4).
           MOVE DATE-N(1:4) TO DATE-B.
           SUBTRACT DATE-B FROM DATE-A GIVING AGE-USER.

Maintenant, tu peux utiliser les fonctions de calcul sur les dates. Je ne connais pas ton compilo, mais puisque tu as FUNCTION CURRET-DATE, je suppose que tu as les autres : ADD-DURATION, SUBTRACT-DURATION, etc...

[beegees]

Bonjour.

En fait parce que la reference modifier DATE-B(5:8) est de type alpha même si le contenu est numérique.

Tu extrais l'année à partir de DATE-N comme tu l'as fait pour DATE-A. D'ailleurs tu as commencé à le faire avec DATE-BBis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
       77 DATE-B PIC 9(4).
           MOVE DATE-N(1:4) TO DATE-B.
           SUBTRACT DATE-B FROM DATE-A GIVING AGE-USER.

Maintenant, tu peux utiliser les fonctions de calcul sur les dates. Je ne connais pas ton compilo, mais puisque tu as FUNCTION CURRET-DATE, je suppose que tu as les autres : ADD-DURATION, SUBTRACT-DURATION, etc...

Bonjour,

Un tout grand merci pour ta réponse.

Je vais analyser cette réponse et je reviendrai.

Encore un tout grand merci.

beegees

[fremen167]

Et en plus, tu dois coder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DATE-B(5:4)

et non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DATE-B(5:8)

pour avoir les positions 5 à 8, car le 2ème argument de la modification de référence est une longueur et pas une position.