SQLCBL : probleme avec la fonction Sequence

Bonjour,

Je suis actuellement en train de travailler sur un programme CobolSQL sous AS/400, qui prend des données d'un fichiers et les place dans un autre fichier (jusque la tout va bien)

La ou tout se complique est lorsqu'en plus des données (normales) il m'a fallu insérer dans le fichier "résultat" une clef unique : un code pays suivi d'un numéro incrémenté au fur et a mesure.

J'ai découvert alors l'utilisation des séquences, qui répond à mon attente.

sous STRSQL, j'arrive à créer ma séquence, l'utiliser, etc.

Mais dans le SQLCBL, ma requête de création de séquence sort en erreur et fait planter mon programme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 MOVE SPACE TO W-REQUETE-SQL STRING "CREATE SEQUENCE SEQSWIFT " "AS INTEGER " " START WITH " WW-COMPTAGE-debut (cette donnée est à 01) " INCREMENT BY 1 " "NO MINVALUE " "MAXVALUE 999999 " "NO CYCLE " "CACHE 50 " "ORDER " DELIMITED BY SIZE INTO W-REQUETE-SQL. EXEC SQL EXECUTE IMMEDIATE :W-REQUETE-SQL END-EXEC.
Si je copie la string ainsi définie telle quelle dans STRSQL la séquence se crée, mais pas dans le programme.

J'ai cherché sur le net le code erreur (-7017 si je ne me suis pas trompé) et l'explication ne m'est pas très utile...

Code:

Explanation: Commitment control is already active to a DDM target.

Est ce que quelqu'un a déjà utilisé cette fonction dans un programme?

Merci d'avance,

P.S.
Je ne sais pas exactement ou placer ce post, parce qu'il pourrait se promener entre DB2, AS400... Prière de le déplacer en cas de besoin.

Un contrôle de validation est en cours et n'a pas été encore validé (COMMIT) ou invalidé (ROLLBACK). Aucune autre opération ne peut avoir lieu sur la table ou la séquence tant que l'opération en cours n'est pas terminée.

Solution probable :

1/ Faire COMMIT ou ROLLBACK sous "STRSQL"

2/ Ajouter
Code:

1 2 3 EXEC SQL SET OPTION COMMIT = *NONE END-EXEC
.

3/ Relancer le programme COBOL.

Mais, au lieu d'utiliser une séquence SQL, dans la mesure où j'ai bien compris ce que tu cherches à faire, j'aurais plutôt utilisé un incrément automatique avec une colonne identitaire "GENERATED ALWAYS" pour créer ma clé unique pays-séquence.

Merci, effectivement ca fonctionne (j'ai directement intégré l'option de controle de validation *none lors de la compilation en fait)

Pour la colonne identitaire j'y avais pensé, mais le fichier de sortie existe déjà et je ne suis pas sensé le modifier, juste insérer des données dedans... c'est pour ca que je me suis rabattu sur une concaténation d'une donnée (pays) et d'une valeur séquence.

Merci en tout cas !