Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


AS400 Error Trapping

Posted on 2013-11-14
Medium Priority
Last Modified: 2013-11-14
Our companies currently run a very old application which is no longer supported by the company.  (Upgrading to the current version, even if available, not an option)

We are upgrading our AS400 OS to V6.  Almost all the functions in the application work correctly with the exception of two main ones.  When these options are requested the system locks and goes into never-never land forever.  No error message or indication of issues in the log.  I have tried to debug but we don't have the source and/or it was not compiled with the debug option.  

Does anyone have any suggestion which would help me to determine what is happening?

Thank You...
Question by:lynn_harris
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 2
  • 2
  • +1
LVL 18

Accepted Solution

Dave Ford earned 1000 total points
ID: 39648910
If you can't get an updated version of your program and you don't have a program listing, then I suppose the only thing you can do would be to inspect the job while it's running.

Using the WrkActJob command, you'd locate the offending job and get the details by entering a 5 to "Work with" that job. Hopefully, you have at least one AS/400-savvy operator or programmer to look at the various displays such as job log, call stack, locks, and spool files. Hopefully, that information will point you towards isolating the problem.


Author Comment

ID: 39649052
Wow... nice to know I'm incompetent.  

I check the things you indicated before asking....

There are no messages in joblog.  There are no files showing any IO count that would indicate a loop.  There is are no files with lock status wait.

I see the program running in the call stack and the object is cobol- *pgm type CBL.  I tried to put into debug with STRDBG... it does not come up.  It appears OPTION(*SRCDBG) or OPTION(*LSTDBG) where not used when compiled.  

We have object only from the vendor.  

Guess some question are to stupid to ask.....
LVL 35

Expert Comment

by:Gary Patterson
ID: 39649342
It isn't a stupid question.  But since you provided so little information, I suspect daveslash assumed you aren't very familiar with the AS/400, and is encouraging you to engage a resource that is knowledgable of basic "hung job" troubleshooting.

So can you share some details?  Even better, post some screen shots.

1) Look at the job in WRKACTJOB.  What is the Status?  Refresh a few times.  Is status changing?  If so, to what?

2) Is CPU utilization high or low for this job (what is it?)

3) What Function is shown?

4) Take option 5 and post the call stack.  I'd like to see what is running.  Refresh the call stack a few times.  Is it always about the same place?

5) Look at open files.  Are I/O counts moving?

Post back as much detailed info about the job as possible, and we'll be better able to help you.  There are a lot of things that can be happening, and without more information, it is just hard to narrow it down.

- Gary Patterson

Check out my EE profile: http://www.experts-exchange.com/M_4382324.html
 [eBook] Windows Nano Server

Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks

LVL 18

Expert Comment

by:Dave Ford
ID: 39649380
Gary is exactly right. Apparently incorrectly, I assumed you were more of a "business" type (as opposed to a "technical" type). I apologize for the insulting inference. It certainly wasn't intentional.

Author Comment

ID: 39649454
Hi.... First, Dave I apologize for be so short.  I really didn't provide enough information.  It was in my head, but I didn't communicate it.

Thank you both for responding.  I will provide more background and better information.  

All libraries are currently be converted and installed in the new environment.  The ones I was working with before where old and I want to illuminate that as a possible issue.  The upgrade was started a year ago and due to business requirement was put on the back burner.

From memory… the status of the job was display wait.  The io count was very low and not moving, no file had a status of lock wait, the program list does not change (but I will check more frequently to be sure), the session remains locked and must be cancelled to exit.  

I know I’m missing something and appreciate help looking at it.

I will provide screen prints of the job, as well as background information when the system is up.

Thank You.

Author Comment

ID: 39649459
also, cpu usage low and remains low.
LVL 35

Expert Comment

by:Gary Patterson
ID: 39649479
There are a lot of options here.

For example, we recently did a source code recovery project for a client that had lost the source code to several applications.  Source code recovery is not always possible, but it could be an option for you.

But if the application migrated properly over the years, there is a good chance it is "runnable" if we can just find the reason that it is hanging.    

Is the problem program OPM COBOL or ILE COBOL?

- Gary Patterson

Author Comment

ID: 39649639
I will have to look when the system is backup.  Still restoring and converting.  More tomorrow.  

LVL 27

Expert Comment

ID: 39650052
...… the status of the job was display wait.
That would be confusing. If that's the status, then the job isn't hung or locked up; it's just waiting for someone to press <Enter> or some other function key before it continues.

Check the job locks to see what display device is allocated to the job.


Author Comment

ID: 39650060
True Tom .... Once libraries and data brought over again I will double check.  It doesn't make sense. I will get screen prints and get accurate info posted.  Thank you.

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Here in this article, you will get a step by step guidance on how to restore an Exchange database to a recovery database. Get a brief on Recovery Database and how it can be used to restore Exchange database in this section!
Article by: evilrix
Looking for a way to avoid searching through large data sets for data that doesn't exist? A Bloom Filter might be what you need. This data structure is a probabilistic filter that allows you to avoid unnecessary searches when you know the data defin…
In this video, Percona Solution Engineer Dimitri Vanoverbeke discusses why you want to use at least three nodes in a database cluster. To discuss how Percona Consulting can help with your design and architecture needs for your database and infras…
Want to learn how to record your desktop screen without having to use an outside camera. Click on this video and learn how to use the cool google extension called "Screencastify"! Step 1: Open a new google tab Step 2: Go to the left hand upper corn…
Suggested Courses

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question