Discussion :

[Adibou le Flamboyant]

Bonjour à toutes et tous,

J'utilise ASNA Visual RPG pour développer un programme qui va lire dans un fichier physique sur l'As400.
Mon problème, c'est qu'il faudrait que les enregistrements soient triés avant le début de la lecture du fichier (dans l'idéale depuis mon programme RPG).

J'ai fait quelques recherches, j'ai trouvé des informations sur les commandes FMTDTA & OPNQRYF mais je suis un expert ni sur l'As400 ni en RPG donc j'aimerais qu'on m'éclaire un peu si possible

Merci d'avance !

[m4k-Hurrican]

Bonjour,

Trier un fichier avant un programme, çà fait longtemps que je n'ai pas vu çà !
Ah le bon vieux temps des "Sort" et des cartes H dans les procédures 36.

Bref, le mieux est d'avoir un fichier déjà trié, en clair un index, et d'utiliser cet index à la place du physique.
Autre possibilité, accéder au fichier par SQL. Si l'optimiseur trouve un index qui va bien, il l'utilisera, sinon il créera le chemin d'accès temporaire.

[Adibou le Flamboyant]

Bref, le mieux est d'avoir un fichier déjà trié, en clair un index, et d'utiliser cet index à la place du physique.
Autre possibilité, accéder au fichier par SQL. Si l'optimiseur trouve un index qui va bien, il l'utilisera, sinon il créera le chemin d'accès temporaire.

Je vais voir les possibilités que j'ai pour créer un logique.
C'est bête, j'étais persuadé qu'on pouvait lire un fichier logique qu'avec un READE.. Je viens de tester, c'est possible avec un READ donc pas de problème en fait

J'en profite quand même, sais-tu comment faire appel d'une commande As400 depuis un programme RPG (avec ASNA Visual RPG)?

[m4k-Hurrican]

Un fichier logique est traité exactement comme un physique par le RPG, aucune différence.
Pense juste à mettre en carte F que tu utilises un chemin d'accès sur clé.

Pour appeler une commande on utilises généralement (à l'ancienne) un appel à QCMDEXC.
IBM fournit un exemple ici
Souvent quand on a des bibliothèques provenant d'Easy400 (comme MMAIL ou CGIDEV2), on a aussi des procédures qui simplifient la tâche (DoCmd).

[Hédhili Jaïdane]

Bonjour.

J'utilise souvent la commande RGZPFM avec KEYFILE(*FILE) pour trier un fichier physique selon sa clé primaire et récupérer les espaces occupés par les enregistrements supprimés. Les tris externes ou internes sont pratiquement proscrits.
Quant à l'appel de commandes à partir d'un programme RPG ou Cobol, j'ai toujours trouvé plus pratique de faire un programme CL et de l'appeler par CALL comme tout autre programme en jouant à loisir sur les paramètres.

[Adibou le Flamboyant]

Merci pour vos réponses rapides et efficaces