Discussion :

[fspiecart]

Bonjour,
Nous programmons en RPGIII
Est-il possible d'écrire dans un fichier à partir d'un CL ?
Merci à tous
fspiecart

[Hédhili Jaïdane]

Bonjour,
Nous programmons en RPGIII
Est-il possible d'écrire dans un fichier à partir d'un CL ?
Merci à tous
fspiecart

Bonjour.

Jusqu'à la V5R4, à ma connaissance non.
Mais pour pallier à cet inconvénient, tu écris un petit prog RPG/Cobol à qui tu passes tout l'enregistrement à écrire et le tour est joué.

[Green Hornet]

quel intérêt d'écrire dans un fichier depuis un CL si l'on programme en RPG3?

[Hédhili Jaïdane]

quel intérêt d'écrire dans un fichier depuis un CL si l'on programme en RPG3?

Bonjour.

Tu sais, ça peut servir par exemple à vider une msgq et sauvegarder l'intéressant de son contenu dans un fichier DB pour utilisation ultérieure : apparition de certains messages, l'historisque des bons enchaînements des travaux de nuit, etc....

[Green Hornet]

ah ok, perso j'en ai jamais eu l'utilité, bon faut dire que les msgq je les ai jamais utilisé non plus ...

[Mercure]

Perso, j'utilise une routine RPG que j'ai écrite il y a des lunes de cela, qui fait qu'on peut faire du SQL (donc écrire par INSERT) dans un CL.
Regardez sur mon site à cette adresse.

Dans le CL, je prépare l'instruction SQL à exécuter dans la variable &sql et je la passe à la routine RPG :

Code :

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

1
2
3
4
5
6
7
dcl &sql       *char    2000
dcl &coderet *dec (1 0)
...
chgvar &sql 0
chgvar &sql ('Insert into MyFile Values(' ...   )  
Call UTSQL ( &sql &coderet )
if ( &coderet < 0) Then ... /* Error */

Même procédé si j'utilise la commande UTSQL, telle qu'elle figure sur la page du site.