Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Basic question about DISPLAY in COBOL

Posted on 2001-07-25
6
Medium Priority
?
540 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
Get your Conversational Ransomware Defense e‑book

This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.

 
LVL 2

Accepted Solution

by:
xinger earned 400 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

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

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

A while back, I ran into a situation where I was trying to use the calculated columns feature in SharePoint 2013 to do some simple math using values in two lists. Between certain data types not being accessible, and also with trying to make a one to…
If you are a mobile app developer and especially develop hybrid mobile apps then these 4 mistakes you must avoid for hybrid app development to be the more genuine app developer.
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …

722 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