Nouveautés RPG/400 V2R20

BoTTom |    Changer de couleur
 
Nouveautés RPG V2R20
 
 Nouveaux mots réservés 
 
               *DATE =  UDATE avec année sur 4
               *YEAR =  UYEAR avec année sur 4
               *MONTH = UMONTH
               *DAY   = UDAY
 
  Le code d'édition Y est admis avec des zones de 3 à 9 chiffres.
                      (> ou = 8 ==> année sur 4)
 
 Les littéraux héxa sont supportés 
 
     sous la forme X'nnnn' (comme en CL),
 
                     n = A-F,a-f,0-9.
 
     partout où les littéraux sont admis.
 
 


|    Changer de couleur
 
 Nouveau code opération CHEKR 
                           (identique à CHECK, mais en partant de la droite)
 
     C                     MOVEL'ABC '    CHAR6   6
      * recherche du premier car. non blanc
      * (rappel: le facteur 1 contient la liste des valeurs ADMISES).
      *
     C           ' '       CHEKRCHAR6     POS     10
                                           ^
                                           !- POS = 3
                                              (si tableau POS,1 = 3
                                                          POS,2 = 2
                                                          POS,3 = 1)
 Modification de codes opérations 
      SUBST --> facteur 1 optionnel (si blanc = jusqu'à fin de zone)
 
      CAT   --> facteur 1 optionnel (si blanc = zone résultat, MAIS
                 facteur 2 doit être sous la formme : nom-zone:nb-de-blancs)
 
      manip --> P en col. 53 demande de compléter la zone résultat à blanc
    de zones.               ou à zéro (a droite si MOVE, à gauche si MOVEL).





©AF400