Discussion :

[nsqualli]

Bonjour,

Je suis entrain de modifier un CL (sous AS/400), le problème que je rencontre c'est lors d'un CPYF du premier enregistrement d'un fichier, une conversion d'un caractere alphanumérique se fait automatiquement en numérique à tort.

Est ce que queqlu'un peut me dire SVP comment je peux faire pour ne plus avoir cette convertion.

voila la commande que je fais:

Code :

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

1
2
3
CPYF       FROMFILE(&BIB/&FIL) TOFILE(FICH2) + 
             MBROPT(*REPLACE) TORCD(1) +         
             FMTOPT(*NOCHK)

Merci à vous par avance

[larry57]

Bonjour,

Il y a peut-être une différence de ccsid entre le 2 fichiers.
A voir et me revenir.

larry57

[FORMULARY]

Tu utilises *NOCHK.
Vérifies si DSPFFD des deux fichiers donne les mêmes zones avec les mêmes longueurs

[nsqualli]

Non les deux fichiers n'ont pas la même description, le fichier source a une seule zone où il y'a tout l'enregistrement, alors que le fichier destination a deux zones la première sur 8 et la deuxième sur 15.

normalement le fichier source doit etre numérique, mais pour tester le cas d'un fichier mal renseigné j'ai mis dans l'enregistrement du fichier source 5396A.

après le passage du traitement je trouve que le caractère A est changé avec la valeur 1 quand j'ai mis X la valeur dans le fichier destination est 7, après le passage de commande CPYF.

voila la description de la zone concernée du fichier destination:

Code :

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

NUMADH         5          COLHDG('NUMÉRO ADH')

Merci à vous

[Hédhili Jaïdane]

Bonjour.

- Assure toi que les deux fichiers ont le même CCSID (DSPFD, DSPFFD).
- si tu tes deux fichiers ont leurs deux structures superposées, il n'y a pas de problèmes avec le *NOCHK
- important : comment as tu vu le caractère alpha se changer en numérique ? par une lecture par un programme, DFU ou par un affichage DSPPFM ?

Je soupçonne une conversion forcée lors de la lecture du 2è fichier et non lors du CPYF, parce que ta zone, ou une zone intermédiaire, est déclarée en numérique.

Edit :
- tu parles de 8 et 15 et là on voit du 5.
- A=x"C1" et X=x"E7" d'où le 1 et le 7

[nsqualli]

Bonjour.

- Assure toi que les deux fichiers ont le même CCSID (DSPFD, DSPFFD).
- si tu tes deux fichiers ont leurs deux structures superposées, il n'y a pas de problèmes avec le *NOCHK
- important : comment as tu vu le caractère alpha se changer en numérique ? par une lecture par un programme, DFU ou par un affichage DSPPFM ?

Je soupçonne une conversion forcée lors de la lecture du 2è fichier et non lors du CPYF, parce que ta zone, ou une zone intermédiaire, est déclarée en numérique.

Edit :
- tu parles de 8 et 15 et là on voit du 5.
- A=x"C1" et X=x"E7" d'où le 1 et le 7

Comment je peux vérifier s'ils ont le même CCSID ou non?
j'ai vu la conversion se faire comme suit:
je vérifie la valeur de l'enregistrement du fichier source elle est a 5396X et après le CPYF je vérifie le fichier destinantion, la valeur est 53967.

la zone qui reçoit la valeur converti est déclarée comme suit:

Code :

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

NUMADH         5S 0       COLHDG('NUMERO ADH')

tu as raison pour la le 8 et le 15 j'ai fais une erreur il est déclaré sur 5 et non sur 8.

[Hédhili Jaïdane]

Comment je peux vérifier s'ils ont le même CCSID ou non?

Par DSPFD ou DSPFFD

j'ai vu la conversion se faire comme suit:
je vérifie la valeur de l'enregistrement du fichier source elle est a 5396X et après le CPYF je vérifie le fichier destinantion, la valeur est 53967.

la zone qui reçoit la valeur converti est déclarée comme suit:

Code :

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

NUMADH         5S 0       COLHDG('NUMERO ADH')

tu as raison pour la le 8 et le 15 j'ai fais une erreur il est déclaré sur 5 et non sur 8.

- Tu vois que ta zone est du numérique signé
- Par quel moyen tu as vérifié ?
- Pour vérifier le bon contenu des fichier, il faudrait éviter tout autre moyen que le dump normal sans laisser la possibilité à tout type de conversion : tu le fais par DSPPFM.

[nsqualli]

Par DSPFD ou DSPFFD

- Tu vois que ta zone est du numérique signé
- Par quel moyen tu as vérifié ?
- Pour vérifier le bon contenu des fichier, il faudrait éviter tout autre moyen que le dump normal sans laisser la possibilité à tout type de conversion : tu le fais par DSPPFM.

