le forum IBM i

Bonjour,

En RPG Libre, depuis la V5R4, on peut intégrer le SQL en format libre dans le RPG Free.

C/EXEC SQL
C+ SELECT Val1, Val2, Val3
C+ FROM Fichier
C+ WHERE Val1 = :parm
C/END-EXEC

Devient :
/free
exec sql
SELECT Val1, Val2, Val3
FROM Fichier
WHERE Val1 = :parm ;
;

Il faut "fermer" l'instruction SQL par ;

Les autres instructions SQL fonctionnent-elles de la même manière ?
Exec Sql
Open CSR_LI1;

Dou sqlcod<>0;
Exec Sql
Fetch CSR_LI1 into
:Zone1, :Zone2, :Zone3 ;
Exec Sql
Close CSR_LI1;

Tout simplement : OUI.