QSH et do system

RPG (3 et 4, free), CL, SQL, etc...
Répondre
OBR
Messages : 10
Enregistré le : mar. 29 avr. 2014, 15:05:25
Localisation : Pfastatt
Contact :

QSH et do system

Message par OBR »

Bonjour,

Je cherche à récupérer les données de tous les fichiers se trouvant dans un répertoire de l'IFS pour les transférer dans un fichier DB2. Ne connaissant pas le nom du ou des fichiers, j'ai tenté la commande :
QSH CMD('for files in $(find /ECom/recept/*) ; +
do system "CPYFRMIMPF FROMSTMF($FILES) +
TOFILE(EXTRAIT) MBROPT(*ADD) RCDDLM(*LF) +
STRDLM(*NONE) FLDDLM(*TAB) DECPNT(*COMMA) +
ERRLVL(0) RPLNULLVAL(*FLDDFT)" ; done')

Et ça ne fonctionne pas. La commande ne semble pas "digérer" le $FILE du paramètre FROMSTMF.

Pourriez-vous m'aider à retrouver mon erreur ?

Merci pour l'aide apportée.

cmasse
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

SCRIPTS SH

Message par cmasse »

Faites plutôt un script et puis respectez la casse.

par exemple ce code

Code : Tout sélectionner

 Browse : /scripts/file.sh                     
 Record :       1   of       3 by  18          
 Control :                                     
                                               
....+....1....+....2....+....3....+....4....+..
 ************Beginning of data**************   
for files in $(find /temp/*)                  
do system "sndmsg msg('$files') TOUSR(CM)"     
done                                           
 ************End of Data********************   
peut être lancé par QSH CMD('/scripts/file.sh') et fonctionne
Christian Massé (Volubis.fr)

Répondre