Requête de mise à jour d'un fichier

Bonjour,
Système : AS400
Base de données : DB2
Langage : Cobol
Je dois effectuer la mise à jour d'une date située dans une zone packée et signée (DTR S9(7) COMP-3) d'un fichier physique Cobol (ZFIC0) à l'aide d'une partie d'une zone de 30 caractères alphanumériques ( de cette zone nommée LIB on extrait les 7 premiers caractères) qui se trouve dans un autre fichier (ZLIB0). Les deux fichiers ont 3 zones clés en commun et la sélection sur le deuxième fichier se fait sur la zone NUM et LIB.

Voilà la requête que j'ai effectuée qui me donne le plus de résultats :
Code:

1 2 3 4 5 6 7 8 UPDATE ZFIC0 AS F SET F.DTR = (SELECT decimal(substr(LIBEL, 1, 7), 7, 0) FROM ZLIB0 AS L WHERE L.CLE1 = F.CLE1 AND L.CLE2 = F.CLE2 AND L.CLE3 = F.CLE3 AND L.NUM = 6 AND DECIMAL(SUBSTR(LIBEL, 1, 7), 7, 0) > 1090930)
J'obtiens le message suivant :
Valeurs indéfinies non admises dans la colonne ou la variable DTR

Auriez-vous une idée de la requête ou une autre solution pour effectuer cette mise à jour?

Merci.

Je ne connais pas DB2, ni ces messages d'erreur, mais la première possibilité qui me vienne est que pour certaines lignes, ton SELECT ne remonte rien, alors que ta colonne DTR est NOT NULL.
Il faudrait peut-être sortir ta condition du SELECT et la rattacher à UPDATE.
Code:

1 2 3 4 5 6 7 8 UPDATE ZFIC0 AS F SET F.DTR = (SELECT decimal(substr(LIBEL, 1, 7), 7, 0) FROM ZLIB0 AS L WHERE L.CLE1 = F.CLE1 AND L.CLE2 = F.CLE2 AND L.CLE3 = F.CLE3 AND L.NUM = 6) WHERE DECIMAL(SUBSTR(LIBEL, 1, 7), 7, 0) > 1090930)

Bonjour,

J'ai déjà essayé de sortir la requête du SELECT de l'UPDATE, je l'ai testée seule et elle fonctionne, elle me donne la date que je souhaite. Cependant, je me demande si les deux formats (DTR) et la zone du SELECT à partir de laquelle se fait la mise à jour ne sont pas incompatibles.

J'ai aussi essayé d'insérer le résultat du SELECT dans un fichier intermédiaire ZMVT0, histoire de ne pas avoir à utiliser de fonction DECIMAL et SUBSTR :
Code:

1 2 3 4 5 6 7 8 9 10 INSERT INTO ZMVT0(mvtcle1, mvtcle2, mvtcle3, mvtdtr) SELECT L.CLE1, L.CLE2, L.CLE3, DECIMAL(SUBSTR(L.LIB, 1, 7), 7, 0) FROM ZLIB0 AS L, ZFIC0 AS M WHERE L.CLE1 = M.CLE1 AND L.CLE2 = M.CLE2 AND L.CLE3 = M.CLE3 AND L.NUM = 6 AND DECIMAL(SUBSTR(L.LIB, 1, 7), 7, 0) > 1090930
J'arrive à insérer dans le fichier intermédiaire mais la jointure UPDATE ne fonctionne toujours pas :
Code:

1 2 3 4 5 6 UPDATE ZFIC0 AS F SET F.DTR = (SELECT MVTDTR FROM ZMVT0 AS L WHERE L.CLE1 = F.CLE1 AND L.CLE2 = F.CLE2 AND L.CLE3 = F.CLE3)
Merci pour vos réponses.

Il est possible qu'il y ait un problème de format, je ne suis pas apte à juger. Sinon, ta table intermédiaire peut servir à vérifier mon hypothèse : Y a-t-il dans ZMVTO des lignes où MVTDTR est NULL ? Ne seraient-ce pas ces lignes qui posent problème ? (essaie de les supprimer avant de faire l'UPDATE).

Il n'y a aucune zone où MVTDTR est NULL, en fait je n'ai qu'une seule ligne dans le SELECT, elle contient une date numérique de 7 caractères, qui correspond avec le format de la zone cible.

J'ai aussi essayé d'ajouté la fonction TRIM au résultat du SELECT, idem pour le message d'erreur, valeurs indéfinies.

Je m'explique :

Code:

DECIMAL(SUBSTR(L.LIB, 1, 7), 7, 0) > 1090930

est une condition.
Soit elle est toujours remplie, auquel cas elle est inutile :yaisse2:,
soit elle n'est pas toujours remplie, auquel cas, ton SELECT ne te renvoie aucune ligne, ce qui revient à faire (pour cette ligne-là)

Code:

SET DTR = NULL

. D'où ma question.

Citation:

Envoyé par rsc

Je m'explique :

Code:

DECIMAL(SUBSTR(L.LIB, 1, 7), 7, 0) > 1090930

est une condition.
Soit elle est toujours remplie, auquel cas elle est inutile :yaisse2:,
soit elle n'est pas toujours remplie, auquel cas, ton SELECT ne te renvoie aucune ligne, ce qui revient à faire (pour cette ligne-là)

Code:

SET DTR = NULL

. D'où ma question.

Pour contourner le problème que vous posez, j'ai le même problème avec cette condition :

Code:

SUBSTR(L.LIB, 1, 7) = '1090930'

Cela vous parle-t-il plus?

Merci.

C'est certain, si mon hypothèse est juste, tu auras le pb avec toutes les conditions sauf celles qui sont toujours remplies :D

Pour tester mon hypothèse, le plus simple est peut-être de faire tout simplement :
Code:

1 2 UPDATE ZFIC0 AS F SET F.DTR = NULL
soit sur toute la table si elle ne contient pas de données, soit en sélectionnant une seule ligne avec une clause WHERE.

Citation:
Envoyé par rsc
C'est certain, si mon hypothèse est juste, tu auras le pb avec toutes les conditions sauf celles qui sont toujours remplies :D

Pour tester mon hypothèse, le plus simple est peut-être de faire tout simplement :
Code:

1 2 UPDATE ZFIC0 AS F SET F.DTR = NULL
soit sur toute la table si elle ne contient pas de données, soit en sélectionnant une seule ligne avec une clause WHERE.
Après avoir testé votre requête exacte, le message renvoyé est toujours le même : valeurs indéfinies...Le système ne le permet peut-être tout simplement pas, dans ce cas il me faudra trouver une autre solution

J'ai aussi essayé cette requête qui me dit que le mot JOIN est mal placé :

Code:

1
2
3
4
5
6
7
8
9
 
UPDATE ZFIC0 AS F                        
SET F.DTR = 1091001                
JOIN ZLIB0 AS L                           
ON (L.CLE1 = F.CLE1               
AND L.CLE2 = F.CLE2
AND L.CLE3 = F.CLE3
AND L.NUM = 6                       
AND SUBSTR(L.LIB, 1, 7) = '1091001')

Cette requête-ci fonctionne mais ne répond pas à mon problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
UPDATE ZFIC0 AS F                                     
SET F.DTR = 1091003                                        
WHERE F.CLE1 IN 
(SELECT L.CLE1 
FROM ZLIB0 
WHERE L.CLE1 =F.CLE1 
AND L.CLE2 =F.CLE2  
AND L.CLE3 =F.CLE3 
AND L.NUM = 6 
AND SUBSTR(L.LIB, 1, 7) = '1091001')

Une autre solution serait de créer un CL qui ferait cette dernière requête pour chaque date possible dans le ZLIB0. Mais c'est un peu fastidieux...:marteau:

Non ça n'est pas impossible ! Il "suffit" de filtrer les lignes à mettre à jour en s'assurant qu'elles correspondent à des valeurs non nulles. Cela devrait donner qqch comme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
UPDATE ZFIC0 AS F
SET F.DTR = 
/* La valeur à insérer */
(SELECT decimal(substr(L.LIB, 1, 7), 7, 0)
FROM ZLIB0 AS L
WHERE L.CLE1 = F.CLE1 AND
L.CLE2 = F.CLE2 AND
L.CLE3 = F.CLE3 AND
L.NUM = 6
/* Cette ligne doit être superflue, à tester */
AND DECIMAL(SUBSTR(L2.LIB, 1, 7), 7, 0) > 1090930)) 
/* la condition qui vérifie que cette valeur n'est pas nulle */
WHERE EXISTS (SELECT decimal(substr(L2.LIB, 1, 7), 7, 0)
FROM ZLIB0 AS L2
WHERE L2.CLE1 = F.CLE1 AND
L2.CLE2 = F.CLE2 AND
L2.CLE3 = F.CLE3 AND
L2.NUM = 6
AND DECIMAL(SUBSTR(L2.LIB, 1, 7), 7, 0) > 1090930))

