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;
