Author: kenshin
Posted: Wed Aug 17, 2016 9:39 pm (GMT 5.5)
COMMAND = 'LQ,JOB='myjobname
RSLT = CAL2X2WA(COMMAND)
SAY RSLT
IF RSLT <> 'SUCCESS'
THEN EXITRC = 20
ELSE DO
ADDRESS CA7 COMMAND
EXITRC = RC
SAY 'EXITRC' EXITRC
END
I tried but results were the same, I got EXITRC = 8 ,no matter what commands I use in 'COMMAND' , Its strange , I get success message but RC 8 .
I am not sure if any additional setting needs to be done to invoke CA7 through REXX,
Did anyone tried execute the same code and worked on their system?
Posted: Wed Aug 17, 2016 9:39 pm (GMT 5.5)
COMMAND = 'LQ,JOB='myjobname
RSLT = CAL2X2WA(COMMAND)
SAY RSLT
IF RSLT <> 'SUCCESS'
THEN EXITRC = 20
ELSE DO
ADDRESS CA7 COMMAND
EXITRC = RC
SAY 'EXITRC' EXITRC
END
I tried but results were the same, I got EXITRC = 8 ,no matter what commands I use in 'COMMAND' , Its strange , I get success message but RC 8 .
I am not sure if any additional setting needs to be done to invoke CA7 through REXX,
Did anyone tried execute the same code and worked on their system?