Solved

as400/cobol  batch display's

Posted on 2002-05-06
9
681 Views
Last Modified: 2008-02-01
I am converting Wang Cobol to AS400/cobol, On wang display are alway's promped to the workstation, but in AS400 if job is submitted in batch the messages are not prompted

 How can I make my messages displayed on workstation for batch jobs


Thanks

Eli
0
Comment
Question by:mshomi
9 Comments
 
LVL 13

Expert Comment

by:samic400
ID: 6997170
Could you give more detail please?

Are you calling a job interactively at the workstation and want the same type of messages when you submit it?

0
 

Author Comment

by:mshomi
ID: 7000158
Sam,

I submit the jobs in batch , by using cmd SBMJOB, so i am not calling the programs interactively

Thanks

Eli
0
 
LVL 13

Expert Comment

by:samic400
ID: 7001025
All batch submitted jobs have their job messages submitted to QSYSOPR message queue. You could put some code in your program to send messages to a different message queue.

Jobs run interactively will break their messages on your display.

Give me more detail on what it is you are trying to do and maybe I can help you out!
0
ScreenConnect 6.0 Free Trial

Explore all the enhancements in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

 

Author Comment

by:mshomi
ID: 7005202
I am converting Wang/cobol to As400/cobol, On wang we have like 500 programs with different kind of display's , which give the operator information, Like the program now is aborting due to ......, but what is happening now the message is not dislayed and the operator he/she is not in a position to know  that the program has aborted

How can I make my Cobol Program work(display's) , like should i call a CL program or What

Thanks
0
 
LVL 1

Expert Comment

by:aaronkempf
ID: 7011270
id call BEI. 425 644 4000.  I think.  maybe its 6000.

they are one of the last WANG vendors that I know.
0
 
LVL 2

Expert Comment

by:olidel
ID: 7040299
Hi,

   As Samic400 said, I think you should send your message to a user MSGQ and of course the interactive job must be in break mode if you want to see the message. This parameters is in the user profile it is called "Message queue delivery".

    Of course, you maybe have to create a CLP before you run your Cobol program. You can also do some AS/400 programming.

Hope this hep.

Bye.
0
 

Author Comment

by:mshomi
ID: 7040469
Olidel,

If the job is submitted in batch (SBMJOB) will the break mode work(prompt the message to the workstation while the job runs )?

Eli
0
 
LVL 3

Accepted Solution

by:
P_S_Price earned 100 total points
ID: 7143165
You have a couple of choices.

You can write a CL program that displays messages on either QSYSOPR, or the submitting user Message Queue (or in fact any other message Queue then have your cobol program call this.

Another alternative is to use a call to QCMDEXC to issue a SNDMSG to QSYSOPR or SNDBRKMSG to a workstation.

One option that is not often considered is that Batch programs CAN be interactive You just have to acquire a workstation device. However this is quite complicated  and probably not worth the effort.


Most developers however usually go for the Call to a CL program. Here is a quick example of a CL program that Might Help get you started

PGM PARM (&MSG &QUEUE)
DCL &MSG *CHAR 80
DCL &QUEUE *CHAR 10
IF (&QUEUE *EQ ' ') (CHGVAR &QUEUE 'QSYSOPR')
SNDPGMMSG MSG(&MSG) TOMSGQ(&MSGQ)
MONMSG CPF0000
ENDPGM

0
 

Expert Comment

by:SpideyMod
ID: 8279306
Force Accepted

SpideyMod
Community Support Moderator @Experts Exchange
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Ruby - Rails - iSeries 3 251
PDF TO PCL format conversion on AS400 - infoprint server 4 84
IBM 840 flash storage Array 3 178
Monitor SQL Insert 8 66
Google always has something new and amazing up its sleeve, and the most current thing that they have been working on is another step in the evolution of Google Search, from machine learning to its brilliant successor, deep learning.
The question appears often enough, how do I transfer my data from my old server to the new server while preserving file shares, share permissions, and NTFS permisions.  Here are my tips for handling such a transfer.
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

831 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