But what is the issue?
DM package with script:
*XDIM_MEMBERSET ACCOUNT=BAS(OPERPROFIT)
*WHEN ACCOUNT
*IS *
*REC(EXPRESSION=%VALUE%*0.3,ACCOUNT=CIT)
*REC(EXPRESSION=%VALUE%*0.7,ACCOUNT=PAT)
*REC(EXPRESSION=%VALUE%*0.7*0.9,ACCOUNT=GENRES)
*REC(EXPRESSION=%VALUE%*0.7*0.1,ACCOUNT=DIVIDENT)
*ENDWHEN