Allocations script logic - write credits to the source?

Hi,

My Allocations script logic allocates each account across clients.

*XDIM_MEMBERSET ACCOUNT AS %ACC% = BAS(EXPENSES,REVENUE)

*RUNALLOCATION

*FACTOR = USING

*DIM CLIENT WHAT=CLIENT_NA; WHERE<>CLIENT_NA; USING<>CLIENT_NA

*DIM_NONAGGR ACCOUNT WHAT=%ACC%; WHERE=<<<; USING=PERCENTAGE

*ENDALLOCATION

For every account that I allocate I want to post credits to the source. For example:

Account EXP and Client CLIENT_NA: 1000

is allocated to

Account EXP and Client CLIENT1: 500

Account EXP and Client CLIENT2: 300

Then

Account EXP and Client CLIENT_NA: 200

Is there a way to do this? Thank you for your help!