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
Partager