How do I find the name of the CICS region inside my COBOL program?

EXEC CICS
ASSIGN APPLID (COMM-HOLD-REGION-ID)
RESP (WS-CICS-RESPONSE)
END-EXEC.
.
.
test WS-CICS-RESPONES code here for '00'
.
.
EVALUATE COMM-HOLD-REGION-ID
WHEN 'TESTREG

WHEN 'PRODREG'

WHEN OTHER

END-EVALUATE.