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

Autres langages Discussion :

rexx ..stocker dans un stem


Sujet :

Autres langages

  1. #1
    Futur Membre du Club
    Femme Profil pro
    Développeur applicatif
    Inscrit en
    septembre 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 37
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Développeur applicatif

    Informations forums :
    Inscription : septembre 2019
    Messages : 4
    Points : 5
    Points
    5
    Par défaut rexx ..stocker dans un stem
    Bonjour,

    je cherche à stocker des donnés dans un stem et recharger les données stockées dans un fichier et créer une boucle sur plusieurs fichiers si présent au catalogue
    et cela qui plate.
    si quelqu'un a une idée
    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
    /*  TEST DE PRESENCE DU FICHIER AU CATALOGUE */      
                   PARSE VAR ENR.J TEST RESTE            
                   IF TEST <> ' ' THEN DO                
                      IF SYSDSN("'"TEST"'") = 'OK' THEN  
                       SAY TEST                          
                         DO WHILE N > 0                  
                   Z = Z + 1                             
            TEST.Z =  LFICHOK.                           
                 SAY "STOCAGE:" LFICHOK.N                
                                     
                 END
      /* FICHIER OK RECOPIE DANS LE FICHIER D'ORIGINE              
              OUT2 = LFICHOK.N */                                  
          /*  OUT2 "> ENR.J"                                       
                          END                                      
                          ELSE                                     
                          DO WHILE LIGN1 > 0                       
                          LFICHKO.LIGN1                            
     /* FICHIER KO COPIE DANS LE FICHIER DE SAUVEGARDE             
            OUT3 = LFICHKO.LIGN1

  2. #2
    Futur Membre du Club
    Femme Profil pro
    Développeur applicatif
    Inscrit en
    septembre 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 37
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Développeur applicatif

    Informations forums :
    Inscription : septembre 2019
    Messages : 4
    Points : 5
    Points
    5
    Par défaut erreur trouvé
    erreur trouvé

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 14
    Dernier message: 28/07/2006, 10h20
  2. Réponses: 4
    Dernier message: 02/06/2006, 15h41
  3. [Photos] Faut-il stocker dans la SGBD ou dans un repertoire?
    Par papy_tergnier dans le forum Décisions SGBD
    Réponses: 2
    Dernier message: 08/12/2005, 14h29
  4. recuperer des mails stocker dans base MySQL avec Outlook
    Par freddy92110 dans le forum Outlook
    Réponses: 1
    Dernier message: 06/11/2005, 19h26
  5. [TP]lire une ligne de l'ecran et la stocker dans une chaine
    Par Bleuarff dans le forum Turbo Pascal
    Réponses: 26
    Dernier message: 02/07/2002, 10h08

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