Numérique condensé COBOL

Bonjour,
Je uis très débutant en cobol et j'ia besoin d'aide.
J'ai un programme cobol qui sert a sortir un fichier Excel avec des données proviennent de différents tables de base de données.
Le but qui je doit alimenter une colonne avec un valeur d'une rubrique vient d'une table cette rubrique est sous la format Numérique condensé de longueur 11 dont 2 décimale(s) en gros elle est présenter sous cette format :
"MONTAN NOT NULL NUMBER(11,2)"

Dans mon programme cobol j'ai crée une première variable comme suit :
05 H-ZYSR-MONTAN PIC S9(11)V9(2) PACKED-DECIMAL.

Une deuxième variable pour remplir la colonne comme suit :
* Taux 22
05 W-Z22 PIC -ZZZZZZZZZZZ,99.
05 FILLER PIC X(001) VALUE ';'.

Le but que je doit faire un move de ma rubrique MONTAN dans la variable H-ZYSR-MONTAN puis move de H-ZYSR-MONTAN dans W-Z22 voilà le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ALIM-WZ22 SECTION. MOVE Z-ZYSR-NOMBRE TO IZYSR. MOVE ZERO TO H-ZYSR-MONTAN. IF Z-ZYSR-NOMBRE > ZERO PERFORM VARYING IZYSR FROM Z-ZYSR-NOMBRE BY -1 UNTIL IZYSR = ZERO IF Z-ZYSR-CODRUB(IZYSR) = 'THF' MOVE Z-ZYSR-MONTAN(IZYSR) TO H-ZYSR-MONTAN MOVE ZERO TO IZYSR END-IF END-PERFORM MOVE H-ZYSR-MONTAN TO W-Z22 END-IF.
Ma question comment je peux affiché les bons valeurs de la rubrique MONTAN car ma décalaration est fausse apparement ca me donne pas les bonnes valeurs
Par exemple :

J'ai un montant = 1234,55 la valeur de sortie Z22 = 0.12 alors que je voulais que ca soit 1234,55 le meme que montan sans avoir la signe plus mais la signe négatif doit s'afficher.

Besoin d'aide.

Déja j'ai essayé de cette façon :
05 H-ZYSR-MONTAN PIC +++++9.99

* Taux
05 W-Z22 PIC -ZZZZ9.99 VALUE ZEROS.
05 FILLER PIC X(001) VALUE ';'.

Resultat :

Z22
0.45
- 88.57
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
10.57
0.00
10.65
10.57

Bonjour,

Si le séparateur utilisé est la virgule, alors il faut déclarer dans le paragraphe "SPECIAL-NAMES" de l'environment division la clause "DECIMAL-POINT IS COMMA " ;)

PS : je vois que vous utilisez des sections dans la PROCEDURE DIVISION, ça n'a plus d'intérêt de nos jours mais ça n'est pas génant, sous réserve de bien se souvenir que si on appelle par "PERFORM" l'exécution d'une section, ce sont TOUS les paragraphes de cette section qui seront exécutés

Bonjour ,
Merci d'avoir répondu mais je n'ai pas compris, moi mon problème est que je n'arrive pas à trouver la bonne déclaration.
Par exemple :
Ma donnée saisie dans la table principale est comme suit :

Citation:

2223,55
-10,98
-1,08
82,61

Je fais un move dans une autre variable j’essaye de trois manières différentes mais ça ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 9 * Taux 20 05 W-Z20 PIC S9(11)V9(2) VALUE SPACES. 05 FILLER PIC X(001) VALUE ';'. Taux 21 05 W-Z21 PIC S9(11)V9(2) VALUE SPACES. 05 FILLER PIC X(001) VALUE ';'. * Taux 22 05 W-Z22 PIC -ZZZZZZZ9,99 VALUE SPACES. 05 FILLER PIC X(001) VALUE ';'.
sachant que ma valeur de base est de la forme numérique condensée : MONTAN : NOT NULL NUMBER(11,2)

Avez vous vérifié la présence de la clause "DECIMAL-POINT IS COMMA" comme je vous le demandai dans ma réponse précédente ?
Il faut commencer par là.

