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
#ChangeManZMF
Sign up
Already have an account? Login
Welcome to the Rocket Forum!
Please log in or register:
Employee Login | Registration Member Login | RegistrationEnter your E-mail address. We'll send you an e-mail with instructions to reset your password.