Tu as raison avec le DSPPFM même dans le fichier de destination j'ai le X.

comment je peux faire pour regler ce problème?

[Hédhili Jaïdane]

Tu as raison avec le DSPPFM même dans le fichier de destination j'ai le X.

comment je peux faire pour regler ce problème?

Très bien.

Par le même moyen que tu as utilisé quand tu vu la conversion se faire, donc ça sera par un programme RPG ou Cobol en copiant le fichier. Je pense que CPYF ne le fera pas, il se plantera sur la zone numérique.

MAIS MAIS ce n'est pas la bonne solution. Tu as bien commencé, alors finis bien. Puisque c'est un fichier entrant, donc tu fais un petit programme de contrôle des données entrantes avant de les prendre en charge et rejeter les données erronées ou tout le lot

[nsqualli]

Très bien.

Par le même moyen que tu as utilisé quand tu vu la conversion se faire, donc ça sera par un programme RPG ou Cobol en copiant le fichier. Je pense que CPYF ne le fera pas, il se plantera sur la zone numérique.

MAIS MAIS ce n'est pas la bonne solution. Tu as bien commencé, alors finis bien. Puisque c'est un fichier entrant, donc tu fais un petit programme de contrôle des données entrantes avant de les prendre en charge et rejeter les données erronées ou tout le lot

j'aurai aimer que ça plante et comme ça je peux gérer ce plantage, le problème c'est que ça ne plante pas le traitement continu normalement et à la fin j'ai une édition avec la valeur numérique.

[Hédhili Jaïdane]

j'aurai aimer que ça plante et comme ça je peux gérer ce plantage, le problème c'est que ça ne plante pas le traitement continu normalement et à la fin j'ai une édition avec la valeur numérique.

- le CPYF avec *NOCHK ne plantera pas.
- un 2è CPYF du 2è fichier dans un 3è fichier avec la même description mais avec *MAP *DROP, je pense qu'il va planter. Si c'est ce plantage que tu veux, ok.
- mais dans le processus que tu utilises, moi je verrais un petit contrôle de la numéricité de cette zone et des autres données attendues

[nsqualli]

- le CPYF avec *NOCHK ne plantera pas.
- un 2è CPYF du 2è fichier dans un 3è fichier avec la même description mais avec *MAP *DROP, je pense qu'il va planter. Si c'est ce plantage que tu veux, ok.
- mais dans le processus que tu utilises, moi je verrais un petit contrôle de la numéricité de cette zone et des autres données attendues

D'accord, merci beaucoup pour ton aide.
je vais essayer de générer le plantage et si ça ne marche pas j'opterai pour la deuxième solution.
Merci encore

[Hédhili Jaïdane]

D'accord, merci beaucoup pour ton aide.
je vais essayer de générer le plantage et si ça ne marche pas j'opterai pour la deuxième solution.
Merci encore

Pas de quoi, tiens nous au courant.

[larry57]

Re-bonjour,

Si tu veux faire une gestion des erreurs dans ton programme si tu utilises le RPG

Code :

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

1
2
3
4
Monitor;
ton code
on-error *all;
Endmon;

Larry57

[nsqualli]

Ce que j'ai fais en fin de compte c'est de modifier la description du fichier de destination:

Code :

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

1
2
3
R ENTF                                          
  NUMADH         5S 0       COLHDG('NUMERO ADH')  -- ligne supprimée
  NUMADH         5A         COLHDG('NUMERO ADH')

comme ça lors de l'édition (qui ne se fait qu'on cas d'un problème), j'ai le Numéro d'adhérent avec une valeur alphanumérique.
du coup le gestionnaire peut voir la cause du problème.

Merci à vous tous pour votre aide.

PS: c'est hors sujet, mais je suis débutant avec le langage de commande CL sous AS400 (je travaille surtout avec du cobol, et avant je travaillais avec le langage JCL sous MVS) et je ne trouve pas de documentation en français, si quelqu'un a une documentation détaillée en français, merci de ma la fournir.

Merci à tout le monde par avance.

[nsqualli]

Re-bonjour,

Si tu veux faire une gestion des erreurs dans ton programme si tu utilises le RPG

Code :

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

1
2
3
4
Monitor;
ton code
on-error *all;
Endmon;

Larry57

Non j'utilise COBOL, merci quand même pour ton aide.

[larry57]

Il y a les redbook IBM, mais c'est en anglais.
Rares sont les docs en français.

Ton bonheur ici http://publib.boulder.ibm.com/infoce...printingme.htm

larry57

[Hédhili Jaïdane]

...
- un 2è CPYF du 2è fichier dans un 3è fichier avec la même description mais avec *MAP *DROP, je pense qu'il va planter. Si c'est ce plantage que tu veux, ok.

Rectif : ce plantage n'aura lieu que si le caractère alpha à convertir contient autre chose que des digits de 0 à 9 dans ses derniers 4 bits.