Bonjour
Non ca existe pas DECIMAL-POINT IS COMMA

Et bien ajoutez cette clause...

Elle se code sous cette forme :
Code:

1 2 3 4 ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA.

Par contre j'ai des autres colonnes qui sont alimenté avec des valeurs en ","

Comment je l'ajoute c'est nécessaire , car le programme est déja long

Il faut que j'ajoute :
DECIMAL-POINT IS COMMA.

dans la zone ou il y a SPECIAL-NAMES c'est bien ça , voila début de mon programme actuel :

Code:

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
*            *                                      *            *
      ******************************************************************
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
              SELECT FICSOR ASSIGN FICSOR FILE STATUS FISTAT-FICSOR.
       DATA DIVISION.
       FILE SECTION.
       FD  FICSOR
           RECORDING F
           BLOCK 0
           RECORD 2100
           LABEL RECORDS STANDARD.
       01  WFICSOR.
           05  FILLER                   PIC X(2515).
      *
      ******************************************************************
       WORKING-STORAGE  SECTION.
      ******************************************************************
      *    * Modif - 18002020
         01  U-Z16.
           05  U-ZYWB-CACADR           PIC X(003) VALUE SPACES.
           05  U-ZYWB-CABONU           PIC X(002) VALUE SPACES.

      * Définition de SQLCA
           EXEC SQL
                INCLUDE SQLCA
           END-EXEC.
      * Déclaration des Host Variables pour SQL
           EXEC SQL
                BEGIN DECLARE SECTION
           END-EXEC.
       01  H-WORKING.
           05  H-SQLCODE               PIC S9(003) COMP-3.
           05  H-ZY00-NUDOSS           PIC S9(009) COMP.
           05  H-ZY00-SOCCLE           PIC X(003) VALUE SPACES.
           05  H-ZY00-MATCLE           PIC X(012) VALUE SPACES.

C'est fait et après comment je dois faire stp,

Code:

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



  ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
        DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
              SELECT FICSOR ASSIGN FICSOR FILE STATUS FISTAT-FICSOR.
       DATA DIVISION.
       FILE SECTION.
       FD  FICSOR
           RECORDING F
           BLOCK 0
           RECORD 2100
           LABEL RECORDS STANDARD.
       01  WFICSOR.
           05  FILLER                   PIC X(2515).
      *
      ******************************************************************
       WORKING-STORAGE  SECTION.
      ******************************************************************
      *    * Modif - 18002020
         01  U-Z16.
           05  U-ZYWB-CACADR           PIC X(003) VALUE SPACES.
           05  U-ZYWB-CABONU           PIC X(002) VALUE SPACES.

recompiler et relancer

ça change rien voilà la résultat que je trouve :

Z18
€
" "
0
0
@

0
P
@
0
0

P
@
p

@
€
0
@

rien que s'affiche

Les variables :
Code:

1 2 05 H-ZYSR-MONTAN PIC S9(11)V9(2) COMP-3.
Code:

1 2 3 4 * Taux horaire formation 05 W-Z18 PIC S9(11)V9(2) COMP-3. 05 FILLER PIC X(001) VALUE ';'.
comment je doit déclaré mes variables , voila le programme après déclaration :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ALIM-WZ18 SECTION. MOVE Z-ZYSR-NOMBRE TO IZYSR. MOVE ZERO TO H-ZYSR-MONTAN. IF Z-ZYSR-NOMBRE > ZERO PERFORM VARYING IZYSR FROM Z-ZYSR-NOMBRE BY -1 UNTIL IZYSR = ZERO IF Z-ZYSR-CODRUB(IZYSR) = 'THF' MOVE Z-ZYSR-MONTAN(IZYSR) TO H-ZYSR-MONTAN MOVE ZERO TO IZYSR END-IF END-PERFORM MOVE H-ZYSR-MONTAN TO W-Z18 END-IF.
Mes données de base sont les données de cette rubrique Z-ZYSR-MONTAN(IZYSR) qui sont de la format numérique condensé :
MONTAN NOT NULL NUMBER(11,2)

