Discussion :

[mirc00]

Bonjour,

J'ai une Variable dans un fichier en entrée de mon batch en PIX X(17)

Code :

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

1
2
"-0000000000256.35" ou 
" 0000000000256.35"

par exemple et j'aimerais la transformer en S9(13)V99.

Cdt,

[Hédhili Jaïdane]

Ce post a été édité pour rectification erreurs

Bonjour,

J'ai une Variable dans un fichier en entrée de mon batch en PIX X(17)

Code :

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

1
2
"-0000000000256.35" ou 
" 0000000000256.35"

par exemple et j'aimerais la transformer en S9(13)V99.

Cdt,

Bonjour.

Est ce que ces nombres sont dans le fichier en entrée tels que tu les donnes ou ça c'est l'affichage d'un display ?

S'ils sont réellement dans le fichier tels que tu les donnes :
- si tu as la fonction NUMVAL utilise la :

Code :

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

1
2
3
4
5
6
    03 Z1 PIC X(17).
....
01 Z2 PIC S9(13)V99.
....
MOVE FUNCTION NUMVAL(Z1) TO Z2.

- sinon redéfinis ta zone x(17) comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    03 Z1 PIC X(17).
    03 Z11 REDEFINES Z1.
        05 Z1-S    PIC X.
        05 Z1-E    PIC 9(13)
        05 Z1-V    PIC X.
        05 Z1-D    PIC 99.
....   
01  Z2 PIC S9(13)V99.
....
     COMPUTE  Z2 = Z1-E + Z1-D / 100.
     IF Z1-S = "-" MULTIPLY -1 BY Z2.

ou encore mieux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    03 Z1 PIC X(17).
    03 Z11 REDEFINES Z1.
        05 Z1-E    PIC S9(13) SIGN IS LEADING SEPARATE CHARACTER.
        05 Z1-V    PIC X.
        05 Z1-D    PIC V99.
   
01  Z2 PIC S9(13)V99.
           if Z1-E NEGATIVE
              Subtract Z1-D from Z1-E giving Z2
           else Add Z1-E Z1-D giving Z2.

Z2 peut être déclarée en comp-3.

PS : Cette discussion sera éventuellement déplacée dans le forum Cobol.

[bernard59139]

Bonjour

Si tu ne peux pas modifier le programme (ou en écrire un autre), tu peux utiliser DFSORT.
les mots clef à retenir, c'est SFF (Signed Free Form) et PD

la sysin du tri devrait ressembler à

Code :

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

1
2
3
OUTFIL OUTREC=(1,50,
           51,10,SFF,TO=PD,LENGTH=4,
           61,20)

La lecture des trucs est recommandée