Description:
This code is used to call SQR Process from peoplecode.
Code:
Function sqrprocess()
&prqstInvProcess = CreateProcessRequest();
&prqstInvProcess.ProcessName = "hjk009";
rem &prqstInvProcess.JobName = &strJobName;
&prqstInvProcess.ProcessType = "SQR Process";
&prqstInvProcess.RunControlID = &RUN_CNTL_ID;
SQLExec("SELECT SERVERNAME FROM PS_serverdefn WHERE OPSYS ='4'", &serverName)
;
&prqstInvProcess.RunLocation = &serverName;
&prqstInvProcess.RunDateTime = %Datetime;
&prqstInvProcess.OutDestType = "6";
&prqstInvProcess.OutDestFormat = "2";
rem &prqstInvProcess.OutDest = &OutDest;
&prqstInvProcess.Schedule();
&nbrStatus = &prqstInvProcess.Status;
If &prqstInvProcess.Status = 0 Then
&nbrPrcsInstance = &prqstInvProcess.ProcessInstance;
Else
Error (MsgGet(65, &PRCSSTATUS, "Process could not be scheduled"));
End-If;
End-Function;