/nopr
/prep7

!Anzahl der definierten Tabellenparameter ermitteln
!**************************************************
TabAnz=0
*get,ParmAnz,parm,,max
*do,COUNT,1,ParmAnz
*get,ParmName,parm,,loc,COUNT
*get,ParmType,parm,%ParmName%,type
*if,Parmtype,eq,2,then
TabAnz=TabAnz+1
*endif
*enddo

!Parameternamen der Tabellen in Array schreiben
!**********************************************
*dim,TabArray,char,TabAnz,1
DummyCnt=1
*do,COUNT,1,ParmAnz
*get,ParmName,parm,,loc,COUNT
*get,ParmType,parm,%ParmName%,type
*if,Parmtype,eq,2,then
TabArray(DummyCnt,1)=ParmName
DummyCnt=DummyCnt+1
*endif
*enddo

allsel
*get,ECOUNT,elem,,count
*dim,EARRAY,array,ECOUNT,1
*vget,EARRAY(1,1),elem,,elist
*do,ICOUNT1,1,ECOUNT
	esel,s,,,EARRAY(ICOUNT1,1)
	/out,sflist,txt
	sflist
	/out
	*sread,FileStr,sflist,txt
	*get,RowCnt,parm,FileStr,dim,2
	*do,ICOUNT2,1,TabAnz
		*do,ICOUNT3,1,RowCnt
			Position=strpos(FileStr(1,ICOUNT3),TabArray(ICOUNT2))
			*if,Position,ne,0,then
*msg,info,EARRAY(ICOUNT1,1),TabArray(ICOUNT2)
Element %g hat SF aus Tabelle %c
			*endif
		*enddo
	*enddo
*enddo

*del,TabArray
*del,EARRAY
/gopr