Problem:

How to accept and convert characters to uppercase from an ADIS screen?

Resolution:

To convert characters accepted to uppercase

Use the following call:

   call x"af" using adis-function

    adis-parameter

where:

   01  adis-function        pic x comp-x value 1.

   01  adis-parameter

      03  bitpair-setting  pic x comp-x value 1.

      03  bitpair-section  pic x value "2".

      03  bitpair-index    pic x comp-x value 85.

      03  bitpair-count    pic x comp-x value 1.

Note: The above is documented in "Chapter 2: Enhanced ACCEPT/DISPLAY Syntax".