Re: check for active program

*
D RtvJobInf PR ExtPgm('QUSRJOBI')
D RcvVar 32766A options(*varsize)
D RcvVarLen 10I 0 CONST
D Format 8A CONST
D JobName 26A CONST
D IntJobID 16A CONST
D ErrorCode 32766A options(*varsize)
*****************************************************************
* Data Structure for JOB. *
*****************************************************************
D dsJobI0100 DS
D JobI_ByteRtn 10I 0
D JobI_ByteAvl 10I 0
D JobI_JobName 10A
D JobI_UserID 10A
D JobI_JobNbr 6A
D JobI_IntJob 16A
D JobI_Status 10A
D JobI_Type 1A
D JobI_SbType 1A
D JobI_Reserv1 2A
D JobI_RunPty 10I 0
D JobI_TimeSlc 10I 0
D JobI_DftWait 10I 0
D JobI_Purge 10A
*****************************************************************
* Error code structure *
*****************************************************************
D dsEC DS
D dsECBytesP 1 4I 0 INZ(256)
D dsECBytesA 5 8I 0 INZ(0)
D dsECMsgID 9 15
D dsECReserv 16 16
D dsECMsgDta 17 256
*
* Retrieve the JobInformation for this job.
*----------------------------------------------------------------
C CALLP RtvJobInf(dsJobI0100: %size(dsJobI0100):
C 'JOBI0100': DSJOB: *BLANKS: dsEC)
*
* If this Job is inactive => Delete DtaQueue.
*----------------------------------------------------------------
C JOBI_STATUS IFNE '*ACTIVE'

Kind regards,
Eduard Sluis.


----- Original Message ----
From: "Rick.Chevalier@xxxxxxxxxxxxxxx" <Rick.Chevalier@xxxxxxxxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx
Sent: Wednesday, February 20, 2008 3:27:44 PM
Subject: RE: check for active program


Steve,

Have you looked at the work management API's on the InfoCenter? It's
been 10+ years since I've done what you are asking but I'm pretty sure
it's in one of the work management API's. Sorry, I don't remember the
name. There is one to return job specific information. That's where I
would start.

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Roper
Sent: Wednesday, February 20, 2008 12:32 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: check for active program

I am trying to use the user space API's to check if a particular program
is running and what its status is as on WRKACTJOB screen. All instances
of using API's of the web have all returned JOBNAME and USERNAME not the
program name can any one help please


Steve Roper

Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.