SS est une source de données
pos est un entier
hDeclareExterne(ss,FICHIER1..nomphysique)
HlitrecherchePremier(FICHIER1,IDFICHIER1,VAL1)
TANTQUE htrouve(FICHIER1)
pos = hsauveposition(FICHIER1)
Procedure_Calcul("ss",FICHIER1.IDFICHIER1)
hRetourposition(pos)
Hlitsuivant(FICHIER1,IDFICHIER1)
FIN
hAnnuleDéclaration("ss")
//------------------//
Procedure_Calcul(pcNomSource,idfic)
hlitrecherchePremier(pcNomSource,"IDFICHIER1",idfic)
si hTrouve(pcNomSource) alors
//Traitement avec indirection pcNomCource+rubriques....
fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=865&post_id=3480