V5R4: RPG "libre"

RPG (3 et 4, free), CL, SQL, etc...
Répondre
pmaugin
Site Admin
Messages : 30
Enregistré le : mer. 14 févr. 2007, 18:28:48

V5R4: RPG "libre"

Message par pmaugin »

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; :?:
Philippe MAUGIN, (RAUTUREAU APPLE SHOES)
V7R2.

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

(sans texte)

Message par cmasse »

Tout simplement : OUI.
Christian Massé (Volubis.fr)

Répondre