      END-PERFORM.$6
      """
 
-  'Digita PERFORM VARYING':
+  'PERFORM VARYING':
      'prefix': 'PB'
      'body': """
      PERFORM                WITH TEST BEFORE

            END-PERFORM.
            """

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

     END-PERFORM.$6
     """

  'EXIT PARAGRAPH':
     'prefix': 'XH'
     'body': """
     EXIT PARAGRAPH$1
