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
    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
    erreur trouvé
    erreur trouvé

###raw>template_hook.ano_emploi###