ALTER SEQUENCE RESTART WITH.

Salut,
je travaille sur Z/OS DB2 V8, avec l'AGL PACBASE.

Je souhaite effectuer une migration sur des données pour intégrer une gestion de SEQUENCE DB2.

- J'ai créé une séquence.
- Je possède une table m'indiquant le dernier identifiant affecté
- Je souhaiterais modifier ma SEQUENCE pour débuter à partir de ce numéro.

Code:

---

1 2	EXQ ALTER SEQUENCE Nomseq RESTART WITH :DB00-NUDID

---

Je n'arrive pas à variabiliser la valeur aprés le RESTART WITH, il n'accepte apparemment que un <INTEGER> ou un <DECIMAL>. Est ce que certains d'entre vous on déjà rencontré ce problème ?

Merci de votre aide. 8-)

Comment est déclaré ta host-variable DB00-NUDID ?

Peux-tu mettre le code de ton CREATE SEQUENCE ?

.

Voici pour la création :

Code:

---

1 2 3 4 5 6

CREATE SEQUENCE Nomseq AS DECIMAL (8,00) START WITH 1 INCREMENT BY 1 MAXVALUE 99999999 NO CYCLE NO CACHE

---

Ensuite je récupère dans une table la colonne NUDID en S9(9) COMP.

Code:

---

1 2	10 DB00-NUDID PICTURE S9(9) BINARY.

---

puis j'essaye de passer l'alter comme décrit plus haut.

le message après compil est clair :

Code:

---

DSNH104I DSNHPARS ILLEGAL SYMBOL ":". SOME SYMBOLS THAT MIGHT BE LEGAL ARE : <DECIMAL> <INTEGER>

---

Merci d'avance. ;)

Ta host-variable est bien en Working?

.

oui, c'est le segment de réception de ma donnée DB2

Code:

---

1 2 3 4 5 6 7 8

WORKING-STORAGE SECTION. BEGIN DB2 DB00 01 DB00.   10 DB00-CDTAB PICTURE X(4). 10 DB00-ZB110 PICTURE X(110). 10 DB00-NUDID PICTURE S9(9) BINARY.

---

j'ai essayé avec une zone spécifique, même combat !

Code:

---

1 2 3

05 WW00-ZN009 PICTURE S9(9) BINARY.

---

:? Je ne vois pas pour quelle raison ton host-variable n'est pas prise en compte par contre je m'interroge sur la pertinence de cette variable.

En effet, d'après ce que je comprend de la doc, la numeric-constant qui suit le WITH est la valeur à laquelle est redémarrer la séquence, je ne pense pas que la séquence redémarre au niveau de la valeur de DB00-NUDID que tu lui indiques. (Que ce passe-t-il si tuple sur cette colonne ?)

Citation:

---

Envoyé par DB2 UDB for z/OS v8

WITH numeric-constant :
Specifies the value at which to restart the sequence. The value can be any positive or negative value that could be assigned to the a column of the data type that is associated with the sequence without non-zero digits existing to the right of the decimal point.

---

Je passe la main :(, tiens nous au courant
.

On ne peut pas utiliser de variables directement dans les instructions CREATE SEQUENCE et ALTER SEQUENCE, seules sont supportées des constantes numériques.

Passer par SQL dynamique pour contourner cette contrainte.

Exemple :

Code:

---

1 2 3 4 5 6 7 8

01 STMT. 05 FILLER PIC X(35) VALUE "ALTER SEQUENCE Nomseq RESTART WITH ". 05 RSTRT_VAL PIC X(8).   MOVE DB00-NUDID TO RSTRT_VAL.   EXQ EXECUTE IMMEDIATE :STMT.

---

J'aurais tendance à dire que ce n'est pas possible du moins je n'ai pas vu de référence à une host variable dans la doc. Par contre, ça marche si tu fais du dynamique dans ton programme (execute immediate).

zut, me suis fait griller par Mercure.

:oops:

Merci à vous tous :D

En revanche il me sera difficile de mettre du SQL Dynamique dans les productions de mes clients... :roll:

Tu pourras toujours leur dire que, s'ils rechignent, on ne fait pas d'omelette sans casser les oeufs. 8-)

Au fait c'est testé ca marche au bémol de la longueur qu'il faut fournir en plus.

Pour mémoire en Working :

Code:

---

1 2 3 4 5 6 7 8

01 STMT. 05 STMT-LIB PIC X(35) VALUE 'ALTER SEQUENCE MaSeq RESTART WITH '. 05 STMT-VAL PIC X(8).   01 STRI-VAR. 49 STRI-LGTH PIC S9(4) BINARY. 49 STRI-VAL PIC X(43).

---

dans la procédure division :

Code:

---

1 2 3 4 5

M DB00-NUDID STMT-VAL M STMT STRI-VAL M LENGTH OF STMT STRI-LGTH EXQ SET CURRENT SQLID = :WW00-IDSQL EXQ EXECUTE IMMEDIATE :STRI-VAR

---

Merci à vous en tous les cas :king: