Logging von FTP Überträgen

[AG1965_2]

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.

             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:

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/

[Fuerchau]

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.