FTP400

Sauvegarde avec FTP400

le temps de sauvegarde est très rapide  impressionnant

fonctionne en CLLE ou CLP   les source IN OUT   type   FTP

utiliser FILEZILLA serveur par exemple

ouvrir un compte (motpass password) a reporter dans le script IN et OUT

ouvrir un accès pas oublier de donné les droits et de les limiter à votre user

puis sur AS400

Ouvrir un fichier  source   exemple QFTPSRC

Fichier . . . . .   QFTPSRC                                                   

  Bibliothèque  .     CONFIG                            

Opt  Membre      Type        Texte                                            

     FTPLOG      TXT         ce fichier est le log de ftp (obligatoire)                                                  

détail du source FTPSRCIN    sauvegarde sur serveur                                     

     FTPSRCIN    FTP         Script

motpass password              

BIN                        

PUT  VIDE/TSTFCH   TSTFCH   

CLOSE                      

QUIT                       

détail du source FTPSRCOUT     re génère  le fichier savf                                     

     FTPSRCOUT   FTP         Script NAMEFMT 1 respect attribut AS400          

motpass password                                  

BIN                                            

NAMEFMT 1                                      

GET  TSTFCH      /QSYS.LIB/VIDE.LIB/TSTFCH.SAVF

CLOSE                                          

QUIT                                           

             STRTCPFTP  RMTSYS('192.000.000.000')   adresse de votre serveur PC FTP                   

     PFTP00RST   CLLE        From PC  TSTFCH  TO AS400

PGM                                                       

             DLTOVR     FILE(OUTPUT)                       

             MONMSG     MSGID(CPF0000)                     

             DLTOVR     FILE(INPUT)                        

             MONMSG     MSGID(CPF0000)                     

DLTF VIDE/TSTFCH                                          

MONMSG CPF0000                                            

             CLRPFM     FILE(CONFIG/QFTPSRC) MBR(FTPLOG)   

STRTCPSVR SERVER(*FTP)                                     

MONMSG CPF0000                                             

OVRDBF FILE(OUTPUT) TOFILE(CONFIG/QFTPSRC) MBR(FTPLOG)     

OVRDBF FILE(INPUT)  TOFILE(CONFIG/QFTPSRC) MBR(FTPSRCOUT)  

             STRTCPFTP  RMTSYS('192.000.000.000')           

             DLTOVR FILE(OUTPUT INPUT)                     

ENDTCPSVR SERVER(*FTP)                                     

MONMSG CPF0000                                                         

             RSTLIB     SAVLIB(TSTFCH) DEV(*SAVF) SAVF(VIDE/TSTFCH)    

/* DLT FOR PUT FTP  */                                                 

DLTF VIDE/TSTFCH                                                       

ENDPGM                                                                               

PFTP00SAV   CLLE        COPIE SAVF sur PC                  

PGM                                                               

             DLTOVR     FILE(OUTPUT)                               

             MONMSG     MSGID(CPF0000)                             

             DLTOVR     FILE(INPUT)                                

             MONMSG     MSGID(CPF0000)                             

DLTF VIDE/TSTFCH                                                  

MONMSG CPF0000                                                    

             CRTSAVF    FILE(VIDE/TSTFCH) TEXT('savlib for FTP')   

             SAVLIB     LIB(TSTFCH) DEV(*SAVF) SAVF(VIDE/TSTFCH)   

             CLRPFM     FILE(CONFIG/QFTPSRC) MBR(FTPLOG)           

STRTCPSVR SERVER(*FTP)                                             

MONMSG CPF0000                                                     

OVRDBF FILE(OUTPUT) TOFILE(CONFIG/QFTPSRC) MBR(FTPLOG)             

OVRDBF FILE(INPUT)  TOFILE(CONFIG/QFTPSRC) MBR(FTPSRCIN)           

             STRTCPFTP  RMTSYS('192.000.000.000)                   

             DLTOVR FILE(OUTPUT INPUT)

ENDTCPSVR SERVER(*FTP)                            

MONMSG CPF0000                                    

/* DLT FOR PUT FTP  */                            

DLTF VIDE/TSTFCH                                  

CLRLIB TSTFCH                                     

ENDPGM                                            

Copyright © <2009>, <Laroche Jean-Pierre>

Created with the Freeware Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites