Having problems with your account or logging in?
A lot of changes are happening in the community right now. Some may affect you. READ MORE HERE

Program using ACCEPT/DISPLAY drops a character displayed on line 25 position 79

Program using ACCEPT/DISPLAY drops a character displayed on line 25 position 79

Problem:

Customer is using ACCEPT/DISPLAY statements in a Visual COBOL native program to perform screen I-O.

The screen that they have defined is 80 characters by 30 lines.
They are displaying data on line 25 and the character that should be displayed in column 79 is being dropped.
 
Why and how can this be fixed?

Resolution:

There are several positions on the screen to which error messages and indicators are displayed by the ACCEPT/DISPLAY screen handling module and by default these are set on row 25.

You can configure these to display on a different line or column by using the ADISCF utility.

Open up a Visual COBOL command prompt and do a cd to your project folder and enter the command:

adiscf

to start the accept/display configuration utility.
Press F2-Alter
Press F7 positions

Change the locations to the desired ones and then press Enter to return to menu.
Press Esc key to return to main menu and then press F4 to save.
Press F3 to overwrite current configuration then press Enter to accept the default configuration.
Press Esc once more to exit.

This will create or update a file called ADISCTRL in your C:\Program Files (x86)\Micro Focus\Visual COBOL\etc folder which will contain the modified options.

You will need to include this file in your application folder when deploying the application so that the changes will take effect in production also.

DISCLAIMER:

Some content on Community Tips & Information pages is not officially supported by Micro Focus. Please refer to our Terms of Use for more detail.
Top Contributors
Version history
Revision #:
1 of 1
Last update:
‎2013-03-08 06:58
Updated by:
 
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.