Solved

Basic question about DISPLAY in COBOL

Posted on 2001-07-25
6
526 Views
Last Modified: 2006-11-17
I'm new in Cobol for AS400. I wrote some little program with several DISPLAY operators. In my AS400 shows what I wanted to display , but it suspends(stops) after every DISPLAY and wating for me press "Enter" and only after pressing "Enter" it shows me the next DISPLAY.
Why this ?
Thank you.
0
Comment
Question by:Maximka2000
[X]
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
6 Comments
 
LVL 3

Expert Comment

by:P_S_Price
ID: 6316480
This would again seem to be a duplicate of your other question.
0
 

Author Comment

by:Maximka2000
ID: 6316488
Yes you right see my reaction in the first one.
0
 
LVL 16

Expert Comment

by:theo kouwenhoven
ID: 6316702
Maximka2000,

The DISPLAY and ACCEPT method are for sending and retrieving operator messages.

I think you have to create a display file and look for the extended DISPLAY and extended ACCEPT method.

Good Luck
0
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
LVL 2

Accepted Solution

by:
xinger earned 100 total points
ID: 6329038
You may code a
  DISPLAY ... UPON CONSOLE
and you will not be bothered with needing to press Enter.  

But beware that this will place the displayed message on the QSYSOPR message queue.  That may be an acceptable solution depending on your environment (e.g., you are the only one using the machine.)  But if your company has operators who monitor the QSYSOPR message queue, you may make enemies if you do a lot of this.

If you do this, enter the command
  DSPMSG QSYSOPR
to see your DISPLAY's when your program is done.
0
 
LVL 2

Expert Comment

by:xinger
ID: 6329147
By golly, there is a simple way to do this...

CRTDSPF FILE(QTEMP/DISPLAY) RSTDSP(*NO) DFRWRT(*YES)
OVRDSPF FILE(QDLBACCDSP) TOFILE(QTEMP/DISPLAY)  
CALL YOURPGM
DLTOVR FILE(QDLBACCDSP)

And then if you have done all this within a PDM utility, press F10 twice to see your displays.  If you are doing this outside of a PDM utility, first CALL QCMD and then press F10 once.
0
 

Author Comment

by:Maximka2000
ID: 6330961
That is exactly what I need.
Thank You very much.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone 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

Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
Compliance and data security require steps be taken to prevent unauthorized users from copying data.  Here's one method to prevent data theft via USB drives (and writable optical media).
NetCrunch network monitor is a highly extensive platform for network monitoring and alert generation. In this video you'll see a live demo of NetCrunch with most notable features explained in a walk-through manner. You'll also get to know the philos…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…

617 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