Logic Script BPC Select Property Dimension Member

Hi experts!

I have a logic script in Sales Model that push data to GeneralLedger Model:

PUSH_SL_GL.LGF:

*SELECT (%GLMAP1%,"[ID]",ACCSALES,"[INTERCMP]<>' '")

*XDIM_MEMBERSET ACCSALES=%GLMAP1%                  //BAS(GP)

*XDIM_MEMBERSET SPRINGBOARD=BAS(TOTALSPRINGBRDOTH)

*XDIM_MEMBERSET DATASOURCE=BAS(TOTAL_REPORT)

*XDIM_MEMBERSET RPTCURRENCY=LC,USD

*XDIM_MEMBERSET ENTITY=%ENTITY_SET%                  //BAS(GLOBAL_INGREDION)

*XDIM_MEMBERSET TIME=%TIME_SET%

*XDIM_MEMBERSET CATEGORY=%CATEGORY_SET%

*XDIM_MEMBERSET TPARTNER AS %TP% = BAS(TOTALINTERCOMPANY)

*XDIM_ADDMEMBERSET TPARTNER=BAS(ALLINTERCOMPANY)

*DESTINATION_APP=GeneralLedger

*RENAME_DIM ACCSALES=ACCT_FINSTMT

*RENAME_DIM SPRINGBOARD=ACCT_DETAIL

*RENAME_DIM ENTITY=REGION

*RENAME_DIM TPARTNER=INTERCOMPANY

*SKIP_DIM = CUSTOMER

*SKIP_DIM = MARKETSEGMENT

*SKIP_DIM = MFGPLANT

*SKIP_DIM = PLANT

*SKIP_DIM = PRODUCT

*WHEN TPARTNER.ID

*IS "NONINTERCO","NONINTERCORECLASS","TP_NA"

*REC(ACCSALES=[ACCSALES].NONINTOTH,SPRINGBOARD=NoAcctDetail,ENTITY=ENTITY.MAIN)

*IS "NONINTERCODOMEST"

*REC(ACCSALES=[ACCSALES].NONINTDOM,SPRINGBOARD=NoAcctDetail,ENTITY=ENTITY.MAIN)

*IS "NONINTERCOEXPRT"

*REC(ACCSALES=[ACCSALES].NONINTEXPT,SPRINGBOARD=NoAcctDetail,ENTITY=ENTITY.MAIN)

*IS %TP%

*REC(ACCSALES=[ACCSALES].INTERCMP,SPRINGBOARD=NoAcctDetail,ENTITY=ENTITY.MAIN)

*ENDWHEN

*COMMIT

I would like to add a code bellow, because before record data I need to clean GeneralLedger:

*START_BADI RUNLOGIC_PH

QUERY = OFF

WRITE = ON

LOGIC = CLEAR_SALES.LGF

APPSET = INGREDION_REGIONAL

APP = GeneralLedger

DIMENSION ACCSALES = <NONE>

DIMENSION CUSTOMER = <NONE>

DIMENSION MARKETSEGMENT = <NONE>

MFGPLANT = <NONE>

PLANT = <NONE>

PRODUCT = <NONE>

SPRINGBOARD = <NONE>

TPARTNER = <NONE>

DIMENSION ACCT_FINSTMT = BAS(GROSSPROFIT)

DIMENSION ACCT_DETAIL=NoAcctDetail

DIMENSION DATASOURCE=BAS(TOTAL_REPORT)

DIMENSION INTERCOMPANY=BAS(ALLINTERCOMPANY

DIMENSION RPTCURRENCY=LC,USD

DEBUG = ON

*END_BADI

And I create a new logic script in General Ledger

CLEAR_SALES.LGF

*XDIM_MEMBERSET TIME=%TIME_SET%

*XDIM_MEMBERSET CATEGORY=%CATEGORY_SET%

*WHEN ACCT_FINSTMT

*IS *

*REC(EXPRESSION = %VALUE%*0)

*ENDWHEN

*COMMIT

But it is missing to select one DIMENSION. In Sales Model I have the DIMENSION ENTITY and a property MAIN in this dimension is my dimension REGION taht is missing in my code.

How I select the property Main in dimension Entity and use the content in dimension REGION?