Materialnummer anhand des Materialnamen ermitteln

Manchmal bekommt die Variante als Parameter ein Material im Klarnamen (z.B. "1.4301 Korn 240"). In der Variante kann über eine Funktion das Material neu gesetzt werden. Allerdings wird hierbei die Nummer des Materials benötigt und nicht der Name.

Mit der folgenden Funktion wird anhand des Materialnamens die entsprechende Materialnummer aus der Materialkonfiguration ermittelt.

C     Materialnummer anhand des Materialnamen ermitteln

C     

C     Aufruf:

C     CALL PBE077 (MATTEXT,IMAT,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     MATTEXT : Variable mit dem Materialnamen (z.B. "DC01")

C     IMAT    : Ergebnis als Rückgabewert, enthält die Materialnummer

C     IRET    : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Materialnummer anhand des Materialnamen ermitteln

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

      MATTEXT = "X5CRNI18-10"

C     

      CALL PBE077 (MATTEXT,IMAT,IRET)

C     

C     Neue Materialnummer im Hauptprogramm verwenden:

C     

C     NEW DEFINITION OF HEADER-VALUES

      PARAM (45) = IMAT

C