*XDIM_MEMBERSET ACCOUNT AS %ABAS%=BAS(G30000)
*FOR %A%=%ABAS% //For each bas account of G30000
*WHEN ACCTDETAIL
*IS F_CLO
*WHEN ACCOUNT
*IS %A%
*REC(EXPRESSION=[ACCOUNT].[G30000],ACCOUNT=RETEARN,INTCO=I_NONE,FUNCT=NONE)
*ENDWHEN
*ENDWHEN
*NEXT
Vadim