Discussion :

[mimi13016]

bonjour

je suis confronté au probleme suivant:

je dois developper en windev 15 une application qui tourne sur pc et qui lit et met à jour les données sur un AS400 à l'aide de requettes SQL.

Pour cela j'utilise l'odbc client access , pour tout ce qui est des lectures sur as400 et traitement sous windev pas de soucis , mon seul soucis se trouve au niveau des updates.

Je fais un update sur as400 par sql d'un compteur (n° de facture + 1)
et ensuite je lance une requete de lecture pour recuperer le nouveau numero.
Cela fonctionne sauf que si un utilisateur met à jour lui aussi ce compteur entre temps , ma requete recupere son numero !!

j'ai essayé cela : SET TRANSACTION ISOLATION LEVEL NO COMMIT
(uniquement le no commit fonctionne peut etre parceque les fichiers sur l'as400 sont en mode 36)

update ......................

select .................


commit

cela est il correct et reglera mon probleme ?
il est à noté que pendant un certain temps et pour certains postes , mon programme tournera en meme temps que l'ancien ecrit en COBOL .

qu'en pensez vous ?


merci


michel

[K2R400]

Dans ton sql tu fais :

UPDATE ...... with CS
puis
SELECT ...... with CS
puis
COMMIT

Mais dans ton COBOL il faut que tu fasses aussi du commitment control sous le niveau d'isolation CS (Cursor stability) pour éviter toute lecture sale.
Donc, dans le CL avant ton cobol tu fais un STRCMTCTL LCKLVL(*CS) sur ton fichier.
Après la MAJ dans ton COBOL tu fais un COMMIT.
Ne pas oublier le ENDCMTCTL

Dans les deux cas, COBOL ou SQL, aucun des deux ne pourra lire l'enregistrement tant qu'il n'est pas committé. Le système va attendre.

[mimi13016]

Bonjour

merci beaucoup pour ta reponse cela va me sauver la vie !!!!, si cela est possible peux tu me noter un exemple en sql avec le update ...CS et le select .... CS ? car je ne connais pas du tout .

j'ai essaye ca :

testtransaction= "SET TRANSACTION ISOLATION LEVEL READ COMMITTED"

update ....

select ...
commit

mais je recois cette erreur SQL au niveau du set transaction .... :
"erreur sql sql7008: table nb.const incorrecte pour cette operation "

merci encore

michel

[K2R400]

Pour l'exemple, tu fais ton update et ton select et à la fin tu tapes WITH CS
Sinon un :
Exec SQL SET TRANSACTION ISOLATION LEVEL CS

Il faut que ton fichier soit journalisé, sinon pas de transaction possible.

[mimi13016]

merci je vais essayer .
je donnerai le resultat.


a+

michel

[mimi13016]

bonjour


est il possible de demarrer une journalisation sur un as400 qui possede des fichiers qui sont en mode s36 ?


merci


michel