Betreff: Re: Per Info: Zwei Felder verknüpfen

---

Hallo,
wenn das der Text im Feld1 eine konstante Länge hat ist es einfach.
Hier ein Beispiel:

TITEL 'ZTST001 Test'
AUSWAHL FIRMA
FIRMA EQ '10'

*/ Einfach Konstante Länge /*
RECHNE FELD1 FORMAT(30 C) = 'Der Text ist 30 Zeichen lang: '
RECHNE FELD2 FORMAT( 6 C) = '112567'
RECHNE FELD3 FORMAT(50 C) = FELD1 LAENGE=30
RECHNE FELD3 STELLE=31 = FELD2 LAENGE=6

*/ Mehr Arbeit variable Länge /*
RECHNE FELD10 FORMAT(30 C) = 'Nur 9 Z:'
RECHNE FELD30 FORMAT(50 C) = FELD10 LAENGE=30
RECHNE L FORMAT(2 0) = 0
RECHNE L = 1 (FELD10 STELLE=1 EQ ' ')
RECHNE L = 2 (FELD10 STELLE=2 GT ' ')
RECHNE L = 3 (FELD10 STELLE=3 GT ' ')
RECHNE L = 4 (FELD10 STELLE=4 GT ' ')
RECHNE L = 5 (FELD10 STELLE=5 GT ' ')
RECHNE L = 6 (FELD10 STELLE=6 GT ' ')
RECHNE L = 6 (FELD10 STELLE=6 GT ' ')
RECHNE L = 7 (FELD10 STELLE=7 GT ' ')
RECHNE L = 8 (FELD10 STELLE=8 GT ' ')
RECHNE L = 9 (FELD10 STELLE=9 GT ' ')
RECHNE L = 10 (FELD10 STELLE=10 GT ' ')
*/ etc. /*

RECHNE L = L + 2 */ Ein Leerzeichen dazischen /*
RECHNE FELD30 STELLE=1 = FELD2 LAENGE=6 (L EQ 1)
RECHNE FELD30 STELLE=2 = FELD2 LAENGE=6 (L EQ 2)
RECHNE FELD30 STELLE=3 = FELD2 LAENGE=6 (L EQ 3)
RECHNE FELD30 STELLE=4 = FELD2 LAENGE=6 (L EQ 4)
RECHNE FELD30 STELLE=5 = FELD2 LAENGE=6 (L EQ 5)
RECHNE FELD30 STELLE=6 = FELD2 LAENGE=6 (L EQ 6)
RECHNE FELD30 STELLE=7 = FELD2 LAENGE=6 (L EQ 7)
RECHNE FELD30 STELLE=8 = FELD2 LAENGE=6 (L EQ
RECHNE FELD30 STELLE=9 = FELD2 LAENGE=6 (L EQ 9)
RECHNE FELD30 STELLE=10 = FELD2 LAENGE=6 (L EQ 10)
RECHNE FELD30 STELLE=11 = FELD2 LAENGE=6 (L EQ 11)
*/ etc. /*

AUSGABE LISTE
SORT FIRMA

LEVEL FIRMA
ZEILE 'Feld1 : ' FELD1
ZEILE 'Feld2 : ' FELD2
ZEILE 'Feld3 : ' FELD3
ZEILE 'L : ' L
ZEILE 'Feld10: ' FELD10
ZEILE 'Feld30: ' FELD30

Grüße
R.P.S.