Discussion :

[AllanRoc]

Bonjour,

J'ai un fichier paramètre qui me donne la position début et fin de chaque champ d'un fichier.

Dans un programme d'extraction j'ouvre le fichier et j'extrait chaque valeur de champs par un %subst de à. Pour les champs numériques pas de soucis pour les extraire. Mais pour les champs packés je n'y arrive pas.

Je fais

num s 15 0

dsfic ds likerec(ppe1f1)

=======> je ne nomme pas les champs je ne travaille que sur les positions de champs

num = %dec(%subst(dsfic:83:3):3:0)

ça plante (Représentation alphanumérique d'une valeur numérique en erreur)

La valeur est 0238 packé


J'ai déjà fait ce genre de traitement, mais je ne me souviens plus.
Auriez vous une idée. Merci à vous

[m4k-Hurrican]

Bonjour,

C'est un peu spécial comme technique.
Mais bon, je pense que la solution est de définir une DS qui contiendra une zone packée de la longueur désirée et de redéfinir les mêmes positions en alpha pour mouvementer la valeur.
Pour un champ packé 9P5 par exemple, tu auras un champ alpha de 5 caractères redéfini pour les positions 1 à 5.
Tu places ta valeur extraite dans le champ alpha, et tu devrais pouvoir utiliser le champ packé ensuite.
En code non Free çà devrait donné un truc comme çà :

Code :

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

1
2
3
4
DDS_DEF           ds                                                                  
D PckFld                         9p 5                                                 
D StrFld                  1      5