              END-EVALUATE.
             """
 
-  'Digita PERFORM UNTIL EXIT':
+  'PERFORM UNTIL EXIT':
     'prefix': 'PU'
     'body': """
             PERFORM UNTIL EXIT

            END-PERFORM.
            """

  'Digita PERFORM VARYING':
     'prefix': 'PB'
     'body': """
     PERFORM                WITH TEST BEFORE

     END-PERFORM.$6
     """

  'PERFORM VARYING':
     'prefix': 'PB'
     'body': """
     PERFORM                WITH TEST BEFORE
