[QUOTE=as400daemon82]Hallo!

habe folgendes Problem:

Auf unserer AS 400 läuft Taris als Zeiterfassungssystem.
Dort kann man sich eine Monatsansicht für Anwesenheit einzelner Mitarbeiter sowie
aller Mitarbeiter ausgeben lassen.

Diese Ausgabe möchte ich in eine Exceldatei exportieren.

Über eine Iseries Sitzung (P5250 Anzeigeemulation) kann ich auf das Root - Verzeichnis zugreifen, auch auf einen Ordner Taris. Wie heisst die Datei/Datenbank in der die Infos der Mitarbeiteranwesenheit liegen?

Bin Anfänger auf der AS400! Please help:-)




Hallo !

Wir haben hier auch TARIS in Einsatz. Nach meiner Erfahrung kann man die Datenbank so nicht auslesen. Wir lassen deshalb zuerst einen TARIS-Report laufen und geben das Ergebnis in eine AS/400 Dateiaus. Mit dieser Datei arbeiten wir dann weiter.

Hier ein Beispiel zum Auslesen der Zeitsalden :

Das CL-Programm zum Erstellen der Datei sieht folgendermaßen aus :

DCL VAR(&VONTAG) TYPE(*CHAR) LEN(8)
DCL VAR(&BISTAG) TYPE(*CHAR) LEN(8)
DCL VAR(&BATCH1) TYPE(*CHAR) LEN(384)
DCL VAR(&BATCH2) TYPE(*CHAR) LEN(2) VALUE(''')')
DCL VAR(&B2) TYPE(*CHAR) LEN(357) VALUE('''01'' +
''t_tbal fdate(''''01.02.00'''') +
ldate(''''29.02.00'''') +
prmrec(''''stat'''') +
outfile(TARISCUST/LOHNSTAT) +
member(LOHNSTAT) testrun(YES) +
trnschg(NO) trnnew(YES) +
selectopt(''''????????'''') +
femp(''''0000000001'''') +
lemp(''''9999999999'''') retrns(NO) +
dspparm(''''NO'''') reportdef(t_tbal) +
clientno(''''01'''')'' 257,00000 +
''TARISCUST'' ''TARISPRTF'' ''taris'' +
''pr04'' ''TARISADM'' '' '' ''pr04 ta''')


CHGVAR VAR(%SUBSTRING(&B2 22 8)) +
VALUE(&VONTAG)
CHGVAR VAR(%SUBSTRING(&B2 42 8)) +
VALUE(&BISTAG)


CHGVAR VAR(%SUBSTRING(&BATCH1 1 25)) VALUE('call +
pgm(EXCPRTJOB) parm(')
CHGVAR VAR(%SUBSTRING(&BATCH1 26 357)) +
VALUE(&B2)
CHGVAR VAR(%SUBSTRING(&BATCH1 382 2)) +
VALUE(&BATCH2)
SBMJOB JOB(EXP_AZEIT) JOBD(TARISJOBD) JOBQ(QPGMR) +
RTGDTA('QCMDB') RQSDTA(&BATCH1) +
INLLIBL(QTEMP TARISCUST TARIS )


Hoffe, es hilft weiter !

gruß
manfred