[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    May 2009
    Beiträge
    52

    Logging von FTP Überträgen

    Hallo Zusammen,

    mich würde heute interessieren wie Ihr einen Zeitstempel in eine Logging Datei schreibt.
    Im Regelfall machen wir einen OVRDBF(OUTPUT) auf eine Loggingdatei. Das Problem hierbei ist dass der FTP-Server mit keinem Datum oder Uhrzeit rausruckt.

    Ich bin heute auf folgendes gestoßen
    Warum nicht einfache ein:
    Code:
    QSH CMD('now=$(date) && echo "<> $now" >> 
    /QSYS.LIB/BIBL.LIB/QFTPSCRIPT.FILE/LOGGING.MBR')
    davor schreiben?

    Die SQL-Variante mit Alias würde auch gehen -> mehr Zeilen
    Der RPG-Weg mit einen Write auf die Datei auch -> viel mehr Zeilen

  2. #2
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Was stören dich ein paar Zeilen Code, da man dies nur einmalig macht?
    Schreib doch ein kleines RPG dass in eine Datei OUTPUT ein Datum schreibt.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  3. #3
    Registriert seit
    Aug 2001
    Beiträge
    2.644
    Zitat Zitat von Fuerchau Beitrag anzeigen
    Was stören dich ein paar Zeilen Code, da man dies nur einmalig macht?
    Schreib doch ein kleines RPG dass in eine Datei OUTPUT ein Datum schreibt.
    Man könnte allerdings auch auf die Ausgabedatei einen Trigger packen, der ...

    ;-h
    www.RZKH.de
    IBM Champion 2022, 2023, 2024
    IBM i Community Advocate https://www.youracclaim.com/badges/6...c-7ad4ba147af6
    Common / CEAC
    http://pub400.com

  4. #4
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Nun ja, wenn die Ausgabedatei konstant ist...
    Leider erlaubt ja ein Trigger kein CLRPFM mehr.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  5. #5
    Registriert seit
    Aug 2001
    Beiträge
    2.644
    Zitat Zitat von Fuerchau Beitrag anzeigen
    Nun ja, wenn die Ausgabedatei konstant ist...
    Leider erlaubt ja ein Trigger kein CLRPFM mehr.
    Das kann man ja vorher erledigen

    -h
    www.RZKH.de
    IBM Champion 2022, 2023, 2024
    IBM i Community Advocate https://www.youracclaim.com/badges/6...c-7ad4ba147af6
    Common / CEAC
    http://pub400.com

  6. #6
    Registriert seit
    May 2009
    Beiträge
    52
    Die Lösung das über ein RPG-Programm zu lösen ist schön+richtig+naheliegend.
    Ich fand nur die Lösung interessant da man den Pfad des "scriptens" quasi beibehält und ich mir hier keine Abhängigkeit von einem anderen RPG-Programm schaffe.

    Gut die Qshell ist auch eine Abhängigkeit aber die ist systemseitig wohl immer dabei.

    Grüße & Danke

    @holgerscherer
    hmm... ein Trigger..jetzt wirds crazy. Ich kann mich irgendwie errinnern dass Trigger "Teufelszeug" sind. Aber durchaus interessant.

  7. #7
    Registriert seit
    Oct 2013
    Beiträge
    171
    Wenn das Zielsystem auch ein IBM i ist, und man drüben Programme aufrufen darf, dann kann man ein kleines CL aufrufen, das als Fehlernachricht Datum + Uhrzeit ausgibt.

    Code:
                 PGM                                                                        
                 DCL        VAR(&QDATETIME) TYPE(*CHAR) LEN(20)   /* 12345678901234567890 */
                 RTVSYSVAL  SYSVAL(QDATETIME) RTNVAR(&QDATETIME)  /* JJJJMMTTHHNNSSXXXXXX */
                 SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +                                  
                              MSGDTA(&QDATETIME) MSGTYPE(*ESCAPE)                           
                 ENDPGM
    Und im Skript aufrufen, sieht dann z.B. so aus:

    Code:
    ftp> quote rcmd call Bibliothek/programm
    550-Error occurred on command call Bibliothek/programm.
    550 20141112100454823942..
    ftp>
    Den "Error" muss man natürlich ignorieren, aber das *ESCAPE muss sein, sonst sagt der nur, dass der Befehl successful war und sonst nichts.

    Volle Kontrolle hat man mit Scott Klements FTPAPI, ist aber auch ein völlig anderer Lösungsansatz. http://www.scottklement.com/ftpapi/

  8. #8
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Wie wärs mit einem Journal?
    Bei einem CRTPF/Create Table wird die Tabelle automatisch journalisiert, wenn das System ein Journal findet.
    Bei einer statischen Ausgabedatei bleibt auch das Journal statisch.
    Vorteil: Auch nach CLRPFM stehen die Daten im Journal. Per RTVJRNE in Datei kann man das dann auch auswerten.
    Für Incomming FTP geht es nur über die System-API's (WRKREGINF) und die Ausgabe zu steuern.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  9. #9
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    schon zu kompliziert angefangen:
    qsh cmd('date >> /QSYS.LIB/DSTERNB1.LIB/QRPGLESRC.FILE/MUELL.MBR')

    was allerdings danach alles so an Vorschlägen kommt...
    Könnte man da nicht noch aus einem REXX ein PHP Programm über CGI aufrufen, das eine eMail verschickt, die automatisch empfangen wird und eine Aktion auslöst?

    D*B
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  10. #10
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    @Dieter
    Und das geht?
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  11. #11
    Registriert seit
    Aug 2001
    Beiträge
    2.644
    Zitat Zitat von Fuerchau Beitrag anzeigen
    @Dieter
    Und das geht?
    Wenn man will, geht alles. Zur Not per ssh auf dem Switch adhoc einen Mirrorport aktivieren, der auf eine Linux-Kiste via tcpdump mitschreibt.

    Ok, jetzt reichts

    -h
    www.RZKH.de
    IBM Champion 2022, 2023, 2024
    IBM i Community Advocate https://www.youracclaim.com/badges/6...c-7ad4ba147af6
    Common / CEAC
    http://pub400.com

  12. #12
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    Zitat Zitat von Fuerchau Beitrag anzeigen
    @Dieter
    Und das geht?
    RCVJRNE ist Dein Freund (der kann dann das REXX aufrufen usw.)
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

Similar Threads

  1. SMTP-Mailserver auf iSeries/400 - Logging?
    By sho1 in forum IBM i Hauptforum
    Antworten: 2
    Letzter Beitrag: 31-01-02, 16:08

Tags for this Thread

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •