Job In Msg Wait
From MidrangeWiki
Summary
The following are the RPG/LE fully free-form definitions and instructions needed for using the Job In Msg Wait service procedure. This service procedure simply allows the caller to determine if a particular job is in a message wait on the system—or not.
By Dave Clark
Service Prototype
Place the following in a separate copybook for inclusion in both the caller and the service program source members.
**free //****************************************************************************** // Determines if a specified job name is in a message wait status on the // system. Optionally, returns all job information. //****************************************************************************** dcl-pr GenUtl_JobInMsgWait ind; pJobName char(26); pJobInfo likeds(QUSI020000) options(*nopass); end-pr;
Service Procedure
Place the following in a service program source member.
**free
ctl-opt NoMain AlwNull(*UsrCtl) Debug Option(*SrcStmt:*NoDebugIo)
DatFmt(*ISO) TimFmt(*ISO);
//******************************************************************************
// Determines if a specified job name is in a message wait status on the
// system. Optionally, returns all job information.
//******************************************************************************
dcl-proc GenUtl_JobInMsgWait export;
dcl-pi *n ind;
pJobName char(26);
pJobInfo likeds(QUSI020000) options(*nopass);
end-pi;
callp IBMAPI_RtvJobInfo( QUSI020000: %len(QUSI020000): 'JOBI0200'
: pJobName: *blank: ApiErrC );
if ApiErrC.BytAvail > *zero; // if an error occurred
%subst(pJobName:1:20) = '*ERROR ' + ApiErrC.MsgId;
return *on; // indicate an error
endif;
if %parms() > %parmnum(pJobName); // if job information requested
pJobInfo = QUSI020000; // pass it back
endif;
return (QUSAJS = 'MSGW'); // indicate msg wait status
end-proc;
