Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Discussion :

Envoyer un fichier IFS en FTP


Sujet :

AS/400

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    août 2010
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Envoyer un fichier IFS en FTP
    Bonjour,

    Je souhaite déposer sur un serveur FTP client, via un CL RPG AS400, un fichier ce trouvant dans IFS.
    Quelles est la commande permettant au CL RPG de copier le fichier IFS sur le serveur client ?
    Exemple de mon CL :
    1/- Lance la commande FTP pour se connecté via l'adresse IP du serveur FTP client.
    2/- Entre le logging.
    3/- Entre le PW.
    4/- CD le repertoire.
    Et aprés comment je fais pour copier mon fichier IFS sur le serveur client ?

    Merci pour votre aide !!! Hervef.

  2. #2
    Membre régulier
    Profil pro
    Inscrit en
    avril 2008
    Messages
    62
    Détails du profil
    Informations personnelles :
    Âge : 55
    Localisation : France

    Informations forums :
    Inscription : avril 2008
    Messages : 62
    Points : 85
    Points
    85
    Par défaut
    Bonjour,

    Il faut que ton cl génère un script ftp et l'exécute.
    Le script FTP est en fait un membre source.
    Dans mon pgm je l'ai appellé QFTPSRC
    Le CL appelle un pgm qui ecrit les lignes dans le source.
    le parm &SRVFTP est l'adresse IP de ton serveur.
    Cordialement


    Exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
           PGM        PARM(&SRVFTP &USER &PASS &DIR &FILE)             
                                                                       
           DCL        VAR(&SRVFTP)   TYPE(*CHAR) LEN(14)               
           DCL        VAR(&USER  )   TYPE(*CHAR) LEN(10)               
           DCL        VAR(&PASS  )   TYPE(*CHAR) LEN(10)               
           DCL        VAR(&DIR   )   TYPE(*CHAR) LEN(30)               
           DCL        VAR(&FILE  )   TYPE(*CHAR) LEN(50)               
           DCL        VAR(&COTE) TYPE(*CHAR) LEN(1) VALUE('''')        
                                                                       
           DCL        VAR(&LIG01) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG02) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG03) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG04) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG05) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG06) TYPE(*CHAR) LEN(80)                  
                                                                  
        /**----------------------------------------------------------------------*/
        /**  CONSTITUTION DU SCRIPT FTP AVEC LES VARIABLES                       */
        /**----------------------------------------------------------------------*/
              CHGVAR  VAR(&LIG01) VALUE('OPEN ' *cat &srvftp)                      
              CHGVAR  VAR(&LIG02) VALUE('user ' *cat &user *tcat ' ' *cat &pass)   
              CHGVAR  VAR(&LIG03) VALUE('namefmt 1')                               
               CHGVAR     VAR(&LIG04) VALUE('PUT ' *CAT &COTE *TCAT +              
                             &DIR *TCAT &FILE *TCAT &COTE *TCAT ' ' +              
                             *CAT &COTE *TCAT &FILE *TCAT &COTE)                   
              CHGVAR  VAR(&LIG05) VALUE('CLOSE      ')                             
              CHGVAR  VAR(&LIG06) VALUE('QUIT       ')                             
    
      /**-----------------------------------------------------------
      /**  ECRITURE DU SCRIPT                                       
      /**-----------------------------------------------------------
              CHKOBJ     OBJ(QTEMP/QFTPSRC) OBJTYPE(*FILE)          
              MONMSG     MSGID(CPF9801) EXEC(DO)                    
              CRTSRCPF   FILE(QTEMP/QFTPSRC) TEXT('Scripts FTP')    
              MONMSG CPF9999                                        
              ENDDO                                                 
                                                                    
              RMVM       FILE(QTEMP/QFTPSRC) MBR(SCRIPT)            
              MONMSG CPF9999                                        
                                                                    
              ADDPFM     FILE(QTEMP/QFTPSRC) MBR(SCRIPT)            
              MONMSG CPF9999                                        
                                                                    
               OVRDBF     FILE(QFTPSRC) TOFILE(QTEMP/QFTPSRC) +                   
                            MBR(SCRIPT)                                           
                                                                                  
               CALL       PGM(CRTFTPSRC) PARM(&LIG01 +                            
                                              &LIG02 +                            
                                              &LIG03 +                            
                                              &LIG04 +                            
                                              &LIG05 +                            
                                              &LIG06 )                            
                                                                                  
       /**----------------------------------------------------------------------*/
       /**  EXECUTION DU SCRIPT                                                 */
       /**----------------------------------------------------------------------*/
                                                                
               OVRDBF     FILE(INPUT) TOFILE(QTEMP/QFTPSRC) +   
                            MBR(SCRIPT)                         
               OVRDBF     FILE(OUTPUT) TOFILE(QGPLTEMP/FTPOUT)  
               FTP        RMTSYS('URLWRN')                      
               DLTOVR     FILE(INPUT)                           
               DLTOVR     FILE(OUTPUT)
    Euh ...
    La commande FTP pour déposer est PUT !

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    septembre 2015
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : septembre 2015
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Bonjour, Pouvez vous mettre en ligne votre programme CRTFTPSRC
    Citation Envoyé par BALLAT Voir le message
    Bonjour,

    Il faut que ton cl génère un script ftp et l'exécute.
    Le script FTP est en fait un membre source.
    Dans mon pgm je l'ai appellé QFTPSRC
    Le CL appelle un pgm qui ecrit les lignes dans le source.
    le parm &SRVFTP est l'adresse IP de ton serveur.
    Cordialement


    Exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
           PGM        PARM(&SRVFTP &USER &PASS &DIR &FILE)             
                                                                       
           DCL        VAR(&SRVFTP)   TYPE(*CHAR) LEN(14)               
           DCL        VAR(&USER  )   TYPE(*CHAR) LEN(10)               
           DCL        VAR(&PASS  )   TYPE(*CHAR) LEN(10)               
           DCL        VAR(&DIR   )   TYPE(*CHAR) LEN(30)               
           DCL        VAR(&FILE  )   TYPE(*CHAR) LEN(50)               
           DCL        VAR(&COTE) TYPE(*CHAR) LEN(1) VALUE('''')        
                                                                       
           DCL        VAR(&LIG01) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG02) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG03) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG04) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG05) TYPE(*CHAR) LEN(80)                  
           DCL        VAR(&LIG06) TYPE(*CHAR) LEN(80)                  
                                                                  
        /**----------------------------------------------------------------------*/
        /**  CONSTITUTION DU SCRIPT FTP AVEC LES VARIABLES                       */
        /**----------------------------------------------------------------------*/
              CHGVAR  VAR(&LIG01) VALUE('OPEN ' *cat &srvftp)                      
              CHGVAR  VAR(&LIG02) VALUE('user ' *cat &user *tcat ' ' *cat &pass)   
              CHGVAR  VAR(&LIG03) VALUE('namefmt 1')                               
               CHGVAR     VAR(&LIG04) VALUE('PUT ' *CAT &COTE *TCAT +              
                             &DIR *TCAT &FILE *TCAT &COTE *TCAT ' ' +              
                             *CAT &COTE *TCAT &FILE *TCAT &COTE)                   
              CHGVAR  VAR(&LIG05) VALUE('CLOSE      ')                             
              CHGVAR  VAR(&LIG06) VALUE('QUIT       ')                             
    
      /**-----------------------------------------------------------
      /**  ECRITURE DU SCRIPT                                       
      /**-----------------------------------------------------------
              CHKOBJ     OBJ(QTEMP/QFTPSRC) OBJTYPE(*FILE)          
              MONMSG     MSGID(CPF9801) EXEC(DO)                    
              CRTSRCPF   FILE(QTEMP/QFTPSRC) TEXT('Scripts FTP')    
              MONMSG CPF9999                                        
              ENDDO                                                 
                                                                    
              RMVM       FILE(QTEMP/QFTPSRC) MBR(SCRIPT)            
              MONMSG CPF9999                                        
                                                                    
              ADDPFM     FILE(QTEMP/QFTPSRC) MBR(SCRIPT)            
              MONMSG CPF9999                                        
                                                                    
               OVRDBF     FILE(QFTPSRC) TOFILE(QTEMP/QFTPSRC) +                   
                            MBR(SCRIPT)                                           
                                                                                  
               CALL       PGM(CRTFTPSRC) PARM(&LIG01 +                            
                                              &LIG02 +                            
                                              &LIG03 +                            
                                              &LIG04 +                            
                                              &LIG05 +                            
                                              &LIG06 )                            
                                                                                  
       /**----------------------------------------------------------------------*/
       /**  EXECUTION DU SCRIPT                                                 */
       /**----------------------------------------------------------------------*/
                                                                
               OVRDBF     FILE(INPUT) TOFILE(QTEMP/QFTPSRC) +   
                            MBR(SCRIPT)                         
               OVRDBF     FILE(OUTPUT) TOFILE(QGPLTEMP/FTPOUT)  
               FTP        RMTSYS('URLWRN')                      
               DLTOVR     FILE(INPUT)                           
               DLTOVR     FILE(OUTPUT)
    Euh ...
    La commande FTP pour déposer est PUT !

Discussions similaires

  1. Envoyer un fichier PDF en FTP
    Par christgh dans le forum Fichiers
    Réponses: 1
    Dernier message: 31/03/2011, 14h30
  2. Envoyer un fichier via FTP via un socket
    Par JnJp28 dans le forum IO
    Réponses: 2
    Dernier message: 24/05/2007, 20h37
  3. envoyer un fichier sur ftp
    Par alex01pernot dans le forum Web & réseau
    Réponses: 3
    Dernier message: 26/03/2006, 18h22
  4. Envoyer un fichier sur un serveur FTP par proxy
    Par Tierisa dans le forum Access
    Réponses: 4
    Dernier message: 13/12/2005, 16h39
  5. Réponses: 1
    Dernier message: 19/08/2003, 16h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo