Advertisement
RPG Fichier dans une procédure en V6R1

Jusque-là vous ne pouviez déclarer que des fichiers globaux pour vos programmes. A partir de la version 6, vous pourrez désormais utiliser des fichiers dans vos procédures.

Exemple :

Récupération du nom à partir d'un numéro de joueur

 

     P GetName         B

     Ffootball  IF   E           K Disk

     D Nom             PI            50a

     D   Numero                       10a

     

     D GetFootRec      Ds                  LikeRec(footballr)

      /Free

          Chain numero footballr GetFootRec;

          Return GetFootRec.Nom;

      /End-free

     P                 E 

 
[ Retour ]