Re: check for active program

How about using TAA Tool's DSPOBJLCK. It will return an error code if the
the object is not locked (not active).





Thanx,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



Eduard Sluis <eduard@xxxxxxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/20/2008 02:04 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
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.