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