Passage de PIC X vers COMP-3

[mirc00]

Bonjour,

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

Code :

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

Envoyé par mirc00

Bonjour,

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

Code :

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 :

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 :

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 :

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 :

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

La lecture des trucs est recommandée