Field Control Area

This area contains information about each field on a form. The field control area also contains display-control indicators
that your program can use, as an option, to control specific field attributes.

The FCA should always start with a level 2 structure named 'SCREEN-<SCRNAME>-<SCRNUMBER>-FCA'. E.g.:

02 SCREEN-CSTEDT-001-FCA.

Field Control Area Fields

Next there should be an entry in the structure for every visible control with which data should be communicated to or from the program. These fields should all have the same level. For more information see the DPS-2200 runtime development manual. The example below shows the fields for the control CITY.

   05 S1-CITY-STAT       PIC 9(2)  COMP VALUE 0.
05 S1-CITY-TYPE       PIC 9(2)  COMP VALUE 1.
05 S1-CITY-YCO        PIC 9(2)  COMP VALUE 1.
05 S1-CITY-XCO        PIC 9(2)  COMP VALUE 1.
05 S1-CITY-CHAR       PIC 9(5)  COMP VALUE ZERO.
05 S1-CITY-FID        PIC 9(5)  COMP VALUE 1.
05 S1-CITY-VAL        PIC X(1)       VALUE 'V'.
05 S1-CITY-DYN        PIC X(1)       VALUE 'U'.
     05 S1-CITY-BACK       PIC X(1)       VALUE 'E'.
05 S1-CITY-FORE       PIC X(1)       VALUE 'W'.
05 S1-CITY-INT        PIC X(1)       VALUE 'N'.
05 S1-CITY-HIGH       PIC X(1)       VALUE'N'.
05 S1-CITY-FONT       PIC X(1)       VALUE'N'.
05 S1-CITY-EMPH       PIC X(1)       VALUE'N'.

Overlay Names

After the FCA there should be an overlay for each FCA entry. These overlays should all be the same and are therefore redefined using an OCCURS with the number of FCA entries. E.g.

02 SCREEN-CSTEDT-001-FCA-END
        REDEFINES SCREEN-CSTEDT-001-FCA.
*
        05 SCREEN-CSTEDT-001-FCA-REDEF OCCURS 15 TIMES.
*
           15 S1-FCA-STAT        PIC 9(2) COMP.
           15 S1-FCA-TYPE        PIC 9(2) COMP.
           15 S1-FCA-YCO         PIC 9(2) COMP.
           15 S1-FCA-XCO         PIC 9(2) COMP.
           15 S1-FCA-CHAR        PIC 9(5) COMP.
           15 S1-FCA-FID         PIC 9(5) COMP.
           15 S1-FCA-VAL         PIC X(1).
           15 S1-FCA-DYN         PIC X(1).
           15 S1-FCA-BACK        PIC X(1).
           15 S1-FCA-FORE        PIC X(1).
           15 S1-FCA-INT         PIC X(1).
           15 S1-FCA-HIGH        PIC X(1).
           15 S1-FCA-FONT        PIC X(1).
           15 S1-FCA-EMPH        PIC X(1).

This ends the total Field Control Area.