And for sure, you can use FOR next to have more compact code:
*FOR %AC%=TOTAL_SALE,DOM_ROYAL,DOM_OTHER,DOM_IMPORT_SALE,INTERNAL_SALE
*WHEN P_CC
*IS BAS(BC)
*WHEN CATEGORY
*IS PLAN
*WHEN FLOW
*IS NA
*WHEN P_ASSET
*IS NA
*WHEN P_DATASRC
*IS MANUAL
*WHEN P_EMP_TYPE
*IS NA
*WHEN P_MATERIAL
*IS NA
*WHEN P_PROJECT
*IS NA
*WHEN P_SERVICES
*IS NA
*WHEN P_ACCT
*IS %AC%
*REC(EXPRESSION=[P_ACCT].[TOTAL_SALE]-([P_ACCT].[DOM_ROYAL]+[P_ACCT].[DOM_OTHER]+[P_ACCT].[DOM_IMPORT_SALE]+[P_ACCT].[INTERNAL_SALE]),P_ACCT=EXPORT_SALE)
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*ENDWHEN
*NEXT