×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/10/2020
01:05:21 PM:
The print file in question is closed immediately before the QCMDEXC
and then opened immediately after. Neither the OPEN nor the CLOSE
give any errors.
Maybe you need a more robust check for errors in QCMDEXC. It
seems to me that I remember a situation where errors were occurring in
QCMDEXC but were NOT trapped as errors in RPG (or the CL that called RPG)
and went undetected unless I coded something like the following to record
the error. I could be confused, though. ;-)
monitor; // execute the change
callp IBMAPI_ExecSysCmd(VarStr: %len(VarStr));
on-error *all; // exception occurred?
pMessage(1).inUse = *on; // indicate message used
pMessage(1).Id = EXCP_MSGID; // from PSDS
pMessage(1).Type = '*ESCAPE'; // set message type
pMessage(1).File = 'QCPFMSG'; // set message file
pMessage(1).FLib = '*LIBL'; // set msgfile library
pMessage(1).Data = EXCP_DATA; // from PSDS
iResult = *off; // return failure indication to caller
endmon;
Sincerely,
Dave Clark
midrange.com
