Text durchsuchen

C     Text durchsuchen

C     

C     Aufruf:

C     CALL P2H038 (TEXTVAR,CSUCH,IPOS,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     TEXTVAR : Text, der durchsucht werden soll

C     CSUCH   : Text, der gesucht wird

C     IPOS    : Ergebnis: 0 = Text nicht gefunden, 1 = Text gefunden

C     IRET    : wird nicht ausgewertet, muss aber angegeben werden

C     

C     HINWEIS: Die Textvariablen TEXTVAR und CSUCH müssen im Programmkopf

C              deklariert werden!

C     CHARACTER *80 TEXTVAR, CSUCH

C     

C     Beispiel:

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

C     Text durchsuchen

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

      TEXTVAR = "HundKatzeMaus"

      CSUCH = "Hund"

C     

      CALL P2H038 (TEXTVAR,CSUCH,IPOS,IRET)

C     

C     Die Ausgabe mit der Anweisung:

      WRITE(6,*)IPOS

C     

C     ergibt: 1

C     

C     HINWEIS: Groß-/Kleinschreibung spielt hier keine Rolle.

C              "Hund" wird genauso gefunden wie "HUND" oder "HuNd".

C