Bonjour.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 MOVE "TSTLIB" to LIB. R0. EXEC SQL DELETE FROM LIB/FP0020 END-EXEC IF SQLCODE LESS THAN 0 THEN MOVE "EF" TO CD7 OF LOCAR GO TO ERREUR.
le programme ne supprime pas le contenu de la table FP0020 il ne comprend pas LIB
Aidez moi SVP
Partager