Codes opération remplacés par des BIF

avec sa contrepartie en format libre :

C                      Extrct

  SomeDate:*M MM

  MM = %SubDt(SomeDate: *Months);

If %SubDt(SomeDate: *Months) = ReportMonth;
   ExSr ProcessData;
EndIf;

Ce code est parfaitement clair et
net.
Voyons un autre exemple BIF et la
transformation du RPG du format fixe
en format libre. Les exemples suivants
exécutent la sous-routine FoundString
quand la valeur de la variable
SomeSrch existe quelque part dans la
variable SomeString. Voici la solution
en format fixe :

C      SomeSrch Scan SomeString
C               If   %Found
C               ExSr FoundString
C               EndIf

Avec le format libre, on ne peut
plus utiliser %Found pour déterminer
si l’opération Scan a trouvé l’argument
de recherche. Au lieu de cela, la BIF
%Scan de remplacement renvoie la position,
indiquant si l’argument de recherche
a été trouvé (quand la position
renvoyée est zéro, l’argument de
recherche n’a pas été trouvé). Voici
une version en format libre qui suit de
près la version en format fixe :

   Position = %Scan(SomeSrch:SomeString);

   If Position > 0;

      ExSr FoundString;

   EndIf;

   If %Scan(SomeSrch: SomeString) > 0;

      ExSr FoundString;

   EndIf;