Adopt a common subroutine model for each field, which uses parameters to set the field location, and returns an exitcode. This allows the special details of the field to be kept together with the field, while still allowing you to adjust the inter-field behavior at the level above, or even to use the same field editing/display code in different contexts. For example, rather than the traditional AlphaACCOUNTING model:

FIELD1:

<set INFLD parameters>

xcall INFLD, ...

IF INXCTL OR CNGCTL GOTO ANYCNG

FIELD2:

<set INFLD parameters>

xcall INFLD, ...

IF INXCTL OR CNGCTL GOTO ANYCNG

etc.

Break the above monolith into individual fields and move the interfield logic to a higher level, i.e.:

DO'FIELDS:   ! caller sets OPCODE=1 for input, 2 for display

ON FNO CALL FIELD1,FIELD2,FIELD3,...

<check exitcodes, set next FNO accordingly>

IF NOT DONE GOTO DO'FIELDS

ANYCNG:

<confirm record update>

FIELD1:

<set INFLD parameters>

xcall INFLD, ...

RETURN

FIELD2:

<set INFLD parameters>

xcall INFLD, ...

RETURN