Supprimer tous les jeux de données de poinçonnage ou de laser de la variante

C     Appel :

C     CALL PVB510 (IAKT,IRET)

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     IAKT : Détermine le type d'usinage à supprimer.

C            1 = la séquence de poinçonnage est supprimée

C            2 = la séquence d'usinage laser est supprimée

C     IRET : n'est pas évalué, mais doit être spécifié

C     

C     Exemple :

C     ------------------------

C     Supprimer la séquence de poinçonnage

C     ------------------------

      CALL PVB510 (1,IRET)