Field Data Area

The third working storage structure is the field data area. It contains the data for all the OO and I/O fields defined for the form. In COBOL, the 02 field data area structure name is generated by adding the suffix DATA to the form header area name, as follows: SCREEN-<SCRNAME>-<SCRNUMBER>-DATA. Then there should be an entry for each field in the FCA. See the example below.

02 SCREEN-CSTEDT-001-DATA.

       05 S1-TRANCD            PIC X(6) VALUE 'CSTEDT'.
05 S1-ACTION            PIC X(6) VALUE SPACES.
05 S1-BTNACTION         PIC X(7) VALUE SPACES.
05 S1-CITY              PIC X(30) VALUE SPACES.
05 S1-COMPANY           PIC X(30) VALUE SPACES.
05 S1-COUNTRY           PIC X(30) VALUE SPACES.
05 S1-CUSTTYPE          PIC X(10) VALUE SPACES.
05 S1-CUST_NO           PIC 9(8) VALUE 0.
05 S1-EMAIL             PIC X(30) VALUE SPACES.
05 S1-FIRSTNAME         PIC X(30) VALUE SPACES.
05 S1-LASTNAME          PIC X(30) VALUE SPACES.
05 S1-POSTCODE          PIC X(10) VALUE SPACES.
05 S1-STREET            PIC X(30) VALUE SPACES.
05 S1-TEL_NO            PIC X(20) VALUE SPACES.
05 S1-RESMSG            PIC X(30) VALUE SPACES.

The length and type of each entry should reflect the length and type of the control.


The communication model used by the implementation of DPS-2200 in AMT-COBOL is Pseudo Conversational. Therefore the first field in the FDA should always be the Transaction ID as shown in the example. This field should of course also have a corresponding entry in the FCA.