Victor,

One thing you can do is write up a program to run at, say 6:00 PM, that does the following.

1. Lists the jobs running in QINTER. You can use the List Job (QUSLJOB) API to put a list of active jobs into a user space that you can then read through.
Format JOBL0200 will let you specify a subsystem. QUSLJOB can be found under the Work Management APIs at IBM's Info Center.
2. Force the job to end. Spin through the list of jobs generated in 1 and end each one.

If you want to check for ones that used X to end their connection you can list each job's log. You can use the DSPJOB command to print the job's log.

DSPJOB JOB(jobnbr/username/jobname) OUTPUT(*PRINT) OPTION(*JOBLOG)

The next day you can review the listed job logs.

If you want to get fancy, you can use the List Job Log Messages (QMHLJOBL) API to list the job's log to a user space then spin through the messages and writhe them to a table. QMHLJOBL can be found under the Work Management APIs at IBM's Info Center. Your table can contain...

Job Name
Job User
Job Number
Date Sent
Time Sent
Message ID
Message Replacement Data (or the formatted message if you prefer)

You can write your own query to interrogate the data. It may be easier than manually perusing job logs.

HTH

Gary Monnier

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Victor Hunt
Sent: Monday, May 07, 2012 8:33 AM
To: Midrange Systems Technical Discussion
Subject: Ending A "Orphaned" Program

I have a user running Windows 7 Professional 64-bit and the current version of i Access. Twice last week at the end of the working day this users PC locked up and the user just turned it off and went home. Unfortunately, the user had opened our shipping program which is a green screen program that opens many files including our order files. At 9 PM we run our end of day processes.

All users are off the system no later then 5:30 PM. Anyone who leaves their device at a menu, etc., gets signed off by the system after 2 hours so the nightly processing is not impacted. Not so with this issue. It will sit in QINTER until we kill the job manually. Unfortunately it really screws up the nightly process. Looking at the job log I see a CPF5140 followed by a CPF5503, both are dianostic messages.

Will either of these messages cause a MONITOR loop or the *PSSR error subroutine to trip so I can cancel the program? I plan to do some testing of this but I suspect since they are diagnostic messages they may not. Is there another way to interrupt the program and attempt to end it if this happens? Perhaps just ending QINTER prior to nightly processing resolves this issue.

Thanks all.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.


This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].