x"AF" Function 49 - Initialize Adis to Use Panels

Initializes Adis for use with Panels.

The x"AF" function 49 creates a panel with the same dimensions as your screen. This panel is automatically enabled and is space filled with white on black attributes. The screen is cleared.

You execute this call only once at the beginning of your program.

Syntax:

call x"AF" using   init-panels-fn
                   parameter

Parameters:

`init-panels-fn`	pic x comp-x value 49.
`parameter`	Any alphanumeric data item. Adis ignores its size and contents.

Example:

 01 init-panels-fn    pic x comp-x value 49.
 01 parameter         pic x.
            ...
     call x"af" using init-panels-fn
                      parameter

The panel created by this call is automatically enabled, clearing the previous contents from the screen. It contains spaces as the default backdrop character. The default attribute setting is white on a black background. All ACCEPT and DISPLAY statements are directed to this panel unless another panel is specified. See the function Specify Panel for ACCEPT/DISPLAY for information on how to do this. The panel identifier (Panel-ID) value of the panel created by this call is always 0.

This call creates six panels for use by Adis. All but the first of the following list are on the bottom line of your screen.

A full screen panel.
An Adis error message panel, in columns 1 through 77.
A one-character panel for the Insert indicator.
A one-character panel for the Off-end-of-field indicator.
A one-character panel for the Auto-skip indicator.
A one-character panel for the Replace indicator.

These six panels cannot be used by your program.