Modèle de variables ou de data structure

Depuis la 6.1, il est possible d’utiliser un nouveau mot-clef:TEMPLATE.

Dans le passé, pour qu’une variable/data structure hérite des attributs d’une , on faisait baser cette variable/DS sur une partie de pointer qui ne contenait pas de valeur particulière comme ci-dessous:

       dcl-ds inhert based(nihil);    
         entire char( 131072);
         chrstr char( 131072) pos(1);  
         r_option_1 char(1) pos(1);
         r_categorie_client char(1);
       end-ds;
...
       Dcl-s Option_produit Like(r_option_1 );
Héritage d'attributs de variable

TEMPLATE permet d’utiliser une  variable/data structure comme modèle. Les variables utilisées dans vos sources pourront hériter de ces attributs par les mots-clef LIKE et LIKEDS.

      Dcl-s entire char( 131072) TEMPLATE;
      Dcl-s chrstr char( 131072) TEMPLATE;  
      Dcl-s r_option_1 char(1) TEMPLATE;
      Dcl-s r_categorie_client TEMPLATE;

      Dcl-ds DS_modele TEMPLATE;
          r_option_1  char(4);
          r_Mod_produit_1 CHAR(10);
      End-ds;
...
      Dcl-ds Produit;
        code_produit char(4);
        Type_produit packed(2:0);
        Version likeds(DS_modele);
      End-ds;

      Dcl-s Option_produit Like(r_option_1 );
Héritage des attributs d'une Data Structure

 

 

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.