Je ne sais pas s'il 'y a moyen de simplifier. Sans doute, mais je ne vois pas...

Citation:

Envoyé par Jerome56

J'ai aussi essayé cette requête qui me dit que le mot JOIN est mal placé :

Code:

1
2
3
4
5
6
7
8
9
 
UPDATE ZFIC0 AS F                        
SET F.DTR = 1091001                
JOIN ZLIB0 AS L                           
ON (L.CLE1 = F.CLE1               
AND L.CLE2 = F.CLE2
AND L.CLE3 = F.CLE3
AND L.NUM = 6                       
AND SUBSTR(L.LIB, 1, 7) = '1091001')

Logique, on ne peut pas faire de jointure dans un UPDATE.

Citation:

Logique, on ne peut pas faire de jointure dans un UPDATE.

Vous parlez de SQL ou de DB2 en particulier?
Ceci est possible en SQL, mais je ne connais pas DB2 :
Code:

1 2 3 4 UPDATE T1 JOIN T2 ON T1.id = t2.id SET T1.col1 = T2.col1;

Citation:
Envoyé par Snipah
Vous parlez de SQL ou de DB2 en particulier?
Ceci est possible en SQL, mais je ne connais pas DB2 :
Code:

1 2 3 4 UPDATE T1 JOIN T2 ON T1.id = t2.id SET T1.col1 = T2.col1;
Je ne suis pas sûr que ça fasse partie de la norme SQL, même si cela me semblerait logique et extrêmement utile. Ca ne marche en tous cas ni sous Oracle, ni sous Firebird.:(

Concernant Oracle, il y a MERGE qui est relativement puissant et qui permet les mises à jour d'une table à partir d'une vue.

On peut aussi faire des updates de vues (avec une autre syntaxe) mais uniquement sous certaines conditions.

Je reviens vers vous pour vous dire que j'ai trouvé une réponse à notre problème (qui n'est pas encore tout à fait conforme à la solution que j'attends, mais c'est déjà ça!:chin:) :

Voici le code qui met correctement à jour la ligne du ZFIC0 que je veux avec la bonne valeur du ZLIB0 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 UPDATE ZFIC0 AS F SET F.DTR = (SELECT DECIMAL(SUBSTR(L.LIB, 1, 7), 7, 0) FROM ZLIB0 AS L WHERE L.CLE1 = F.CLE1 AND L.CLE2 = F.CLE2 AND L.CLE3 = F.CLE3 AND L.NUM = 6) WHERE F.CLE1 IN ( SELECT L.CLE1 FROM ZLIB0 AS L WHERE L.CLE1 = F.CLE1 AND L.CLE2 = F.CLE2 AND L.CLE3 = F.CLE3 AND L.NUM = 6 AND SUBSTR(L.LIB, 1, 7) > '1090930')
Merci pour vos indications rsc, elles m'ont aidé à voir que sans la deuxième clause WHERE, on voulait mettre à jour toutes les lignes du ZFIC0, or je ne voulais mettre à jour que certaines lignes (celles dont la clé du ZLIB0 et du ZFIC0 coïncident, avec une sélection sur le numéro 6 du ZLIB0 et la date)

Je vous expose plus avant mon problème, qui n'en est plus un :

Dans le cadre d'une reprise de données d'un système source A vers un système cible B, on utilise un module qui met à jour la date de traitement du ZFIC0 F.DTR dans le système cible B à la date du jour. Or il faut que cette date de traitement soit celle de l'ancien système A. On remonte donc l'ancienne date dans la zone L.LIB du ZLIB0 et on lance la requête d'UPDATE précédente pour remettre les dates sources dans le système cible.

Je considère cette discussion comme résolue:resolu:.

A vos avis!

Merci à tous!:merci: