How can I reply to a job with MSGW status in AS400

Dear Tom,

At present we are using V5R4 version. In our system I didn't find any attribute like INQMSGRPY.

The basic description of how the job is run means
If so many users were running a same program at a time, then in that situation the job is going into MSGW status.
Our JOBQ is having max active jobs as 1.
So, inorder to clear such a jobs from MSGW we are going to WRKACTJOB and there we are giving opt7 for that job which is in MSGW and then giving reply 'G' manually.

Now what we want is we want to reply such a jobs which were in MSGW status programatically or by any other process so that we need not do all this process every time & that process to be run for every scheduled period of time.

Message identifier having reply 'G' is 'CPA8424'.

thanks

Bsidmis:

For a job description, you can see the INQMSGRPY() attribute by using the DSPJOBD command (or 'option 5=Display' from a WRKJOBD list.) The 'Inquiry message reply' attribute will be in the middle of the first page of attributes.

For SBMJOB, type the command on a command line and press [F4] for prompting. Then press [F10=Additional parameters] to access extended job attributes. The 'Inquiry message reply' attribute will be in the middle of the third page of attributes. If you then press [F11=Keywords], you should see the INQMSGRPY() parameter name.

For CHGJOB, you can prompt the command and see the parameter near the top of the second page of attributes.

This job could have its own job description. That way you could make the change to just one job description and just that one job would be affected.

Alternatively, if you have access to the source code that submits the job, you could change the SBMJOB attribute.

The idea would be to isolate the effect of having CPA8424 responded to automatically to as small an area as is needed.

But if you have all of the source code, the best might be to alter the source so that the automated response takes effect only at the points in the job where it's needed. This might be for a DLTIGCTBL command in that job.

The altered source might look this way:

   chgjob  inqmsgrpy( *SYSRPYL )
   dltigctbl  igctbl( MyIGCTbl )
   chgjob  inqmsgrpy( *RQD )

Just before the DLTIGCTBL command is executed, the job is changed to look at the system reply list for inquiry messages; and after DLTIGCTBL finishes, the job is changed back to require replies.

The system reply list may be accessed with the WRKRPYLE command. Pressing [F6=Add] will prompt the ADDRPYLE command to add a message identifier to the system list.

For CPA8424:

 ==>  addrpyle  seqnbr( 5000 ) msgid( CPA8424 ) rpy( G )

If you always know what the name of the font table is, you can refine the reply list entry:

 ==>  addrpyle  seqnbr( 5000 ) msgid( CPA8424 )
             cmpdta( MyIGCTbl 1 )
             rpy( G )

In that example, the font table name is 'MyIGCTbl'. We know that the comparison data start position is '1' because we can use the DSPMSGD command to look at the attributes of message CPA8424. It only has a single field, so we know it starts in position '1'.

The sequence number of '5000' can be whatever you choose. You can have multiple entries, even for the same message identifier. Different field data might call for different replies. You choose the order that the system checks list entries with the sequence number. The first entry that matches is the one that gives the reply.

Give some thought to how you want to set a sequence number. In the future, you might have many entries that you want to keep in some order. You might also need to insert entries between previous ones.

Anyway, those are the basics of automated replies. I can supply many details if you need them.

Also, if there are obstacles such as no access to source code or no possibility of changing a job description, there are other alternatives. The alternatives get more complicated. Adding an entry to the system reply list and changing a job description are easy, so that's the best place to try first.

Tom

Hi Tom,

How can I give all the above in a RPGLE/CLLE program.

can you give me a step by step procedure for this?

Thanking You

Bsidmis:

No programming would be done for the basic steps. Those are simply commands entered on a command line by someone who is authorized to perform those actions.

The only part that would be programming would be if you wanted more than just the basic elements and wanted to insert the control into a program:

Hi Tom,

Here in the set of commands you gave what is the need of DLTIGCTBL...is there any problem if I delete any  table other than the actual table.

Suggest me which table can we use in that command normally  & by giving those commands how can it know that it have to take the MSGID CPA8424.

You also told that " So far, we haven't been shown the programming that causes the CPA8424 message in the first place, so it's hard to be certain what changes should be made". So, instead of CPA8424 what we can use?

Suggest me what to do.