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:

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