Highlighted
Absent Member.
Absent Member.
1604 views

ACCEPT Screen Level Data.

Hi,

We used to capture the data from Screen Area using ACCEPT clause. The variable we defined inside Screen Area like

01 GMD3010A-DATA

     05 LINE 04 COL 62 PIC X     USING GMD-PEP.

And using ACCEPT GMD3010A-DATA we used to capture the data for GMD-REP. So whenever we are capturing any data from HELP screen we have to pass this to GMD-PEP.  So is there any alternate way to populate the GMD-REP value without MOVE statement. Please advice.

0 Likes
2 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: ACCEPT Screen Level Data.

Can you please clarify your question here?

What is GMD-REP, a different field in working-storage?

The ACCEPT screen section item with USING causes the data-item in the USING to be automatically updated with the data entered in that field on the screen.

If you wish for this data to be moved elsewhere you will have to code a move statement or something similar.

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: ACCEPT Screen Level Data.

Hi Chris,

My requirement is that initially I have moved some values to field GMD-REP. GMD-REP is Screen Level DATA as I mentioned. Now a separate help screen will be pop up by pressing F12 key and values can be selected from that Screen. Is it possible to update GMD-REP through cursor co-ordinate w/o moving any direct value to this field.

0 Likes
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.