Nouvelles fonctions intégrées

la prochaine
version, on peut s’attendre à  beaucoup d’autres BIF au service d’expressions en
format libre qui n’existaient auparavant qu’en tant que spécifications de calcul
en format fixe. Ainsi, le nouveau format d’un BIF représentant le code opération
OCCUR sera comme illustré dans l’exemple suivant :

C*
C EVAL %OCCUR(DataStruct1) = 10
C EVAL OCC = %OCCUR(DataStruct1)
C* OCC = 10

Comme on peut le voir, on définit la BIF %OCCUR à  gauche du code opération EVAL
pour qu’elle modifie l’occurrence actuelle de  » DataStruct1  » en 10. La seconde
opération EVAL ci-dessus amène la BIF %OCCUR à  renvoyer le numéro d’occurrence
actuel de la structure de données indiquée. Dans cet exemple, la valeur renvoyée
sera 10.
Il y a bien d’autres cas où un code opération existant peut être utilisé dans
son style de format fixe et aussi comme BIF dans une expression. IBM a l’intention
d’ajouter des possibilités de format libre au langage tout en conservant l’héritage
en format fixe. Ce qui signifie que, en fin de compte, la plupart des codes opération
en format fixe accepteront une alternative BIF. La figure 1 contient quelques
autres BIF inclus dans la prochaine version.