H-G-M 01.06.2017, 11:49
Betreff: Auswertung SA 1815

Hallo,

ich brauche ein Info : Personalnummer Name Ausgeübte Tätigkeit (50 29 81) und möchte dann die Beschreibungen dazu aus der SA 18 50 mit andrucken.

Hat jemand für mich die Zeilen, mit der ich die Texte aus der SA 18 50 andrucken kann.

Danke und Gruß

Hans-Günther Müller

Walter Latsch 01.06.2017, 12:43
Betreff: Re: Auswertung SA 1815

z.B.:
TITEL 'TAET Taetigkeiten '
AUSWAHL PERSNR
FIRMA EQ PARAM(21 22)
*/$PARAM START /*
*/$PARAM 15,X,I immer X /*
*/$PARAM 21,02,F Firma /*
*/$PARAM ENDE /*
RECHNE TAET-AKT FORMAT(5 C) = TAETIGKS1(A)
RECHNE TAET-LES FORMAT(6 C) STELLE = 1 = TAET-AKT
RECHNE TAET-2C FORMAT(3 C) = TAETIGKS1NR(A)
RECHNE TAET-C FORMAT(1 C) = TAET-2C STELLE = 3
RECHNE TAET-ST3 FORMAT(1 0) = 0
RECHNE TAET-ST3 = 1 (TAET-C EQ '1')
RECHNE TAET-ST3 = 2 (TAET-C EQ '2')
RECHNE TAET-ST3 = 3 (TAET-C EQ '3')
RECHNE TAET-ST3 = 4 (TAET-C EQ '4')
RECHNE TAET-ST3 = 5 (TAET-C EQ '5')
RECHNE TAET-ST3 = 6 (TAET-C EQ '6')
RECHNE TAET-ST3 = 7 (TAET-C EQ '7')
RECHNE TAET-ST3 = 8 (TAET-C EQ '8')
RECHNE TAET-ST3 = 9 (TAET-C EQ '9')
RECHNE TAET-333 FORMAT(3 0) = TAET-ST3

RECHNE TAET-C FORMAT(1 C) = TAET-2C STELLE = 2
RECHNE TAET-ST3 FORMAT(1 0) = 0
RECHNE TAET-ST3 = 1 (TAET-C EQ '1')
RECHNE TAET-ST3 = 2 (TAET-C EQ '2')
RECHNE TAET-ST3 = 3 (TAET-C EQ '3')
RECHNE TAET-ST3 = 4 (TAET-C EQ '4')
RECHNE TAET-ST3 = 5 (TAET-C EQ '5')
RECHNE TAET-ST3 = 6 (TAET-C EQ '6')
RECHNE TAET-ST3 = 7 (TAET-C EQ '7')
RECHNE TAET-ST3 = 8 (TAET-C EQ '8')
RECHNE TAET-ST3 = 9 (TAET-C EQ '9')
RECHNE TAET-333 = TAET-ST3 * 10 + TAET-333

RECHNE TAET-C FORMAT(1 C) = TAET-2C STELLE = 1
RECHNE TAET-ST3 FORMAT(1 0) = 0
RECHNE TAET-ST3 = 1 (TAET-C EQ '1')
RECHNE TAET-ST3 = 2 (TAET-C EQ '2')
RECHNE TAET-ST3 = 3 (TAET-C EQ '3')
RECHNE TAET-ST3 = 4 (TAET-C EQ '4')
RECHNE TAET-ST3 = 5 (TAET-C EQ '5')
RECHNE TAET-ST3 = 6 (TAET-C EQ '6')
RECHNE TAET-ST3 = 7 (TAET-C EQ '7')
RECHNE TAET-ST3 = 8 (TAET-C EQ '8')
RECHNE TAET-ST3 = 9 (TAET-C EQ '9')
RECHNE TAET-333 = TAET-ST3 * 100 + TAET-333

LESEN (TAETSCHL = TAET-LES)
RECHNE BEZ FORMAT(100 C) = ' '
RECHNE BEZ STELLE = 1 = TAETBEZ1 VON FOLGENR1850 = TAET-333
RECHNE BEZ STELLE = 51 = TAETBEZ2 VON FOLGENR1850 = TAET-333
AUSGABE DATEI(G8 ';')
LAENGE = 250
SATZ
FIRMA PERSNR NAME TAET-AKT TAET-333 BEZ

H-G-M 01.06.2017, 13:41
Betreff: Re: Auswertung SA 1815

Läuft,

allerdings musste ich das X an Stelle 15 rausnehmen, sonst kommt Diagnostik 0118

Ein angegebener Index ist zu groß.
Häufig tritt diese Meldung auf im Zusammenhang mit X in Spalte 15 der Vorlaufanweisung
und Benutzung von Tabellenbefehlen wie z.B. AKTUELL (A) für Felder der Satzart
50.

Herzlichen Dank und nochmals viele Grüße nach Spanien