new free gas subroutine to remove duplicate code in DBRC, CXS, WCM