Checking a system in CL

[cwolgamott]

Hello. I would like to check for active jobs in a specific subsystem and then use the endjob command to end those jobs that are currently active using CL. I am unsure of how to go about this since I am new at CL programming. I would greatly appreciate any help or suggestions. Thank you.

 

[iSeriesCodePoet]

Why do you want to do that? Mike Wills
AS400 Programmer

http://www.koldark.net

Please, if you find my post useful, let me know.

 

[cwolgamott]

Hello. I am trying to create a CL program to send a break message to all active users to sign off, pause for 5 minutes, log all active users off (excluding me), and then run a program. I cannot use the ENDSBSSYS command. It was recommended that I check for jobs that are still active within the QINTER subsystem, then use the ENDJOB command for each job that is still active except for mine. I would greatly appreciate any suggestions or help. I am new to using CL. Thanks for your reply.

 

[cwolgamott]

Hello. I am trying to create a CL program to send a break message to all active users to sign off, pause for 5 minutes, log all active users off (excluding me), and then run a program. I cannot use the ENDSBSSYS command. It was recommended that I check for jobs that are still active within the QINTER subsystem, then use the ENDJOB command for each job that is still active except for mine. I would greatly appreciate any suggestions or help. I am new to using CL. Thanks for your reply.

 

[iSeriesCodePoet]

Hmm... Check out the archives on

http://www.midrange.com.

There might be ideas out there. Mike Wills
AS400 Programmer

http://www.koldark.net

Please, if you find my post useful, let me know.

 

[gracy]

Why can't you use the endsbs command?

 

[iSeriesCodePoet]

Because it will kill his session as well. Mike Wills
AS400 Programmer

http://www.koldark.net

Please, if you find my post useful, let me know.

 

[cwolgamott]

Thank you so much for your reply. I checked out

http://www.midrange.com

and found your post to be very useful, but I am afraid that I have been unable to locate the information that I am looking for. However, I will continue to look on that site. Thanks again for your suggestions. I greatly appreciate it.

 

[gracy]

We do this quite often when we want to kick all users off & keep ourselves running. You can do a tfrjob & trnsfer yourself to the qctl subsystem & then you can end qinter.

 

[cwolgamott]

Might there be a way where I do not have to restrict the users' access. I want them to be able to log back in after I run the program without having to do anything on the terminal? I am wondering if it would be possible to loop through the QINTER subsystem checking for active jobs and using the ENDJOB command to end the active jobs (except for my own). Then, try to run the program. I would greatly appreciate any suggestions or comments. Thanks.

 

[gracy]

Have you looked into the wrksbsjob command?

wrksbsjob sbs(qinter)

You could produce a listing which could be put to a file which could be processed in your cl program.

Read the file,
if it is not your job,
do an endjob.


Just as an aside, I would prefer to do the end to qinter because I would be assured that no one had signed back in while I was in the process of ending all of the other jobs.

 

[cwolgamott]

Thank you for your suggestion. I greatly appreciate it.