These are the AMB-generated fields. The option Execute Before/After Edits determines which field to reference.
Representation | Execute Option | Field Name and Format |
---|---|---|
Representation | Execute Option | Field Name and Format |
Input |
After AMB edits |
Screenname-fieldname. Internal picture was updated by any previous field edits. |
Input |
Before AMB edits |
Screenname-fieldname-INPT. Data field containing any invalid data entered by the end user. Edits have not been performed; data is in screen input format. Field length is field length painted on the screen; definition is PIC X. |
Output |
After AMB Edits |
Screenname-fieldname-EDIT. Data was moved to -EDIT by previous output edits. Data may contain special symbols. Default length is field length painted on the screen; definition is PIC X. |
Output |
Before AMB Edits |
Screenname-fieldname. Data was not processed by previous output edits and is still in the internal format. Data in this field moves to the -EDIT field when an output format is specified. Default length is field length painted on the screen; definition is PIC X. |
Input or Output |
Before or After AMB Edits |
(APS-ROW-SUB). This data field contains the row number being processed for fields in a repeated block, or in a list box or combination box. |
Input or Output |
Before or After AMB Edits |
APS-EDIT-MESSAGE. Data field that lets you display an error message in addition to any you defined in the field edits for the field. Move a literal or data name containing the text into this field. |
Input or Output |
Before or After AMB Edits |
Screenname-fieldname-LEN. For CICS only. Contains the length of the field; definition is PIC X. |
Input or Output |
Before or After AMB Edits |
Screenname-fieldname-ATTR. For CICS only. Contains the attribute values assigned to the field; definition is PIC X. |
01 EMPLOYEE-RECORD. 05 EMPLOYEE-SALARY-GRP. 10 EMPLOYEE-SALARY-INPT. 15 FILLER PIC X(03). 15 EMPLOYEE-SALARY PIC S9(O5)V99. 10 EMPLOYEE-SALARY-OUTP REDEFINES EMPLOYEE-SALARY-INPT. 15 EMPLOYEE-SALARY-EDITPIC $$$,$$9.99.
The following example shows the generated code when you code an application edit routine as a subprogram. The routine:
CALL 'CUSTVER' USING ... SCRN-CUSTOMER-NO, ... SCRN-CUST-NO-FLAG, ... APS-EDIT-MESSAGE