ILE RPG (RPG IV, V3R10)

BoTTom |   
 Aujourd'hui ILE C/400  (5738CX2)
 
 Demain ILE RPG (V3R10)
 
 apportera : (sous toutes réserves bien sur)
             Spécifs étendues (80 à 132 colonnes)
 
             zones aplhas de plus grande taille (256 c à 32 Ko)
 
             noms de zone sur 10 (ou 14 ?) caractères ("_" admis)
 
             aucune différence entre minuscule et MAJUSCULE
 
             expressions mathématiques et logiques en format libre (EVAL) 
 
             instructions multi-lignes
 
             le support des zones DATE/HEURE/HORODATAGE (ADDDUR & SUBDUR)
 
             le supports des pointeurs (???)
 
             nouvelles spécif de définition (spécifs D)


|   
 ##                   Sous réserves                           
 
  notion de continuation et mots-clés type SDD
 (spécif F) 
 FFilename++IPEAFRlen+LKlen+AIOvKloc+EDevice+File continuation
 Ffic_01    UF  E                     DISK   PREFIX(F1) < chaque zone
                                                          précedée de "F1"
 Ffic_02    IF  E                     DISK   INCLUDE(format1) < évite des
                                                                "IGNORE"
 (spécif D ,indentation admise)
 DName+++++++++++ETDsFrom+++TO/L+++IDc.fonctions+++++++++++++++
 D PERSONNE        DS                  INZ
 D  NOM_COMPL                    30
 D   NOM                   1     15
 D   PRENOM               16     30
 D  NOTEL                        10
 D   prefixe                           OVERLAY(NOTEL)
 D   t_numero                          OVERLAY(NOTEL:4)
 
 D tableau          S             5 0  DIM(10)
 
 D une_zone         S             9 3


|   
 
 Spécif C remaniée : UN SEUL indicateur à gauche
                     facteur 2 étendu = format libre
                     (option) associée au code opération (H) = arrondi
                     plusieurs lignes pour une même opération
 
CL0N01Facteur1++++++Cod-op(E)Facteur2-étendu++++++++++++++++++++++++++
C                   IF       (heure <= 40)
C                   EVAL(H)  paie = taux * heure
C                   ELSE
C                   EVAL(H)  paie = (taux * 40) + ((heure - 40) *
C                                   (taux * 1.5))
C                   ENDIF
C
 
ILE COBOL = lettre d'intention  (annonce assez floue)
 
            + ANS/85,  SAA niveau 2
            + amélioration des limites actuelles
            + nouveau produit sous licence (comme ILE/RPG)
 
                                                             A SUIVRE ... 





©AF400