Discussion :

[battistuta]

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 :

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

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.

[Peut-êtreUneRéponse]

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

Peux-tu mettre le code de ton CREATE SEQUENCE ?

.

[battistuta]

Voici pour la création :

Code :

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

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 :

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

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 :

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

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

Merci d'avance.

[Peut-êtreUneRéponse]

Ta host-variable est bien en Working?

.

[battistuta]

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

Code :

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

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 :

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

1
2
3
05              WW00-ZN009       
              PICTURE S9(9)      
                BINARY.

[Peut-êtreUneRéponse]

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 ?)

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
.

[Mercure]

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 :

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

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.