C'est quoi la bonne type que je dois donné a mes variables pour avoir la bonne résultat ?

1 pièce(s) jointe(s)

Vous avez une idée comment faire?

doc qui explique mieux

Pour obtenir le symbole virgule "," dans le résultat en sortie, il ne faut pas utiliser un type de données numérique mais une picture d'édition.
Les types numériques n'ont qu'une virgule Virtuelle représentée par le V dans la clause PICTURE.

Voici ce que vous devez faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 01 FILLER. 02 MA-VARIABLE-PACKEE PIC S9(11)V99 VALUE +0. 01 WS-FICHIER-CSV. 02 MA-VARIABLE-EDITION PIC -9(11),99. 02 FILLER PIC X VALUE ';'. [...] MOVE MA-COLONNE-BDD TO MA-VARIABLE-PACKEE MOVE MA-VARIABLE-PACKEE TO MA-VARIABLE-EDITION WRITE MON-FICHIER-CSV FROM WS-FICHIER-CSV .

1 pièce(s) jointe(s)

Bonjour ,
Je reviens sur le forum car j'ai résolu une partie de problème avec ce code :
Code:

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 05 H-ZYSR-MONTAN PIC S9(11)V9(2) COMP-3. * Taux horaire formation 05 W-Z18 PIC -(12),99. 05 FILLER PIC X(001) VALUE ';'. * Alimentation W-Z18 Taux horaire formation * * Modif - 18001548 * Non utilisé pour le moment ALIM-WZ18 SECTION. MOVE Z-ZYSR-NOMBRE TO IZYSR. MOVE ZERO TO H-ZYSR-MONTAN. IF Z-ZYSR-NOMBRE > ZERO PERFORM VARYING IZYSR FROM Z-ZYSR-NOMBRE BY -1 UNTIL IZYSR = ZERO IF Z-ZYSR-CODRUB(IZYSR) = 'THF' MOVE Z-ZYSR-MONTAN(IZYSR) TO H-ZYSR-MONTAN MOVE ZERO TO IZYSR END-IF END-PERFORM IF H-ZYSR-MONTAN < 0 MOVE 0 TO W-Z18 END-IF IF H-ZYSR-MONTAN >= 0 MOVE H-ZYSR-MONTAN TO W-Z18 END-IF END-IF.
le problème maintenant que dans mon fichier de sortie csv ? j'ai obtient des espaces avant les valeurs comme montre la figure ci_dessous :

Pièce jointe 468357

Je pense que l'espace est du au faite que mon variable est de longueur 11 avec 2 valeurs après virgule. Donc comment je fais pour que il n'affiche pas les espaces par devant ?

Merci

En fait dans ton fichier de sortie c'est la taille de la zone qui détermine la place qu'elle occupe. Ou alors il faut "jouer" avec une grosse zone et dedans concaténer tes variables avec suppressions des blancs (instruction string delimited by ' ').

Bonjour ,
C'est à dire dans la déclaration de variable j'ajoute string delimited by ? je n'ai pas bien compris

Non, ton fichier contiendra une seule zone. Et pour alimenter avec tes variables dans cette zone tu fais :
Code:

1 2 3 4 5 6 7 8 9 String "VAR1" delimited by SPACE ";" delimited by size "VAR2" delimited by SPACE ";" delimited by size ... "VARn" delimited by SPACE ";" delimited by size into variable-fichier

Si je m'adapte a mon code c'est un peu ça ?

Code:

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

             05  H-ZYSR-MONTAN           PIC S9(11)V9(2) COMP-3.
 
* Taux horaire formation
            05  W-Z18                 PIC -(12),99.
            05  FILLER                 PIC X(001) VALUE ';'.

 
              ALIM-WZ18 SECTION.
                 MOVE Z-ZYSR-NOMBRE TO IZYSR.
                 MOVE ZERO TO H-ZYSR-MONTAN.

                  String "H-ZYSR-MONTAN" delimited by SPACE
                  ";" delimited by size
                  into W-Z18

              IF Z-ZYSR-NOMBRE > ZERO
                 PERFORM VARYING IZYSR FROM Z-ZYSR-NOMBRE BY -1 UNTIL
                                 IZYSR = ZERO
                    IF Z-ZYSR-CODRUB(IZYSR) = 'THF'
                       MOVE Z-ZYSR-MONTAN(IZYSR) TO
                            H-ZYSR-MONTAN
                       MOVE ZERO TO IZYSR
                    END-IF
                 END-PERFORM
                   IF H-ZYSR-MONTAN < 0
                  MOVE 0 TO W-Z18 
                   END-IF
                  IF H-ZYSR-MONTAN >= 0
                  MOVE H-ZYSR-MONTAN TO W-Z18 
                   END-IF
                   END-IF.

j'ai essayé avec ça j'ai un message d'erreur :
INTO W-Z18
* 626-S********************* ( 0)**
** Edited field not allowed

Il te faut une variable alphanumérique (X(n)) dans laquelle tu "MOVE" ta zone éditée. Mais ce que tu n'as fait ne sert à rien, c'est la zone qui correspond à ton fichier global dans laquelle tu vois faire ta concaténation de champs séparés par les ";".

J'ai testé de cette façon mais toujour error :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
   ALIM-WZ18 SECTION.
                 MOVE Z-ZYSR-NOMBRE TO IZYSR.
                 MOVE ZERO TO H-ZYSR-MONTAN.

              IF Z-ZYSR-NOMBRE > ZERO
                 PERFORM VARYING IZYSR FROM Z-ZYSR-NOMBRE BY -1 UNTIL
                                 IZYSR = ZERO
                    IF Z-ZYSR-CODRUB(IZYSR) = 'THF'
                       MOVE Z-ZYSR-MONTAN(IZYSR) TO
                            H-ZYSR-MONTAN
                       MOVE ZERO TO IZYSR
                    END-IF
                 END-PERFORM
                   IF H-ZYSR-MONTAN < 0
                       MOVE 0 TO W-Z18
                   END-IF
                  IF H-ZYSR-MONTAN >= 0
                       MOVE H-ZYSR-MONTAN TO W-Z18
                  END-IF
                  INSPECT  W-Z18 TALLYING
                  UNSTRING  W-Z18 (leading-spaces + 1:); DELIMITED SIZE
              END-IF.

dont j'ai déclaré :

Code:

1
2
3
4
5
 * Taux horaire formation
            05  W-Z18                  PIC -(12),99.
            05  FILLER                 PIC X(001) VALUE ';'.
            05  leading-spaces         COMP PIC 9(4) VALUE 0.

erreur :

Code:

1
2
3
4
5
6
7
8
9
 Compiling /appli/devs/txt/tmp/FDEDISAM.cbl
                  UNSTRING  W-Z18 (leading-spaces + 1:); DELIMITED SIZE
*  12-S*******************                                             (   0)**
**    Operand UNSTRING is not declared
*  14-S****************************************************************( 526)**
**    Invalid operand
* Total Messages:     2
* Unrecoverable :     0                    Severe  :     2

Je te parle de l'instruction string et tu utilises l'instruction unstring dans ton programme ...

j'ai utilisé STRING de meme façon au lieu de mettre USTRING j'ai mets STRING et j'ai eu la meme erreur

Citation:

Envoyé par ghazalinadou

j'ai utilisé STRING de meme façon au lieu de mettre USTRING j'ai mets STRING et j'ai eu la meme erreur

Bonjour.
Ton erreur sur le STRING (UNSTRING) vient du fait que l'instruction précédente INSPECT n'est pas terminée, son TALLING s'attend à une variable et il trouve UNSTRING.

Donc ce cas comment je dois faire pour mon instruction finis ?

Bein, tu regardes dans une doc comment s'écrit correctement l'instruction INSPECT avec la clause TALLYING ;)

lol , jamais utiliser dans le programme INSPECT

Savoir se plonger dans la doc IBM pour apprendre les instructions te sera utile plus tard, voire indispensable. Donc c'est l'occasion, d'autant plus si tu es étudiant.