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