Solved

Basic question about DISPLAY in COBOL

Posted on 2001-07-25
6
504 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
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
php iseries 3 219
DB2 iSeries Combine Results of 2 Selects (nested Join?) ? 2 73
AS/400 created the PO exchange server sends the email 5 73
iSeries, AS/400 GUI 9 114
This article shows gives you an overview on SQL Server 2016 row level security. You will also get to know the usages of row-level-security and how it works
Introduction This article is intended for those who are new to PHP error handling (https://www.experts-exchange.com/articles/11769/And-by-the-way-I-am-New-to-PHP.html).  It addresses one of the most common problems that plague beginning PHP develop…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

910 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

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now