Trying to get audit return code from HLLX FREZ0101

The following code gets an RC32. I can't figure out why, all the substitutions appear to be correct when I run a trace. Can anyone show me the error of my ways or another way to get the auditReturnCode in this V8.1.2 HLLX exit?

If function = 'FREZ0101' then Do

say " "
say "------------------------------------------------------"
say "Package Freeze HLLX call "
say "------------------------------------------------------"
say "Function : "function" "Date()" "Time()

proceed = "YES"
dataChanged = 'YES'

/*****************************************************/
/* */
/* Check the audit return code */
/* */
/*****************************************************/

/* Set variables for package XML call */

stem = 'HPGS.ZMF_' /* set outgoing stem name */
HPGS. = "" /* initialize outgoing stem */
HPGS.ZMF_Subsys = zmfSubs /* subsystem name to query */
HPGS.ZMF_Userid = userid() /* userid */
HPGS.ZMF_Test = "" /* set test value */
HPGS.ZMF_Product = "CMN " /* set product */
HPGS.ZMF_lproduct = "ZMF"
HPGS.ZMF_Service = "PACKAGE" /* set service */
HPGS.ZMF_Scope = "GENERAL" /* set scope */
HPGS.ZMF_Message = "SEARCH" /* set message */
HPGS.ZMF_Package = packageId /* set package name */

address LINKMVS "SERXMLRC "stem

if rc <> 0 then do
say "return code:"HPGS.ZMF_statusReturnCode
say "Reason code:"HPGS.ZMF_statusReasonCode
say "Message :"HPGS.ZMF_statusMessage
proceed = "NO"
shortMsg = SERXMLRC stem" RC:"RC
longMsg = "call to get the audit return code failed"
end
Else do
auditRC = HPGS.ZMF_auditReturnCode
if (auditRC = 10) then do
proceed = "NO"
shortMsg = "PKG FAILED DBARTS CHK"
longMsg = "SET THE CORRECT IMPACT FLAGS AND REAUDIT"
end
End

stem = 'HPGS.ZMF_'
HPGS. = "" /* initialize outgoing stem */
HPGS.ZMF_Subsys = zmfSubs
HPGS.ZMF_Userid = userid()
HPGS.ZMF_Test = ""
HPGS.ZMF_Product = "CMN"
HPGS.ZMF_lproduct = "ZMF"
HPGS.ZMF_Service = "SERVICE"
HPGS.ZMF_Message = "DISCONCT"
address LINKMVS "SERXMLRC "stem

if rc <> 0 then do
proceed = "NO"
shortMsg = SERXMLRC stem" RC:"RC
longMsg = "call to disconnect failed"
end

end

EXIT 0