Discussion :

[papino30]

Bonjour,

Je rencontre un prb dans un prg RPG, lors de l’exécution en intéractif tous se passe bien, mais lors de l'exécution en batch il ne fais rien, pas de message bloquant, mais dans QPJOBLOG j'ai ce message.

Voir le fichier joint pour voir Ligne de mon programmes + l'erreur

Je ne vois pas ce que je peux faire pour l’exécuter en batch.

Merci d'avance

[pwrdwnsys]

Est-ce qu'il ne manquerait pas un COMMIT, vu le dernier message ?

[papino30]

C'est possible, mais je n'arrive pas a comprendre pourquoi ce prg marche en interactif mais pas en batch.
J'ai d'autre programme qui font la même chose et qui fonctionne dans les 2 cas (peut-être un problème sur le fichier ?)

[escartefigue]

Il semble en effet qu'un rollback soit codé dans le programme batch, vu la log

Sinon, d'après le code fourni en pièce jointe, passer par un curseur est contre productif.
Les bases relationnelles sont beaucoup plus peformantes avec des traitements ensemblistes.
Sous réserve des actions à faire lorsque le code S_NOCLI est différent de '00016000', vous pourriez remplacer votre code par quelque chose comme ça :

Code :

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

1
2
3
4
5
6
update emifil.desent
set toptrt = 
    case when S_NOCCLI='00016000'
          then %timestamp()
          else 'TOTO'
    end

A chaque fois qu'un curseur peut être évité, c'est préférable

[papino30]

Merci pour ta réponse (je vais la travailler), autrement j'ai dans mon prg ajouter ligne :

Code :

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

exec sql set option commit=*none, closqlcsr=*endmod;

est ça marche.

[Darkzinus]

Pour compléter ce qui a été dit, si ton fichier n'est pas journalisé tu dois spécifier with nc dans tes requêtes de mise à jour (sinon tu auras un SQLCODE -7008) si ton programme est dans un commitment control (instruction STRCMTCTL dans le CL) ou alors comme tu l'as mis directement en début de programme (avec l'option commit à *none). En interactif tu n'es pas en commitment control c'est pour cela que tu n'avais pas l'erreur.

[papino30]

Merci pour ton explication, je comprends mieux