Free Form RPG

 

V7 & TR7, évolution majeure du RPG



Cette évolution est apportée par la PTF SI51094 (il faut aussi la SF99701 level 26 pour le SQLRPGLE)




Cette mise à jour apporte un format libre complet : plus de spécifications H, F, D et P.


Plus besoin de /free /end-free, les colonnes 6 et 7 à blanc suffisent.

           read fichier;
     C             MOVEA   *ALL'0'                        *IN      
           exfmt ecran;
           IF *in03;  
             .....

Donc ces dernières (colonnes 6 et 7) sont encore réservées :

Spécif H

Spécif F

Spécif D

Premier exemple :


Ce programme ancien, RPG III



est devenu en RPG IV (résultat de CVTRPGSRC)

A été transformé par le produit d'ARCAD comme cela :

Le programme a été compilé dans QTEMP (pour lire les références croisées) vous devez donc avoir mis en place *LIBL

Les N° de ligne source sont conservés, les colonnes 1 à 5 disparaissent.

Arcad Transformer RPG, transforme la partie déclaration si et seulement si vous avez installé la SI51094 et CVTDCLSPEC(*YES)

 

Dernière minute:

La version 9.0.1 de RDI du 10 Décembre 2013 reconnait ces nouveautés :

ici, ctrl+espace ->

La fenêtre structure

 

Enfin, Avec la TR3 et SI58137 (7.2) ou SI58136 (7.1) vous pouvez maintenant

  1. placer **FREE en début de source et commencer colonne1
  2. utiliser des sources de plus de 80 colonnes (PF-SRC ou IFS)

Membre source (ici de 240c.)

dans l'IFS

Résultat


C'est un package sur le mode tout ou rien, vous devez utiliser **FREE pour commencer colonne 1 et/ou utiliser plus de 80 colonnes.

/free et /end-free sont invalides, les lignes avec spécif aussi.

si vous avez besoin de lignes avec spécifications C (en colonne 6), faites un /COPY

Enfin, si vous faites un /COPY on sort du mode complètement libre (**FREE), sauf si ce dernier contient lui-même **FREE


© Volubis