The EDBI-WHERE-CONSTRAINT external variable

Edbi-where-constraint is used to specify an additional WHERE condition for a succeeding START operation.

If you want to query city names that start with "A", add the following to your code:

WORKING-STORAGE SECTION. 01 edbi-where-constraint  pic x(300) is external. ... PROCEDURE DIVISION. ... *> to specify edbi-where-constraint   MOVE SPACES TO  edbi-where-constraint OPEN I-O INVOICE MOVE "city_name like 'A%'" to  edbi-where-constraint MOVE SPACES TO INV-KEY START INVOICE KEY IS NOT LESS INV-KEY