
|
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 ... |